Variable globale !!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Variable globale !!

ggeforce

Avec des si je coupe du bois !

salut
je debute en VB
je voudrais savoir comment on declare des variables globales
car quand je teste mon programme dans la fonction add() la variable num1 est bien stocker
mais apres dans la fonction resul()
si fenetre.text est 123456
num 1 => 12345
et num 2 => 123456

merci d'avance

Code :

' Declaration des variables
Dim resultat As Double
Dim num1 As Double
Dim num2 As Double
Dim signe As String
Private Sub add_Click()
num1 = fenetre.Text
fenetre.Text = ""
signe = "+"
End Sub
Private Sub chiffre_Click(index As Integer)
If fenetre.Text = "" Then
fenetre.Text = index
Else
num1 = fenetre.Text
fenetre.Text = num1 & index
End If
End Sub
Private Sub resul_Click()
If signe = "+" Then
resultat = Val(num1) + Val(num2)
fenetre.Text = resultat
signe = ""
ElseIf signe = "-" Then
num2 = fenetre.Text
resultat = Val(num1) - Val(num2)
fenetre.Text = resultat
signe = ""
End If
End Sub

Message édité par ggeforce le 04-06-2005 à 15:17:46

---------------
Feedback

Publicité

ggeforce

Avec des si je coupe du bois !

---------------
Feedback

scuny

public resultat As Double
public num1 As Double
public num2 As Double
public signe As String

essaye comme ca

ggeforce

Avec des si je coupe du bois !

j'ai essaiyer mais sa change rien
je tape mon chiffre puis je click sur "+"
je tape mon deusieme chiffre puis je click sur "="
donc il devrais faire si mes deux chiffres sont 2244 et 1133
numero_un = 2244
numero_deux = 1133
resultat = 3377

lui a la place me fait
numero_un = 2244
puis dans la fonction egal
numero_un = 113
numero_deux = 1133
resultat = 1246

form1

Code :

Private Sub Form_Load()
' Initialisation des variables a zero
fenetre.Text = ""
Module1.numero_un = 0
Module1.numero_deux = 0
Module1.resultat = 0
End Sub
Private Sub add_Click()
Module1.numero_un = fenetre.Text
fenetre.Text = ""
Module1.signe = "+"
End Sub
Private Sub dif_Click()
Module1.numero_un = fenetre.Text
fenetre.Text = ""
Module1.signe = "-"
End Sub
Private Sub chiffre_Click(index As Integer)
If fenetre.Text = "" Then
fenetre.Text = index
Else
Module1.numero_un = fenetre.Text
fenetre.Text = Module1.numero_un & index
End If
End Sub
Private Sub resul_Click()
Module1.numero_deux = fenetre.Text
Call Module1.fonction_egal
End Sub

module1

Code :

' Declaration des variables
Public resultat As Double
Public numero_un As Double
Public numero_deux As Double
Public signe As String
Sub fonction_egal()
If signe = "+" Then
'numero_deux = fenetre.Text
resultat = Val(numero_un) + Val(numero_deux)
Form1.fenetre = resultat
signe = ""
ElseIf signe = "-" Then
numero_deux = fenetre.Text
resultat = Val(numero_un) - Val(numero_deux)
fenetre.Text = resultat
signe = ""
End If
End Sub

Message édité par ggeforce le 06-06-2005 à 10:44:05

---------------
Feedback

ggeforce

Avec des si je coupe du bois !

---------------
Feedback

scuny

sur la ligne 31 de form1

quelle opération veux tu faire? je parle du "et" (& )

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Variable globale !!

Sujets relatifs
Oracle - variable globale	Probleme de variable globale.
initialiser une variable globale	variable globale et css
variable globale, problème de link	Variable Globale - Comment la créer et la passer entre les fenêtres...
[ASP] Variable globale ?	utiliser une variable globale dans une fonction? [résolu]
[vba] variable globale - recherche exorciste	Modification d'une variable globale dans une fonction...
Plus de sujets relatifs à : Variable globale !!

Page générée en 0.062 secondes