• Viernes 8 de Noviembre de 2024, 11:50

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - VeronicaNF

Páginas: [1]
1
Visual Basic para principiantes / Re: Como Programar Arreglos En Visual Basic 6.0
« en: Domingo 23 de Marzo de 2008, 00:27 »
Aprendi algo nuevo  ¡¡como llenar un arreglo!! , jajajaja :D

Thanks
 :hola:

F_Tanori

2
Visual Basic para principiantes / Re: Funcion Para Manejo De Cadena De Caracteres
« en: Domingo 23 de Marzo de 2008, 00:22 »
muchas gracias, esto soluciona mi problema
 :smartass:

3
Visual Basic para principiantes / Re: Como Programar Arreglos En Visual Basic 6.0
« en: Domingo 23 de Marzo de 2008, 00:07 »
se declara el arreglo

Código: Text
  1. Dim arreglo(19) As String
  2.  

arreglo = nombre del arreglo

(19) = numero de elementos que contiene el arreglo

String = Tipo de dato

llenar el arreglo

en este caso llenare el arreglo de ceros

Código: Text
  1. For x = 0 to x = 18
  2.      arreglo(x) = "0"
  3. next x
  4.  

otra forma de hacerlo

Código: Text
  1. arreglo(0) = "hola"
  2. arreglo(1) = " : p"
  3. arreglo(2) = "aja"
  4.  
  5.  

etc...

espero aver sido explicita, saludos :hola:

4
Visual Basic para principiantes / Funcion Para Manejo De Cadena De Caracteres
« en: Sábado 22 de Marzo de 2008, 23:55 »
segun mi criterio esta es la instruccion que no funciona

Código: Text
  1. For m = 0 To m = 21
  2.     formula(m) = Mid(w.Text, m + 1, 1)
  3. Next m
  4.  

y me gustaria saber como puedo corregirla, aqui esta el codigo completo

Código: Text
  1. Dim k As Integer
  2. Dim arreglo() As String
  3. Dim total As Integer
  4. Dim igual() As String
  5. Dim cambio As Integer
  6. Dim formula(22) As Variant
  7. Dim j  As Integer
  8. Dim z  As Integer
  9. Dim m  As Integer
  10.  
  11. arreglo = Split(variable.Text, ";")
  12.  
  13. For m = 0 To m = 21
  14.     formula(m) = Mid(w.Text, m + 1, 1)
  15. Next m
  16.  
  17.  
  18. For k = LBound(arreglo) To UBound(arreglo)
  19.     igual = Split(arreglo(k), "=")
  20.     For j = 0 To j = 21
  21.         If igual(0) = formula(j) Then
  22.             formula(j) = igual(1)
  23.         End If
  24.     Next j
  25.         igual(k) = ""
  26. Next k
  27.  
  28. total = Val(formula(0))
  29.  
  30. For m = 0 To m = 2
  31.     cambio = Val(formula(m + 1))
  32.     Select Case formula(m)
  33.         Case "*"
  34.             total = total * cambio
  35.         Case "/"
  36.             total = total / cambio
  37.         Case "+"
  38.             total = total + cambio
  39.         Case "-"
  40.             total = total - cambio
  41.     End Select
  42. Next m
  43.  
  44. result.Text = total
  45.  

cualquier ayuda es bien recibida  :D

5
C++ Builder / Re: Apuntadores Dobles En C++
« en: Miércoles 26 de Septiembre de 2007, 23:15 »
Muchas gracias por la ayuda ProfesorX
hasta luego
bye   :hola:

6
C++ Builder / Re: Apuntadores Dobles En C++
« en: Miércoles 26 de Septiembre de 2007, 00:28 »
ProfesorX, puedo preguntarle algo?
¿Despues de finalizar las clases siempre va punto y coma?
¿si no pongo "using namespace std;" cuando utilizo conio, el programa no funcionara? ya que nunca utilizaba eso y si funcionaba, si utilizo las librerias aunque cuando publique el programa no las agrege  :D

en esta parte del codigo me equiboque al teclearlo jeje

Código: Text
  1.  
  2. void sacar(cliente** inicio)
  3. {
  4.    cliente*aux;
  5.    cliente *aux2;
  6.    aux=*inicio;
  7.    if (aux==NULL)
  8.        cout<<"Ta vacia";
  9.    else
  10.    {
  11.        aux2= aux-> sigue(); // me equiboque era "sigue" en lugar de getnum, disculpa
  12.        aux->getnum();
  13.        delete aux;
  14.        *inicio=aux2;
  15.    }
  16. }
  17.  
  18.  

muchas gracias por la ayuda  :rolleyes:

7
C++ Builder / Apuntadores Dobles En C++
« en: Lunes 24 de Septiembre de 2007, 01:42 »
class cliente
        {
        private:
        char num[30];
        cliente * sig;
        public:
                char * cliente:: getnum()
                        {
                        return num;
                        }
                void cliente:: clien()
                        {
                        gets(num);
                        }
                void cliente:: direccion(cliente * siguiente)
                        {
                        sig=siguiente;
                        }
                cliente* cliente:: sigue()
                        {
                        return sig;
                        }
        }
void insertar_antes(cliente **inicio)
        {
        cliente *aux, * aux2;
        aux2= * inicio;
        aux= new cliente;
        aux->clien();
        aux->direccion(aux2);
        * inicio= aux;
        }
void creacion(cliente** inicio)
        {
        cliente *aux;
        aux=new cliente;
        aux-> clien();
        aux->direccion(NULL);
        *inicio= aux;
        }
void meter(cliente** inicio)
        {
        clien *aux;
        aux= *inicio;
        if(aux==NULL)
                creacion(&aux);
        else
                insertar_antes(&aux);
        *inicio=aux;
        }
void sacar(cliente** inicio)
        {
        cliente*aux;
        cliente *aux2;
        aux=*inicio;
        if(aux==NULL)
                cout<<"Ta vacia";
        else
                {
                aux2= aux-> getnum();
                delete aux;
                *inicio=aux2;
                }
        }
char menu()
        {
        char opc;
        clrscr();
        gotoxy(30,3);
        cout<<"MENU";
        gotoxy(28,7);
        cout<<"1)Meter";
        gotoxy(28,9);
        cout<<"2)sacar";
        gotoxy(28,11);
        cout<<"3)Salir";
        do
                {
                opc=getch();
                }while(!strchr("123",opc));
        return opc;
        }
main()
        {
        cliente*cima;
        cima=NULL;
        char opc;
        do
                {
                opc=menu();
                switch(opc)
                        {
                        case'1':meter(&cima);
                                break;
                        case'2': sacar(&cima);
                        }
                }while (opc!='3');
        }

Cualquier ayuda es bien recibida :)

Páginas: [1]