• Viernes 3 de Mayo de 2024, 00:56

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

Páginas: [1]
1
VB .NET / Re: Cargar formularios de forma aleatoria
« en: Miércoles 29 de Junio de 2011, 05:17 »
Hola, oye muchisimas gracias por tu respuesta, la primera excelente me funciono super bien, pero con respecto a la otra  use process.start() como em sugeriste pero ocurre el mismo incoveniente, no abre nada.

A q crees q se deba? <_<

2
VB .NET / Re: Cargar formularios de forma aleatoria
« en: Martes 28 de Junio de 2011, 03:15 »
hola gabio2, ps mira la idea si es cargar cada tabla en formulario independiente, y ps lo q tengo en cada uno de ellos, claro esta cmbiandole eltipo d etabla a mostrar es asi:

Código: vb.net
  1. Public Class Form1
  2.  
  3.     Dim intentosfallidos, aciertos As Integer
  4.     Dim Random As New Random()
  5.  
  6.     Dim hora As Integer = 0
  7.     Dim minuto As Integer = 0
  8.     Dim segundo As Integer = 0
  9.     Dim milisegundo As Integer = 0
  10.  
  11.     Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
  12.  
  13.         If Not Char.IsDigit(e.KeyChar) And Asc(e.KeyChar) <> 8 Then
  14.  
  15.             e.Handled = True
  16.  
  17.         End If
  18.  
  19.     End Sub
  20.  
  21.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  22.  
  23.         If (Val(Label1.Text) * Val(Label6.Text) = Val(TextBox1.Text)) Then
  24.             MsgBox("Muy bien")
  25.             Me.TextBox1.Text = ""
  26.             TextBox1.Focus()
  27.  
  28.             aciertos = aciertos + 1
  29.             TextBox3.Text = aciertos
  30.  
  31.             Dim op2 As Integer = Random.Next(2, 10)
  32.             Label6.Text = op2
  33.  
  34.             Static Dim iImage2 As Integer
  35.  
  36.             Select Case iImage2
  37.                 Case 0
  38.  
  39.                     PictureBox1.Visible = True
  40.                     PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESonionhead011_thumb.gif")
  41.                     iImage2 += 1
  42.                 Case 1
  43.  
  44.                     PictureBox1.Visible = True
  45.                     PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESonionhead086_thumb.gif")
  46.                     iImage2 += 1
  47.  
  48.             End Select
  49.  
  50.         ElseIf Not (Val(Label1.Text) * Val(Label2.Text) = Val(TextBox1.Text)) Then
  51.             MsgBox("El resultado no es correcto")
  52.             Me.TextBox1.Text = ""
  53.             TextBox1.Focus()
  54.  
  55.             intentosfallidos = intentosfallidos + 1
  56.             TextBox2.Text = intentosfallidos
  57.  
  58.             '//////////////
  59.             Static Dim iImage0 As Integer
  60.  
  61.             Select Case iImage0
  62.                 Case 0
  63.  
  64.                     PictureBox1.Visible = True
  65.                     PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESemoticon_onion_fantasmita_gifs_animado_msnanimal_com-27.gif")
  66.                     iImage0 += 1
  67.                 Case 1
  68.  
  69.                     PictureBox1.Visible = True
  70.                     PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESonionhead007_thumb.gif")
  71.                     iImage0 += 1
  72.  
  73.             End Select
  74.         End If
  75.     End Sub
  76.  
  77.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  78.  
  79.         Dim Random As New Random()
  80.         Dim op2 As Integer = Random.Next(2, 10)
  81.  
  82.         Label6.Text = op2
  83.  
  84.         '////
  85.         Timer2.Enabled = True
  86.  
  87.     End Sub
  88.  
  89.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  90.  
  91.         Dim max As Integer = 4000
  92.         Dim rnd As New Random
  93.         Dim rand As Integer = rnd.Next(10, max + 1)
  94.         Dim i As Integer = 1
  95.         Dim number(max - 1) As Integer
  96.  
  97.         For i = 0 To max - 1
  98.             If number(i) = rand Then
  99.                 rand = rnd.Next(1, max + 1)
  100.                 i = -1
  101.             ElseIf number(i) = 0 Then
  102.                 number(i) = rand
  103.                 rand = rnd.Next(1, max + 1)
  104.                 If i = max - 1 Then
  105.                     Exit For
  106.                 End If
  107.                 i = -1
  108.             End If
  109.         Next
  110.         Timer1.Interval = number(i)
  111.         i += 1
  112.  
  113.         ChangeImage()
  114.     End Sub
  115.  
  116.     Private Sub ChangeImage()
  117.  
  118.         Static Dim iImage1 As Integer
  119.  
  120.         Select Case iImage1
  121.             Case 0
  122.  
  123.                 PictureBox1.Visible = True
  124.                 PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTUREScebollita_club_emoticon_yo_www.trucoslive.x10hosting.com.gif")
  125.                 iImage1 += 1
  126.             Case 1
  127.  
  128.                 PictureBox1.Visible = True
  129.                 PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESonionhead003_thumb.gif")
  130.                 iImage1 += 1
  131.             Case 2
  132.  
  133.                 PictureBox1.Visible = True
  134.                 PictureBox1.Image = System.Drawing.Image.FromFile("C:UsersJessica.JorgeA1DocumentsVisual Studio 2005ProjectsWindowsApplication1WindowsApplication1PICTURESonionhead086_thumb.gif")
  135.                 iImage1 += 1
  136.  
  137.         End Select
  138.     End Sub
  139.  
  140.     Sub mostrarTiempo()
  141.  
  142.         Label7.Text = hora.ToString.PadLeft(2, "0") & ":"
  143.         Label7.Text &= minuto.ToString.PadLeft(2, "0") & ":"
  144.         Label7.Text &= segundo.ToString.PadLeft(2, "0") & ":"
  145.         Label7.Text &= milisegundo.ToString.PadLeft(1, "0")
  146.  
  147.         Label7.Refresh()
  148.  
  149.         If Label7.Text = "00:02:00:0" And TextBox3.Text >= "10" Then
  150.             MsgBox("Muy bien, ahora da click en continuar y podrás jugar", MsgBoxStyle.Information)
  151.  
  152.         ElseIf Label7.Text = "00:02:00:0" And TextBox3.Text = "8" Then
  153.  
  154.             MsgBox("Debes mejorar, da click en continuar y podrás jugar", MsgBoxStyle.Information)
  155.  
  156.         End If
  157.  
  158.         If Label7.Text > "00:02:00:0" And TextBox3.Text <= "7" Then
  159.             MsgBox("Debes volver a repetirlas", MsgBoxStyle.Information)
  160.         End If
  161.     End Sub
  162.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  163.         milisegundo += 1
  164.         If milisegundo = 9 Then
  165.             milisegundo = 0
  166.             segundo += 1
  167.             If segundo = 59 Then
  168.                 segundo = 0
  169.                 minuto += 1
  170.                 If minuto = 59 Then
  171.                     minuto = 0
  172.                     hora += 1
  173.                 End If
  174.             End If
  175.         End If
  176.         mostrarTiempo()
  177.  
  178.     End Sub
  179.  
  180.    
  181.  
  182.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  183.  
  184.         If TextBox3.Text = "10" Or TextBox3.Text = "8" Then
  185.             Shell("C:UsersJessica.JorgeA1DocumentsSAgta.exe", AppWinStyle.NormalFocus)
  186.  
  187.  
  188.         End If
  189.  
  190.         Me.Hide()
  191.  
  192.     End Sub
  193.  
  194.  
  195. End Class
  196.  
  197.  
  198.  

