Page 1 sur 1
[..]Questionnaire (image+input+radio)
Posté : sam. 24 janv. 2015 07:28
par HUGO1
Bonjour,
Voilà j'ai un livre du Code de la route que j'ai scanné et j'aimerai un code permettant d'apprendre bêtement la signalisation ^^
J'avais fait la même chose pour mes verbes irréguliers ou j'ai créée des Inputbox à foison
Code : Tout sélectionner
$verb = "felt"
$input33 = InputBox("Irregular verbs", " Se sentir Simple past ?")
If ( ($input33 = $verb) ) Then
MsgBox(0,"Irregular verbs", "VRAI !")
$point = $point + 1
Else
MsgBox(0,"Irregular verbs", "FAUX ! c'était felt ")
EndIf
Donc bon je voudrais un code dans le même concept où je peux le multiplier
en faite j'en veux deux ^^
Je doute pouvoir faire sa en Msgbox fin je ne sais pas
#Premier script
- Photo
- input (texte)
#Second script
- Photo
- Radio (bouton radio)
Merci
Re: Questionnaire (image+input+radio)
Posté : sam. 24 janv. 2015 09:04
par jguinch
Commence par mettre ton titre en conformité. Merci
Re: [..]Questionnaire (image+input+radio)
Posté : sam. 24 janv. 2015 09:10
par HUGO1
C'est fait
Re: [..]Questionnaire (image+input+radio)
Posté : sam. 24 janv. 2015 22:54
par mikell
C'est très bien !
Alors voilà un exemple
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
$img1 = @tempdir & "\pano1.jpg"
InetGet("http://static.passetoncode.fr/img-panneaux/panneaux/interdiction/mini_b2c.jpg", $img1)
$img2 = @tempdir & "\pano2.jpg"
InetGet("http://static.passetoncode.fr/img-panneaux/panneaux/interdiction/mini_b3.jpg", $img2)
Global $rad_ok, $count = 1
$gui = GUICreate("My GUI picture", 400, 180)
$pic = GUICtrlCreatePic("", 10, 10, 150, 150)
$rad1 = GUICtrlCreateRadio("", 180, 30, 200, 20)
$rad2 = GUICtrlCreateRadio("", 180, 60, 200, 20)
$rad3 = GUICtrlCreateRadio("", 180, 90, 200, 20)
$btn1 = GUICtrlCreateButton("Valider", 200, 130, 80, 25)
$btn2 = GUICtrlCreateButton("Suivant", 300, 130, 80, 25)
_Update($count)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $btn1
_Test()
Case $btn2
$count += 1
_Update($count)
EndSwitch
WEnd
Func _Update($nb)
Switch $nb
Case 1
GUICtrlSetImage($pic, $img1)
GUICtrlSetData($rad1, "Ne pas jeter d'objets en l'air")
GUICtrlSetData($rad2, "Défense d'uriner")
GUICtrlSetData($rad3, "Interdiction de faire demi-tour")
$rad_ok = $rad3
Case 2
GUICtrlSetImage($pic, $img2)
GUICtrlSetData($rad1, "Interdiction de dépasser")
GUICtrlSetData($rad2, "Interdit aux voitures rouges")
GUICtrlSetData($rad3, "Interdit aux voitures noires")
$rad_ok = $rad1
Case Else
GuiDelete($gui)
Exit Msgbox(0,"", "y en a plus !")
EndSwitch
EndFunc
Func _Test()
If GuiCtrlRead($rad_ok) = 1 Then
Msgbox(0,"", "bravo !")
Else
Msgbox(0,"", "non !")
EndIf
EndFunc