none
Probleme avec mon programme2 RRS feed

  • Question

  • Bonjours à tous,

    Voilà je me lance dans la programmation avec Small Basic, et comme tout bon début je commence par des basics ! 

    Je ne suis pas tout à fait alaise, mais je veux créer un "Juste prix" basé sur l'heure .

    nbr1 = Clock.Hour
    nbr2 = Clock.Millisecond
    nbr3 = nbr1 + nbr2
    Nombre = nbr1 + nbr3 - nbr2
    
    Bouton =Controls.AddButton("Entrez", 300, 295)
    Text =Controls.AddTextBox(130, 300)
    
    Début:
    
    
    If Controls.LastClickedButton = Bouton Then
      
      Test = Controls.GetTextBoxText(Text)
    
    EndIf
    
    
    If Test > Nombre Then
      GraphicsWindow.DrawBoundText(200, 200, 200, "Trop grand")
      TextWindow.Pause()
        GraphicsWindow.Clear()
      Bouton = Controls.AddButton("Entrez", 300, 295)
    Text =Controls.AddTextBox(130, 300)
      Goto Début
    EndIf
    
    If Test < Nombre And Test > 0 Then
      GraphicsWindow.DrawBoundText(200, 200, 200, "Trop petit")
      TextWindow.Pause()
        GraphicsWindow.Clear()
      Bouton = Controls.AddButton("Entrez", 300, 295)
    Text =Controls.AddTextBox(130, 300)
      Goto Début
    EndIf
    
    if Test = Nombre Then
      GraphicsWindow.DrawBoundText(200, 200, 200, "Gagné !")
    Program.End()
    EndIf
    

    Voici mon code, (Primaire je vous l'accorde) Mais lors de l’exécution un problème se pose, aucune phrase n’apparaît, je ne sais donc pas si le nombre que j'ai rentré est trop grand ou trop petit ! 

    Si quelqu'un peut m'aider, ou même connait des formules plus simple pour m'éviter tant de détour, Merci d'avance. 

    Valentin .

    mardi 8 mai 2012 17:12

Réponses

Toutes les réponses