Purebasic command arduino [RESOLUT]
Publié : lun. 10/avr./2023 4:29
Bonsoirs à tous
J'ai conçu une carte avec un contrôleur Arduino nano pour interagir avec une appli PB, hors, une fois les boutons de la carte, les éléments de la fenêtre Pb ne réagit pas toujours comme convenu,
Peut être que la méthode utilisé n'est pas la bonne, je vous laisse en juger
n'hésitez pas à corriger

J'ai conçu une carte avec un contrôleur Arduino nano pour interagir avec une appli PB, hors, une fois les boutons de la carte, les éléments de la fenêtre Pb ne réagit pas toujours comme convenu,
Peut être que la méthode utilisé n'est pas la bonne, je vous laisse en juger

Code : Tout sélectionner
Port$ = "COM3"
If OpenSerialPort(0, Port$, 9600, 0, 8, 1, 0, 4, 4)
Delay(1000)
If OpenWindow(0, 0, 0, 220, 100, "Test commande arduino", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget(1, 10, 15, 200, 30, "",#PB_Text_Border)
ButtonGadget(2, 10, 60, 100, 30, "Fermer")
If CreateImage(10, 100, 20,24,$00FF00) And CreateImage(11, 60, 100,24,$0000FF)
ImageGadget(3, 110, 60, 100, 30,ImageID(10),#PB_Image_Border)
EndIf
Repeat
Event = WaitWindowEvent(1)
Bytes = AvailableSerialPortInput(0)
If Bytes
*Byte = AllocateMemory(Bytes)
com = ReadSerialPortData(0, *Byte, Bytes)
If com
Rep$ = PeekS(*Byte, #PB_ByteLength,#PB_UTF8)
If FindString(Rep$,"Command1",1)
SetGadgetText(1,"Tst")
EndIf
If FindString(Rep$,"Command2",1)
SetGadgetState(3,ImageID(11))
EndIf
If FindString(Rep$,"Command3",1)
CloseWindow(0)
End
EndIf
EndIf
EndIf
; Select Event
;
; Case #PB_Event_Gadget
; Select EventGadget()
; Case 1
; CloseWindow(0)
; End
; EndSelect
;
; EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
EndIf
End
n'hésitez pas à corriger
