• Martes 14 de Abril de 2026, 23:49

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 - Boxcarpilot

Páginas: [1]
1
VB .NET / Cumpleaños VB
« en: Domingo 27 de Septiembre de 2009, 17:56 »
Buenas hago otro topic..

hace un tiempo hize un programa orientado a obj en java, q le ponias tu fecha de nac. y te dbaa tu edad en años, meses y dias...
ahora debo hacerlo en vb 2005; como podria hacerlo (modo consola y NO orientado a obj)

Código: Java
  1. import java.io.*;
  2. import javax.swing.JOptionPane;
  3. import java.util.Date;
  4.  
  5. class Metodo
  6. {
  7.  
  8. int edad1;
  9. int edanmes;
  10. int meses;
  11.  
  12. //Iniciamos el uso de la Clase Dt
  13. Date tod=new Date();
  14.  
  15. //Metodo que obtiene la edad exacta en años
  16.     void asignarano(int dia1[],int mes1[],int fecha1[], int res[], int tama)
  17.     {
  18.        int c;
  19.        for(c=0;c<=(tama-1);c++)
  20.        {
  21.        
  22.        edad1=((tod.getYear()+1900)-(fecha1[c]))-1;
  23.        
  24.        if((tod.getMonth()+1)-mes1[c]<0)
  25.        {
  26.         edad1=edad1+0;
  27.         res[c]=edad1;
  28.        }
  29.        else if((tod.getMonth()+1)-mes1[c]>0)
  30.        {
  31.         edad1=edad1+1;
  32.         res[c]=edad1;
  33.        }
  34.        else if((tod.getMonth()+1)-mes1[c]==0)
  35.         {
  36.          if(tod.getDay()>=dia1[c])
  37.          edad1=edad1+1;
  38.          res[c]=edad1;
  39.         }
  40.        
  41.       }
  42.    
  43.      }
  44.      
  45.  //Metodo que calcula la edad en meses
  46.  void edames(int anos[],int mes[], int res2[], int tama)
  47.  {
  48.     int c1;
  49.     for(c1=0;c1<=(tama-1);c1++)
  50.     {
  51.      
  52.     meses=(tod.getMonth()+1)-mes[c1];
  53.    
  54.     if(meses>=0)
  55.     {
  56.         edanmes=(anos[c1]*12)+meses;
  57.     }
  58.     else if (meses<0)
  59.     {
  60.         edanmes=(anos[c1]*12)-(meses);
  61.     }
  62.    
  63.    
  64.     res2[c1]=edanmes;
  65.     }
  66.  }
  67.  
  68.  //Metodo que calcula la edad en dias
  69.  void edandi(int diias[], int respa[], int diasviv[], int tama)
  70.  {
  71.     int dia,dib,dic=0;
  72.    
  73.     int fi;
  74.     for(fi=0;fi<=(tama-1);fi++)
  75.     {
  76.     dia=respa[fi]*30;
  77.    
  78.     if(diias[fi]>=tod.getDay())
  79.     {
  80.         dib=diias[fi]-tod.getDay();
  81.         dic=dia-dib;
  82.     }
  83.     else if(diias[fi]<tod.getDay())
  84.     {
  85.         dib=diias[fi]-tod.getDay();
  86.         dic=dia+((dib)*-1);
  87.     }
  88.    
  89.     diasviv[fi]=dic;
  90.     }
  91.  }
  92.      
  93. }//Final de la clase
  94.  
  95.  
  96. class Os
  97. {
  98.     public static void main (String args[])
  99.     {
  100.         //creacion de los vectores
  101.         int a=1,tam=0;
  102.        
  103.         do{
  104.         try{
  105.      
  106.         tam=Integer.parseInt(JOptionPane.showInputDialog(null,"Indique el Número de personas,nque desean saber su edad en dias meses y años :ntttNO acepta el cero (0)"));
  107.         }      
  108.         catch(NumberFormatException ex)
  109.          {
  110.             JOptionPane.showMessageDialog(null, "Coloque valores numéricos y Positivos Superiores a cero","Error de Lectura",JOptionPane.ERROR_MESSAGE);
  111.             a=0;
  112.           }
  113.      
  114.         }while(a==0);
  115.         int año[]=new int[tam];
  116.         int mes[]=new int[tam];
  117.         int dia[]=new int[tam];
  118.         int vec[]=new int[tam];
  119.         int vec2[]=new int[tam];
  120.         int vec3[]=new int[tam];
  121.        
  122.         int x,xtra,Res,cuento;
  123.        
  124.         xtra=0;
  125.         cuento=0;
  126.        
  127.         //Lecturas y Carga de los 3 vectores con los datos del usuario, aplicando TC
  128.         for(x=0; x<=(tam-1); x++)
  129.         {
  130.         try
  131.         {
  132.        
  133.         xtra=xtra+1;
  134.        
  135.         dia[x]=Integer.parseInt(JOptionPane.showInputDialog(null,"Introduzca dia de nacimiento del #"+xtra+" :"));
  136.         mes[x]=Integer.parseInt(JOptionPane.showInputDialog(null,"Introduzca el mes de nacimiento del #"+xtra+" :"));
  137.         año[x]=Integer.parseInt(JOptionPane.showInputDialog(null,"Introduzca Año de Nacimiento del #"+xtra+" :"));
  138.  
  139.         }catch(NumberFormatException ex)
  140.            {
  141.              
  142.              JOptionPane.showMessageDialog(null, "Coloque valores numéricos","Error de Lectura",JOptionPane.ERROR_MESSAGE);
  143.              xtra=1;
  144.              a=0;
  145.            }
  146.               }
  147.        Metodo obj= new Metodo();
  148.        
  149.         //Llamando al que calcula los años exactos
  150.         obj.asignarano(dia,mes,año,vec,tam);
  151.        
  152.         //Imprime los años de las 10 personas
  153.         for(Res=0;Res<=(tam-1);Res++)
  154.         {
  155.             cuento=cuento+1;
  156.             JOptionPane.showMessageDialog(null,"La cantidad de años que tiene el # "+cuento+" es: "+vec[Res]);
  157.         }
  158.        
  159.         //Llamando al que hace el calculo de la edad en meses
  160.         obj.edames(vec,mes,vec2,tam);
  161.         cuento=0;
  162.         Res=0;
  163.         //Imprime la edad en meses de las 10 personas
  164.         for(Res=0;Res<=(tam-1);Res++)
  165.         {
  166.             cuento=cuento+1;
  167.            
  168.             JOptionPane.showMessageDialog(null,"La cantidad de meses que ha vivido el # "+cuento+" es: "+vec2[Res]);
  169.         }
  170.         Res=0;
  171.         cuento=0;
  172.         //LLamando al que calcula la edad en días
  173.         obj.edandi(dia,vec2,vec3,tam);
  174.         for(Res=0;Res<=(tam-1);Res++)
  175.         {
  176.             cuento=cuento+1;
  177.             JOptionPane.showMessageDialog(null,"La cantidad de días que ha vivido el # "+cuento+" es de aprox.:  "+vec3[Res]+" días."+"tnnNO se tomaron en cuenta los dias de más en los años biciestos");
  178.         }
  179.                        
  180.     }              
  181. }
  182.  
  183.  


