je pige pas pour le spingadget aider moi

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Heero
Messages : 28
Inscription : sam. 24/avr./2004 18:21

je pige pas pour le spingadget aider moi

Message par Heero »

salut j'ai fais un aspect pour mon programme puis quand je ve que le spin affiche de 1 à 60 il le fais pas j'ai chercher de toruver l'erreur mais je ne l'ai pas trouvé vous trouverai peut etre vous

Code : Tout sélectionner

;______________________________________________POCKET AUDIO_____________________________________________;
;=======================================================================================================;

;______________________________________________ASPECT POCKET AUDIO______________________________________;

Enumeration 
  #MENU_ouvrir
  #MENU_fermer
  #MENU_date
  #MENU_extinction
  #MENU_preference
  #MENU_aide
  #MENU_propos
  #Gadget_choix
  #Gadget_commande
  #Gadget_equalizer
  #Gadget_progression
  #Gadget_ouvrir
  #Gadget_Lire
  #Gadget_pause
  #Gadget_arret
  #Gadget_commandcd
  #Gadget_lirecd
  #Gadget_pausecd
  #Gadget_arretcd
  #Gadget_ejectcd
  #Gadget_fragression
  #Gadget_choidisque
  #Gadget_reglage
  #Gadget_son
  #Gadget_balance
  #Gadget_textson
  #Gadget_textbalance
  #Gadget_choixminute
  #Gadget_framinute
  #Gadget_texteminute
  #Gadget_progressarebourg
  #Gadget_annule
EndEnumeration 

