Beispielaufbau für einen Thread im Showroom (diese Vorlage kann beliebig angepasst werden):
Name:
Taschenrechner
Beschreibung:
Man kann damit +, -, * und / rechnen. Ist zwar nicht der beste und sauberste Code aber ich bin stolz drauf ihn selbst geschrieben zu haben ohne Hilfe
Screenshot(s):
Verwendete Programmiersprache(n) und IDE(s):
VB.net 2010
Download(s):
Viren Scamm: virustotal.com/de/file/6ced994…45b1/analysis/1429719693/
Download: file-upload.net/download-10559…r-Taschenrechner.exe.html
Lizenz/Weitergabe:
Name:
Taschenrechner
Beschreibung:
Man kann damit +, -, * und / rechnen. Ist zwar nicht der beste und sauberste Code aber ich bin stolz drauf ihn selbst geschrieben zu haben ohne Hilfe
Screenshot(s):
Verwendete Programmiersprache(n) und IDE(s):
VB.net 2010
Download(s):
Viren Scamm: virustotal.com/de/file/6ced994…45b1/analysis/1429719693/
Download: file-upload.net/download-10559…r-Taschenrechner.exe.html
Lizenz/Weitergabe:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- RichTextBox1.Text += "1"
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- RichTextBox1.Text += "2"
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- RichTextBox1.Text += "3"
- End Sub
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- RichTextBox1.Text += "4"
- End Sub
- Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
- RichTextBox1.Text += "5"
- End Sub
- Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
- RichTextBox1.Text += "6"
- End Sub
- Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
- RichTextBox1.Text += "7"
- End Sub
- Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
- RichTextBox1.Text += "8"
- End Sub
- Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
- RichTextBox1.Text += "9"
- End Sub
- Private Sub Button0_Click(sender As System.Object, e As System.EventArgs) Handles Button0.Click
- RichTextBox1.Text += "0"
- End Sub
- Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
- RichTextBox1.Clear()
- RichTextBox2.Clear()
- Label1.Text = "?"
- End Sub
- Private Sub ButtonPlus_Click(sender As System.Object, e As System.EventArgs) Handles ButtonPlus.Click
- Label1.Text = "+"
- RichTextBox2.Text += RichTextBox1.Text
- RichTextBox1.Clear()
- End Sub
- Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
- If Label1.Text = "+" Then
- RichTextBox2.Text = CInt(RichTextBox1.Text) + CInt(RichTextBox2.Text).ToString
- End If
- If Label1.Text = "-" Then
- RichTextBox2.Text = CInt(RichTextBox1.Text) - CInt(RichTextBox2.Text).ToString
- End If
- If Label1.Text = "*" Then
- RichTextBox2.Text = CInt(RichTextBox1.Text) * CInt(RichTextBox2.Text).ToString
- End If
- If Label1.Text = "/" Then
- RichTextBox2.Text = CInt(RichTextBox1.Text) / CInt(RichTextBox2.Text).ToString
- End If
- RichTextBox1.Clear()
- End Sub
- Private Sub ButtonMinus_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMinus.Click
- Label1.Text = "-"
- RichTextBox2.Text += RichTextBox1.Text
- RichTextBox1.Clear()
- End Sub
- Private Sub ButtonMal_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMal.Click
- Label1.Text = "*"
- RichTextBox2.Text += RichTextBox1.Text
- RichTextBox1.Clear()
- End Sub
- Private Sub ButtonGeteilt_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGeteilt.Click
- Label1.Text = "/"
- RichTextBox2.Text += RichTextBox1.Text
- RichTextBox1.Clear()
- End Sub
- End Class