La méthode FUNCTION

Vous savez utiliser les procédures en les définissant comme ceci :

Private Sub myprocedure()
End

Vous savez aussi qu'elles peuvent être PUBLIC (visible par toutes les form de votre projet) ou PRIVATE (visible par votre form seulement).

Par contre les procédures identifiée SUB ne doivent pas renvoyer de valeur par la méthode RETURN

Dans ce cas précis, n'utilisez pas SUB mais plutôt FUNCTION comme ceci :

Private Function myprocedure() as string
dim toto as string
Return toto
End

Ce n'est pas moi qui le dit, c'est la documentation qui le dit ICI

Merci pour votre attention.

un démineur en Gambas

Voici le célèbre jeu du démineur en Gambas3.
Le principe est simple cliquez sur une case dans la grille, un numéro s'affichera correspondant aux mines se trouvant dans 8 cases autour. Si vous cliquez sur une case contenant une bombe c'est perdu.
Si vous cliquez sur toutes les case sans bombe, c'est gagné
Vous aurez la possibilité de choisir le nombre de lignes et colonnes pour rendre plus complexe le jeu.
Réalisé en février 2022 en gambas 3.14

Télécharger les sources IC

Bonsoir a tous,

Une chaine pro sur gambas.

Accrochez vous, c 'est du lourd :

https://www.youtube.com/c/FabienBodard/videos

et merci a Fabien pour son immense travail au sein de l'equipe de developpeur gb.

Haiku est un excellent système d'exploitation, la suite gratuite et légendaire de BeOS.

Je vous propose de télécharger le live CD officiel.
Vous ne reconnaîtrez plus votre ordinateur tant la vitesse et le multitâche sont impressionants.

De plus, il existe maintenant des dépots (un genre de store) qui vous permet d'installer beaucoup d'applications.

Un must à avoir : Site officiel ICI