y al imagen de cada formulario la puse como adjunto s ellama img.


y otra cosita q tambien quisiera saber es saber como hacer para que la opcion de abrir un programa externo a visual me funciona ya q como puedes notar lo hago mediante, shell, quedando

Código: Visual Basic
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.  
  3.         If TextBox3.Text = "10" Or TextBox3.Text = "8" Then
  4.             Shell("C:UsersJessica.JorgeA1DocumentsSA", AppWinStyle.NormalFocus)
  5.  
  6.  
  7.         End If
  8.  
  9.         Me.Hide()
  10.  
  11.     End Sub
  12.  

Pero lo que sucede es que no pasa nada no abre nada, he intentado probando con programas pertenecientes a windows funciona muy bien, pero intento abrir uno distinto y no funciona q podria ser.

Gracias

3
VB .NET / Re: Formato hora y fecha a maskedbox
« en: Sábado 25 de Junio de 2011, 03:53 »
Hey, gracias en verdad voy a intentarlo. Disculpa no responderte antes

4
VB .NET / Cargar formularios de forma aleatoria
« en: Sábado 25 de Junio de 2011, 03:52 »
Hola lo que pasa es q estoy haciendo un proyecto sobre las tablas de multiplicar en las que en cada form me genera cada tabla, es decir  la de 2, 3, 4, asi sucesivamente, y lo que quiero es q cada vez q el usuario ejecute la aplicacion se cargue un formulario distinto cada vez, ya que despues de realizar cierto numero de aciertos la aplicacion se cierra.

Pero en verdad no he encontrado la forma sobre como se podria hacer y espero sea posible.

Ojala alguien me pueda colaborar u orientarme sobre q hacer. Gracias ;)

5
VB .NET / Formato hora y fecha a maskedbox
« en: Domingo 29 de Mayo de 2011, 01:32 »
Hola a todos, lo que pasa es que estoy utilizando un maskedbox para fecha y otra para hora
Pero al momento de ejecutar el programa y poner la fecha me acepta cualquier numero por ej. "90/90/1000", pero ps es claro que este no es un formato valido, además ya le tengo la mascara de "__/__/____"

Al igual con el de las horas permite cualquier tipo de numero, y además quisiera que este ultimo acepte tipo hora militar

Entonces quisiera saber si podrían colaborarme con ello, y orientarme un poco sobre que instrucción podría utilizar, porque en verdad no tengo la menor idea de como hacerlo. Pero necesito que sea utilizando solo maskedbox y no un DateTimePicker, que se que es aconsejable usarlo.

Gracias y espero me puedan ayudar.

