Code : Tout sélectionner
; Date: 28. Avril 2008 (kernadec)
; OS: Windows
;
;Exemple simple de saisie avec les ComboBox
;************************************************************
;dans les combobox je n'ai toujours pas compris comment déterminer le nombre
;de lignes de l'ascenseur si quelqu'un a un truc merci! j'ai eu de la chance
;les combobox ne fonts que 5 lignes dans ces ascenseurs byzarre byzarre !!!!
;problème avec les flêches clavier à la première saisie le combo revient a zéro??
;************************************************************
;
nom$="Alain"
lieu$="Caen"
jour=23
mois=3
annee=1972
heure=4
hminute=20
latitude=49
Latminute=11
longitude=0
longminute=22
NS$="N"
EO$="O"
;
;
OpenWindow(0,80,150,270,240,"Exemple dialogue par (Kernadec)",#PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))
;************************ NOM ******************************
StringGadget(0, 50, 40, 200, 20, nom$)
nom$=GetGadgetText(0)
StringGadget(1, 50, 90, 200, 20, lieu$)
lieu$=GetGadgetText(1)
;************************* DATE ******************************
ComboBoxGadget(2,10,140,37,100,#PB_ComboBox_Editable)
SetGadgetText(2, Str(jour))
For x = 1 To 31
AddGadgetItem(2,-1,Str(x)) ;Jour
Next
jour=GetGadgetState(2)
ComboBoxGadget(3,50,140,37,100,#PB_ComboBox_Editable)
SetGadgetText(3, Str(mois))
For x = 1 To 12
AddGadgetItem(3,-1,Str(x)) ;mois
Next
mois=GetGadgetState(3)
ComboBoxGadget(4,90,140,50,100,#PB_ComboBox_Editable)
SetGadgetText(4, Str(annee))
For x = 1752 To 2300
AddGadgetItem(4,-1,Str(x)) ;année
Next
annee=GetGadgetState(4)
;************************** HEURE ****************************
ComboBoxGadget(5,180,140,37,100,#PB_ComboBox_Editable)
SetGadgetText(5, Str(heure))
For x = 0 To 23
AddGadgetItem(5,-1,Str(x)) ;heure
Next
heure=GetGadgetState(5)
ComboBoxGadget(6,220,140,37,100,#PB_ComboBox_Editable)
SetGadgetText(6, Str(Hminute))
For x = 0 To 59
AddGadgetItem(6,-1,Str(x)) ;minute
Next
hminute=GetGadgetState(6)
;************************ LATITUDE ***************************
ComboBoxGadget(7,10,180,37,100,#PB_ComboBox_Editable)
SetGadgetText(7, Str(latitude))
For x = 0 To 89
AddGadgetItem(7,-1,Str(x)) ;latitude degrés
Next
latitude=GetGadgetState(7)
ComboBoxGadget(8,50,180,37,100,#PB_ComboBox_Editable)
SetGadgetText(8, Str(latminute))
For x = 1 To 59
AddGadgetItem(8,-1,Str(x)) ;latitude minutes
Next
latminute=GetGadgetState(8)
ComboBoxGadget(9,90,180,32,100,#PB_ComboBox_Editable)
SetGadgetText(9, NS$)
AddGadgetItem(9,-1,"N")
AddGadgetItem(9,-1,"S") ;latitude nord/sud
NS$=GetGadgetText(9)
;************************* LONGITUDE ***********************
ComboBoxGadget(10,140,180,43,100,#PB_ComboBox_Editable)
SetGadgetText(10, Str(longitude))
For x = 0 To 179
AddGadgetItem(10,-1,Str(x)) ;longitude degrés
Next
longitude=GetGadgetState(10)
ComboBoxGadget(11,190,180,37,100,#PB_ComboBox_Editable)
SetGadgetText(11, Str(longminute))
For x = 1 To 59
AddGadgetItem(11,-1,Str(x)) ;longitude minutes
Next
longminute=GetGadgetState(11)
ComboBoxGadget(12,230,180,32,100,#PB_ComboBox_Editable)
SetGadgetText(12, EO$)
AddGadgetItem(12,-1,"E")
AddGadgetItem(12,-1,"O") ;longitude est/ouest
EO$=GetGadgetText(12)
;***********************************************************
;************************ boutons ****************************
ButtonGadget(13, 25, 210, 100, 25, "&Annuler")
ButtonGadget(14, 145, 210, 100, 25, "&Confirmer")
;************************ titres *****************************
TextGadget(15, 10, 40, 60, 20, "Nom:")
TextGadget(16, 10, 90, 60, 20, "Lieu:")
TextGadget(17, 15, 125, 120, 20, "Jour Mois Année")
TextGadget(18, 180, 125, 120, 20, "Heures Minutes")
TextGadget(19, 10, 165, 120, 20, "Latitude degrés minutes")
TextGadget(20, 140, 165, 140, 20, "Longitude degrés minutes")
;*********************cmd Clavier ****************************
AddKeyboardShortcut(0,#PB_Shortcut_Return,14)
AddKeyboardShortcut(0,#PB_Shortcut_C,14)
Repeat
event=WaitWindowEvent()
If Event = #PB_Event_Gadget Or Event = #PB_Event_Menu
Select EventGadget()
Case 13
If IsWindow(1)
CloseWindow(1)
EndIf
Case 14
OpenWindow(1,400,150,300,240,"resultats",#PB_Window_SystemMenu)
;*********************cmd Clavier *********************
AddKeyboardShortcut(1,#PB_Shortcut_Escape,13)
AddKeyboardShortcut(1,#PB_Shortcut_A,13)
;************************ Affiche **********************
StartDrawing(WindowOutput(1))
DrawingMode(1)
DrawText(1,40,"Nom: "+GetGadgetText(0))
DrawText(1,70,"Lieu: "+GetGadgetText(1))
DrawText(1,100,"Date: "+GetGadgetText(2)+"/"+GetGadgetText(3)+"/"+GetGadgetText(4))
DrawText(1,130,"heure: "+GetGadgetText(5)+"h"+GetGadgetText(6)+"' ")
DrawText(1,170,"Latitude: "+GetGadgetText(7)+"°"+GetGadgetText(8)+"' "+GetGadgetText(9))
DrawText(1,200,"Longitude: "+GetGadgetText(10)+"°"+GetGadgetText(11)+"' "+GetGadgetText(12))
StopDrawing()
Case #PB_Event_CloseWindow
CloseWindow(0)
EndSelect
ElseIf Event = #PB_Event_CloseWindow
End
EndIf
ForEver
