Gambas France BETA


Pas de compte ? Incription

Projet de lancement de dé pour Jdr =)

12
AuteurMessages
antoinnneee#1 Posté le 31/5/2011 à 20:20:00
Bonsoir tout le monde,
Je me suis mis a gambas depuis peu et j'ai commencé à faire un petit programme.
Ce programme consiste a lancer des dés et il y a aussi une calculette.
je me retrouve sur un problème. je voudrais que la valeur du dé lancé soit envoyée dans la calculette.
voici le fichier source :
http://www.fileserve.com/file/U7wWVmw]File name: dee-1.0.1.tar.gz File size: 1.19 MB[/url]
merci d'avance
antoinnneee#2 Posté le 3/6/2011 à 11:08:00
up
spheris#3 Posté le 3/6/2011 à 11:57:00
antoinneee,

il te suffit dans ta méthode émettrice (par exemple le click du bouton 2 ) d'envoyer ta valeur (pour cet exemple je prends la variable maxi) comme ceci :

1
PUBLIC SUB Button2_Click() maxi = 5 textfumble Button2.Caption = fumble fumble = 0formcalcul.remplircal(maxi) ' cest ici l'envoi de la variableEND


puis de créer une méthode dans la feuille de la calculatrice qui recevra ta variable comme ceci :

1
PUBLIC SUB remplircal(mavaleur AS INTEGER) TextBox2.Text = mavaleurformcalcul.ShowEND


A bientôt
;) ;)
antoinnneee#4 Posté le 3/6/2011 à 12:56:00
Merci Spheris[strike] mais quand je fais ce que tu dis, je tombe sur une erreur:"unknox identifier textbox2"[/strike]
je me suis trompé d'endroit je l'avais mal placé.
Ca marche mais j'ai la calculette qui se déplace a chaque foi que je lance le bouton.
et les valeurs insérées dans la calculatrice ne sont pas pris en compte.
source après modifications :
http://www.fileserve.com/file/pPGJDhM]File name: dee-1.0.2.tar.gz File size: 1.19 MB[/url]
merci
spheris#5 Posté le 3/6/2011 à 22:14:00
Antoinneee,
pour ma part (voir lien vidéo ci dessous) je ne constate pas de déplacement de la calculette.

http://gambaslinux.eg2.fr/img/heberger/dee.ogv

et les valeurs insérées dans la calculatrice ne sont pas pris en compte.


Peux-tu préciser ta réponse, je ne comprends pas bien le sens ?
A+
;) ;)
antoinnneee#6 Posté le 3/6/2011 à 22:31:00
je vais faire une vidéo pour te montrer
comment on héberge une vidéo?
spheris#7 Posté le 4/6/2011 à 10:17:00
antoinnneee,
ok si tu veux....
La vidéo ne fonctionne t elle pas chez toi ?
;) ;)
antoinnneee#8 Posté le 4/6/2011 à 10:39:00
si,
Mais quand je lance un chiffre il vient dans la Textbox et quand je fais + un truc il est pris pour 0

Edition :
Je viens de m'apercevoir que ma calculette ne marche pas/plus.
antoinnneee#9 Posté le 4/6/2011 à 11:04:00
j'ai réglé le problème à moitié.
je suis passé à la version 3 de Gambas.
la calculatrice qui se déplaçait ne se déplace plus.
les calculs marchent mais les chiffre qui viennent des boutons ne sont pas pris en compte.

Fichier source après modif: http://www.fileserve.com/file/Kuq9UWD]fileserve.com Kuq9UWD[/url]
antoinnneee#10 Posté le 4/6/2011 à 13:58:00
J'ai résolu le problème.
la solution est là :
Public Sub remplircal(mavaleur As Integer) ' Gambas module file

contenu = mavaleur
textBox2.Text = mavaleur
formcalcul.Show
End


Merci spheris pour ton aide.
antoinnneee#11 Posté le 2/2/2012 à 14:04:19
Apres un long moment d' absence j' ai repris la programmation de ma petite application et je cherche comment pouvoir lancer 2 musique simultanément (quand je lance la 2eme la premiere s'arete).
Merci d'avance
spheris#12 Posté le 2/2/2012 à 23:23:17
Ta lan !!!!

http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=843
antoinnneee#13 Posté le 3/2/2012 à 20:28:18
bon j'ai essayé plusieur truc mais je n'arrive pas a utilisé le channel
voila mon code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
PUBLIC Musique AS NEW Music



PUBLIC SUB Form_Open()



END

PUBLIC SUB ButtonPlay_Click()

Musique.Play()

END


PUBLIC SUB ButtonStop_Click()

Musique.Stop()

END

PUBLIC SUB ButtonPause_Click()

Musique.Pause()

END


PUBLIC SUB ComboBoxAir_Change()

IF ComboBoxAir.Index = 1 THEN
Musique.Load("/musique/air/vent.it")
ENDIF

IF ComboBoxAir.Index = 2 THEN
Musique.Load("musique/air/Songrosvent.it")
ENDIF

IF ComboBoxAir.Index = 3 THEN
Musique.Load("musique/air/aigle+ventl.it")
ENDIF

IF ComboBoxAir.Index = 4 THEN
Musique.Load("musique/air/corneilles.it")
ENDIF

END


(j'ai plusieur combobox)
merci pour le lien meme si j'ai pas compris comment faire ^^
linuxos#14 Posté le 3/2/2012 à 23:00:52
Un peu de sel, de poivre et la crevette sera... Petite remarque:

C'est plus simple comme cela:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PUBLIC SUB ComboBoxAir_Change()

SELECT CASE ComboBoxAir.Index

CASE 1
Musique.Load("/musique/air/vent.it")

CASE 2
Musique.Load("musique/air/Songrosvent.it")

CASE 3
Musique.Load("musique/air/aigle+ventl.it")

CASE 4
Musique.Load("musique/air/corneilles.it")

END SELECT

END



Olivier
Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous.
antoinnneee#15 Posté le 3/2/2012 à 23:34:00
merci =) cela vas beaucoup allerger mon programme
12