Transmettre à Arduino des coordonnées x,y à exploiter

International Français
303

Bonjour olpica

Voilà un exemple pour FB, tu notera que la fonction setupCmd a désormais un paramètre de plus, si le 2ème paramètre n'est pas nécessaire, le mettre à 0 (corriger les programmes précédents!)

Le programme FB:

Dim As String rcf
dim i as integer
dim l as integer
'---------------------------------- Envoi de commandes X,Y
sub servoCmd( byval mpapXpos as integer, mpapYpos as integer )
    dim cmd as string
    cmd = mpapXpos & "," & mpapYpos
    print cmd
    print #1, cmd + chr$(10);
end sub

'---------------------------------- Envoi de commandes de setup
'---------------------------------- Si setupVal2 > -1, commande à 2 paramètres
sub setupCmd( byval setup as string,  setupVal1 as integer,  setupVal2 as integer )
    dim cmd as string
    
    cmd = "$" & setup & setupval1
    cmd = cmd & "," & setupVal2
    
    print cmd
    print #1, cmd + chr$(10);
end sub

Open Com "COM2:9600,N,8,1,RS,DT,CS0,DS0,CD0" As #1 ' ouverture port com 1
sleep 1000

setupCmd ("LL", 300, 300) ' Laser en position 300/300
setupCmd ("LP", 255, 0) ' Laser pleine puissance
sleep 200

servoCmd (300, 300)     ' Rien ne bouge
print "Rien ne bouge"
sleep 3000
' Pour un écran 640/480
servoCmd (400, 400)
print "Deplacement de 100 pixels X et Y"
sleep 3000

setupCmd ("LP", 10, 0) ' Laser faible puissance
setupCmd ("LI", 200, 0) ' Laser impulsion 200 millisecondes
sleep 1000

servoCmd (0, 0)     ' Au départ

close #1

Print "press ESC to exit"
while inkey() <> chr(27)
    sleep 20, 1
    wend

A+
jpbbricole