FORUM SMA NEGERI 1 TEGAL
Bagi Member Baru mohon perkenalkan diri anda pada rofum Perkenalan (Introduction)
FORUM SMA NEGERI 1 TEGAL
Bagi Member Baru mohon perkenalkan diri anda pada rofum Perkenalan (Introduction)
FORUM SMA NEGERI 1 TEGAL
Would you like to react to this message? Create an account in a few clicks or log in to continue.

FORUM SMA NEGERI 1 TEGAL

let your creativity show here
 
IndeksGalleryLatest imagesPencarianPendaftaranLogin
Ayooo....pada gabung n ngramein forum SMA N 1 Tegal Rela Berbagi Ikhlas Memberi
Diberitahukan pada agan2 bahwa berdasarkan rapat penilai lomba header forum SMA Negeri 1 Tegal maka diputuskan hanya ada satu pemenang saja dan berhak mendapatkan 1 buah FD 2 GB, Pemenangnya adalah : "Tiozz", mohon pemenang segera menghubungi admin. terima kasih
Hot News : Kalian Pengen tau nilai, wali kelas n banyak lagi bisa kirim via sms ke 4555 caranya ketik sma smansategal nilai nis...berikut ini keyword2 yg lain: wali nis, siswa, guru, guru nis matpel, kepsek, rasio guru, rombel dan rombel nis....sementara hnya bisa diakses via telkomsel
Top Poster sampai dengan 31 Agustus 2010 kami tetapkan agoenx, tuk hadiah segera kami kirim. trims
Contact Admin
Jam Digital
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Top posters
agoenk (600)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
sandydyto (480)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
tiozz (451)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
xkikyx (280)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
danny (248)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
fadewae (227)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
aufar16707 (135)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
image_741 (43)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
reshaenshieru (25)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
masindra (13)
Belajar Visual Basic 6.0 I_vote_lcapBelajar Visual Basic 6.0 I_voting_barBelajar Visual Basic 6.0 I_vote_rcap 
Latest topics
» Share : What are you doing right now ?? \(^o^)/
Belajar Visual Basic 6.0 I_icon_minitimeThu Mar 20, 2014 8:45 am by imass

» Diprotes, Forum ( Game Warcraft ) Online Batal Wajibkan Nama Asli
Belajar Visual Basic 6.0 I_icon_minitimeWed Mar 19, 2014 1:36 am by imass

» Kenalan dulu yaaa.. :D
Belajar Visual Basic 6.0 I_icon_minitimeSun Mar 16, 2014 7:37 pm by imass

» Hello there!
Belajar Visual Basic 6.0 I_icon_minitimeSun Mar 16, 2014 7:24 pm by imass

» Tempat Bumbu Classic Berkualitas Diskon Akhir 2012
Belajar Visual Basic 6.0 I_icon_minitimeMon Dec 10, 2012 9:27 pm by oden

» Teko Halco Bunyi Berkualitas Diskon Khusus Akhir 2012
Belajar Visual Basic 6.0 I_icon_minitimeSun Dec 09, 2012 9:59 pm by oden

» Talenan Lion Star Berkualitas Diskon Khusus Akhir 2012
Belajar Visual Basic 6.0 I_icon_minitimeFri Dec 07, 2012 11:10 pm by oden

» Oxone Sodet Berkualitas Diskon Akhir Tahun 2012
Belajar Visual Basic 6.0 I_icon_minitimeThu Dec 06, 2012 9:56 pm by oden

» Shaker Diskon Berkualitas Shuma
Belajar Visual Basic 6.0 I_icon_minitimeWed Dec 05, 2012 11:02 pm by oden

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Statistics
Total 121 user terdaftar
User terdaftar terakhir adalah SUBEKHI

Total 2601 kiriman artikel dari user in 258 subjects
User Yang Sedang Online
Total 3 uses online :: 0 Terdaftar, 0 Tersembunyi dan 3 Tamu

Tidak ada

User online terbanyak adalah 27 pada Tue Aug 15, 2023 6:52 pm
Your IP Address
psb online
Biodata Calon Siswa Cetak Bioadata

 

 Belajar Visual Basic 6.0

Go down 
PengirimMessage
ChochoRezpector

ChochoRezpector


Jumlah posting : 1
Join date : 04.12.11
Age : 30
Lokasi : Surabaya

Belajar Visual Basic 6.0 Empty
PostSubyek: Belajar Visual Basic 6.0   Belajar Visual Basic 6.0 I_icon_minitimeSun Dec 04, 2011 8:52 am

Contoh Program Password sederhana menggunakan VB6

Buatlah Desain Form Dengan Objek2 Berikut Ini :
===============================================
2 Objek Label :
Label Pertama = Name : Label1, Caption : Nama User
Label Kedua = Name : Label2, Caption : Password User
===============================================
2 Objek TextBox :
TextBox Pertama = Name : Text1, Text : <Kosong>
TextBox Kedua = Name : Text2, Text : <Kosong>, Password Char : *
===============================================
2 Objek CommandButton :
CommandButton Pertama = Name : cmdLogin, Caption : Login
CommandButton Kedua = Name : cmdSignUp, Caption : Sign Up
===============================================

Lalu Copy-Paste Code di Bawah ini, dengan Cara Klik 2x Form :

Dim NmUser, PassUser As String

Private Sub Form_Load()
On Error Resume Next
Open app.Path & "\dBase.txt" For Input As #1
Line Input #1, NmUser
Line Input #1, PassUser
Close #1

cmdLogin.Enabled = False
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next
Open app.Path & "\dBase.txt" For Input As #1
Line Input #1, NmUser
Line Input #1, PassUser
Close #1

If Text1.Text = NmUser And Text2.Text = PassUser Then
MsgBox "Login Berhasil", vbInformation, "Chocho Rezpector"
Else
MsgBox "Login Gagal", vbInformation, "Chocho Rezpector"
End If
End Sub

Private Sub cmdSignUp_Click()
On Error Resume Next
Open app.Path & "\dBase.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1

cmdLogin.Enabled = True
cmdSignUp.Enabled = False
End Sub


Setelah itu tekan tombol F5
Kembali Ke Atas Go down
http://www.mitcommunity.blogspot.com
 
Belajar Visual Basic 6.0
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Kode Program membuat password pada visual basic
» Ati-ati kalo parkir motor kelamaan.
» Lembaga Bimbingan Belajar FOLIMER

Permissions in this forum:Anda tidak dapat menjawab topik
FORUM SMA NEGERI 1 TEGAL :: ICT Discussion-
Navigasi: