Une calculatrice plus simple encore !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 596 fois - Téléchargée 65 fois

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

Ajouter un commentaire

Commentaire

Messages postés
4
Date d'inscription
samedi 23 mai 2009
Statut
Membre
Dernière intervention
3 avril 2011
2
c bien

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.