KiP die zweite :)

Verfügbare Informationen zu "KiP die zweite :)"

Qualität des Beitrags:

Beteiligte Poster: moddok

Forum: BF-IR

Forenbeschreibung: build your Future

aus dem Unterforum: Talk

Antworten: 1

Forum gestartet am: Donnerstag 28.09.2006

Sprache: deutsch

Link zum Originaltopic: KiP die zweite :)

Letzte Antwort: vor 17 Jahren, 6 Monaten, 19 Tagen, 4 Stunden, 13 Minuten

Alle Beiträge und Antworten zu "KiP die zweite :)"

Re: KiP die zweite :)

moddok - 10.10.2006, 22:19

KiP die zweite :)
Hi!
Ich habe eben mal nen gescheiten Taschenrechner mit Visual Basic geschrieben! Guckt ihn euch mal bitte an!

Hier isser:
http://moddok.mo.funpic.de/Taschenrechner.exe

Bild:


Und hier der Code :juggle:

Code:
'Written by Kevin Sommer, 2006
Dim zahl1 As String
Dim rechenart As String
Private Sub cmd_0_Click()
txt_display = txt_display + "0"
'Display = Display + 0
End Sub

Private Sub cmd_1_Click()
txt_display = txt_display + "1"
'Display = Display + 1
End Sub

Private Sub cmd_2_Click(Index As Integer)
txt_display = txt_display + "2"
'Display = Display + 2
End Sub

Private Sub cmd_3_Click()
txt_display = txt_display + "3"
'Display = Display + 3
End Sub

Private Sub cmd_4_Click()
txt_display = txt_display + "4"
'Display = Display + 4
End Sub

Private Sub cmd_5_Click()
txt_display = txt_display + "5"
'Display = Display + 5
End Sub

Private Sub cmd_6_Click()
txt_display = txt_display + "6"
'Display = Display + 6
End Sub

Private Sub cmd_7_Click()
txt_display = txt_display + "7"
'Display = Display + 7
End Sub

Private Sub cmd_8_Click()
txt_display = txt_display + "8"
'Display = Display + 8
End Sub

Private Sub cmd_9_Click()
txt_display = txt_display + "9"
'Display = Display + 9
End Sub

Private Sub cmd_clear_Click()
zahl1 = ""
txt_display = ""
End Sub

Private Sub cmd_geteilt_Click()
zahl1 = txt_display
rechenart = "geteilt"
txt_display = ""
End Sub

Private Sub cmd_gleich_Click()
If rechenart = "plus" Then
txt_display = CDbl(zahl1) + CDbl(txt_display)
ElseIf rechenart = "minus" Then
txt_display = CDbl(zahl1) - CDbl(txt_display)
ElseIf rechenart = "mal" Then
txt_display = CDbl(zahl1) * CDbl(txt_display)
ElseIf rechenart = "geteilt" Then
txt_display = CDbl(zahl1) / CDbl(txt_display)
End If
End Sub

Private Sub cmd_mal_Click()
zahl1 = txt_display
rechenart = "mal"
txt_display = ""
End Sub

Private Sub cmd_minus_Click()
zahl1 = txt_display
rechenart = "minus"
txt_display = ""
End Sub

Private Sub cmd_plus_Click()
zahl1 = txt_display
rechenart = "plus"
txt_display = ""
End Sub



MfG :cool:

---

Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken

<a href="http://www.iphpbb.com/foren-archiv/17/1048000/1047200/kip-die-zweite-22452715-59588-49.html" target="_blank">KiP die zweite :)</a>

---

Weitere Beiträge aus dem Forum BF-IR

KiP Taschenrechner - gepostet von moddok am Freitag 29.09.2006
AIM arbeit - gepostet von Kiste am Dienstag 31.10.2006

---

Ähnliche Beiträge wie "KiP die zweite :)"

training am 5.3. - udalrich (Donnerstag 24.02.2011)
Makros die Zweite! - Aldente (Sonntag 07.01.2007)
Zweite Karriere - Druidriell (Samstag 25.08.2007)
Spielbericht Zweite gegen SpVgg Zeckern 2:2(1:1) - ToniPolster (Montag 10.09.2007)
Spielbericht Zweite gegen ATSV Erlangen I 0:3(0:1) - ToniPolster (Mittwoch 01.08.2007)
Es ist zum Haare raufen..., die Zweite - MiBö (Freitag 04.05.2007)
question about Fernando - frenchy (Sonntag 20.03.2011)
Band 8: Das zweite Duell vergeht schnell - My-Text (Donnerstag 24.11.2005)
Extrem Grillen, die zweite!^^ - Sabakiel (Freitag 07.09.2007)
der zweite Tag - grabowski (Montag 18.12.2006)