Procedure Ouvrir_FP() 

   If OpenWindow(Window_principal, 0, 17, 381, 195,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered , "Pocket Audio")
      If CreateMenu(MenuBar_0, WindowID())
         MenuTitle("Fichier")
         MenuItem(#MENU_ouvrir,"Ouvrir")
         MenuBar()
         MenuItem(#MENU_fermer,"Fermer")
         MenuTitle("Outils")
         MenuItem(#MENU_date,"Date/Heure")
         MenuItem(#MENU_extinction,"Extinction programmée")
         MenuBar()
         MenuItem(#MENU_preference,"Préférences")
         MenuTitle("?")
         MenuItem(#MENU_aide,"Rubrique d'aide")
         MenuBar()
         MenuItem(#MENU_propos,"A propos")
      EndIf
      
      If CreateGadgetList(WindowID())
         PanelGadget(#Gadget_choix, 0, 0, 385, 155)
         AddGadgetItem(#Gadget_choix, -1, "Lecture")
         Frame3DGadget(#Gadget_commande, 8, 18, 315, 50,"Commande")
         ProgressBarGadget(#Gadget_equalizer, 348, 8, 15, 115, 0, 10, #PB_ProgressBar_Vertical)
         TrackBarGadget(#Gadget_progression, 13, 93, 315, 20, 0, 10)
         ButtonGadget(#Gadget_ouvrir, 23, 38, 60, 20, "Ouvrir")
         ButtonGadget(#Gadget_Lire, 98, 38, 60, 20, "Lire")
         ButtonGadget(#Gadget_pause, 173, 38, 60, 20,"Pause")
         ButtonGadget(#Gadget_arret, 248, 38, 60, 20, "Arrêt")
         Frame3DGadget(#Gadget_fragression, 8, 73, 325, 50,"progression")
         AddGadgetItem(#Gadget_choix, -1, "Lecture CD")
         Frame3DGadget(#Gadget_commandcd, 8, 18, 315, 50,"Commande CD")
         ButtonGadget(#Gadget_lirecd, 23, 38, 60, 20,"Lire CD")
         ButtonGadget(#Gadget_pausecd, 98, 38, 60, 20,"Pause CD")
         ButtonGadget(#Gadget_arretcd, 173, 38, 60, 20,"Arrêt CD")
         ButtonGadget(#Gadget_ejectcd, 248, 38, 60, 20,"Eject CD")
         ComboBoxGadget(#Gadget_choidisque, 328, 23, 45, 100)
         AddGadgetItem(#Gadget_choix, -1, "Reglage")
         Frame3DGadget(#Gadget_reglage, 13, 13, 350, 85,"Reglage")
         TrackBarGadget(#Gadget_son, 28, 38, 200, 20, 0, 100)
            SetGadgetState(#Gadget_son, 100)      
         TrackBarGadget(#Gadget_balance, 153, 68, 200, 20, 0, 10)
         TextGadget(#Gadget_textson, 243, 43, 90, 20, ": Reglage Volume", #PB_Text_Center)
         TextGadget(#Gadget_textbalance, 38, 68, 95, 20,"Reglage Balance :")
         AddGadgetItem(#Gadget_choix, -1, "Extinction programmée")
         SpinGadget(#Gadget_choixminute, 303, 28, 50, 25, 1, 60)
             SetGadgetState (#Gadget_choixminute,1)
             SetGadgetText(#Gadget_choixminute,"1") 
         Frame3DGadget(#Gadget_framinute, 8, 8, 360, 60,"Reglage Extinction")
         TextGadget(#Gadget_texteminute, 98, 33, 195, 20,"choisissez le temps avant l'extinction", #PB_Text_Right)
         ProgressBarGadget(#Gadget_progressarebourg, 58, 78, 310, 20, 0, 100, #PB_ProgressBar_Smooth)
            SetGadgetState(#Gadget_progressarebourg, 100)
         ButtonGadget(#Gadget_annule, 23, 33, 65, 20, "annuler")
         CloseGadgetList()
      EndIf
   EndIf 
      
EndProcedure 

;_________________________________________Fin Aspect POCKET AUDIO_______________________________________;         

;____________________________________________DEBUT PROGRAMATION_________________________________________;

Ouvrir_FP()

Repeat

  Event = WaitWindowEvent() 

If Event = #PB_EventMenu
   MenuID = EventMenuID()
    
   If MenuID = #MENU_ouvrir
      
   ElseIf MenuID = #MENU_fermer
      
   ElseIf MenuID = #MENU_date
     
   ElseIf MenuID = #MENU_extinction
      
   ElseIf MenuID = #MENU_preference
      
   ElseIf MenuID = #MENU_aide
     
   ElseIf MenuID = #MENU_propos
      
   EndIf
    
EndIf

If Event = #PB_EventGadget
   GadgetID = EventGadgetID()
    
   If GadgetID = #Gadget_choix
      
   ElseIf GadgetID = #Gadget_equalizer
         
   ElseIf GadgetID = #Gadget_progression
       
   ElseIf GadgetID = #Gadget_ouvrir
        
   ElseIf GadgetID = #Gadget_Lire
       
   ElseIf GadgetID = #Gadget_pause
        
   ElseIf GadgetID = #Gadget_arret
         
   ElseIf GadgetID = #Gadget_lirecd
         
   ElseIf GadgetID = #Gadget_pausecd
        
   ElseIf GadgetID = #Gadget_arretcd
         
   ElseIf GadgetID = #Gadget_ejectcd
        
   ElseIf GadgetID = #Gadget_choidisque
       
   ElseIf GadgetID = #Gadget_son
         
   ElseIf GadgetID = #Gadget_balance
     
   ElseIf eventGadgetID = #Gadget_choixminute
      SetGadgetText(#Gadget_choixminute,Str(GetGadgetState(#Gadget_choixminute))) 
      WindowEvent()
                 
   ElseIf GadgetID = #Gadget_progressarebourg
         
   ElseIf GadgetID = #Gadget_annule
      
   EndIf
    
EndIf

Until Event = #PB_EventCloseWindow
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

Normal, tu as mis EventGadgetID à la place de GadgetID!
ElseIf eventGadgetID = #Gadget_choixminute
SetGadgetText(#Gadget_choixminute,Str(GetGadgetState(#Gadget_choixminute)))
WindowEvent()
ElseIf GadgetID = #Gadget_choixminute
SetGadgetText(#Gadget_choixminute,Str(GetGadgetState(#Gadget_choixminute)))
WindowEvent()
Chris :)
Heero
Messages : 28
Inscription : sam. 24/avr./2004 18:21

Message par Heero »

merci un moment je l'avais remarqué et je l'avais changer mais apres le prog planté plus aucun bouton ne marché et je ne pouvais pas quitter le prog
ça vous le fait aussi ou c mon ordi qui n'est pas assez puissant?
Avatar de l’utilisateur
cederavic
Messages : 1338
Inscription : lun. 09/févr./2004 23:38
Localisation : Bordeaux

Message par cederavic »

ben a mon avis, pour afficher des gadget, ce n'est pas un probleme de puissance... tu as ressayer?
Heero
Messages : 28
Inscription : sam. 24/avr./2004 18:21

Message par Heero »

par contre quand je supprime tous les menus et les gadget qui sont devant le gadget_minutechoix ben la il marche alors je ne comprend pas pourquoi ça ne marche pas esque ça peut venir du faite qu'il y'est different onglet ou ça a aucun rapport ?
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :

Message par Le Soldat Inconnu »

avec la correction de Chris, ça marche chez moi :wink:
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Heero
Messages : 28
Inscription : sam. 24/avr./2004 18:21

Message par Heero »

ça venait de l'ordi qui été pas assez puissant maintenant ça marche merci les gars c sympa
Répondre