Como hace el vb para trabajar la clase date?? o manejar calendarios??

me sera facil pasarlo de java a vb (de POO a estructurada)?

2
VB .NET / Re: Duda sobre un metodo de VB 2005
« en: Jueves 24 de Septiembre de 2009, 05:44 »
bueno gracias

mira el punto esq este programa yo la habia hecho ya, pero fue en java, aun lo tengo en java...
pense q pasarlo a VB seria facil... veo q no

No he podido... reprobare pero le pedire alguna orientacion al profesor, gracias por su ayuda amigos


Estoy pasandolo a modo consola, todo bien pero cuando pongo los numeros 101, 201, 301, 1455, no puede realizarse:
Código: vb.net
  1.  
  2. Module Module1
  3.  
  4.     Sub Main()
  5.  
  6.         Dim Num2 As String
  7.         Dim val As Integer
  8.         Console.WriteLine(" Conversion de Numeros  ")
  9.         Console.WriteLine(" ")
  10.         Console.WriteLine("Coloque el Numero a Convertir :")
  11.         val = Console.ReadLine()
  12.  
  13.         Select Case val
  14.  
  15.             Case 0 : Num2 = "CERO"
  16.  
  17.             Case 1 : Num2 = "UN"
  18.  
  19.             Case 2 : Num2 = "DOS"
  20.  
  21.             Case 3 : Num2 = "TRES"
  22.  
  23.             Case 4 : Num2 = "CUATRO"
  24.  
  25.             Case 5 : Num2 = "CINCO"
  26.  
  27.             Case 6 : Num2 = "SEIS"
  28.  
  29.             Case 7 : Num2 = "SIETE"
  30.  
  31.             Case 8 : Num2 = "OCHO"
  32.  
  33.             Case 9 : Num2 = "NUEVE"
  34.  
  35.             Case 10 : Num2 = "DIEZ"
  36.  
  37.             Case 11 : Num2 = "ONCE"
  38.  
  39.             Case 12 : Num2 = "DOCE"
  40.  
  41.             Case 13 : Num2 = "TRECE"
  42.  
  43.             Case 14 : Num2 = "CATORCE"
  44.  
  45.             Case 15 : Num2 = "QUINCE"
  46.  
  47.             Case Is < 20 : Num2 = "DIECI" & Num2(val - 10)
  48.  
  49.             Case 20 : Num2 = "VEINTE"
  50.  
  51.             Case Is < 30 : Num2 = "VEINTI" & Num2(val - 20)
  52.  
  53.             Case 30 : Num2 = "TREINTA"
  54.  
  55.             Case 40 : Num2 = "CUARENTA"
  56.  
  57.             Case 50 : Num2 = "CINCUENTA"
  58.  
  59.             Case 60 : Num2 = "SESENTA"
  60.  
  61.             Case 70 : Num2 = "SETENTA"
  62.  
  63.             Case 80 : Num2 = "OCHENTA"
  64.  
  65.             Case 90 : Num2 = "NOVENTA"
  66.  
  67.             Case Is < 100 : Num2 = Num2 & (Int(val  10) * 10) & " Y " & Num2(val Mod 10)
  68.  
  69.             Case 100 : Num2 = "CIEN"
  70.  
  71.             Case Is < 200 : Num2 = "CIENTO " & Num2(val - 100)
  72.  
  73.             Case 200, 300, 400, 600, 800 : Num2 = "Num2" & (Int(val  100)) & "CIENTOS"
  74.  
  75.             Case 500 : Num2 = "QUINIENTOS"
  76.  
  77.             Case 700 : Num2 = "SETECIENTOS"
  78.  
  79.             Case 900 : Num2 = "NOVECIENTOS"
  80.  
  81.             Case Is < 1000 : Num2 = "Num2" & (Int(val  100) * 100) & " " & "Num2" & (val Mod 100)
  82.  
  83.             Case 1000 : Num2 = "MIL"
  84.  
  85.             Case Is < 2000 : Num2 = "MIL " & Num2(val Mod 1000)
  86.  
  87.             Case Is < 1000000 : Num2 = Num2(Int(val  1000)) & " MIL"
  88.  
  89.                 If val Mod 1000 Then Num2 = Num2 & " " & Num2(val Mod 1000)
  90.  
  91.             Case 1000000 : Num2 = "UN MILLON"
  92.  
  93.             Case Else
  94.                 Console.WriteLine()
  95.         End Select
  96.  
  97.         Console.WriteLine(" ")
  98.         Console.WriteLine(Num2)
  99.         Console.ReadKey()
  100.     End Sub
  101.  
  102. End Module
  103.  

