1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Une calculatrice plus simple encore !

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

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

Ajouter un commentaire

Commentaire

Signaler
Messages postés
4
Date d'inscription
samedi 23 mai 2009
Statut
Membre
Dernière intervention
3 avril 2011
 2
c bien
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)