6
C++ Builder / Porque este error en el Codigo
« en: Lunes 18 de Octubre de 2010, 04:00 »
Hola a todos, quisiera saber si alguien posria atudarme a saber porq me aparece el siguiente error en este codigo.
  • Too much global data defined in file[/color]

     Gracias les agradeceria mucho

    Código: C++
    1. #include<iostream.h>
    2. #include<stdio.h>
    3. #include<conio.h>
    4. #include<stdlib.h>
    5. #include<time.h>
    6. #include<fstream.h>
    7.  
    8.  
    9. char inscripcion( FILE *abrir);
    10. char consulta( FILE *abrir);
    11. char modificar( FILE *abrir);
    12. char eliminar( FILE *abrir);
    13. void listado( FILE *abrir);
    14. char borrar( FILE *abrir);
    15. char menualumno();
    16.  
    17.  
    18. int tvs = 0;
    19. #define capacidad 300
    20. struct alumnos
    21. {
    22.     char carne[7];
    23.     char nombre[45];
    24.     char carrera[55];
    25.     char direccion[45];
    26.     char semestre[2];
    27.     char seccion[2];
    28.     char correo[20];
    29. }; //fin struct alumnos
    30.  
    31. struct alumnos alu[capacidad];
    32. struct alumnos alu2[capacidad];
    33. struct alumnos alu3[capacidad];
    34. struct alumnos alu4[capacidad]; //declaracion de 4 objetos alumnos
    35.  
    36.  
    37. char main()
    38. {
    39.  bool salir = false;
    40.  while (salir == false)
    41.  {
    42.  int opcion; int opconsulta=1;
    43.  FILE *abrir;
    44.  
    45.   clrscr();
    46.   cout<<"ttttBIENVENIDOnn"<<endl;
    47.   cout<<"tttt OPCIONES ALUMNOSnnnn"<<endl;
    48.   cout<<"ttt1) INSCRIPCIONn "<<endl;
    49.   cout<<"ttt2) CONSULTASn"<<endl;
    50.   cout<<"ttt3) MODIFICARn"<<endl;
    51.   cout<<"ttt4) ELIMINARn"<<endl;
    52.   cout<<"ttt50) ELIMINAR BASE DE DATOSn"<<endl;
    53.   cout<<"ttt5) SALIRn"<<endl;
    54.  cin>> opcion;
    55.  
    56.  switch(opcion)
    57.     {
    58.  case 1:
    59.             inscripcion(abrir);
    60.                  break;
    61.  case 2: {
    62.              cout<<endl<<endl<<endl<<"1     ver alumnos individuales"<<endl;
    63.             cout<<"2     ver listado de todos los alumnos"<<endl<<endl;
    64.          cin>>opconsulta;
    65.             switch (opconsulta)
    66.          {
    67.                 case 1: consulta(abrir);
    68.                      break;
    69.                 case 2: listado(abrir);
    70.                 break;
    71.                 default: cout<<"opcion incorrecta";
    72.          } //fin switch
    73.             }//fin case 2
    74.          break;
    75.  case 3: modificar(abrir);
    76.                  break;
    77.  case 4: eliminar(abrir);
    78.                  break;
    79.  case 5: salir = true;
    80.                  break;
    81.  case 50: borrar(abrir);
    82.                  break;
    83.  
    84.  
    85.  default: cout<<"OPCION NO VALIDA"<<endl;
    86.  } //fin del while
    87. }//fin primer switch
    88. }//fin main
    89.  
    90. char borrar(FILE *abrir)
    91. {
    92.     remove("alumnos.txt");
    93.     remove("contador.txt");
    94. }
    95.  
    96. char inscripcion(FILE *abrir)
    97. {
    98.         char numero[7];
    99.  
    100.        ifstream abr;
    101.        abr.open("contador.txt",ios::in);
    102.          abr>>tvs;
    103.        abr.close();
    104.       tvs++;
    105.         itoa(tvs,numero,10);
    106.  
    107.       fseek(abrir, 0L, SEEK_END);
    108.  
    109.       abrir=fopen("alumnos.txt","a+");
    110.          cout<<"ttINSCRIPCIONn"<<endl;
    111.         cout<<"CARNE No: "<<tvs<<endl;
    112.       cout<<"INGRESE LO SIGUIENTE"<<endl;
    113.       strcpy(alu[tvs].carne, numero);  fflush(stdin);
    114.         cout<<" NOMBRE"<<endl;
    115.       gets(alu[tvs].nombre);  fflush(stdin);
    116.       cout<<" DIRECCION"<<endl;
    117.         gets(alu[tvs].direccion); fflush(stdin);
    118.       cout<<" CORREO"<<endl;
    119.       gets(alu[tvs].correo); fflush(stdin);
    120.         cout<<"CARRERA"<<endl;
    121.       gets(alu[tvs].carrera);fflush(stdin);
    122.       cout<<"SEMESTRE"<<endl;
    123.         gets(alu[tvs].semestre);fflush(stdin);
    124.       cout<<" SECCION"<<endl;
    125.       gets(alu[tvs].seccion); fflush(stdin);
    126.  
    127.  
    128.     fwrite(&alu[tvs],sizeof(struct alumnos),1,abrir);
    129.      fseek(abrir, 0L, SEEK_SET);
    130.     fclose(abrir);
    131.  
    132.      ofstream ab;
    133.        ab.open("contador.txt",ios::trunc);
    134.        ab<<tvs;
    135.          ab.close();
    136.  
    137. }
    138. char consulta( FILE *abrir)
    139. {
    140.   int num;
    141.          ifstream abr;
    142.        abr.open("contador.txt",ios::in);
    143.        abr>>tvs;
    144.          abr.close();
    145.  
    146.    cout<<"INGRESE EL No. DE CARNE"<<endl;
    147.     cin>>num;
    148.     abrir = fopen("alumnos.txt", "r");
    149.  
    150.     if(abrir == NULL)
    151.     {
    152.         cout<<"nALUMNOS NO EXISTE! nPOR FAVOR CREELO"<<endl;
    153.  
    154.     }
    155.    else
    156.     {
    157.       num--;
    158.       fread(&alu2, sizeof(alumnos),tvs, abrir);
    159.         cout<<"CARNE: "<<alu2[num].carne<<endl;
    160.       cout<<"NOMBRES: "<<alu2[num].nombre<<endl;
    161.         cout<<"CARRERA: "<<alu2[num].carrera<<endl;
    162.         cout<<"DIRECCION: "<<alu2[num].direccion<<endl;
    163.        cout<<"SEMESTRE: "<<alu2[num].semestre<<endl;
    164.       cout<<"SECCION: "<<alu2[num].seccion<<endl;
    165.         cout<<"CORREO: "<<alu2[num].correo<<endl<<endl<<endl;
    166.    }
    167.  
    168.     fclose(abrir);
    169.  
    170.  
    171.   getch();
    172. }
    173.  
    174. char modificar( FILE *abrir)
    175. {
    176.     int num;
    177.     abrir = fopen("alumnos.txt", "r+");
    178.    ifstream abr;
    179.    abr.open("contador.txt",ios::in);
    180.     abr>>tvs;
    181.    abr.close();
    182.  
    183.     fread(&alu3, sizeof(alumnos),tvs, abrir);
    184.    fclose(abrir);
    185.  
    186.     //listado(abrir);
    187.  
    188.    cout<<"INGRESE EL No. DE CARNE"<<endl;
    189.     cin>>num;
    190.  
    191.     if(abrir == NULL)
    192.     {
    193.         cout<<"nALUMNOS NO EXISTE! nPOR FAVOR CREELO"<<endl;
    194.    }
    195.  
    196.    if (num > tvs)
    197.    { cout<<endl<<"alumno no registrado"<<endl; getche();}
    198.  
    199.    else
    200.    {
    201.         num--;
    202.         cout<<" NOMBRE"<<endl;
    203.       gets(alu3[num].nombre);
    204.         cout<<" DIRECCION"<<endl;
    205.       gets(alu3[num].direccion);
    206.       cout<<" CORREO"<<endl;
    207.         gets(alu3[num].correo);
    208.       cout<<"CARRERA"<<endl;
    209.       gets(alu3[num].carrera);
    210.         cout<<"SEMESTRE"<<endl;
    211.       gets(alu3[num].semestre);
    212.       cout<<" SECCION"<<endl;
    213.         gets(alu3[num].seccion);
    214.       cout<<"n";
    215.       abrir = fopen("alumnos.txt", "w+");
    216.         fwrite(&alu3,sizeof(struct alumnos),tvs,abrir);
    217.       fseek(abrir, 0L, SEEK_END);
    218.       fclose(abrir);
    219.         }
    220.  
    221.       fclose(abrir);
    222. }
    223.  
    224. char eliminar( FILE *abrir)
    225. {
    226.         char decision = 'n';
    227.       int num;
    228.         abrir = fopen("alumnos.txt", "r+");
    229.        ifstream abr;
    230.        abr.open("contador.txt",ios::in);
    231.         abr>>tvs;
    232.        abr.close();
    233.  
    234.     fread(&alu4, sizeof(alumnos),tvs, abrir);
    235.    fclose(abrir);
    236.  
    237.     cout<<"ttELIMINARn"<<endl;
    238.     cout<<"INGRESE EL No. DE CARNE"<<endl;
    239.    cin>>num;
    240.  
    241.    if (num>tvs)
    242.    {
    243.         cout<<"El registro que desea eliminar NO existe";
    244.    } // fin del if
    245.    else
    246.      {
    247.         num--;
    248.       cout<<"CARNE: "<<alu4[num].carne<<endl;
    249.         cout<<"NOMBRES: "<<alu4[num].nombre<<endl;
    250.         cout<<"CARRERA: "<<alu4[num].carrera<<endl;
    251.       cout<<"DIRECCION: "<<alu4[num].direccion<<endl;
    252.         cout<<"SEMESTRE: "<<alu4[num].semestre<<endl;
    253.       cout<<"SECCION: "<<alu4[num].seccion<<endl;
    254.       cout<<"CORREO: "<<alu4[num].correo<<endl<<endl<<endl;
    255.         cout<<endl<<endl<<"Desea eliminar este alumno? S/N"<<endl;
    256.       cin>>decision;
    257.  
    258.         switch (decision)
    259.       {
    260.       case 'n': return 'n';
    261.                     break;
    262.       case 's':
    263.           {
    264.  
    265.          strcpy(alu4[num].nombre, "ELIMINADO");
    266.            strcpy(alu4[num].direccion, "ELIMINADO");
    267.             strcpy(alu4[num].correo, "ELIMINADO");
    268.          strcpy(alu4[num].carrera, "ELIMINADO");
    269.            strcpy(alu4[num].semestre, "0");
    270.             strcpy(alu4[num].seccion, "0");
    271.  
    272.             abrir = fopen("alumnos.txt", "w+");
    273.             fwrite(&alu4,sizeof(struct alumnos),tvs,abrir);
    274.           fseek(abrir, 0L, SEEK_END);
    275.           fclose(abrir);
    276.             cout<<"EL CARNE No: "<<(num+1)<<" HA SIDO ELIMINADO"<<endl;
    277.             } //fin del case
    278.       }// fin del switch
    279.       getche();
    280.    } //fin del else
    281. }
    282.  
    283. void listado(FILE *abrir)
    284. {
    285.     abrir = fopen("alumnos.txt", "r+");
    286.    ifstream abr;
    287.    abr.open("contador.txt",ios::in);
    288.     abr>>tvs;
    289.    abr.close();
    290.  
    291.     fread(&alu3, sizeof(alumnos),tvs, abrir);
    292.    fclose(abrir);
    293.  
    294.     for (int i= 0; i<tvs; i++)
    295.    {
    296.       cout<<"CARNE: "<<alu3[i].carne<<endl;
    297.         cout<<"NOMBRES: "<<alu3[i].nombre<<endl;
    298.         cout<<"CARRERA: "<<alu3[i].carrera<<endl;
    299.       cout<<"DIRECCION: "<<alu3[i].direccion<<endl;
    300.         cout<<"SEMESTRE: "<<alu3[i].semestre<<endl;
    301.         cout<<"SECCION: "<<alu3[i].seccion<<endl;
    302.         cout<<"CORREO: "<<alu3[i].correo<<endl<<endl<<endl;
    303.     }
    304.     getche();
    305. }
    306.  
    307.  

     :good:

