PDA

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*

Eazy
2003-12-29, 17:04:30
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