Modulos
Voici un petit jeu sympa pour mes matheux.
Il suffit de trouver un nombre dont le résultat ...
Enfin, je vous laisse découvrir.
Voici un petit jeu sympa pour mes matheux.
Il suffit de trouver un nombre dont le résultat ...
Enfin, je vous laisse découvrir.
voici une aide sur l 'ide et une premiere approche de GAMBAS
A telecharger ICI
PUBLIC SUB _new() END PUBLIC SUB form_OPEN() END PUBLIC SUB button1_click() quit END PUBLIC SUB form_keypress() DIM ltext AS variant ltext = key.text label2.text = ltext END PUBLIC SUB form_keyrelease() DIM ltext AS variant ltext = key.text label2.text = ltext END |
Form1.SetFocus()
Ancienne version au 24/04/2009 ICI
Le principe du jeu est simple .
Le compte à rebour commence et vous devez taper la touche correspondant à la lettre.
vous avez 10 secondes.
A vous de jouer.
Un excellent site de ressources gambas ou vous pourrez decouvrir beaucoup de tutoriels, vraiment tres complet:
Edition du 19 juinn 2022 : le lien ne fonctionne plus, dommage.
Bonjour a tous.
Un tutoriel sur la communication avec le port serie en gambas.
Un excellent site pour des ressources en electronique. A visiter sans attendre.
Voici un jeux pour gambas, célèbre jeux adapté sur plusieurs plates formes.
Voici le jeux et les sources sous gambas ICI à télécharger.
Merci au concepteur ' 'Popaul ' '.);
PUBLIC SUB form_OPEN() textbox1.text = moduletransfert.texte |
PUBLIC SUB button1_click() form1.ajoutexte(textbox1.text) END |
PUBLIC SUB form1_ajoutexte(montexte AS String) textbox1.text = montexte END |
ColumnView1.Columns.Count = 4
ColumnView1.Columns[0].Width = 200
ColumnView1.Columns[0].Text = "colonne 1"
IF columnview1.exist[numkey] THEN columnview1.remove(numkey) END if |
PUBLIC SUB columnview_keypress() IF key.code = key.delete and columnview.count <> 0 THEN IF message.question("etes-vous sur de vouloir supprimer cette ligne ?", "oui", "non") = 1 THEN columnview.current.delete ENDif ENDif END |
PUBLIC SUB Button1_Click() ListBox1.Add(TextBox1.text) TextBox1.text = "mon texte" END
PUBLIC SUB ListBox1_Click() TextBox1.text = ListBox1.Text copier le texte selectionné de la liste dans la textbox END PUBLIC SUB Button2_Click() ListBox1.Text = TextBox1.Text END
PUBLIC SUB Button3_Click() ListBox1.Remove(ListBox1.index) END
PUBLIC SUB Button4_Click() ListBox1.clear() END
AU GOLF
);