7
VB .NET / Como pasar de codigo morse a texto
« en: Lunes 3 de Noviembre de 2008, 04:33 »
Hola, lo que pasa es que he hecho un codigo, el cual quiero que me convierta de Codigo Morse a Texto. Perp esto nop lo consigo, lo unico que me muestra es una serie de "E" y "T2, y lo que quiero es que me muestre el texto que debe ser, miren el codigo es

Código: Text
  1.  
  2. Public Class Form3
  3.    
  4.     Private Sub ConvertirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertirToolStripMenuItem.Click
  5.  
  6.         Dim x As String
  7.         Dim b As String
  8.  
  9.         For j = 1 To Len(TextBox1.Text)
  10.             x = Mid(TextBox1.Text, j, 1)
  11.             TextBox2.Text = TextBox2.Text.ToUpper
  12.             Select Case x
  13.                 Case ".-" : b = b & "A"
  14.                 Case "-..." : b = b & "B"
  15.                 Case "-.-." : b = b & "C"
  16.                 Case "-.." : b = b & "D"
  17.                 Case "." : b = b & "E"
  18.                 Case "..-." : b = b & "F"
  19.                 Case "--." : b = b & "G"
  20.                 Case "...." : b = b & "H"
  21.                 Case ".." : b = b & "I"
  22.                 Case ".---" : b = b & "J"
  23.                 Case "-.-" : b = b & "K"
  24.                 Case ".-.." : b = b & "L"
  25.                 Case "--" : b = b & "M"
  26.                 Case "-." : b = b & "N"
  27.                 Case "---" : b = b & "O"
  28.                 Case ".--." : b = b & "P"
  29.                 Case "--.-" : b = b & "Q"
  30.                 Case ".-." : b = b & "R"
  31.                 Case "..." : b = b & "S"
  32.                 Case "-" : b = b & "T"
  33.                 Case "..-" : b = b & "U"
  34.                 Case "...-" : b = b & "V"
  35.                 Case ".--" : b = b & "W"
  36.                 Case "-..-" : b = b & "X"
  37.                 Case "-.--" : b = b & "Y "
  38.                 Case "--.." : b = b & "Z"
  39.                 Case "-----" : b = b & "0"
  40.                 Case ".----" : b = b & "1"
  41.                 Case "..---" : b = b & "2"
  42.                 Case "...--" : b = b & "3"
  43.                 Case "....-" : b = b & "4"
  44.                 Case "....." : b = b & "5"
  45.                 Case "-...." : b = b & "6"
  46.                 Case "--..." : b = b & "7"
  47.                 Case "---.." : b = b & "8"
  48.                 Case "----." : b = b & "9"
  49.                 Case ".-.-.-" : b = b & "."
  50.                 Case "--..--" : b = b & ","
  51.                 Case "..--.." : b = b & "?"
  52.                 Case "-...-" : b = b & "="
  53.                 Case "-....-" : b = b & "-"
  54.                 Case "-..-." : b = b & "/"
  55.                 Case "..--.-" : b = b & "_"
  56.                 Case ".----." : b = b & "'"
  57.                 Case "-.-.--" : b = b & "!"
  58.                 Case "---..." : b = b & ":"
  59.                 Case "-.-.-." : b = b & ";"
  60.            
  61.             End Select
  62.         Next
  63.         TextBox2.Text = b
  64.     End Sub
  65. End Class
  66.  
  67.  

