QBasic --> VBasic [VB]

[mr_chiocco]

Chi riesce a trasferire questo codice da Quick Basic a Visual Basic?

---------------------------------------------------------------------
OPEN "COM2:2400,N,8,1" FOR RANDOM AS #1

PRINT #1, CHR$(1);
PRINT #1, CHR$(0);
CLS

ripeti:

LOCATE 1, 1
PRINT #1, CHR$(3);
dato$ = INPUT$(1, #1)
dato = ASC(dato$)
PRINT "somma dei pesi = ";
PRINT USING "###"; dato
FOR n = 1 TO 8
PRINT "dipswitch "; n; " ";
IF (((dato / 2) - INT(dato / 2)) = 0) THEN
PRINT "chiuso"
ELSE PRINT "aperto"
END IF
dato = INT(dato / 2)
NEXT n

GOTO ripeti
---------------------------------------------------------------------

[vonkranz]

Lo pigli, lo copi in un form, premi ctrl+F5 e vedi dove il compilatore si inchioda.
In questi punti ci sono errori di compatibilita' che devi mettere a posto.
La sintassi e' quasi uguale.