Mein erstes Programm : - )

[BadboyGER]

Heyho,

schön zu hören das du lernen möchtest zu programmieren.
Ich habe mir mal deinen SRC kurz angeschaut :

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:

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