VB.net Please Help!!

[Redeemer]

hey im creating a windows app with allows the user to enter name and password which will be authenticated. Im 98% complete but no matter what i still get access denied. Can any of you programmers help me out??
Im using visual studio.net 2003


This is the module part:



Module modLogin
Public bool As Boolean
Dim UsernameDatabase() As String = {"joe", "angel", "sam", "mary", "nancy"}
Dim PasswordDatabase() As Integer = {111, 222, 333, 444, 555}
Dim objLogin As frmLogin
Dim u As String, p As Integer
Dim X As String, Y As Integer

Public Function GetUserInfoAndDisplayForm(ByRef X, ByRef Y)
objLogin = New frmLogin
objLogin.ShowDialog()

X = objLogin.txtUsername.Text
Y = objLogin.txtPassword.Text

Authenticate(u, p)

End Function



Sub Main()
GetUserInfoAndDisplayForm(u, p)

If bool = True Then
MessageBox.Show("Access Granted")
ElseIf bool = False Then
MessageBox.Show("Access Denied")
End If

' objLogin.ShowDialog()
'GetUserInfoAndDisplayForm(X, Y)

End Sub

Private Function Authenticate(ByVal X, ByVal Y)
Dim i As Integer


' Do While X <> -1 And Y <> -1
For i = 0 To 4
If UsernameDatabase(i) = X And PasswordDatabase(i) = Y Then
bool = True
Else
bool = False
End If
Next
Return bool
'Loop
End Function
End Module








This is the form part:
*note* there is no futher coding in this area. The rest of coding is done in module.

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
Me.Hide()


End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
MessageBox.Show("User Canceled Operation")

txtUsername.Text = " "
txtPassword.Text = " "
End Sub


Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

End Class
_________________

[TheTaxidermist]

If only you needed darkbasic help, then I could show off
_________________

[RockyB]

Or Delphi
_________________
New ST site :: New ST Forums

[Devaude]

i can help with C, C++ (MFC), PHP, ColdFusion, Java.
_________________


'Like... Dude... What the hell...' - d4sh

[Procurator]

Just PHP and, ahem, Fortran from me, I'm afraid.
_________________

[Obelon]

I only know php and flash action scripts.

the only thing I can see and I am saying this without even knowing visual net

' Do While X <> -1 And Y <> -1
For i = 0 To 4
If UsernameDatabase(i) = X And PasswordDatabase(i) = Y Then
bool = True
Else
bool = False
End If
Next
Return bool
'Loop
End Function

I am guessing in the above varible i auto increments if it dosn't you will need to add to its count done in php like i=++ or i=i+1

other thing is "Return bool" again not know the language I am guessing this is ment to take you out of the loop when the bool is true and if it dose that ignore me but get the feeling it should be return if bool = true or something like that.

The layout itself seems a bit haphazzard but I am guessing thats visual net (remember I am use to php).

sorry I can't be more help.

[TheTaxidermist]

it would probably be easier to hack your way through the password screen
_________________

[globin]

*laughs*

I won't even bother
_________________

[Redeemer]