Foros del Web » Programación para mayores de 30 ;) » .NET »

Pasar de VB6 a C# y/o VB .net

Estas en el tema de Pasar de VB6 a C# y/o VB .net en el foro de .NET en Foros del Web. 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.../csharp-to-vb/ ...
  #1 (permalink)  
Antiguo 09/12/2008, 15:18
 
Fecha de Ingreso: mayo-2007
Ubicación: PIC-16F84A
Mensajes: 727
Antigüedad: 16 años, 11 meses
Puntos: 8
Pasar de VB6 a C# y/o VB .net

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.../csharp-to-vb/

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

Código:
Private Sub conectar_Click()
'comprueva que el puerto este cerrado para poder abrirlo
If MSComm1.PortOpen = False Then
'determina el puerto que hemos seleccionado.
If COM_sel.ListIndex = 0 Then
MSComm1.CommPort = 1
End If
If COM_sel.ListIndex = 1 Then
MSComm1.CommPort = 2
End If
If COM_sel.ListIndex = 2 Then
MSComm1.CommPort = 3
End If
If COM_sel.ListIndex = 3 Then
MSComm1.CommPort = 4
End If
If COM_sel.ListIndex = 4 Then
MSComm1.CommPort = 5
End If
If COM_sel.ListIndex = 5 Then
MSComm1.CommPort = 6
End If
If COM_sel.ListIndex = 6 Then
MSComm1.CommPort = 7
End If
If COM_sel.ListIndex = 7 Then
MSComm1.CommPort = 8
End If
If COM_sel.ListIndex = 8 Then
MSComm1.CommPort = 9
End If
If COM_sel.ListIndex = 9 Then
MSComm1.CommPort = 10
End If
If COM_sel.ListIndex = 10 Then
MSComm1.CommPort = 11
End If
End If

MSComm1.OutBufferSize = 1 'tamaño del dato a transmitir.
MSComm1.InBufferSize = 23
MSComm1.InputMode = comInputModeText 'los datos se recuperan en modo texto.
MSComm1.InputLen = 23 ' BUFFER DE ENTRADA SE PUEDE DEJAR AL MAXIMO.
MSComm1.PortOpen = True
MSComm1.RThreshold = 23 'son 23 caracteres.
End Sub

Private Sub Form_Load()
COM_sel.AddItem "COM1"
COM_sel.AddItem "COM2"
COM_sel.AddItem "COM3"
COM_sel.AddItem "COM4"
COM_sel.AddItem "COM5"
COM_sel.AddItem "COM6"
COM_sel.AddItem "COM7"
COM_sel.AddItem "COM8"
COM_sel.AddItem "COM9"
COM_sel.AddItem "COM10"
COM_sel.AddItem "COM11"
COM_Sel.ListIndex = 0
End Sub

Private Sub MSComm1_OnComm()
Dim InBuff As String
Select Case MSComm1.CommEvent
Case comEvReceive
InBuff = MSComm1.Input
Debug.Print InBuff
Texto.Text = ""
Texto.Text = Left$(InBuff, 23) ' se recorta los caracteres basura
MSComm1.PortOpen = False 'cierra el puerto y vacia el buffer
End Select
End Sub
Saludo.
__________________
Meta Shell, VERSIÓN 1.2.2
Descargar
  #2 (permalink)  
Antiguo 14/12/2008, 00:04
 
Fecha de Ingreso: diciembre-2008
Ubicación: localhost
Mensajes: 232
Antigüedad: 15 años, 4 meses
Puntos: 3
Respuesta: Pasar de VB6 a C# y/o VB .net

Tienes que ver si el Componente que estás utilizando se puede usar con VB.NET, porque si no para que vas a cambiar el código.

Saludos!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:48.