lommeregner

Tags:    visual-basic

Hej..

er der ikke nogen der kan hjælpe mig igang med at lave en lommeregner??

jeg ville godt vide hvordan man man sætter max tegn i en textbox??

og hvordan man for den til at sige 2+2 = 4 og ikke = 22???

ps laver den med 2 textboxe til at skrive talet og 1 label til at få resutatet..



8 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Kig evt. her: http://www.engin.umd.umich.edu/CIS/course.des/cis400/vbasic/vbcalc.html
Det du skal gøre for at lægge dem sammen, er at lave det fra string til Integer.. Det gør du med funktionen val()
tal = val(Me.textbox1.text) + val(Me.textbox2.text)
Hilsen CHadi
Mit lykketal er 2959



Kig evt. her: http://www.engin.umd.umich.edu/CIS/course.des/cis400/vbasic/vbcalc.html
Det du skal gøre for at lægge dem sammen, er at lave det fra string til Integer.. Det gør du med funktionen val()
tal = val(Me.textbox1.text) + val(Me.textbox2.text)
Hilsen CHadi
Mit lykketal er 2959


Takker..

men kan du ikke fortæller mig hvordan man gør sådan så der kun kan stå tal i textboxen..


http://www.udvikleren.dk/faq.php?techid=4&showfaq=9

den ekspelkode der står der sørger faktiskt for at hvis alt andet en tal trykkes, registeres det ikke.

mvh.
Thomas Christensen

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41



Der er 2 måder.

Den dårlige måde (når text-boxen hedder Text1):
Fold kodeboks ind/udKode 



Den gode måde:
http://f2.users.whitehat.dk/vb/TextNumOnly/TextNumOnly.zip



/AC



Kig evt. her: http://www.engin.umd.umich.edu/CIS/course.des/cis400/vbasic/vbcalc.html
Det du skal gøre for at lægge dem sammen, er at lave det fra string til Integer.. Det gør du med funktionen val()
tal = val(Me.textbox1.text) + val(Me.textbox2.text)
Hilsen CHadi
Mit lykketal er 2959



Takker..

men kan du ikke fortæller mig hvordan man gør sådan så der kun kan stå tal i textboxen..



joW tak men forstår ikke hvad der står



Takker...

men ville du ikke også fortælle mig hvordan man kan gøre så at der max kan stå 11 tal i en textbox















under KeyPress: If Val(Left(Text1.Text, Text1.SelStart) & Chr(KeyAscii) & Mid(Text1.Text, Text1.SelStart + 1)) > 11 Then KeyAscii = 0



/AC



Takker...

men ville du ikke også fortælle mig hvordan man kan gøre så at der max kan stå 11 tal i en textbox


Sæt Text1.MaxLength = 11



/AC



t