salut jai un probleme pour comprendre ce code en vb6 il s(agit d'une calcuatrice scientifique
voila le code pouvez vous me l'expliquez ligne par ligne :
Public virgule 'variable pour l'infecter la valeur valeur vraie
Public v 'v=0.1
Public s 'resultat
Public op As String 'pour les characteres
Public op1
Public op2
Public dernier As Boolean 'variable booleene
Function egale()
If (op = "+") Then
s = op1 + s + op2
ecran.Text = s
ElseIf (op = "*") Then
s = op1 * s
ecran.Text = s
ElseIf (op = "-") Then
s = op1 - s
ecran.Text = s
ElseIf (op = "/") Then
s = op1 / s
ecran.Text = s
End If
virgule = False
v = 0.1
op = ""
-----------------------
rivate Sub Cmd0_Click(Index As Integer)
Call effacer
If (virgule) Then 'si on clique soit sur + / - *
s = s + v * 0
v = v / 10
Else
s = s * 10
End If
ecran.Text = s
dernier = False
End Sub
Quelles sont les instructions que tu ne comprends pas ?
Dans la fonction : Function egale() , Il récupère le résultat qui a déjà été calculé ( dans la variable "s" ) et effectue l'opération en fonction du signe utilisé. ( + - / * ).
Cette fonction doit surement être appellée à chaque fois qu'on clique sur l'un des signes mathématiques...
L'autre partie du programme "Sub Cmd0_Click(Index As Integer) " correspond a l'utilisation de la virgule ...
par contre le programme n'est pas complet... il y a surement d'autres fonctions ou Sub dans ton programme. ( au moins les sub qui appellent la fonction égale() )
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
