bonjour à tous. Oui, ce serait galère avec la console au niveau définition, d'autant plus qu'elle ne s'affiche que sur la moitié gauche de l'écran. Encore merci Dobro, pour m'avoir orienté vers les gadgets. J'ai un peu potassé ça ce week end, et voila ce que cela donne.
bon, comme demandé plus haut, voilà le code de mon petit prog.
Comme disait Bashung, je cogite, je cogite, je m'agite, mais ça ne marche pas.
Maintenant, je bute sur un problème incompréhensible. J'enchaine des petites procédures sans problème, mais entre Choixtable() et Choixplats(), cela ne marche plus.
Si on enlève le
Le programme ne reconnaît pas la procédure.
J'ai mis le case 3 (choixplats) en commentaire pour que le programme puisse démarrer.
J'ai réussi à contourner le problème avec des gosub, mais je sens que ce n'est pas propre...
Merci d'avance aux pros de m'éclairer, car là, je suis complètement bloqué.
Code : Tout sélectionner
Procedure Ouverturefenetreprincipale()
OpenWindow(0, 5, 5, 1260, 700, "Exemple de gestion des évènements...", #PB_Window_SystemMenu)
EndProcedure
Procedure Masqueaddition()
position = 100
position1 = 80
numerogadget = 1
For compteur = 1 To 25
compteur$ = Str(compteur)
StringGadget(compteur, 820, position, 20, 20, compteur$)
position + 20
Next
position = 100
For compteur2 = 100 To 125
compteur2$ = Str(compteur2)
StringGadget(compteur2, 850, position, 360, 20, "")
position + 20
Next
StringGadget(0, 850, 40, 360, 20, " ADDITION ")
EndProcedure
Procedure Fin()
CloseWindow(0)
End
EndProcedure
Procedure Ouverturetable()
If CreateMenu(0, WindowID(0))
MenuTitle("CHOISIR UNE TABLE")
MenuItem(1, "Table 1")
MenuItem(2, "Table 2")
MenuBar()
MenuItem(3, "Entrer Des Plats")
MenuBar()
MenuItem(0, "Quitter")
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case 1 : SetGadgetText(0," ADDITION TABLE 1" )
Case 2 : SetGadgetText(0," ADDITION TABLE 2" )
Case 3 : ;Choixplats()
Case 0 : Fin() ; ensuite, insérer ici procedure retour menuprincipal
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndProcedure
Procedure Choixplats()
StringGadget(100, 620, 100, 500, 20, "Nous sommes dans la procédure choix plats")
Delay(1000)
CloseWindow(0)
End
EndProcedure
;******************************************* DEBUT DU PROGRAMME **********************************************
Ouverturefenetreprincipale()
Masqueaddition()
Ouverturetable()
compteurpositioncase = 100
positionitem = 100
Plat1$ = "Rouleaux de Printemps"
Plat2$ = "Confit de Canard"
Plat3$ = "rocamadour"
Plat4$ = "Creme Glacéé"