Une discussion est en cours sur un portage de notre crevette sur Haiku, mais les défits techniques sont nombreux, (rien que le fait que Haiku a son propre gestionnaire de fenêtre et n'utilise pas Xorg ou Xwindow).

Alain29200 nous propose sa chaine youtube pour apprendre gambas en français.
Des tutoriels intéressants, qui reprennent des notions essentielles qui s 'adressent particulièrement aux débutant sur l 'IDE gambas.

Le lien ICI.

Bon visionnage à tous.

Bonsoir,

Tous les programmeurs connaissent cet excellent site Github.

Retrouvez plein d 'exemples en gambas3 pour vous aider à programmer :

Le lien ici

Bibliothèque gambas

Voici une liste des livres parus pour gambas 1, 2 et 3.
Ils peuvent servir de base pour vos développements en gambas.

Aperçu	Description	Téléchargement
	Titre : LINUX ASIA 2006 Langage : Gambas 2 Auteur : Asia conference expo en 2006 Description : Ce livre est un diaporama visuel qui vous présente Gambas dans son ensemble. Langue : Anglaise. pages : 14	Télécharger le livre
	Titre : PROGRAMMER AVEC L'IDE GAMBAS 2 Langage : Gambas 2 Auteur : spheris Description : Ce petit livret est un tutoriel pour utiliser l'IDE de gambas. Il y décrit de façon claire et simple les actions à mener pour créer votre première application. Langue : Français pages : 8	Téléchrger le livret
	Titre: DE VISUAL BASIC A GAMBAS Langage : Gambas 2 Auteur : Un passionné de gambas qui se reconnaitra! Description : De visual basic à gambas est un livre de 78 pages qui explique avec clarté comment passer de visual Basic à gambas, avec des retours d'expérience et des astuces. Ce livre est vraiment simple à lire et à comprendre. Langue : Français. pages :78	Télécharger le livre
	Titre : A BEGINNER'S GUIDE TO GAMBAS Langage : Gambas 1 Auteur : Benoit minisini, Fabien bodard Description : La bible de Gambas en version 1. Pour poser les bonnes bases, je m'en sers encore aujourd'hui pour comprendre certaines fonctions ou commandes. Langue : Anglais pages :364	Télécharger le livre
	Titre : GAMBAS ALMOST MEANS BASIC! Langage : Gambas 1 Auteur : Benoit minisini et bien d'autres... Description : Un diaporama réalisé dans les débuts de gambas qui vous donne en détail le schéma de conception de gambas, sa philosophie ainsi que ses caractéristiques. Langue : Anglais pages : 15	Télécharger le livre
	Titre : DEVELOPING APPLICATION WITH GAMBAS Langage : Gambas 1 Auteur : forodejazz Description : Un livre de 16 pages qui donne un aperçu de gambas et de ses possibilités, un tutoriel bien documenté avec des copies d'écran et des exemples de code. A lire sans attendre. Langue : Anglais pages : 16	Télécharger le livre
	Titre :GETTING STARTED WITH GAMBAS 2 Langage : Gambas 2 Auteur : Timothy Marshal­Nichols Description : Un excellent livre pour apprendre les rouages de Gambas 2 avec des exmples de code et des copies d'écrans. Langue : Anglais pages : 110	Télécharger le livre
	Titre :GAMBAS PROGRAMMACION VISUAL CON SOFTWARE LIBRE Langage : Gambas 1.9 Auteur : Daniel Campos Fernández et José Luis Redrejo Description : Un livre professionnel édité par la maison de production EDIT LIN EDITORIAL SL sur gambas en 9 tomes, ici 9 fichiers PDF Langue : Espagnol pages : 297	Tome 1 Tome 2 Tome 3 Tome 4 Tome 5 Tome 6 Tome 7 Tome 8 Tome 9
	Titre :COMMANDES SQL AVEC SQLITE3 Langage : Gambas toutes versions Auteur : Taoteblue Description : Un tutoriel vraiement bien fait pour utiliser une base de données Sqlite3 Langue : Français pages : 3	Télécharger le livret
	Titre :GAMBAS LINUX BANGALORE 2004 Langage : Gambas 2 Auteur : Nalili vasudevan Description : Un livre très technique qui donne en détail l'architecture gambas, les caractéristiques du logiciel et surtout une comparaison avec son homologue sous win$. Un excellent livre à lire. Langue : Anglais pages : 6	Télécharger le livre

Les 5 types de boites messages

 

1- la boite DELETE

 

2- La boite ERREUR ou ERROR

 

3-  La boite INFORMATION

 

4- la boite QUESTION

 

5- la boite WARNING

Cette boite vous alerte d'un evènement.

Dans ces 5 cas, le fonctionnement est le même et c'est juste le nom de la fenêtre qui change et l'icone de notification.
La valeur renvoyé par la fenêtre est un nombre qui donne la position du bouton entre les virgules.

Un exemple :
dans  notre boite QUESTION voici le code :

myanswer = Message.Question("Are you sure?", "i don't know", "yes, why?", "no,i'm very sure!")

message.question(position 0, position 1, position 2,position 3)

la position 0 est le message
la position 1 est le premier bouton
la position 2 est le deuxième bouton
la position 3 est le 3eme bouton

Lors d'un clic sur un bouton, myanswer prendra la valeur du bouton sélectionné.

6 - la boite Option ou optional

 

Cette boite est un peu particulière et demande d'avoir le composant gb.settings coché.
Cette boite sert si vous utilisez souvent une fonction qui demande à être validé souvent.
Vous pouvez cocher la checkbox, qui vous autorisera par défaut.
La valeur sera ainsi écrite dans votre fichier setting.conf.

Voici le code de cet exemple:

' Gambas class file


Public Sub bdelete_Click()
Dim myanswer As Integer
myanswer = Message.Delete("Delete it?", "no", "yes", "help me mama, i'm scared")
Select Case myanswer
  Case 1 'if i clic on NO
  
  Case 2 'if i clic on YES
  
  Case 3 ' if i clic on HELP ME...
    
End Select
End



Public Sub Form_Open()
Me.Center()
End

Public Sub berror_Click()
Dim myanswer As Integer
Message.Error("An error is occured in module 654F64, do you want to restart windows?", "i can't", "impossible to reboot", "i'm crying")
Select Case myanswer
  Case 1 'if i clic on I CAN'T
  
  Case 2 'if i clic on IMPOSSIBLE...
  
  Case 3 ' if i clic on IM CRYING...
    
End Select
End



Public Sub binfo_Click()
Dim myanswer As Integer
myanswer = Message.Info("Info : ssky is blue", "Sure")
If myanswer = 1 Then Print "clic on sure"
End

Public Sub boption_Click()
Dim myanswer As Integer
Message.Optional("Do you want to do this action every minute", "Why not", "TOTO/TITI", "icon:/32/add", True)
If myanswer = 1 Then Print "clic on WHY NOT"
End

Public Sub bquestion_Click()
Dim myanswer As Integer
myanswer = Message.Question("Are you sure?", "i don't know", "yes, why?", "no,i'm very sure!")
Select Case myanswer
  Case 1 'if i clic on I DON'T KNOW
  
  Case 2 'if i clic on YES...
  
  Case 3 ' if i clic on NO,...
    
End Select
End

Public Sub bwarning_Click()
Dim myanswer As Integer
myanswer = Message.Warning("Warning, your hand is in my...", "excuse me", "was it your..?", "it's not me")
Select Case myanswer
  Case 1 'if i clic on EXCUSE ME
  
  Case 2 'if i clic on WAS IT..
  
  Case 3 ' if i clic on ITS NOT...
    
End Select
End

Public Sub bclose_Click()
Me.Close()
End

Vous pouvez télécharger les sources de ce petit exemple ICI
(si le fichier ne s'ouvre pas, renommez le en exemple.tar.gz, merci)
 

Merci pour votre attention
 

Voici une première version de cet éditeur de partition.

Pour l 'utiliser, sélectionnez simplement dans la palette une note, puis montez la ou descendez la avec les touches 'M ' ou 'L ' puis validez par ENTREE sa poistion.
Et ainsi de suite.
Si vous vous trompez, sélectionnez la note dans la liste de gauche puis L ou M.

Bonsoir,

Une petite information que vous connaissez peut être déjà mais pour avoir la dernière version de gambas, il vous suffit d 'ajouter les dépots gambas et de réinstaller gambas comme ceci.

Ouvrez un terminal et taper ces 3 commandes :


sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y

Merci pour votre attention

J 'ai découvert une fonction super pratique pour redimensionner n 'importe quelle image.

il vous suffit d 'écrire ce code :

Private Function Iresize($file As String, s As Integer) As Picture
Dim i As Image
i = Picture[$pic &amp $file].Image.Stretch(s, s)
Return i.Picture
End

et d 'appeler cette fonction simplement comme ceci :

Dim monimage as picture
monimage = iresize(monfichierimage, tailleenpixel)

exemple :

monimage = iresize( icone.png , 32)

Voilà pour aujourd 'hui.

Private z As Integer = 5


Public Sub Button1_Click()
DrawingArea1.Clear()
DrawingArea1.Refresh
End

Public Sub DrawingArea1_Draw()
qr
corner(1, 1)
corner(58, 1)
corner(1, 58)
mire(30, 5) 'top
mire(30, 30) 'center
mire(30, 56) 'bottom
mire(5, 30) 'left
mire(56, 30) 'right
mire(56, 56) 'right
End

Private Sub corner(mx As Integer, my As Integer)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.White
Draw.FillColor = Color.White
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z - z, my * z - z, 9 * z, 9 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.Black
Draw.FillColor = Color.Black
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z, my * z, 7 * z, 7 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.White
Draw.FillColor = Color.White
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z + z, my * z + z, 5 * z, 5 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.Black
Draw.FillColor = Color.Black
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z + 2 * z, (my * z) + 2 * z, 3 * z, 3 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
End

Private Sub mire(mx As Integer, my As Integer)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.Black
Draw.FillColor = Color.Black
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z, my * z, 5 * z, 5 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.White
Draw.FillColor = Color.White
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z + z, my * z + z, 3 * z, 3 * z)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.Black
Draw.FillColor = Color.Black
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z + 2 * z, (my * z) + 2 * z, z, z)
Draw.LineStyle = 1
Draw.LineWidth = 1
End

