Je sais que la mode n'est plus vraiment à la brique jaune RCX, mais je souhaite programmer mes RCX en utilisant Visual Basic. Peut-être que des personnes expérimentées ou anciennement expérimentées peuvent m'aider.
J'ai déjà testé l'envoi/réception d'un programme simple (Allumer Moteur, puis l'éteindre au bout de X secondes) dans le RCX. Tout fonctionne bien. Mais un problème arrive dès que je souhaite charger un programme avec une condition sur un capteur. Le programme n'est pas correctement envoyé, mon algorithme me le signale "Download failed", et évidemment rien ne marche lorsque j'execute.
Voici un exemple dans lequel je souhaite émettre un son si le capteur de touche est enfoncé, et un autre son si il est relâché.
- Code: Tout sélectionner
Option Explicit
Private Sub Form_Load()
PBrickCtrl.ComPortNo = 4
PBrickCtrl.InitComm
End Sub
Private Sub cmdDownload_Click()
With PBrickCtrl
.SelectPrgm SLOT_5 ' donne l'emplacement du stockage programme
.BeginOfTask (MainTask)
.SetSensorType SENSOR_2, SWITCH
.If SENVAL, SENSOR_2, EQ, CON, 1
.PlaySystemSound 3
.Else
.PlaySystemSound 4
.EndIf
.EndOfTask
End With
End Sub
Private Sub PBrickCtrl_DownloadDone(ByVal ErrorCode As Integer, ByVal DownloadNo As Integer)
If ErrorCode = 0 Then ' Download is Successful
PBrickCtrl.PlaySystemSound 4
MsgBox "Download Successful", vbInformation, "Status"
Else ' Download Failed
MsgBox "Download Failed", vbCritical, "Status"
End If
End Sub
Si vous voyez une erreur là-dedans, merci d'éclairer ma lanterne !
Amicalement,
Simon.
.gif ":)")
