Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 830 fois - Téléchargée 67 fois
'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
3 avril 2011 à 15:50
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.