PureBasic

Forums PureBasic
Nous sommes le Lun 24/Sep/2018 12:34

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 3 messages ] 
Auteur Message
 Sujet du message: Exemple simple : Introduce Yourself
MessagePosté: Ven 06/Juil/2018 14:43 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 27/Jan/2004 10:07
Messages: 877
Bonjour,

Pour tester un peu les principes de SB et puis parce que j'ai pas fait de PB depuis la préhistoire, je me suis amusé à faire cet exemple simple. Bon, pour la vérification des champs je ne suis pas allé chercher très loin, j'ai fait vraiment simple.

Le code :

Code:
;*** Introduce Yourself                   
;*** Example program To learn SpiderBasic
;*** Self Learning
;*** Author : Crystal Noir  Inspired by : Xojo examples

;Constantes
Enumeration
  #mainWindow
  #txtFirstName
  #txtLastName
  #txtBirthYear
  #fldFirstName
  #fldLastName
  #fldBirthYear
  #btnIntroduce
EndEnumeration

;Déclarations
Declare Start() ;Amorçage du programme par la création de la fenêtre
Declare IntroduceMe() ;On présente l'utilisateur

;On démarre
Start()

Procedure Start()
  ;Si la fenêtre est créée on fait l'interface
  If OpenWindow(#mainWindow,0,0,300,180,"Introduce Yourself")
    TextGadget(#txtFirstName,30,20,80,20,"First Name:", #PB_Text_VerticalCenter | #PB_Text_Right)
    TextGadget(#txtLastName,30,60,80,20,"Last Name:", #PB_Text_VerticalCenter | #PB_Text_Right)
    TextGadget(#txtBirthYear,30,100,80,20,"Birth Year:", #PB_Text_VerticalCenter | #PB_Text_Right)
   
    StringGadget(#fldFirstName,130,20,100,20,"")
    StringGadget(#fldLastName,130,60,100,20,"")
    StringGadget(#fldBirthYear,130,100,100,20,"")
   
    ButtonGadget(#btnIntroduce,130,140,100,20,"Introduce")
    BindGadgetEvent(#btnIntroduce,@IntroduceMe())
  EndIf
EndProcedure

Procedure IntroduceMe()
  If GetGadgetText(#fldFirstName) <> "" And GetGadgetText(#fldLastName) <> "" And GetGadgetText(#fldBirthYear) <> "" And Val(GetGadgetText(#fldBirthYear)) > 0
    ;On nettoie la fenêtre de debug
    ClearDebugOutput()
    ;On récupère l'année en cours
    today = Year(Date())
    ;On assemble le nom complet de l'utilisateur
    fullName$ = GetGadgetText(#fldFirstName) + " " + GetGadgetText(#fldLastName)
    ;On calcule l'âge
    currentAge = today - Val(GetGadgetText(#fldBirthYear))
    ;On présente l'utilisateur
    Debug("Bonjour, tu es " + fullName$)
    Debug("et tu auras " + Str(currentAge) + " ans en " + Str(today) + " !")
  ElseIf Val(GetGadgetText(#fldBirthYear) ) = 0
    Debug("L'année de naissance doit être un nombre, et supérieure à 0 !")
  Else
    Debug("Il faut remplir tous les champs !")
  EndIf
EndProcedure


Le résultat :
https://zupimages.net/up/18/27/rsry.jpg

C'est un exemple tout bête mais si ca peut aider les débutants à entamer un premier programme et voir les principes de base... :)


Dernière édition par Crystal Noir le Ven 06/Juil/2018 19:21, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Exemple simple : Introduce Yourself
MessagePosté: Ven 06/Juil/2018 19:18 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6545
Localisation: Isere
Tu vois, c'est pas si dur de refaire du vélo :wink:
Enchanté Crystal "i'm happy to meet you" :mrgreen:

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Exemple simple : Introduce Yourself
MessagePosté: Ven 06/Juil/2018 21:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 27/Jan/2004 10:07
Messages: 877
Disons que la prog j'en ai fait depuis mais c'était des vélos très différents :mrgreen:


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 3 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye