Hallo liebe Com,
[ÜBERARBEEITUNG FOLGT!]
Ich habe grade meinen Rechner fertiggestellt und wollte hier mal eben Kurz den Sourcecode posten.
Benötigt wird:
- 3 Textboxen
- 2 Labels
- 1 Button
-------------------
Also ich habe das so gelöst das in der 3en Textbox das Operationszeichen steht z.B(+,-,*,/).
Also Schrieb ich 4 Private Functions
1ne für jede Operation also Plus,Minus usw..
Dann wollte ich es üpber eine If abfrage prüfen lassen doch dann bekamm ich die idee es über Select Case zu machen.
Also:
Im großen und ganzen sieht das dann so aus:
Im Anschluss wollte ich das man nur Zahlen eingeben kann.
Das machte ich dann so...
was soviel heißt wie: Ist der Inhalt der Textbox1 Größer oder kleiner als "" dann tuh eine Messagebox ausgeben.
Hoffe es nützt jemanden....
[ÜBERARBEEITUNG FOLGT!]
Ich habe grade meinen Rechner fertiggestellt und wollte hier mal eben Kurz den Sourcecode posten.
Benötigt wird:
- 3 Textboxen
- 2 Labels
- 1 Button
-------------------
Also ich habe das so gelöst das in der 3en Textbox das Operationszeichen steht z.B(+,-,*,/).
Also Schrieb ich 4 Private Functions
1ne für jede Operation also Plus,Minus usw..
VB.NET-Quellcode
- Private Function Plus()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) + CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Minus()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) - CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Mal()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) * CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Geteilt()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) / CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
Dann wollte ich es üpber eine If abfrage prüfen lassen doch dann bekamm ich die idee es über Select Case zu machen.
Also:
Im großen und ganzen sieht das dann so aus:
VB.NET-Quellcode
- Option Strict Off
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
- 'If TextBox3.Text = "+" Then
- ' Plus()
- 'End If
- 'If TextBox3.Text = "-" Then
- ' Minus()
- 'End If ***Unsauber***
- 'If TextBox3.Text = "*" Then
- ' Mal()
- 'End If
- 'If TextBox3.Text = "/" Then
- ' Geteilt()
- 'End If
- Select Case TextBox3.Text
- Case "+"
- Plus()
- Case "-"
- Minus()
- Case "*"
- Mal()
- Case "/"
- Geteilt()
- End Select
- End Sub
- Private Sub Label1_Click(sender As Object, e As EventArgs)
- End Sub
- Private Function Plus()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) + CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Minus()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) - CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Mal()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) * CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Function Geteilt()
- If TextBox1.Text <> "" And TextBox2.Text <> "" Then
- If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
- Label3.Text = (CInt(TextBox1.Text) / CInt(TextBox2.Text)).ToString()
- Else
- MessageBox.Show("Ungültiges zeichen oder zahl!")
- End If
- Else
- MessageBox.Show("Leere Textboxen!!")
- End If
- End Function
- Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
- End Sub
- End Class
Im Anschluss wollte ich das man nur Zahlen eingeben kann.
Das machte ich dann so...
was soviel heißt wie: Ist der Inhalt der Textbox1 Größer oder kleiner als "" dann tuh eine Messagebox ausgeben.
Hoffe es nützt jemanden....
Hier gibt es nichts zusehen, bitte gehen sie weiter!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „programmier Freak“ ()