Hola:
No encuentro por ningún lado la forma de hacer esto (Gwbasic) en visual basic.
Código PHP:
10 CLS:OPEN "com1:9600,n,8,1" FOR RANDOM AS #1
30 A=128:PUERTO=3:GOSUB 10000:REM prepara 8255 para todo salidas
34 FOR DIRECCION=1 TO 255
35 PRINT DIRECCION
36 FOR DATO=255 TO 0 STEP-5
40 PUERTO=1:A=DATO
50 GOSUB 10000
90 PUERTO=0:A=DIRECCION
100 GOSUB 10000
110 PUERTO=0:A=0
120 GOSUB 10000
130 NEXT DATO
140 NEXT DIRECCION
200 GOTO 34
10000 BS=A AND 240
10010 BI=A AND 15
10020 PRINT #1,CHR$(BS+12);
10030 PRINT #1,CHR$(BS);
10040 PRINT #1,CHR$(BS+12);
10050 PRINT #1,CHR$((BI*16)+12);
10060 PRINT #1,CHR$(BI*16);
10065 PRINT #1,CHR$((BI*16)+12);
10069 PRINT #1,CHR$(12+PUERTO);
10070 PRINT #1,CHR$(4+PUERTO);
10071 PRINT #1,CHR$(12+PUERTO);
10072 IF PUERTO=2 THEN PRINT #1,CHR$(8+PUERTO);:PRINT #1,CHR$(12+PUERTO);
10080 RETURN
Alguien es capaz de pasarmelo o decirme donde hay un manual para manejar el puerto rs232 ??
Gracias