Une calculatrice plus simple encore !

Commenter

Contenu du snippet

Il vous faut 15 command boutton (ne les renommez pas)
et un textbox (idem)

Source / Exemple : 


'Double cliquer sur boutton 7
if TF = 0 Then
Text1.text = Text1.text + str(7)
'str(7) montre que c'est le 7
Else
Text1.text = str(7)
TF = 0

'Copier les même codes dans les chacune des boutton ou il y a un chiffre (et pas ceux pour diviser etc...) Mais en remplaçant 7 par le chiffre...

'Cliquer sur le boutton /
N1 = Val(text1.text)
RF = 1
Signe = 1
'utiliser le copier coller pour insérer le même code dans les procédure de traitement(x,+ et -); mais cette fois si, remplacer la variable signe à 2 pour x; 3 pour +; et4; pour -

'Cliquer sur la touche C
Text1.text = ""
N1 = 0

'enfin, double cliqué sur =
N2 = Val(text1.text)
Select case signe
Case 1
N3 = N1 / N2
Case 2
N3 = N1 * N2
Case 3
N3 = N1 + N2
Case 4
N3 = N1 - N2
End select
text1.text = str(N3)
TF = 1

'maintenant, allez dans générale pour placer ce code:
Public N1 As Double
Public Signe As Byte
Public TF As Byte

Conclusion :


Pressez F5 et GO!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (youl46)