pouvez vous m'expliquer ce code en VB 6

Question

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

jordane45 · Answer

Bonjour,

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

4u4me4us · Answer

Tu dis "pouvez vous me l'expliquez ligne par ligne "  Je pense que si tu en es à ce point là. Tu fais mieux de lire les tuto sur le site.

cs_Jack · Answer

PS : la prochaine fois que tu colles du code, utilise la 3ème icone à droite pour conserver la mise en forme du code : plus facile à relire.

Pouvez vous m'expliquer ce code en VB 6

3 réponses

Votre réponse

Discussions similaires