• Lunes 6 de Mayo de 2024, 08:12

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.


Temas - VeronicaNF

Páginas: [1]
1
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

2
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]