• Lunes 23 de Diciembre de 2024, 04:04
« anterior próximo »
Páginas: [1]

Autor Tema:  Pasar de VB6 a C# y/o VB .net  (Leído 2526 veces)

Meta

  • Miembro MUY activo
  • ***
  • Mensajes: 140
    • Ver Perfil
Pasar de VB6 a C# y/o VB .net
« en: Martes 9 de Diciembre de 2008, 22:17 »
0
Hola:

Quiero cambiar el código de VB6 a C# y/o VB .net en esta web pero me da error porque solo acepta VB .net
http://www.developerfusion.com/tools/co ... arp-to-vb/

El código que deseo cambiar de VB6 a C# es este de aquí abajo.

Código: Text
  1. Private Sub conectar_Click()
  2. 'comprueva que el puerto este cerrado para poder abrirlo
  3. If MSComm1.PortOpen = False Then
  4. 'determina el puerto que hemos seleccionado.
  5. If COM_sel.ListIndex = 0 Then
  6. MSComm1.CommPort = 1
  7. End If
  8. If COM_sel.ListIndex = 1 Then
  9. MSComm1.CommPort = 2
  10. End If
  11. If COM_sel.ListIndex = 2 Then
  12. MSComm1.CommPort = 3
  13. End If
  14. If COM_sel.ListIndex = 3 Then
  15. MSComm1.CommPort = 4
  16. End If
  17. If COM_sel.ListIndex = 4 Then
  18. MSComm1.CommPort = 5
  19. End If
  20. If COM_sel.ListIndex = 5 Then
  21. MSComm1.CommPort = 6
  22. End If
  23. If COM_sel.ListIndex = 6 Then
  24. MSComm1.CommPort = 7
  25. End If
  26. If COM_sel.ListIndex = 7 Then
  27. MSComm1.CommPort = 8
  28. End If
  29. If COM_sel.ListIndex = 8 Then
  30. MSComm1.CommPort = 9
  31. End If
  32. If COM_sel.ListIndex = 9 Then
  33. MSComm1.CommPort = 10
  34. End If
  35. If COM_sel.ListIndex = 10 Then
  36. MSComm1.CommPort = 11
  37. End If
  38. End If
  39.  
  40. MSComm1.OutBufferSize = 1 'tamaño del dato a transmitir.
  41. MSComm1.InBufferSize = 23
  42. MSComm1.InputMode = comInputModeText 'los datos se recuperan en modo texto.
  43. MSComm1.InputLen = 23 ' BUFFER DE ENTRADA SE PUEDE DEJAR AL MAXIMO.
  44. MSComm1.PortOpen = True
  45. MSComm1.RThreshold = 23 'son 23 caracteres.
  46. End Sub
  47.  
  48. Private Sub Form_Load()
  49. COM_sel.AddItem "COM1"
  50. COM_sel.AddItem "COM2"
  51. COM_sel.AddItem "COM3"
  52. COM_sel.AddItem "COM4"
  53. COM_sel.AddItem "COM5"
  54. COM_sel.AddItem "COM6"
  55. COM_sel.AddItem "COM7"
  56. COM_sel.AddItem "COM8"
  57. COM_sel.AddItem "COM9"
  58. COM_sel.AddItem "COM10"
  59. COM_sel.AddItem "COM11"
  60. COM_Sel.ListIndex = 0
  61. End Sub
  62.  
  63. Private Sub MSComm1_OnComm()
  64. Dim InBuff As String
  65. Select Case MSComm1.CommEvent
  66. Case comEvReceive
  67. InBuff = MSComm1.Input
  68. Debug.Print InBuff
  69. Texto.Text = ""
  70. Texto.Text = Left$(InBuff, 23) ' se recorta los caracteres basura
  71. MSComm1.PortOpen = False 'cierra el puerto y vacia el buffer
  72. End Select
  73. End Sub
  74.  
  75.  

Saludo.

kaidok

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Re: Pasar de VB6 a C# y/o VB .net
« Respuesta #1 en: Miércoles 10 de Diciembre de 2008, 11:24 »
0
En esta página se ofrece un conversor que realiza esa función, pero es de pago así que no creo que te interese. Creo que el Microsoft Visual Studio también incluye una herramienta para realizar la conversión que pides, pero el Microsoft Visual Studio tampoco es gratis.

Me temo que no hay nada gratuito que realice la conversión que pides, en todo caso te dejo esta información.
Páginas: [1]
« anterior próximo »