3
VB .NET / Re: Duda sobre un metodo de VB 2005
« en: Miércoles 23 de Septiembre de 2009, 04:23 »
bueno gracias a ambos, como mencionaba no veia el lenguaje visual desde hace 5 años-...
otra cosa el programa solo puede ser ejecutado en modo consola, por ahora, luego lo paso a grafico.

Lo de un modulo NO se q es....  el rem me suena... no lo recuerdo...
vaya cuando uno no toca algo se pierde... siento como si volviera a empezar....

lo del try no es necesario luego hare las validaciones...

pregunta, usas programacion orientada a obj o estruc???

4
VB .NET / Duda sobre un metodo de VB 2005
« en: Martes 22 de Septiembre de 2009, 06:18 »
Bueno recien empiezoe n Visual Basic 2005, despues de 5 años desde la ultima vez q use el 6.0

Tengo una tarea de varios programas, hay 1 algo raro para mi, tengo q leer un numero y volverlo palabras...

ejemplo:

0 imprime "cero"

4 imp "cuatro"

1265 imp "mil docientos sesenta y cinco"

100000 imp "cien mil"

1000000 imp "un millon"


Como hago eso?????????
Q debo importar??
solo se me ocurre un for por logica, pero mas nada, help, alguien q me de un ejemplito