Private Sub qr()
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 1 To 64
  For b = 1 To 64
  c = Rnd(0, 2.1)
  If c < 0.5 Then
  Pblack(a, b)
  Endif
  If c > 0.5 Then
  Pwhite(a, b)
  Endif
Next
Next
End

Private Sub Pblack(mx As Integer, my As Integer)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.Black
Draw.FillColor = Color.Black
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z, my * z, z, z)
Draw.LineStyle = 1
Draw.LineWidth = 1
End


Private Sub Pwhite(mx As Integer, my As Integer)
Draw.LineStyle = 1
Draw.LineWidth = 1
Draw.foreground = Color.white
Draw.FillColor = Color.white
draw.FillStyle = Fill.Solid
Draw.Rect(mx * z, my * z, z, z)
Draw.LineStyle = 1
Draw.LineWidth = 1
End

Public Sub Timer1_Timer()
DrawingArea1.Clear()
DrawingArea1.Refresh
End

Public Sub Button2_Click()
Timer1.Start()
End

Public Sub Button3_Click()
Timer1.Stop()
End

Vous remarquerez que depuis gambas 3.5, le dessin se fait directement dans l'évènement draw de la drawarea.

merci pour votre attention

Public Sub fileView1_Icon(Path As String)End

Public Sub fileView1_Icon(Path As String)If path = System.User.Home Then fileView1.Icon = picture[ computer.xpm ]EndIfEnd

