Problème avec une calculatrice

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème avec une calculatrice

teycir

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 :

'Commande de calcul du résultat
Private Sub cmdCalculer_Click()
Dim resultat As Double
'optionbutton de multiplication
If optMultiplication.Value = True Then
resultat = valeur1 * valeur2
End If
'optionbutton d'addition
If optAddition.Value = True Then
resultat = valeur1 + valeur2
End If
'optionbutton de soustraction
If optSoustraction.Value = True Then
resultat = valeur1 - valeur2
End If
'optionbutton de division entière
If ((optDivisionEntiere.Value = True) And (valeur2 <> 0)) Then
resultat = valeur1 \ valeur2
Else
MsgBox "Pas de division sur 0!", vbCritical
End If
'optionbutton de modulo
If optModulo.Value = True Then
resultat = valeur1 Mod valeur2
End If
End Sub
' Commande pour quitter
Private Sub cmdQuitter_Click()
End
End Sub
' Label dans lequel doit s'afficher le résultat
Private Sub lblAffichage_Change()
Dim affichage_resultat As String
affichage_resultat = CStr(resultat)
End Sub
' Textbox n°1 dans lequel l'utilisateur rentre les chiffres
Private Sub txt01_Change()
Dim text1 As String
Dim valeur1 As Double
text1 = txt01.Text
If Not IsNumeric(text1) Then
MsgBox "Valeur non numerique!", vbCritical
Else
valeur1 = CDbl(text1)
End If
End Sub
' Textbox n°2 dans lequel l'utilisateur rentre les chiffres
Private Sub txt02_Change()
Dim text2 As String
Dim valeur2 As Double
text2 = txt02.Text
If Not IsNumeric(text2) Then
MsgBox "Valeur non numerique!", vbCritical
Else
valeur2 = CDbl(text2)
End Sub

Publicité

ingenieurcesi

deja il te manque un end if ligne 80

teycir

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 :

'Commande de calcul du résultat
Private Sub cmdCalculer_Click()
Dim resultat As Double
'optionbutton d'addition
If OptAddition.Value = True Then
resultat = valeur1 + valeur2
End If
End Sub
' Commande pour quitter
Private Sub cmdQuitter_Click()
End
End Sub
' Label dans lequel doit s'afficher le résultat
Private Sub lblAfficher_Change()
Dim affichage_resultat As String
affichage_resultat = CStr(resultat)
End Sub
' Textbox n°1 dans lequel l'utilisateur rentre les chiffres
Private Sub text1_Change()
Dim Texte1 As String
Dim valeur1 As Double
Texte1 = text1.Text
valeur1 = CDbl(Texte1)
End Sub
' Textbox n°2 dans lequel l'utilisateur rentre les chiffres
Private Sub text2_Change()
Dim Texte2 As String
Dim valeur2 As Double
Texte2 = text2.Text
valeur2 = CDbl(Texte2)
End Sub

morphorpse

Bonsoir

Ta variable resultat est définie dans Sub cmdCalculer_Click()

C'est peut etre genant pour l'appeler plus tard ?

ingenieurcesi

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

teycir

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

Code :

'XXXX exercice calculette
'Commande de calcul du résultat
Private Sub cmdCalculer_Click()
'Au cas où l'utilisateur rentrerait autre chose que du chiffre
If (Not IsNumeric(txt01)) Or (Not IsNumeric(txt02)) Then
MsgBox "Valeur non numerique!", vbCritical
Else
If OptAddition.Value = True Then
lblAffichage.Caption = CStr(CDbl(txt01.Text) + CDbl(txt02.Text))
End If
If optSoustraction.Value = True Then
lblAffichage.Caption = CStr(CDbl(txt01.Text) - CDbl(txt02.Text))
End If
If ((optDivisionEntiere.Value = True) And (CDbl(txt02.Text) <> 0)) Then
lblAffichage.Caption = CStr(CDbl(txt01.Text) \ CDbl(txt02.Text))
End If
'Au cas où l'utilisateur diviserait par 0
If ((optDivisionEntiere.Value = True) And (CDbl(txt02.Text) = 0)) Then
MsgBox "Cette opértation est impossible!!!", vbCritical
End If
If optModulo.Value = True Then
lblAffichage.Caption = CStr(CDbl(txt01.Text) Mod CDbl(txt02.Text))
End If
If optMultiplication.Value = True Then
lblAffichage.Caption = CStr(CDbl(txt01.Text) * CDbl(txt02.Text))
End If
End If
End Sub
' Commande pour quitter
Private Sub cmdQuitter_Click()
End
End Sub

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème avec une calculatrice

Sujets relatifs
[CSS?] Problème de titre avec IE.	Problème avec Debug avec log4j
[.Net - VSTO] Problème de tableaux dans word	gérer plusieur $_SESSION probleme
problème avec UndeclaredThrowableException !!!	Problème avec Wamp et code PHP
problème pour range(variable)	probleme transfert ftp
probleme html js et sql	problème avec balise iterate struts
Plus de sujets relatifs à : Problème avec une calculatrice

Page générée en 0.067 secondes