GRacias

5
Visual Basic para principiantes / Re: Cargar e Imprimir (en Pantalla) Matrices 2d
« en: Lunes 27 de Abril de 2009, 13:04 »
Ok gracias por al respuesta...

Pero no me entiendes... se q es asi, pero no se como ponerlo... menos en un Form.

Esq en java solo he trabajado el modo consola.

Como dije, ya tengo la matriz declarada y cargada, ahora solo debo imprimirla... pero no se como...
Me interesa eso de imprimirla en un Form con txtbox.

Gracias

PD: se me habia ocurrido lo del txtbox, pero cuantos debo hacer?? solo 1???
De ser solo 1, Como hago con las posiciones?, o el VB ya sabe q es una matriz??

6
Visual Basic para principiantes / Cargar e Imprimir (en Pantalla) Matrices 2d
« en: Domingo 26 de Abril de 2009, 05:33 »
Bueno vengo de programar mucho en java.
Me han pedido un trabajo que segun mi criterio es mejor trabjar en VB 6.0

El punto esq necesito saber como Cargar e Imprimir en Pantalla una Matriz  5x5



Cualquier idea es bienvenida, muchas gracias.

PD: Ya la cargue, pero fue a la ruda, osea asigando, me gustaria cargarla con ciclos de repeticion (piendole datos al user con InputBox) como lo hago en Java, pero no se como...

7
Java / Re: Problema al Heredar clases
« en: Martes 7 de Abril de 2009, 03:21 »
Pues me dice q el obj.recua NO existe

8
Java / Problema al Heredar clases
« en: Domingo 5 de Abril de 2009, 19:15 »
ENUNCIADO DEL PROBLEMA
Las clases Cuadrado? Círculo y Triángulo tienen que calcular su área y perímetro. Por lo tanto tiene sentido crear una  clase genérica llamada  Figura. Elabore una aplicación que haga lo antes señalado.  Imprima el perímetro y el área de cada figura


Pues ya lo tengo casi listo (exceptuando impresiones), pero no puedo imprimir mientras no pueda retornar variables al programa principal....

Pues asi lo tengo hasta ahora

Código: Java
  1. import javax.swing.JOptionPane;
  2.  
  3.  //clase madre
  4. class Figura
  5. {
  6.    private float side1,side2,rad,ladob,ladoc,ladod,altura;
  7.    
  8.         void atrapando(float a, float b, float c, float tri1, float tri2, float tri3, float tri4)
  9.         {
  10.             // los lados del cuadrado
  11.             side1=a;
  12.             side2=b;
  13.             //radio del circulo
  14.             rad=c;
  15.            
  16.             //los elementos del triangulo
  17.             altura=tri1;
  18.             ladob=tri2;
  19.             ladod=tri3;
  20.             ladoc=tri4;
  21.         }
  22.        
  23.         //Cuadrado
  24.         class Cuadrado extends Figura
  25.         {
  26.             float areacua,pericua;
  27.            
  28.             float recua()
  29.             {
  30.                 areacua=side1*side2;
  31.                 return areacua;
  32.             }
  33.            
  34.             float pericua()
  35.             {
  36.                 pericua=side1*4;
  37.                 return pericua;
  38.             }
  39.         }
  40.         class Circu extends Figura
  41.         {
  42.             double areacir, pericir;
  43.            
  44.             double cirarea()
  45.             {
  46.                 areacir=3.14*(Math.pow(rad,2));
  47.                 return areacir;
  48.             }
  49.             double cirpe()
  50.             {
  51.                 pericir= 2*3.14*rad;
  52.                 return pericir;
  53.             }   
  54.         }
  55.        
  56.         class Tri extends Figura
  57.         {
  58.             double areatri, pertri;
  59.            
  60.             double aretri()
  61.             {
  62.                 areatri=(ladob*altura)/2;
  63.                 return areatri;
  64.             }
  65.            
  66.             double peritri()
  67.             {
  68.                 pertri=ladob+ladoc+ladod;
  69.                 return pertri;
  70.             }      
  71.            
  72.         }      
  73.        
  74.     }
  75.    
  76.    
  77.  
  78.  
  79.  //Inicio del programa principal
  80. class Areas{
  81.    
  82.     public static void main(String args[])
  83.     {
  84.         float lad,lad2,radio,tri1,tri2,tri3,tri4;
  85.         Figura obj=new Figura();
  86.        
  87.         String lec=JOptionPane.showInputDialog(null,"Coloque el 1er lado del cuadrado     :",JOptionPane.INFORMATION_MESSAGE);
  88.         String lec2=JOptionPane.showInputDialog(null,"Coloque el 2do lado del cuadrado :",JOptionPane.INFORMATION_MESSAGE);
  89.         lad=Float.parseFloat(lec);
  90.         lad2=Float.parseFloat(lec2);
  91.        
  92.        
  93.         String lecra=JOptionPane.showInputDialog(null,"Coloque el radio del circulo :",JOptionPane.INFORMATION_MESSAGE);
  94.         radio=Float.parseFloat(lecra);
  95.        
  96.        
  97.        
  98.         String lectua=JOptionPane.showInputDialog(null,"Coloque la altura del triangulo :",JOptionPane.INFORMATION_MESSAGE);
  99.         String lectua2=JOptionPane.showInputDialog(null,"Coloque la base(lado B) del triangulo :",JOptionPane.INFORMATION_MESSAGE);
  100.         String lectua3=JOptionPane.showInputDialog(null,"Coloque el lado D del triangulo :",JOptionPane.INFORMATION_MESSAGE);
  101.         String lectua4=JOptionPane.showInputDialog(null,"Coloque el lado C del triangulo :",JOptionPane.INFORMATION_MESSAGE);
  102.         tri1=Float.parseFloat(lectua);
  103.         tri2=Float.parseFloat(lectua2);
  104.         tri3=Float.parseFloat(lectua3);
  105.         tri4=Float.parseFloat(lectua4);
  106.        
  107.         obj.atrapando(lad,lad2,radio,tri1,tri2,tri3,tri4);
  108.        
  109.         //Imprimiendo Todo
  110.        
  111.         JOptionPane.showMessageDialog(null, "El area del Cuadrado es : "+obj.recua);
  112.     }
  113. }
  114.  


El problema esq en la linea 111, al llamar a "obj.recua" manda error, que puede estar pasando?

9
Java / Re: Clase que invoca un metodo de otra clase
« en: Lunes 13 de Octubre de 2008, 23:52 »
Solucionado, el try cactch funciona pero preferi el throw Gracias

Gracia spor la ayuda

10
Java / Validar que el usuario solo ponga valores numericos
« en: Lunes 13 de Octubre de 2008, 23:19 »
Estoy haciendo un programa mediante switch, es un menu del 1 al 8.
Pero cuando coloco algun caracter(simbolos, letras mayusculas y minisculas) marca error....

Que metodo debo usar para q sea lo q sea q el ususario ponga, convertirlo a su equivalente numerico para luego comparar si esta entre 1 y 8??

