Variable globale !!

Variable globale !! - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2005 à 23:19:23    

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 :
  1. ' Declaration des variables
  2.     Dim resultat As Double
  3.     Dim num1 As Double
  4.     Dim num2 As Double
  5.     Dim signe As String
  7. Private Sub add_Click()
  9.   num1 = fenetre.Text
  10.   fenetre.Text = ""
  11.   signe = "+"
  13. End Sub
  14. Private Sub chiffre_Click(index As Integer)
  15.     If fenetre.Text = "" Then
  16.     fenetre.Text = index
  17.     Else
  18.     num1 = fenetre.Text
  19.     fenetre.Text = num1 & index
  20.     End If
  21. End Sub
  23. Private Sub resul_Click()
  25.     If signe = "+" Then
  26.    
  27.     resultat = Val(num1) + Val(num2)
  28.     fenetre.Text = resultat
  29.     signe = ""
  30.  
  31.     ElseIf signe = "-" Then
  32.     num2 = fenetre.Text
  33.     resultat = Val(num1) - Val(num2)
  34.     fenetre.Text = resultat
  35.     signe = ""
  36.    
  37.     End If
  38. End Sub


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

---------------
Feedback
Reply

Marsh Posté le 03-06-2005 à 23:19:23   

Reply

Marsh Posté le 05-06-2005 à 15:17:25    

up


---------------
Feedback
Reply

Marsh Posté le 06-06-2005 à 07:33:44    

  public resultat As Double  
   public num1 As Double  
   public num2 As Double  
   public signe As String
 
essaye comme ca

Reply

Marsh Posté le 06-06-2005 à 10:39:59    

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 :
  1. Private Sub Form_Load()
  2.     '   Initialisation des variables a zero
  3.       fenetre.Text = ""
  4.       Module1.numero_un = 0
  5.       Module1.numero_deux = 0
  6.       Module1.resultat = 0
  7.       End Sub
  9. Private Sub add_Click()
  11.   Module1.numero_un = fenetre.Text
  12.   fenetre.Text = ""
  13.   Module1.signe = "+"
  16. End Sub
  18. Private Sub dif_Click()
  20.   Module1.numero_un = fenetre.Text
  21.   fenetre.Text = ""
  22.   Module1.signe = "-"
  23.  
  24. End Sub
  26. Private Sub chiffre_Click(index As Integer)
  27.     If fenetre.Text = "" Then
  28.     fenetre.Text = index
  29.     Else
  30.     Module1.numero_un = fenetre.Text
  31.     fenetre.Text = Module1.numero_un & index
  32.     End If
  33. End Sub
  35. Private Sub resul_Click()
  36.     Module1.numero_deux = fenetre.Text
  37.     Call Module1.fonction_egal
  38.    
  39. End Sub


 
module1

Code :
  1. ' Declaration des variables
  2.     Public resultat As Double
  3.     Public numero_un As Double
  4.     Public numero_deux As Double
  5.     Public signe As String
  6.    
  7. Sub fonction_egal()
  8.    
  9.     If signe = "+" Then
  10.     'numero_deux = fenetre.Text
  11.     resultat = Val(numero_un) + Val(numero_deux)
  12.     Form1.fenetre = resultat
  13.     signe = ""
  14.  
  15.     ElseIf signe = "-" Then
  16.     numero_deux = fenetre.Text
  17.     resultat = Val(numero_un) - Val(numero_deux)
  18.     fenetre.Text = resultat
  19.     signe = ""
  20.    
  21.     End If
  22.    
  23. End Sub


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

---------------
Feedback
Reply

Marsh Posté le 06-06-2005 à 19:18:51    

up


---------------
Feedback
Reply

Marsh Posté le 06-06-2005 à 20:36:49    

sur la ligne 31 de form1
 
quelle opération veux tu faire? je parle du "et" (& )
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed