Problème avec une calculatrice

Problème avec une calculatrice - VB/VBA/VBS - Programmation

Marsh Posté le 23-04-2007 à 19:50:32    

Bonjour  à tous;
Je cherche à créer une petite calculatrice, c'est mon premier  
exercice en vb6 et je n'arrive pas à m'en sortir.
Lorsque j'exécute le programme pour le tester j'ai le message  
suivant: erreur de compilation "La declaration de la procédure ne  
correspond pas à la description de l'évenement ou de la procédure du  
même nom". Et la ligne du code "Private Sub cmdQuitter_Click "est  
soulignée.
Lorsque je rajoute des (index as integer) à tous les sub j'ai le  
message suivant :
Erreur de compilation:
"méthode ou membre de données introuvable"
Pouvez-vous m'aidez à trouver le problème s'il vous plaît? D'avance  
merci.
 
 
Voici le code
 

Code :
  1. 'Commande de calcul du résultat
  3. Private Sub cmdCalculer_Click()
  4. Dim resultat As Double
  6. 'optionbutton de multiplication
  8. If optMultiplication.Value = True Then
  9. resultat = valeur1 * valeur2
  10. End If
  12. 'optionbutton d'addition
  14. If optAddition.Value = True Then
  15. resultat = valeur1 + valeur2
  16. End If
  18. 'optionbutton de soustraction
  20. If optSoustraction.Value = True Then
  21. resultat = valeur1 - valeur2
  22. End If
  24. 'optionbutton de division entière
  26. If ((optDivisionEntiere.Value = True) And (valeur2 <> 0)) Then
  27. resultat = valeur1 \ valeur2
  28. Else
  29. MsgBox "Pas de division sur 0!", vbCritical
  30. End If
  32. 'optionbutton de modulo
  34. If optModulo.Value = True Then
  35. resultat = valeur1 Mod valeur2
  36. End If
  38. End Sub
  41. ' Commande pour quitter
  43. Private Sub cmdQuitter_Click()
  44. End
  45. End Sub
  48. ' Label dans lequel doit s'afficher le résultat
  50. Private Sub lblAffichage_Change()
  51. Dim affichage_resultat As String
  52. affichage_resultat = CStr(resultat)
  53. End Sub
  56. ' Textbox n°1 dans lequel l'utilisateur rentre les chiffres
  58. Private Sub txt01_Change()
  59. Dim text1 As String
  60. Dim valeur1 As Double
  61. text1 = txt01.Text
  62. If Not IsNumeric(text1) Then
  63. MsgBox "Valeur non numerique!", vbCritical
  64. Else
  65. valeur1 = CDbl(text1)
  66. End If
  67. End Sub
  70. ' Textbox n°2 dans lequel l'utilisateur rentre les chiffres
  72. Private Sub txt02_Change()
  73. Dim text2 As String
  74. Dim valeur2 As Double
  75. text2 = txt02.Text
  76. If Not IsNumeric(text2) Then
  77. MsgBox "Valeur non numerique!", vbCritical
  78. Else
  79. valeur2 = CDbl(text2)
  80. End Sub


 
 
 

Reply

Marsh Posté le 23-04-2007 à 19:50:32   

Reply

Marsh Posté le 23-04-2007 à 20:44:00    

deja il te manque un end if ligne 80

Reply

Marsh Posté le 23-04-2007 à 20:52:24    

Le problème est que j'ai copié collé des boutons.
J'ai tout recommencé à 0 et j'ai simplifié en supprimant un max, je n'ai plus de message d'erreur mais le nouveau problème est que mon résultat de calcul ne s'affiche pas :

Code :
  1. 'Commande de calcul du résultat
  3. Private Sub cmdCalculer_Click()
  4. Dim resultat As Double
  6. 'optionbutton d'addition
  8. If OptAddition.Value = True Then
  9. resultat = valeur1 + valeur2
  10. End If
  12. End Sub
  15. ' Commande pour quitter
  16. Private Sub cmdQuitter_Click()
  17. End
  18. End Sub
  22. ' Label dans lequel doit s'afficher le résultat
  23. Private Sub lblAfficher_Change()
  24. Dim affichage_resultat As String
  25. affichage_resultat = CStr(resultat)
  26. End Sub
  30. ' Textbox n°1 dans lequel l'utilisateur rentre les chiffres
  32. Private Sub text1_Change()
  33. Dim Texte1 As String
  34. Dim valeur1 As Double
  35. Texte1 = text1.Text
  36. valeur1 = CDbl(Texte1)
  37. End Sub
  40. ' Textbox n°2 dans lequel l'utilisateur rentre les chiffres
  42. Private Sub text2_Change()
  43. Dim Texte2 As String
  44. Dim valeur2 As Double
  45. Texte2 = text2.Text
  46. valeur2 = CDbl(Texte2)
  47. End Sub

Reply

Marsh Posté le 23-04-2007 à 21:08:44    

Bonsoir
 
Ta variable resultat est définie dans Sub cmdCalculer_Click()
 
C'est peut etre genant pour l'appeler plus tard ?

Reply

Marsh Posté le 23-04-2007 à 21:20:52    

moi j'ai fait
ca
ya le code pour affecter le resultat à la zone de texte
 
'Commande de calcul du résultat
Private Sub cmdCalculer_Click()
Dim resultat As Double
Texte1 = text1.Text
valeur1 = CDbl(Texte1)
Texte2 = text2.Text
valeur2 = CDbl(Texte2)
'optionbutton d'addition
If OptAddition.Value = True Then
resultat = valeur1 + valeur2
Call afficher
End If
End Sub
' Commande pour quitter
Private Sub cmdQuitter_Click()
End
End Sub
Sub afficher()
'resultat = 11
aff.Text = CStr(resultat)
End Sub
 
 
le problème est que resultat n'est pas public donc quand je rentre dans afficher() resultat=0
 
si ca peut t'aider
t'en mieux


Message édité par ingenieurcesi le 23-04-2007 à 21:21:55
Reply

Marsh Posté le 23-04-2007 à 22:30:34    

Voici ma version finale au cas où cela pourrait servir à qualqu'un d'autre.

Code :
  1. 'XXXX exercice calculette
  3. 'Commande de calcul du résultat
  5. Private Sub cmdCalculer_Click()
  6. 'Au cas où l'utilisateur rentrerait autre chose que du chiffre
  7. If (Not IsNumeric(txt01)) Or (Not IsNumeric(txt02)) Then
  8. MsgBox "Valeur non numerique!", vbCritical
  11. Else
  14.     If OptAddition.Value = True Then
  15.         lblAffichage.Caption = CStr(CDbl(txt01.Text) + CDbl(txt02.Text))
  16.     End If
  18.     If optSoustraction.Value = True Then
  19.         lblAffichage.Caption = CStr(CDbl(txt01.Text) - CDbl(txt02.Text))
  20.     End If
  22.     If ((optDivisionEntiere.Value = True) And (CDbl(txt02.Text) <> 0)) Then
  23.         lblAffichage.Caption = CStr(CDbl(txt01.Text) \ CDbl(txt02.Text))
  24.     End If
  25. 'Au cas où l'utilisateur diviserait par 0
  26.     If ((optDivisionEntiere.Value = True) And (CDbl(txt02.Text) = 0)) Then
  27.         MsgBox "Cette opértation est impossible!!!", vbCritical
  28.     End If
  30.     If optModulo.Value = True Then
  31.         lblAffichage.Caption = CStr(CDbl(txt01.Text) Mod CDbl(txt02.Text))
  32.     End If
  34.     If optMultiplication.Value = True Then
  35.         lblAffichage.Caption = CStr(CDbl(txt01.Text) * CDbl(txt02.Text))
  36.     End If
  39. End If
  41. End Sub
  43. ' Commande pour quitter
  45. Private Sub cmdQuitter_Click()
  46.     End
  47. End Sub


Message édité par teycir le 23-04-2007 à 22:31:35
Reply

Sujets relatifs:

Leave a Replay

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