Si te krijojm nje program

[Jeppo.]

Hi , ktu e boni 1 tutorial si te krijojm nje program - Advanced Mode :

Se pari e merrni : Visual Basic 2008 Xpress

E instaloni - Visual Basic 2008 Xpress dhe vazhdoni sipas tutorialit:

http://www.youtube.com/watch?feature=pla...C7uL_rLEiQ

Code :

Code:

Close Button-- : Me.Close() Create Button -- : Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("You must choose a username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("You must choose a password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) Then MsgBox("The username already exists", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login") = False Then MkDir("C:\login") End If MkDir("C:\login\" & usr) Dim escrever_pass As New System.IO.StreamWriter("C:\login\" & usr & "\pass.txt") escrever_pass.Write(pass) escrever_pass.Close() MsgBox("Your account has been created!") End If End If End If Login Button -- : Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("You must choose a username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("You must choose a password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then MsgBox("The username doesn't exist", MsgBoxStyle.Critical) Else Dim baixar_pass As String = My.Computer.FileSystem.ReadAllText("C:\login\" & usr & "\pass.txt") If pass = baixar_pass Then MsgBox("You're logged in") Else : MsgBox("The password is incorrect!", MsgBoxStyle.Critical) End If End If End If End If

Regards
Jeppo.

Se shpejti edhe shum tuturiale te tjera vetem per eSK ! (Y)

[mr.driki]

Gj njeri veq vazhdo..:

[LongHorn]

brravoo

[hArp.xP]

brravo man

[LiridonMurati]

Bravo man