Gambas France BETA


Pas de compte ? Incription

Appel de fonction

Ce sujet est résolu.

12
AuteurMessages
décapode#1 Posté le 14/12/2013 à 12:52:08
Salut la classe :sunny:

sur un appel de fonction j'ai une erreur "Missing As"

avec en début de programme
1
PUBLIC Contacts AS Collection

sur un appel
1
2
Contacts = NEW Collection
ContactRecord.GetData(Contacts)

de:
1
PUBLIC FUNCTION GetData(cTheData AS Collection) AS Collection

Avec :
1
ContactRecord.GetData(Contacts AS Collection) AS Collection

c'est pareil
vuott#2 Posté le 14/12/2013 à 18:23:19
Ne cedere ineluctabili possimusIf I write:
1
2
3
4
5
6
7
8
9
PUBLIC Contacts AS Collection

PUBLIC SUB Form_Open()
Contacts = NEW Collection
GetData(Contacts)
END

PUBLIC FUNCTION GetData(cTheData AS Collection) AS Collection
END


I don't obtain errors !
« Vita non suavis esse potest, nec Mors amara. »
décapode#3 Posté le 14/12/2013 à 18:35:05
Pardon, j'ai mal transcrit...
1
2
PUBLIC Contacts AS Collection
PUBLIC ContactRecord AS Collection

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
50
51
52
53
54
PUBLIC SUB _new()

'Instancier la collection qui contiendra nos enregistrements d'adresses
Contacts = NEW Collection

'Instancier un nouveau contact (enregistrement) qui est vide
ContactRecord = NEW Collection

'»Pour debug seulement As Collection
PRINT "Calling GetData..."

IF RecordPointer < 1 THEN
'Ajouter nos données factices
ContactRecord.FirstName = "Tony"
ContactRecord.Initial = "Q"
ContactRecord.LastName = "Picasso"
ContactRecord.Suffix = "II"
ContactRecord.Street1 = "12345 Gambas Drive"
ContactRecord.Street2 = "Apt 101"
ContactRecord.City = "Dancer"
ContactRecord.State = "TX"
ContactRecord.Zip5 = "77929"
ContactRecord.Zip4 = "0101"
ContactRecord.Areacode = "888"


ContactRecord.Prefix = "666"
ContactRecord.Last4 = "4444"
ContactRecord.RecordID = 1
ContactRecord.Deleted = FALSE
RecordPointer = ContactRecord.RecordID
Contacts.Add(ContactRecord, CStr(ContactRecord.RecordID))
ENDIF

'«Consulter notre collection de s'assurer que les enregistrements existent
IF Contacts.Exist(CStr(RecordPointer)) THEN
' »Pour debug seulement
PRINT "Record data exists for " & CStr(RecordPointer) & " records."
'Cette boucle est pour debug seulement
FOR EACH ContactRecord IN Contacts
PRINT ContactRecord.FirstName & " " & ContactRecord.LastName
NEXT
ELSE
'«Si aucun enregistrement, mettre en place une boîte de message pour informer l'utilisateur
Message.Info("Records do not exist!", "Ok")
ENDIF
END

'Appeler la méthode GetData défini dans la définition de classe de contact
ContactRecord.GetData(Contacts)

'«Régler le pointeur d'enregistrement au dernier enregistrement trouvé dans l'ensemble de données
RecordPointer = Contacts.Count
etc ....

1
2
PUBLIC FUNCTION GetData(cTheData AS Collection) AS Collection
etc...
décapode#4 Posté le 14/12/2013 à 19:02:15
déjà une erreur...
1
2
3
4
5
6
'Instancier un nouveau contact (enregistrement) qui est vide
ContactRecord = NEW Collection

'Plutôt :
'Instancier un nouveau contact (enregistrement) qui est vide
ContactRecord = NEW Contacts
décapode#5 Posté le 14/12/2013 à 19:13:59
Wouaaaaaaah ! :affraid:

Mes plantages m'ont tout mélanger mes lignes de codes, je vérifie tout
Reivillo#6 Posté le 15/12/2013 à 06:50:07
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour.

Tu devrais Indenter ton Code.
Il serait, beaucoup plus lisible.

Click Droit sur la Barre d'Outils,
(juste, au dessus de la Fenêtre de Code,
dans un espace libre)
puis Configurer.
et fait glisser les boutons,
Indenter et Désindenter, vers ta Barre d'Outils.

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
décapode#7 Posté le 15/12/2013 à 06:57:48
Salut
Ca, ça m’intéresse, mais je ne vois pas de bouton..
Reivillo#8 Posté le 15/12/2013 à 07:16:16
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Sont peut-être déjà sur ta barre d'Outils.
Visite ta barre d'outils pour voir.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
décapode#9 Posté le 15/12/2013 à 07:23:05
Je n'ai rien.


Tu veux rire, c'est je viens juste de terminer une application pour ça, justement parce que je ne trouvais pas cette fonction :lol:
Reivillo#10 Posté le 15/12/2013 à 07:27:11
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Autrement, si tu as pas:

En manuelle;
Sélectionner les ligne et,
Touche TAB pour Indenter.
Touches SHIFT+TAB pour Désindenter.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
décapode#11 Posté le 15/12/2013 à 07:32:05
La je préfère mon application...
Et pourquoi je ne l'ai pas ? Tu as quelle version ?
Attend, je reviens en modif, je suis pris d'un doute..., tu me parle d'une indentation ligne par ligne ou globale ?
Reivillo#12 Posté le 15/12/2013 à 07:38:43
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
décapode#13 Posté le 15/12/2013 à 07:42:26
Et ce bouton --> Button1_click, c'est quoi ?
Reivillo#14 Posté le 15/12/2013 à 07:44:01
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Ma version?
Regarde dans ma signature.
En bas de ce Message.

Indenter, Déindenter,
1 ou plusieurs lignes sélectionnées!
Pas d'importance.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#15 Posté le 15/12/2013 à 07:49:30
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »
Et ce bouton --> Button1_click, c'est quoi ?
C'est la SUB,
Public Sub Button1_Click(),
qui avait le Focus,
quand j'ai fait la Capture d'Ecran.

Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
12