Aide pour la realisation d'une calculette

Question

Bonjour !

Je debute en programmation et on m'as demander de realiser une calculatrice convertisseur d'euro a l'ecole. Voila mon probleme, j'aimerais savoir comment je dois m'y prendre pour empecher l'ecriture de données autres que des chiffres dans mes afficheurs et comment je dois faire traiter avec ma calculatrice les nombres a virgules.
J'ais bien essayer de regarder sur des calculettes ki ont deja été realiser comment leurs createurs avaient fais mais je comprend que dalle snifff.
 Si quelqu'un pouvait m'aider en m'indiquant la marche a suivre pour resoudre mon probleme je lui en serais grandement reconnaissant.
Merci d'avance

cs_rene38 · Answer

Bonjour

Tes 'Afficheurs' sont sans doute des TextBox.
Si dans Text1, tu ne veux saisir que des chiffres et la virgule et pouvoir corriger par retour arrière, utilise l'événement KeyPress de la textbox :


Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii   Case 48 To 57, 46, 8 '48 à 57 chiffres ; 46 point (ou 44 = virgule ; 8 = retour arrière
   Case Else
        KeyAscii = 0
End Select
End Sub

Pour traiter le nombre tapé :


Dim Nombre As Single
Nombre = Val(Text1.Text)

KaiserGringos · Answer

Ca marche impeccable ^^
Je te remercie pour ton aide

pcpunch · Answer

Exact rené 38, mais plus simplement pour limiter la saisie de caractére dans le textbox :

Private Sub Text1_KeyPress(KeyAscii As Integer)
caract_auto$ = "1234567890." & Chr(8)If InStr(1, caract_auto$, Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub

Sinon pour la valeur chez moi je merdouille est tu pourra peu étre me dire pourquoi

Si je fais comme toi et que je declare en single si dans mon text1 je rentre 123456.4564654564. Ben dans la variable c'est arrondi!!!!!

La seule parade que j'ai trouvé a ce jour c de le déclarer en variant :

Dim temp As Variant
temp = Text1
MsgBox temp

Si tu as la soluce?????

DevLama · Answer

pourqu'il prenne aussi de nbre en virgule
il faut declarer les variables en variants puis le transformer en nbre
var1=val(text1.text) iedm pour l'auter

Aide pour la realisation d'une calculette

4 réponses

Discussions similaires