Osea el punto esq quiero leer un numero sin importar que se introduzcan letras o caracteres
Gracias

Edito, dejo esto para q vean (es POO)

Código: Text
  1. class Proyect {
  2.     public static void main(String args[]) throws IOException{
  3.        
  4.         int Sel;
  5.        
  6.       InputStreamReader menu=new InputStreamReader(System.in);
  7.       BufferedReader br= new BufferedReader(menu);
  8.       System.out.println("-----Universidad *************-----n");
  9.       System.out.println("-----Facultad *******************-----n");
  10.       System.out.println("-----Proyecto de Desarrollo de Software II-----n");
  11.       System.out.println("-----Desarrollado por:**********----nnn");
  12.       System.out.println("n-----Presione un número del 1 al 8 o el numero 0 para salir-----n");
  13.       Sel = Integer.parseInt(br.readLine());
  14.       Options obj=new Options();
  15.      
  16.       do
  17.         {
  18.         System.out.println("No es un numero entre los solicitadosn");
  19.         InputStreamReader menu2=new InputStreamReader(System.in);
  20.         BufferedReader br2= new BufferedReader(menu2);
  21.         Sel = Integer.parseInt(br2.readLine());
  22.         }
  23.       while((Sel<0)||(Sel>8));   
  24.        
  25.             switch(Sel)
  26.             {
  27.                 case 0: System.out.println("Cerrando la aplicacion.....n");
  28.                         break;
  29.                            
  30.                 case 1: obj.Prob1();
  31.                         break;
  32.                        
  33.                 case 2: obj.Prob2();
  34.                         break;
  35.                        
  36.                 case 3: obj.Prob3();
  37.                         break;        
  38.                        
  39.                 case 4: obj.Prob4();
  40.                         break;
  41.                        
  42.                 case 5: obj.Prob5();
  43.                         break;
  44.                        
  45.                 case 6: obj.Prob6();
  46.                         break;
  47.                
  48.                 case 7: obj.Prob7();
  49.                         break;
  50.                        
  51.                 case 8: obj.Prob8();
  52.                         break;                                      
  53.             }
  54.        
  55.     }
  56. }
  57.  

11
Java / Re: Clase que invoca un metodo de otra clase
« en: Domingo 12 de Octubre de 2008, 15:01 »
Tambien tengo un problema similar, es el la linea 16, al momento de llamar a Pack() luego de un IF:


import java.io.*;
class Diag
{
   
    int esA,esB,esC, esD;
    int a,b,c,d;
   
    void Avanzar(int v)
    {
       if (v==0)
          {
          System.out.println("Gracias, saliendo del programa... n");
          }
       else
         {
            Pac(); throws IOException;
         }
    }
   
   
    void Pac() throws IOException
    {
       
    System.out.println("Colocar el numero 1(uno) si hay sintoma, o el 2(dos) si no lo hay n");
   
    InputStreamReader ip=new InputStreamReader(System.in);
   BufferedReader w= new BufferedReader(ip);
   System.out.println("¿Tiene infeccion pulmonar?n");
    esA = Integer.parseInt(w.readLine());
   
    InputStreamReader tm=new InputStreamReader(System.in);
   BufferedReader br= new BufferedReader(tm);
   System.out.println("¿Tiene alta temperatura?n");
   esB=Integer.parseInt(br.readLine());
   
   InputStreamReader re=new InputStreamReader(System.in);
   BufferedReader ff= new BufferedReader(re);
   System.out.println("¿Tiene resfriado?n");
   esC=Integer.parseInt(ff.readLine());
   
   InputStreamReader ll=new InputStreamReader(System.in);
   BufferedReader pp= new BufferedReader(tm);
   System.out.println("¿Tiene la garganta irritada?n");
   esD=Integer.parseInt(pp.readLine());
   
   Fin (esA,esB,esC,esD);
       
    }


En esa misma linea, manda dos errores:

1-not a statement
2-illegal start of expression

Porq esta pasando esto?

Gracias

Páginas: [1]