FORUM SMA NEGERI 1 TEGAL
Bagi Member Baru mohon perkenalkan diri anda pada rofum Perkenalan (Introduction)

FORUM SMA NEGERI 1 TEGAL

let your creativity show here
 
IndeksCalendarGalleryFAQPencarianAnggotaGroupPendaftaranLogin
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)
 
sandydyto (480)
 
tiozz (451)
 
xkikyx (280)
 
danny (248)
 
fadewae (227)
 
aufar16707 (135)
 
image_741 (43)
 
reshaenshieru (25)
 
masindra (13)
 
Latest topics
» Share : What are you doing right now ?? \(^o^)/
Thu Mar 20, 2014 8:45 am by imass

» Diprotes, Forum ( Game Warcraft ) Online Batal Wajibkan Nama Asli
Wed Mar 19, 2014 1:36 am by imass

» Kenalan dulu yaaa.. :D
Sun Mar 16, 2014 7:37 pm by imass

» Hello there!
Sun Mar 16, 2014 7:24 pm by imass

» Tempat Bumbu Classic Berkualitas Diskon Akhir 2012
Mon Dec 10, 2012 9:27 pm by oden

» Teko Halco Bunyi Berkualitas Diskon Khusus Akhir 2012
Sun Dec 09, 2012 9:59 pm by oden

» Talenan Lion Star Berkualitas Diskon Khusus Akhir 2012
Fri Dec 07, 2012 11:10 pm by oden

» Oxone Sodet Berkualitas Diskon Akhir Tahun 2012
Thu Dec 06, 2012 9:56 pm by oden

» Shaker Diskon Berkualitas Shuma
Wed Dec 05, 2012 11:02 pm by oden

December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
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 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 18 pada Fri Jun 14, 2013 12:28 pm
Your IP Address
psb online
Biodata Calon Siswa Cetak Bioadata

Share | 
 

 Belajar Visual Basic 6.0

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
ChochoRezpector



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

PostSubyek: Belajar Visual Basic 6.0   Sun 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
Lihat profil user http://www.mitcommunity.blogspot.com
 
Belajar Visual Basic 6.0
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Belajar Bahasa Arab, Yuk?
» Mari Belajar Bahasa Inggris (Warning: It's a fraud by 9 Rays' Engineering Motorsport)
» PROJECT VISUAL NOVEL[Need Volunteer]
» Belajar Racing Line di Sirkuit Sentul
» [PIC] Hayoo Kita Belajar Knee Down...

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