eSportsKosova - Gaming Community
Si te krijojm nje program - Printable Version

+- eSportsKosova - Gaming Community (https://esportskosova.com)
+-- Forum: KOMUNITETI (https://esportskosova.com/forum-107.html)
+--- Forum: IT Zone (https://esportskosova.com/forum-24.html)
+---- Forum: PC - Tutoriale/Mesime (https://esportskosova.com/forum-76.html)
+---- Thread: Si te krijojm nje program (/thread-17153.html)



Si te krijojm nje program - Jeppo. - 12-25-2021

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

Se pari e merrni : Visual Basic 2008 Xpress

[Image: bb421473.dp_vse_visualbasic_banner(en-us).jpg]
[Image: bb421473.dp_vse_visualcsharp_banner(en-us).jpg]
[Image: bb421473.dp_vse_visualcplusplus_banner(en-us).jpg]
[Image: bb421473.dp_vse_visualwebdeveloper_banner(en-us).jpg]

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

http://www.youtube.com/watch?feature=player_detailpage&v=LC7uL_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)


Re: Si te krijojm nje program - mr.driki - 12-25-2021

Gj njeri veq vazhdo..:


Re: Si te krijojm nje program - LongHorn - 12-25-2021

brravoo


Re: Si te krijojm nje program - hArp.xP - 12-25-2021

brravo man


Re: Si te krijojm nje program - LiridonMurati - 12-25-2021

Bravo man Smile