Ok, gracias...
Espero y me puedan ayudar con esto

8
VB .NET / Re: Ordenar una matriz..
« en: Jueves 30 de Octubre de 2008, 23:33 »
Nebire, muchas gracias por tu explicacion...

Si tienes toda la razon es super sencillo utilizando el metodo burbuja, ya logre hacerlo y me funciono de maravilla

Bye :hola:

9
VB .NET / Ordenar una matriz..
« en: Jueves 30 de Octubre de 2008, 01:43 »
hola como estan,
Miren quisiera pedirles una yudita con esto... Lo que pasa es que debo hacer un codigo que ordene una matriz, pero no lo logro porque se que para poder ordenarla primero hay que pasarla a vector, miren lo que tengo es esto, ah pero la verdad no se si asi sea, ya que asi fue como nos dijo el profesor que habia que hacerlo

Public Class Form4
Dim z As Integer          
Dim n As Integer            

   'la matriz y el vector estan declarados en un modulo asi:
Public vec(15)
                                                                                                                        Public matriz(5, 3) As Integer

        z = 1
        For i = 0 To 5
            For j = 1 To 3
                vec(z) = matriz(i, j)        
                 z = z + 1                                                                                  
         Next  
Next                                                                      
 
'aqui capturo datos en otro formulario:  
For i = 0 To 4
For j = 0 To 2
matriz(i, j) = InputBox("digite datos")
                                                                                                                       
 Next
 Next                                                                      
                                                                                                                                 
                                                                                                                     
