• Viernes 8 de Noviembre de 2024, 10:10

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

Páginas: [1]
1
Visual Basic para principiantes / ordenar ms y min en una lista
« en: Domingo 2 de Noviembre de 2008, 01:55 »
que onda gente pues ocupo ayuda  con mi programa de visua lo que quiero es que me encuentre el numero mayor y menor de un arreglo burbuja que ya lo hize solo me falta lo de encontrar el max y min y q eme o muestre en un text aaqui es dejo el codigo que llevo . el problema que tengo es que siempre me encuentra el de la pocision 0 y no el mayor  LO QUE OCUPO ES QUE ME ENCUENTRE EL MAYOR Y LE MINIMO EN  FUNCIONES espero qeu me ayuden a corregir mi programa
aqui es el formulario
Código: Text
  1. Dim multi() As Integer
  2. Dim mayo As Integer, may As Integer, men As Integer
  3. Dim n As Integer
  4.  
  5.  
  6. Private Sub Command1_Click()
  7. List1.AddItem Text1.Text
  8. Text1.Text = ""
  9. Text1.SetFocus
  10.  
  11. End Sub
  12.  
  13. Private Sub Command2_Click()
  14. Dim p As Integer
  15. p = List1.ListCount
  16. List1.RemoveItem (p - 1)
  17.  
  18. End Sub
  19.  
  20. Private Sub Command3_Click()
  21.  
  22. nume = List1.ListCount
  23.  
  24. ReDim multi(nume)
  25.  
  26.  
  27. For i = 0 To nume - 1
  28.     multi(i) = List1.List(i)
  29. Next i
  30. Call menu(multi, nume)
  31.  
  32. List1.Clear
  33. Text1.SetFocus
  34. For i = 0 To nume - 1
  35.     List1.List(i) = multi(i)
  36. Next i
  37.  
  38.  
  39.  
  40. End Sub
  41.  
  42. Private Sub Command4_Click()
  43. List1.Clear
  44. Text1.SetFocus
  45.  
  46.  
  47. End Sub
  48.  
  49. Private Sub Command5_Click()
  50. Unload Me
  51. End Sub
  52.  
  53. Private Sub Command6_Click()
  54. nume = List1.ListCount
  55. may = List1.List(0)
  56. mx (may)
  57. n = mx(may)
  58. If n = 1 Then
  59. Text2.Text = Str(may)
  60. End If
  61.  
  62.  
  63. End Sub
  64.  
  65. Private Sub Command7_Click()
  66. nume = List1.ListCount
  67. men = List1.List(0)
  68. mn (men)
  69. n = mn(men)
  70. If n = 1 Then
  71. Text3.Text = Str(men)
  72. End If
  73.  
  74.  
  75.  
  76. End Sub
  77.  
  78. Private Sub Command8_Click()
  79. Dim i As Integer
  80. Dim suma As Integer
  81. suma = 0
  82. nume = List1.ListCount
  83.  
  84. For i = 0 To nume - 1
  85. suma = suma + List1.List(i)
  86.  
  87. Next i
  88. Text4.Text = suma
  89.  
  90. End Sub
  91.  
  92.  

aqui el moduo donde van las funciones
Código: Text
  1.  
  2.  
  3. Dim nume, j As Integer, y As Integer, i, p As Integer
  4. Sub menu(multi, nume)
  5.  
  6. For i = 0 To nume - 1
  7.     For y = i + 1 To nume
  8.         If multi(i) < multi(y) Then
  9.             j = multi(i)
  10.             multi(i) = multi(y)
  11.             multi(y) = j
  12.         End If
  13.     Next y
  14. Next i
  15.  
  16.  
  17. End Sub
  18.  
  19. Function mx(may As Integer)
  20.  
  21. For i = 0 To nume - 1
  22. If List1.List(i) < may Then
  23. may = List1.List(i)(nume - 1)
  24. End If
  25. Next i
  26. mx = 1
  27. End Function
  28.  
  29. Function mn(men As Integer)
  30. For i = 0 To nume - 1
  31. If List1.List(i) > men Then
  32. men = List1.List(i)
  33. End If
  34. Next i
  35. mn = 1
  36. End Function
  37.  

2
C/C++ / emulador de ms-dos en c++
« en: Domingo 2 de Noviembre de 2008, 01:40 »
que onda comunidad pues ocupo ayuda con mi programa tengo el problema que tengo que hacer un emulador al ms-dos pero en c++ usando mis propias palabras ahorita ya he hecho para poder impiar la pantalla, salirme, cambiar de direccion y mostrar las direcciones lo que ocupo ahora es copiar un archivo y eliminar aqui les dejo el codigo que llevo

Código: Text
  1. #include<stdio.h>
  2. #include<iostream.h>
  3. #include<conio.h>
  4. #include<string.h>
  5. #include <dir.h>
  6. char *current_directory(char *path)
  7. {
  8.    strcpy(path, "X:\");
  9.    path[0] = 'A' + getdisk();
  10.    getcurdir(0, path+3);
  11.    return(path);
  12. }
  13. void borra()
  14. {
  15.     int x,y;
  16.     for(x=0;x<=80;x++)
  17.         for(y=0;y<=100;y++)
  18.         {   gotoxy(x,y);
  19.             printf(" ");
  20.             gotoxy(1,1);
  21.         }
  22. }
  23. void cambiar()
  24. {   char *ruta;
  25.     printf("ingresa la ruta que quieres cambiar: ");
  26.     gets(ruta);
  27.     chdir (ruta);
  28. }
  29. void dir()
  30. {
  31.  
  32.     struct ffblk ffblk;
  33.     int done;
  34.     printf("Directory listing of *.*n");
  35.     done = findfirst("*.*",&ffblk,0);
  36.     while (!done)
  37.     {
  38.          printf("  %sn", ffblk.ff_name);
  39.         done = findnext(&ffblk);
  40.     }
  41. }
  42. void copiar()
  43. {
  44.  
  45. }
  46. void eliminar()
  47. {
  48.  
  49. }
  50. void main()
  51. {   char z,* texto;
  52.     int q,t,error;
  53.     q=0;
  54.     while(q==0)
  55.     {       char curdir[MAXPATH];
  56.  
  57.     current_directory(curdir);
  58.     printf("n%s ", curdir);
  59.         error=1;
  60.         fflush(stdin);
  61.         gets(texto);
  62.         printf("");
  63.         t=strcmp(texto,"");
  64.         if(t==0)
  65.             error=0;
  66.         t=strcmp(texto,"borra");
  67.         if(t==0)
  68.         {   borra();
  69.             error=0;
  70.         }
  71.         t=strcmp(texto,"salir");
  72.         if(t==0)
  73.         {   q++;
  74.             error=0;
  75.         }
  76.         t=strcmp(texto,"ruta");
  77.         if(t==0)
  78.         {   cambiar();
  79.             error=0;
  80.         }
  81.         t=strcmp(texto,"dir");
  82.         if(t==0)
  83.         {
  84.           dir();
  85.           error=0;
  86.         }
  87.         t=strcmp(texto,"copiar");
  88.         if(t==0)
  89.         {
  90.           copiar();
  91.           error=0;
  92.         }
  93.         t=strcmp(texto,"eliminar");
  94.         if(t==0)
  95.         {
  96.           eliminar();
  97.           error=0;
  98.         }
  99.         if(error==1)
  100.             printf("El comando es invalidon");
  101.                      
  102.     }
  103. }
  104.  
  105.  

porfas ayudenmen  se los agradeceria igual les dejo mi correo para que me puedan orientar o algo nakamamoon@hotmail.com

Páginas: [1]