[SpiderBasic] - Exemple simple : Introduce Yourself

Partagez votre expérience de SpiderBasic avec les autres utilisateurs.
Avatar de l’utilisateur
Crystal Noir
Messages : 880
Inscription : mar. 27/janv./2004 10:07

[SpiderBasic] - Exemple simple : Introduce Yourself

Message par Crystal Noir »

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 : Tout sélectionner

;*** 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 modification par Crystal Noir le mer. 09/mars/2022 19:59, modifié 2 fois.
Avatar de l’utilisateur
Kwai chang caine
Messages : 6906
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Exemple simple : Introduce Yourself

Message par Kwai chang caine »

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
Avatar de l’utilisateur
Crystal Noir
Messages : 880
Inscription : mar. 27/janv./2004 10:07

Re: Exemple simple : Introduce Yourself

Message par Crystal Noir »

Disons que la prog j'en ai fait depuis mais c'était des vélos très différents :mrgreen:
chikega
Messages : 4
Inscription : jeu. 19/août/2021 5:14

Re: Exemple simple : Introduce Yourself

Message par chikega »

Il semble que " #PB_Text_VerticalCenter" n'est pas reconnu par le compiler. :?

"Constant not found"
Marc56
Messages : 2007
Inscription : sam. 08/févr./2014 15:19

Re: Exemple simple : Introduce Yourself

Message par Marc56 »

chikega a écrit : jeu. 30/sept./2021 5:09 Il semble que " #PB_Text_VerticalCenter" n'est pas reconnu par le compiler. :?

"Constant not found"
:arrow: SpiderBasic

:wink:
PB Latest version - Win 10 family x64 - Linux Debian, Slackware (VirtualBox & WSL) / W10 - Raspberry Raspbian
Intel i7-8700 CPU @ 3.20GHz - 48 GB - Nvidia RTX 3050 OC 8GB - Asus VP348 3440 x 1440 - DPI 100%
chikega
Messages : 4
Inscription : jeu. 19/août/2021 5:14

Re: Exemple simple : Introduce Yourself

Message par chikega »

Ben alors ... saperlipopette! :D
Avatar de l’utilisateur
Crystal Noir
Messages : 880
Inscription : mar. 27/janv./2004 10:07

Re: [SpiderBasic] - Exemple simple : Introduce Yourself

Message par Crystal Noir »

J'ai édité le sujet pour que cela soit plus parlant.
Répondre