' aqui debe ir algun metodo de ordenamiento, pero la verdad no se como se podria hacer, luego de ello sigue lo otro para ahora si mostrar la matriz ordenada'

        n = 1
        For i = 1 To 3
            For j = 1 To 3
                matriz(i, j) = vec(z)
                n = n + 1
            Next
        Next


Gracias y espero que me entiendan que es lo que pretendo hacer, y ojala me puedan brindar una ayudita. O si porfa existe una forma mejor para hacerlo.... Porque en si lo que necesito es organizar una matriz

Gracias de nuevo....

10
VB .NET / mostrar el mayor y menor elemento de un vector
« en: Domingo 26 de Octubre de 2008, 15:43 »
hola, lo que pasa es que he estado haciendo este codigo, lo cual necesito que me muestre el elemneto meyor y menor del vector. Pero lo unico que consigo es que en el caso del menor, me muestra siempre el ultimo valor ingresado, en cambio el de mayor si me funciona.
miren este es el codigo. Si porfa me pueden dar una ayudita

Código: Text
  1. Public Class Form1
  2.     Dim b As Integer
  3.     Dim i As Integer
  4.     Dim c As Integer
  5.  
  6.     Dim a() As Long
  7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.  
  9.         b = TextBox1.Text
  10.         c = TextBox1.Text
  11.  
  12.         ReDim a(b)
  13.  
  14.         For i = 1 To b
  15.             a(i) = InputBox("Ingrese Datos")
  16.  
  17.             c = a(i)
  18.             TextBox2.Text = TextBox2.Text & "  " & c
  19.  
  20.             If a(i) > b Then
  21.                 b = a(i)
  22.             Else
  23.                 If a(i) < c Then
  24.                     c = a(i)
  25.  
  26.                 End If
  27.             End If
  28.         Next
  29.  
  30.         MsgBox("el mayor es  " & b)
  31.         MsgBox("el menor es  " & c)
  32.  
  33.     End Sub
  34.  
  35. End Class
  36.  
  37.  

Gracias ;)

11
VB .NET / No se porque aparece este error...
« en: Jueves 23 de Octubre de 2008, 22:59 »
Hola, lo que pasa es que estoy haciendo este pequeño codigo, pero no se porque al momento de ejecutarlo me aparece el siguiente error:

Código: Text
  1. Public Class Form1
  2.  
  3.     Private Sub LlenarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LlenarToolStripMenuItem.Click
  4.         Dim b As Integer
  5.         Dim i As Integer
  6.         Dim c As Integer
  7.  
  8.         Dim a() As Integer
  9.  
  10.         b = TextBox1.Text
  11.         ReDim a(b)
  12.         For i = 1 To b
  13.             a(i) = InputBox("Ingrese Datos")
  14.  
  15.             c = a(i)
  16.             TextBox2.Text = TextBox2.Text & c
  17.         Next
  18.     End Sub
  19. End Class
  20.  
  21.  


y me aparece un error que dice:

InvalidCastException was unhandled

La conversion de la cadena "" en el tipo 'integer' no es válida

