newgame
Messages postés52Date d'inscriptionlundi 2 février 2009StatutMembreDernière intervention24 juillet 2013
-
9 avril 2009 à 23:30
newgame
Messages postés52Date d'inscriptionlundi 2 février 2009StatutMembreDernière intervention24 juillet 2013
-
11 avril 2009 à 21:04
bonjour
je suis débutant en VB6 et j'ai besoin
de crée un pgm basic ou l'on remplit
la classe puis on affiche résultat
moy dans un label après avoir cliquer sur un
bouton.
pour ne pas faire long je bloque lors de l'appuis
du bouton de commande le résulta ne s'affiche pas dans le label et voilà mon pgm
ça c'est la création de la classe"etudiant"
'variables locales de stockage des valeurs de propriétés
Private mvarnom As String 'copie locale
Private mvarage As Integer 'copie locale
Private mvarmoy As Double 'copie locale
Private mvarcin As Integer 'copie locale
Public Sub calcul(n1 As Integer, c1 As Integer, n2 As Integer, c2 As Integer)
moy = (n1 * c1 + n2 * c2) / ((c1 + c2) / 2)
End Sub
Public Property Let cin(ByVal vData As Integer)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.cin = 5
mvarcin = vData
End Property
Public Property Get cin() As Integer
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.cin
cin = mvarcin
End Property
Public Property Let moy(ByVal vData As Double)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.moy = 5
mvarmoy = vData
End Property
Public Property Get moy() As Double
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.moy
moy = mvarmoy
End Property
Public Property Let age(ByVal vData As Integer)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.age = 5
mvarage = vData
End Property
Public Property Get age() As Integer
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.age
age = mvarage
End Property
Public Property Let nom(ByVal vData As String)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.nom = 5
mvarnom = vData
End Property
Public Property Get nom() As String
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.nom
nom = mvarnom
End Property
et ça le programme de form1
Set etud = New etudiant
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 10 avril 2009 à 00:26
Salut
Tu as inversé le Dim et le Set de ta classe :
Le Dim dans la partie déclaration de ta forme
Le Set dans le Form_Load
+ Ta Sub Calcul ne sert à rien
De toute façon, tu ne dois même pas pouvoir faire tourner ça ... le compilateur doit le refuser.
Pourquoi veux-tu passer par une Classe pour calculer une moyenne ? drôle d'idée
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)