Archiv verlassen und diese Seite im Standarddesign anzeigen : taschenrechner mit vb
icedealer
2003-12-04, 18:25:30
ich denke zwar das es das thema schonmal gab aber ich habe keine lust zich seiten zu durchsuchen :@#$!%:
ich suche einen sehr sehr einfachen programmcode mit dem man einen taschnerechner in vb programmieren kann. man soll einfach nur die grundrechenarten plus, minus, mal und geteilt rechnen können.
thx schonmal im vorraus :)
Mr.Crow
2003-12-19, 20:35:12
Dann mach dch einfach...
Textfeld + Textfelt = Label
txtFeld1 + txtFeld2 = lblAusgabe
und nen Command Button "Rechnen" darunter du programmierst
oder das ganze mit "mal" (*)
das sind eigendlich die Grundlagen. schön verpackt erfüllt das Ding seinen Sinn *g*
Wir haben mal so was in der Art gemacht. Musste den Quellcode aber im Editor öffnen, weil ich VB 6 gerade net installiert habe.
Die Form dazu musst Du natürlich selber machen. (Buttons usw. müssen den passenden Namen haben...)
Hab mal mit "//" Kommentare gemacht. (Kenn die VB Syntax nicht mehr auswendig. Also wieder rausmachen!!)
Gruß
Eazy
Option Explicit
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Operator As String
//Erst die command Buttons über die man die Zahlen eingibt
Private Sub cmd0_Click()
Label.Caption = Label.Caption & "0"
End Sub
Private Sub cmd1_Click()
Label.Caption = Label.Caption & "1"
End Sub
Private Sub cmd2_Click()
Label.Caption = Label.Caption & "2"
End Sub
Private Sub cmd3_Click()
Label.Caption = Label.Caption & "3"
End Sub
Private Sub cmd4_Click()
Label.Caption = Label.Caption & "4"
End Sub
Private Sub cmd5_Click()
Label.Caption = Label.Caption & "5"
End Sub
Private Sub cmd6_Click()
Label.Caption = Label.Caption & "6"
End Sub
Private Sub cmd7_Click()
Label.Caption = Label.Caption & "7"
End Sub
Private Sub cmd8_Click()
Label.Caption = Label.Caption & "8"
End Sub
Private Sub cmd9_Click()
Label.Caption = Label.Caption & "9"
End Sub
//Löschen wenn die Zahl net passt
Private Sub cmdCancel_Click()
Label.Caption = ""
Zahl1 = 0
Zahl2 = 0
End Sub
// berechnen
Private Sub cmdGleich_Click()
Zahl2 = CDbl(Label.Caption)
Select Case Operator
Case "+"
Label.Caption = Zahl1 + Zahl2
Case "-"
Label.Caption = Zahl1 - Zahl2
Case "*"
Label.Caption = Zahl1 * Zahl2
Case "/"
Label.Caption = Zahl1 / Zahl2
Case Else
Label.Caption = "Fehler"
End Select
End Sub
Private Sub cmdKomma_Click()
Label.Caption = Label.Caption & ","
End Sub
// Die Knöpfe mit den Grundrechenarten. Speichern des zu verwendenden Operators. speichern und konvertieren der zahl
Private Sub cmdMal_Click()
Zahl1 = CDbl(Label.Caption)
Label.Caption = ""
Operator = "*"
End Sub
Private Sub cmdminus_Click()
Zahl1 = CDbl(Label.Caption)
Label.Caption = ""
Operator = "-"
End Sub
Private Sub cmdPlus_Click()
Zahl1 = CDbl(Label.Caption)
Label.Caption = ""
Operator = "+"
End Sub
Private Sub cmdTeilen_Click()
Zahl1 = CDbl(Label.Caption)
Label.Caption = ""
Operator = "/"
End Sub
killermaster
2003-12-29, 20:19:50
quellcode alle zu lang.
man kann bei vb eine vbscript funktion einbinden.
die heißt:
eval()
mfg
vBulletin®, Copyright ©2000-2024, Jelsoft Enterprises Ltd.