Gracias. :(

12
VB .NET / cadena de caracteres
« en: Jueves 2 de Octubre de 2008, 23:48 »
Hola, es que tengo un pequeño problemita con un codigo. Lo que necesito es que al ingresar una palabra cualquiera este me desfragmente, es decir, que si por ejemplo se tiene "codigo", aparezca asi: "co", luego, "cod", luego, "codi", luego, "codig" y "codigo". Yo lo he estado haciendo asi, pero me doy cuenta que solamente se reduce aun tamaño especifico de palabra (asi que no estoy muy segura si lo estoy haciendo bien).

Entonces quisiera saber, si me podrian ayudar con esto, es decir, como se haria para que sin importar el tamaño de la palabra que se ingrese la desfragmente.


Código: Text
  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.         Dim a As String
  6.  
  7.         a = TextBox1.Text
  8.  
  9.         For a = Len(TextBox1.Text) To 1 Step -1
  10.  
  11.  
  12.             TextBox2.Text = Strings.Left(TextBox1.Text, 2)
  13.             TextBox3.Text = Strings.Left(TextBox1.Text, 3)
  14.             TextBox4.Text = Strings.Left(TextBox1.Text, 4)
  15.  
  16.         Next
  17.     End Sub
  18. End Class
  19.  

Gracias  :ayuda:

13
VB .NET / borrar contenido de un textbox
« en: Jueves 2 de Octubre de 2008, 23:41 »
Hola, lo que pasa es que quisiera saber si existe una forma de borrar mas de un textbox de una vez

Es decir, para eviterme escribir textbox1.clear(), textbox2.clear()... y asi sucesivamente para mas de 10 textbox, entonces no se si conozcan una forma para lograr que se borren el contenido de todos al mismo tiempo pero de una forma mas simplificada o corta

Gracias ;)

14
VB .NET / Acerca de Listbox
« en: Jueves 25 de Septiembre de 2008, 19:24 »
Hola, quisiera saber si con ListBox, es posible utilizar un salto de lines, lo que pasa es que necesito que en un Listbox, se me muestre la tabla de multiplicar que se escoja, muy bien esto ya lo logre, pero lo que es que me aparece de forma horizontal y no vertical que es como yo quiero que se vea. Por ello quisiera saber si ustedes conocen como podria hacer para que suceda esto.

Gracias :comp:

15
C# / Re: Sobre C#
« en: Jueves 18 de Septiembre de 2008, 22:19 »
Hola Meta

Muchas gracias, ya he visitado la pagina y esta excelente, tiene todo lo que yo necesito y lo mejor muy bien explicado

 :good:   :comp:

16
VB .NET / Re: Manual De Vb .net
« en: Jueves 18 de Septiembre de 2008, 02:30 »
hola, el link aun no funciona asi que te agradeceria si me lo puedes mandar a jesmi89@yahoo.com
Gracias :good:

17
C# / Sobre C#
« en: Jueves 18 de Septiembre de 2008, 02:16 »
Hola quisiera saber si ustedes conocen alguna pagina, en donde expliquen bien este tipo de lenguaje, es para solucionar algunas dudas que tengo respecto a este tipo de lenguaje

Gracias :rolleyes:

18
VB .NET / Sobre cursos
« en: Jueves 18 de Septiembre de 2008, 02:14 »
Hola, quisiera saber si ustedes conocen algun tipo de pagina  en donde se pueda aprender bien a programar en basic,net
Es que hasta ahora estoy empezando con este programa y quisiera tener una ayudita extra

Gracias :good:

19
VB .NET / Obtener subcadenas
« en: Jueves 18 de Septiembre de 2008, 02:11 »
hola, como estan

Quisiera saber como se hace para obtener subcadenas y ademas como puedo enlazar un formulario con otro

Ahi, y si porfa me pudieran explicar con algun ejemplo

Bueno, Muchas gracias :D

20
C# / Re: Mostrar tablas de multiplicar
« en: Martes 19 de Agosto de 2008, 00:54 »
oye, muchisimas gracias. Eso era lo que necesitaba.
Espero no haberte causado muchas molestias
Y gracias de nuevo :good:  :D

21
C# / Re: Mostrar tablas de multiplicar
« en: Lunes 18 de Agosto de 2008, 22:56 »
Hola, JaviMarciano

Muchas gracias por tu respuestas, me sirvio mucho. Entonces este lenguaje no es tan dificil como pensaba, oye pero tengo una ultima preguntica, si yo quiero que no me muestre todas si no el usuario digite o escoja la que quiere como podria yo hacer esto

Gracias, :rolleyes:

22
C# / Mostrar tablas de multiplicar
« en: Lunes 18 de Agosto de 2008, 05:37 »
hola, la verdad es que hasta ahora estoy aprendiendo c#, y no tengo mucha experiencia en esto

Lo que pasa es que me pusieron a que hiciera un progrma que mustre la s tablas de multiplicar, entonces quisiera saber como sera que se hace, a ver si me pueden explicar

Gracias, :hola:  :ouch:

23
C/C++ / que pasa con el codigo!!!
« en: Martes 5 de Agosto de 2008, 23:29 »
quisiera saber si porfa me pueden ayudar con lo siguiente

Código: Text
  1. #include<iostream.h>
  2. #include<conio.h>
  3. #include<stdio.h>
  4. #include<stdlib.h>
  5.  
  6. int valor[4][4],i,j,nump,numip,nprim;
  7.  
  8. void llenar();
  9. void mostrar();
  10. void diagonalp();
  11. void diagonals();
  12. void menu();
  13. void npares();
  14. void nimpares();
  15. void nprimos();
  16. void salir();
  17.  
  18. void main()
  19. {
  20.     menu();
  21. }
  22.  
  23. void menu()
  24. {
  25.     system("cls");
  26.     int op;
  27. cout<<"nnMENU PRINCIPALn";
  28. cout<<"------------------n";
  29. cout<<"(1) LLENARn";
  30. cout<<"(2) MOSTRARn";
  31. cout<<"(3) DIAGONAL PRINCIPALn";
  32. cout<<"(4) DIAGONAL SECUNDARIAn";
  33. cout<<"(5) NUMEROS PARESn";
  34. cout<<"(6) NUMEROS IMPARESn";
  35. cout<<"(7) NUMEROS PRIMOSn";
  36. cout<<"(8) SALIRn";
  37. cout<<"Escoja una opcion:[ ]bb";
  38. cin>>op;
  39. switch (op)
  40. {
  41. case 1: llenar(); break;
  42. case 2: mostrar (); break;
  43. case 3: diagonalp(); break;
  44. case 4: diagonals(); break;
  45. case 5: npares(); break;
  46. case 6: nimpares(); break;
  47. case 7: nprimos(); break;
  48. case 8: salir(); break;
  49. }
  50. getch();
  51. menu();
  52. }
  53.     void llenar()
  54.     {
  55.         system("cls");
  56.         cout<<"nIngrese 16 digitosnn";
  57.         for(i=0;i<=3;i++)
  58.         {
  59.             for(j=0;j<=3;j++)
  60.             {
  61.                 cin>>valor [i][j];
  62.             }
  63.  
  64.         }
  65.     }
  66.  
  67.     void mostrar ()
  68.     {
  69.         system("cls");
  70.         cout<<"nntLos datos de la Matriz son:n";
  71.         cout<<"t***************************nn";
  72.         for(i=0;i<=3;i++)
  73.         {
  74.             for(j=0;j<=3;j++)
  75.             {
  76.                 cout<<"t"<<valor[i][j];
  77.             }
  78.         cout<<endl;
  79.         }
  80.     }
  81.  
  82.  
  83.     void diagonalp()
  84.     {
  85.         system("cls");
  86.         cout<<"nnlos datos en diagonal principal son:n";
  87.         for(i=0;i<=3;i++)
  88.         {
  89.             for(j=0;j<=3;j++)
  90.             {
  91.                 if(i==j)
  92.                 {
  93.                   cout<<"n"<<valor[i][j];
  94.                 }
  95.         }
  96.         }
  97.     }
  98.  
  99. void diagonals()
  100. {
  101.     system("cls");
  102.     cout<<"nnlos datos en diagonal secundaria son:n";
  103.     for(i=0;i<=3;i++)
  104.     {
  105.         for(j=0;j<=3;j++)
  106.         {
  107.             if(i+j==3)
  108.             {
  109.                 cout<<"n"<<valor[i][j];
  110.            
  111.             }
  112.        
  113.         }
  114.     }
  115. }
  116.    
  117. void npares()
  118.     {
  119.     system("cls");  
  120.         cout<<"nnlos datos pares son:n";
  121.         for(i=0;i<=3;i++)
  122.         {
  123.             for(j=0;j<=3;j++)
  124.             {
  125.                 nump=valor[i][j]%2;
  126.                
  127.                 if(nump==0)
  128.                 {
  129.                     cout<<"n"<<valor[i][j];
  130.                 }
  131.             }
  132.        
  133.  
  134.         }
  135.     }
  136.  
  137.     void nimpares()
  138.     {
  139.         system("cls");
  140.         cout<<"nnlos datos impares son:n";
  141.         for(i=0;i<=3;i++)
  142.     {
  143.             for(j=0;j<=3;j++)
  144.             {
  145.                 numip=(valor[i][j]%2)-1;
  146.                
  147.                 if(numip==0)
  148.                 {
  149.                     cout<<"n"<<valor[i][j];
  150.                 }
  151.             }
  152.        
  153.        
  154.         }
  155.     }
  156.  
  157. void nprimos()
  158. {
  159.     system("cls");
  160.     cout<<"nnlos datos primos son:";
  161.     for(i=0;i<=3;i++)
  162.     {
  163.         for(j=0;j<=3;j++)
  164.         {
  165.             nprim=valor[i][j]%2;
  166.             if(nprim==1)
  167.             {
  168.                 cout<<"n"<<valor[i][j];
  169.             }
  170.         }
  171.  
  172.        
  173.     }
  174.     }
  175.  
  176. void salir()
  177. {
  178. exit(0);
  179. }
  180.        
  181.  
  182.        
  183.    
  184.    
  185.    
  186.  
  187.  

y al momento de ejecutarlo me doy cuenta que los datos que arroja en las ociones de impares y primos son exactamente los mismos. Cual sera la falla?

Gracias :comp:

Páginas: [1]