« Previous entry | Next entry » Browse > Snippets

Skip to comments (3) VB Rechner
Posted by kraudi on May 27 2008 @ 18:20  :: 1152 unique visits

Option Explicit
Dim zahl1 As Single
Dim zahl2 As Single
Dim ergebnis As Single

Private Sub cmdDiv_Click()
   If zahl2 <> 0 Then
       lblErgebnis.Caption = zahl1 / zahl2
   Else
       MsgBox "Division durch 0 nicht möglich", vbCritical, "Fehler!"
   End If
End Sub

Private Sub cmdMinus_Click()
lblErgebnis.Caption = zahl1 - zahl2
End Sub

Private Sub cmdMulti_Click()
lblErgebnis.Caption = zahl1 * zahl2
End Sub

Private Sub cmdPlus_Click()
lblErgebnis.Caption = zahl1 + zahl2
End Sub

Private Sub lbl3_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 3
End Sub

Private Sub lbl7_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 7
End Sub

Private Sub Label3_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 8
End Sub

Private Sub Label4_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 9
End Sub

Private Sub Label5_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 4
End Sub

Private Sub Label6_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 5
End Sub

Private Sub Label7_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 6
End Sub

Private Sub Label8_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 1
End Sub

Private Sub Label9_Click(Index As Integer)
txtZahl1.Text = txtZahl1.Text & 2
End Sub



Private Sub lbl1_Click()
txtZahl1.Text = txtZahl1 & 1
End Sub

Private Sub lblEnde_Click()
   End
End Sub

Private Sub txtZahl1_Change()
   If IsNumeric(txtZahl1.Text) = False Then
      MsgBox "Warnung! Sie haben keine Zahl eingegeben!", vbCritical, "Fehler!"
      txtZahl1.Text = 0
   Else
       zahl1 = txtZahl1.Text
   End If
lblErgebnis.Caption = ""
End Sub

Private Sub txtZahl2_Change()
   If IsNumeric(txtZahl2.Text) = False Then
      MsgBox "Warnung! Sie haben keine Zahl eingegeben!", vbCritical, "Fehler!"
      txtZahl2.Text = 0
   Else
       zahl2 = txtZahl2.Text
   End If
lblErgebnis.Caption = ""
End Sub

3 comments posted so far
Add your own »

1. On Mar 09 2009 @ 09:58 guest wrote:

Weaknesses of world of warcraft gold the client-server model used by World of Warcraft have been wow power levelingexploited in order to crash the cluster of servers that make up a realm. Exploits also include characters being able to instantly change location or teleport. The situation Cheap Wow Goldbecame worse when trying to coordinate activities across a number of players cheapest wow goldor guilds on the same realm.World of Warcraft Lead Producer, stated that new realms would be introduced to relieve the burden on existing ones. Existing realms would be upgraded.

Although the game wow gold follows a similar model to others in the genreand was noted for having buy cheap wow gold many familiar concepts from roleplaying games, the new approaches wow gold cheapto reduce pauses between game encounters was well liked. At various times, World of Warcraft players have experienced problems with connecting to and logging in to wow gold for salethe game. Sudden server crashes that would force realms offline also occurred.

2. On Jul 14 2009 @ 08:52 guest wrote:

AVI to DVD Converter,AVI to DVD Creator,iPhone Ringtone Maker for Mac,AVI Converter OS X,VOB Converter OS X,AVCHD Video Converter,FLV Converter,PowerPoint Converter,AVCHD Converter,Blue-Ray ripper,FLV to MOV Mac,VOB to DVD,HD Video Converter,iPod Playlist Transfer

3. On Jan 05 2010 @ 14:56 uggbaileybutton wrote:

bailey button uggs

-ugg boots cheap

ugg boots uk

ugg classic

Add a new comment

Name:
Password: (leave empty for anonymous comment)
 
View formatting tags Comment: