 Dom Abr 20, 2008 3:43 pm
|
 |
alphabravo
Perlero Nuevo
|
Registrado: 06 Abr 2008
Mensajes: 12
|
|
| Manejando Puerto Comm con Perl |
 |
|
Hola. ¿Cómo puedo en Perl abrir un puerto comm? Por ejemplo, en Visual Basic así abro el puerto, ¿cómo me funciona así en Perl? y el win32::serialport ¿debo de tenerlo instalado en Perl? Porque lo busqué como PMM install win32::serialport y no lo encuentro  ¿o cual necesito?
| VisualBASIC: |
MSComm1.CommPort = 5
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputLen = 1024
MSComm1.PortOpen = True
MSComm1.Output = "ATZ" & vbCr |
y para enviar los datos lo realizo así en Visual Basic, ¿cómo lo puedo pasar a Perl?
| VisualBASIC: | Dim PhoneNum, Message, i
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 1024
MSComm1.RThreshold = 1
MSComm1.RThreshold = 1
PhoneNum = numero al que enviamos
PhoneNum1 = "+1111111111111" '
Message=prueba
MSComm1.Output = "AT+CMGF=1" & Chr$(13)
MSComm1.Output = "AT+CSCA=" & Chr$(34) & PhoneNum1 & Chr$(34) & Chr$(13)
MSComm1.Output = "AT+CMGS=" & Chr$(34) & PhoneNum & Chr$(34) & Chr$(13)
MSComm1.Output = Message & Chr$(26) & Chr$(13) |
|
|
|
|
|
Dom Abr 20, 2008 5:07 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4018
Ubicación: Valladolid, España
|
|
|
|
Powered by phpBB © 2001, 2005 phpBB Group
|
