Recherche sur le site
Conseil...
Aide en ligne
popaul, le 10-09-2005 à 16:52:20
Salut !
Je voudrais programmer en Gambas. J' ai vu que c'est voisin du Visual Basic 6.0 Je voudrais avoir des "Livres" de cette programmation ou des programmes en Gambas pour pouvoir étudier ce langage. Qui contacter ? Ou s' adresser ?
Merci
Je voudrais programmer en Gambas. J' ai vu que c'est voisin du Visual Basic 6.0 Je voudrais avoir des "Livres" de cette programmation ou des programmes en Gambas pour pouvoir étudier ce langage. Qui contacter ? Ou s' adresser ?
Merci
J' ai tout appris sur le tas....Maintenant à 67 ans je dors dessus !
Jamdess, le 10-09-2005 à 23:48:58
salut voici le lien vers le sourceforge de gambas : http://gambas.sourceforge.net/
Pour la doc, il me semble que si tu suis le lien "documentation" ensuite wiki, tu auras des infos pour t'aider à programmer.
A++
BenLog
Pour la doc, il me semble que si tu suis le lien "documentation" ensuite wiki, tu auras des infos pour t'aider à programmer.
A++
BenLog
Admin SoSLinux
popaul, le 12-09-2005 à 18:23:08
Bonjour !
Vous m' avez donné votre Mail dans une réponse à ma question. " Comment programmer en Gambas " ??? Je n'ai pas pu vous joindre Je viens vous donner quelques explications.
Je voudrais avoir un " Livre " traitant de la programmation en Gambas comme pour mon Visual Basic 3.0 ( Manuel de Référence )
j' ai regardé des Listings en Gambas mais je ne vois pas très bien comment écrire dans les Sub comme je n' ai pas la "Feuille " en visuel.
C'est à partir du livre que j' ai fait des EXE -- calculs grammaire conjugaisons jeux etc.... J' ai appris tout seul !!!!
J' ai aussi le Visual Basic 6.0 je m' en sers quand je veux des EXE avec sons ou vidéos. ( j' espère qu'il y a la même chose en Gambas )
Pour vous donner un exemple je vous mets dessous le Listing en VB6 d' un Taquin que j' ai écrit
J' ai tout fait moi-même je n' ai pas copiè un bout de Listing Si j' ai un "Livre de Références " pour le Gambas ( même en anglais ) je pense que je pourrai
refaire ces EXE jeux etc... et en faire profiter ceux que ça intéresse.
Je veux savoir si je peux faire ces EXE avant d' investir dans un nouvel ordinateur ou un nouveau portable marchant avec Linux et Windows.
Merci de bien vouloir me répondre et de m'indiquer où je peux trouver ces documentations.
J-B
Private Declare Function mciExecute Lib "WINMM.DLL" (ByVal lpstrCommand As String) As Long
Dim change, departhaut, departlarge As Integer
Dim arrivehaut, arrivelarge As Integer
Dim voir As Integer
Dim lettre(14) As String
Private Sub carre_Click(index As Integer)
For t = 0 To 14
quel = carre(t).Caption
If quel = " " Then
change = t
Exit For
End If
Next
departhaut = carre(change).Top
departlarge = carre(change).Left
arrivehaut = carre(index).Top: arrivelarge = carre(index).Left
distance = Sqr((departhaut - arrivehaut) ^ 2 + (departlarge - arrivelarge) ^ 2)
If distance < 2200 And distance > 1100 Then
carre(change).Caption = carre(index).Caption
carre(index).Caption = " "
carre(change).BackColor = &HC0C0C0
carre(index).BackColor = QBColor(15)
End If
E02_Click
End Sub
Private Sub CmdFin_Click()
Unload Me
End Sub
Private Sub Commande1_Click()
If Not voir Then
E04.Visible = True
E02.Visible = True
E03.Visible = True
Commande1.Caption = "cacher"
Else
E04.Visible = False
E02.Visible = False
E03.Visible = False
Commande1.Caption = "Voir"
For s = 0 To 14
carre(s).BackStyle = 1
carre(s).Caption = lettre(s)
Next
End If
voir = Not voir
End Sub
Private Sub E02_Click()
Dim phrase As String
For s = 0 To 14
lettre(s) = carre(s).Caption
phrase = phrase + carre(s).Caption
Next
'E01.Caption = phrase
If phrase = "ALLEZZIZOUGOAL " Then
E04.Visible = False
E02.Visible = False
E03.Visible = False
For s = 0 To 14
carre(s).BackStyle = 0
carre(s).Caption = ""
Next
but = "Play Goooal.wav"
Zidane = mciExecute(but)
End If
End Sub
Private Sub E04_DblClick()
E04.Visible = False
E02.Visible = False
E03.Visible = False
For s = 0 To 14
lettre(s) = carre(s).Caption
carre(s).BackStyle = 0
carre(s).Caption = ""
Next
End Sub
Private Sub Form_Load()
For s = 0 To 14
lettre(s) = carre(s).Caption
carre(s).FontSize = 80
Next
End Sub
Vous m' avez donné votre Mail dans une réponse à ma question. " Comment programmer en Gambas " ??? Je n'ai pas pu vous joindre Je viens vous donner quelques explications.
Je voudrais avoir un " Livre " traitant de la programmation en Gambas comme pour mon Visual Basic 3.0 ( Manuel de Référence )
j' ai regardé des Listings en Gambas mais je ne vois pas très bien comment écrire dans les Sub comme je n' ai pas la "Feuille " en visuel.
C'est à partir du livre que j' ai fait des EXE -- calculs grammaire conjugaisons jeux etc.... J' ai appris tout seul !!!!
J' ai aussi le Visual Basic 6.0 je m' en sers quand je veux des EXE avec sons ou vidéos. ( j' espère qu'il y a la même chose en Gambas )
Pour vous donner un exemple je vous mets dessous le Listing en VB6 d' un Taquin que j' ai écrit
J' ai tout fait moi-même je n' ai pas copiè un bout de Listing Si j' ai un "Livre de Références " pour le Gambas ( même en anglais ) je pense que je pourrai
refaire ces EXE jeux etc... et en faire profiter ceux que ça intéresse.
Je veux savoir si je peux faire ces EXE avant d' investir dans un nouvel ordinateur ou un nouveau portable marchant avec Linux et Windows.
Merci de bien vouloir me répondre et de m'indiquer où je peux trouver ces documentations.
J-B
Private Declare Function mciExecute Lib "WINMM.DLL" (ByVal lpstrCommand As String) As Long
Dim change, departhaut, departlarge As Integer
Dim arrivehaut, arrivelarge As Integer
Dim voir As Integer
Dim lettre(14) As String
Private Sub carre_Click(index As Integer)
For t = 0 To 14
quel = carre(t).Caption
If quel = " " Then
change = t
Exit For
End If
Next
departhaut = carre(change).Top
departlarge = carre(change).Left
arrivehaut = carre(index).Top: arrivelarge = carre(index).Left
distance = Sqr((departhaut - arrivehaut) ^ 2 + (departlarge - arrivelarge) ^ 2)
If distance < 2200 And distance > 1100 Then
carre(change).Caption = carre(index).Caption
carre(index).Caption = " "
carre(change).BackColor = &HC0C0C0
carre(index).BackColor = QBColor(15)
End If
E02_Click
End Sub
Private Sub CmdFin_Click()
Unload Me
End Sub
Private Sub Commande1_Click()
If Not voir Then
E04.Visible = True
E02.Visible = True
E03.Visible = True
Commande1.Caption = "cacher"
Else
E04.Visible = False
E02.Visible = False
E03.Visible = False
Commande1.Caption = "Voir"
For s = 0 To 14
carre(s).BackStyle = 1
carre(s).Caption = lettre(s)
Next
End If
voir = Not voir
End Sub
Private Sub E02_Click()
Dim phrase As String
For s = 0 To 14
lettre(s) = carre(s).Caption
phrase = phrase + carre(s).Caption
Next
'E01.Caption = phrase
If phrase = "ALLEZZIZOUGOAL " Then
E04.Visible = False
E02.Visible = False
E03.Visible = False
For s = 0 To 14
carre(s).BackStyle = 0
carre(s).Caption = ""
Next
but = "Play Goooal.wav"
Zidane = mciExecute(but)
End If
End Sub
Private Sub E04_DblClick()
E04.Visible = False
E02.Visible = False
E03.Visible = False
For s = 0 To 14
lettre(s) = carre(s).Caption
carre(s).BackStyle = 0
carre(s).Caption = ""
Next
End Sub
Private Sub Form_Load()
For s = 0 To 14
lettre(s) = carre(s).Caption
carre(s).FontSize = 80
Next
End Sub
J' ai tout appris sur le tas....Maintenant à 67 ans je dors dessus !
Jamdess, le 12-09-2005 à 19:17:41
désolé, pas moyen de trouver un "manuel" version papier, j'ai cherché pourtant.
Tout ce que je peux faire c'est te donner des liens vers des sites qui traitent de ce sujet, qui donnent des exemples, etc...
manucorp.com
linuxfocus
Tout ce que je peux faire c'est te donner des liens vers des sites qui traitent de ce sujet, qui donnent des exemples, etc...
manucorp.com
linuxfocus
Admin SoSLinux