Frage von derfragendeme, 82

Hilfe, morgen eine Klassenarbeit und keine Ahnung wie das geht?

Hallo, ich hatte jetzt 2 Wochen Ferien (Osterferien). Ich schreibe am ersten Schultag eine Klassenarbeit. Im Fach Informatik. Das Thema ist Visual Basic und wir müssen ein Taschenrechner machen. Ich habe "null" ahnung und deswegen weiß ich nicht mal ein bisschen wie es geht.

Hat einer Tipps oder kann mir einer so eine komplett aufgeschriebene Projekt in die Kommentare schreiben?

Danke

Antwort
von Berny96, 36
Public Class Form1
Inherits System.Windows.Forms.Form

'=============================================================================================
' VARIABLES AT THE TOP OF THE CODING WINDOW
'=============================================================================================
Dim total1 As Integer
Dim total2 As Integer

'=============================================================================================
' CODE FOR THE NUMBER BUTTONS
'=============================================================================================

Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
txtDisplay.Text = txtDisplay.Text & btnOne.Text
End Sub

Private Sub btnZero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZero.Click
txtDisplay.Text = txtDisplay.Text & btnZero.Text
End Sub

Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
txtDisplay.Text = txtDisplay.Text & btnTwo.Text
End Sub

Private Sub btnThree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThree.Click
txtDisplay.Text = txtDisplay.Text & btnThree.Text
End Sub

Private Sub btnFour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFour.Click
txtDisplay.Text = txtDisplay.Text & btnFour.Text
End Sub

Private Sub btnFive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFive.Click
txtDisplay.Text = txtDisplay.Text & btnFive.Text
End Sub

Private Sub btnSix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSix.Click
txtDisplay.Text = txtDisplay.Text & btnSix.Text
End Sub

Private Sub btnSeven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeven.Click
txtDisplay.Text = txtDisplay.Text & btnSeven.Text
End Sub

Private Sub btnEight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEight.Click
txtDisplay.Text = txtDisplay.Text & btnEight.Text
End Sub

Private Sub btnNine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNine.Click
txtDisplay.Text = txtDisplay.Text & btnNine.Text
End Sub

'=============================================================================================
' CODE FOR THE PLUS BUTTON
'=============================================================================================
Private Sub cmdPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlus.Click

total1 = total1 + Val(txtDisplay.Text)
txtDisplay.Clear()

End Sub

'=============================================================================================
' CODE FOR THE EQUALS BUTTON
'=============================================================================================
Private Sub cmdEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEquals.Click

total2 = total1 + Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0

End Sub

'=============================================================================================
' CODE FOR THE CLEAR BUTTON
'=============================================================================================
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
txtDisplay.Clear()
End Sub
End Class
Kommentar von PWolff ,

Damals (TM), in der guten alten Zeit (R), gehörte es sich, dazuzuschreiben, wo man die Ideen geklaut hatte.

(Und hier bei gf würde es weiterhelfen, zu erfahren, mit welcher Suchmaschine du nach welchen Stichworten gesucht hast.)

Kommentar von Falkenpost ,

Und wieder wird ein Schüler nix lernen!

Kommentar von ysz0507 ,

Er wollte die Lösung jetzt hat er sie

Keine passende Antwort gefunden?

Fragen Sie die Community