cs_TS1
Messages postés29Date d'inscriptionlundi 16 janvier 2006StatutMembreDernière intervention23 janvier 2007
-
16 janv. 2006 à 09:29
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 2006
-
16 janv. 2006 à 11:22
1 CLOSE
10 OPEN "com1:9600,n,8,1,RS,CS,DS,CD" AS #1
20 PRINT #1, "@01" :GOSUB 1000
30 PRINT #1, "@0R1":GOSUB 1000
40 PRINT #1, "@0A 1000,1000" :GOSUB 1000
50 GOTO 1020
1000 Q=TIMER
1002 IF LOC(1)<1 THEN A=TIMER:IF A-Q<20 THEN GOTO 1002
1004 IF A-Q>20 THEN A$="CARTE ERREUR":GOTO 1020
1010 A=0:A$=INPUT$(1,1): IF A$="0" THEN RETURN
1020 PRINT"carte rpond :";A$
1025 CLOSE
1030 STOP
1000 distance 1000 vitesse
_________________________________________________________
Bonjour alors voila mon problème :
j'aurais voulu savoir si il aurait été possible dans VB de créer une fonction qui aurait pour but de modifier les 2 variables puis d'enregistrer tout le code dans le blocnote dans un fichier avec comme extension " .bas "