Heyho,
schön zu hören das du lernen möchtest zu programmieren.
Ich habe mir mal deinen SRC kurz angeschaut :
Code:
Private Sub Button1_Click(sender As Object, e As EventArgs)
If Operators.CompareString(Me.Hurra.Text, "dingdong", False) = 0 Then
Me.Geil.Text = "Your Username is Correct!"
End If
If Operators.CompareString(Me.Juhuu.Text, "pingpong", False) <> 0 Then
Return
End If
Me.Cool.Text = "Your Password is Correct!"
End Sub
Für den Anfang ist alles gut, was halbwegs funktioniert.
Ich möchte nur eben auf 2 Dinge eingehen:
- 1. Du solltest deine Controls immer sinnvoll benennen. z.B Textbox wird txt_meinetextbox deklariert. Damit hast du später einen immensen Vorteil
- dich im Code wieder zu finden. Oder bei einem Button : btn_meinbutton. Alles vor dem Unterstrich gibt den Typ des Controls an.
- 2. Du kannst z.B. per Variable Zeichenketten (Strings) oder Zahlenketten (Integer) definieren.
- Dies machst du mit der Anweisung Dim DenNamenDeinerVariable As String. Damit kannst du deine LogIn Daten definieren.
- Lass mich dir das eben demonstrieren:
Code:
Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.Click
Dim Username As String = "Goofy" 'Hier Ist ein Kommentar zum Usernamen ich enstehe durch das ' Zeichen am Ende der Zeile.
Dim Password As String = "GoofyLerntProgrammieren" 'Hier Ist ein Kommentar zum Passwort
If txt_username.Text = Username And txt_password.Text = Password Then
MsgBox("Du wurdest erfolgreich eingeloggt!", vbInformation, "LogIn")
Else
MsgBox("Leider falsch :(", vbExclamation, "LogIn")
End If
End Sub
Denk auch immer daran deinen Code von anfang an zu Dokumentieren (mit Kommentaren) diese kannst du direkt hinter der Zeile vom Code anhängen. Siehe oben mein Beispiel.
Also ansonsten netter Anfang. Bleib dran und gaaaanz viel Spaß.
Beste Grüße,
BadboyGER