2- réagir au double clic.

If Right(Stat(ficon.Current).Perm[System.User.Home], 1) =  x  Then  'test if executable

 If IsDir(ficon.Current) Then  'test if folder

  mymime = DesktopMime.FromFile(ficon.Current).Type)

1- introduction.

2- Où sont les composant.

3- LEQUEL choisir?

• pour faire des interfaces en qt utilisez gb.qt5
• Pour faire des interfaces en gtk utilisez gb.gtk ou gb.gtk3
• Pour laisser automatique gérer la bibliothèque graphique par gambas sélectionnez gb.gui
• Pour le traitement d 'image, cochez gb.image
• Pour la gestion du son cochez gb.sdl2
• Pour une appli d 'archivage, cochez gb.compress etc...

Découvrons ensemble Gambas3

Bonjour,

1- Introduction et notions requises.

2- Qu'est-ce que gambas ?

   
• Une interface puissante de programmation appelée IDE qui vous permet de concevoir votre interface, et de saisir votre code BASIC.
   
• Un compilateur qui va générer un exécutable qui vous permettra  d'exécuter votre programme comme une simple application classique.
   
• Un créateur de fichiers sources pour partager voter code, et même un  créateur de paquet au format de votre distribution pour partager un  fichier DEB ou RPM directement.

3- Avantage de gambas par rapport aux autres langages existants.

4- Passons à la pratique, installation de gambas.

   
• Application en ligne de commande : Ici vous pouvez créer une application qui s'exécutera dans un terminal ou en ligne de commande sans interface graphique.
   
•  Application de base de données : Votre application sera graphique et pourra accéder aux base de données.
   
• Application graphique : votre application sera graphique c'est à dire qu'elle utilisera la bibliothèque gtk ou qt. ce qui est génial, c'est que gambas choisi indépendamment ou l'une ou l'autre en fonction du bureau que vous utilisez.
   
• Application gtk2 : votre nouvelle application sera graphique et utilisera les composant de la bibliothèque gtk2.
   
• Application gtk3 :votre nouvelle application sera graphique et utilisera les composant de la bibliothèque gtk3.
   
• Application QT : votre nouvelle application sera graphique et utilisera les composant de la bibliothèque QT.
   
• Application SDL : Votre application sera essentiellement un jeu.
   
• Application web : Votre application sera une application web, c'est à dire que vous réaliserez des pages en gambas qui tourneront sur un serveur gambas et vous retournera des pages HTML. (une exemple est le forum français de gambas ici)
   
• Application web avec formulaire : pour réaliser des scripts CGI, pour faire des applications web, plus poussées.
   
• Application Subversion : Votre appli sera maintenue dans un dépot multiutilisateurs pour être développée en commun. 

6- Créons notre premier programme.

cette vidéo.