This is My Slides

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Hewan Pengandaran

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Batu Peninggalan Prasejarah

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Peta Pantai Pengandaran

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Sejarah Gua lanang

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Senin, 30 Januari 2012

Manusia dan Sebuah Harapan

Setiap manusia mempunyai harapan. Manusia yang tanpa harapan, berarti manusia itu mari dalam hidup. Orang yang akan meninggal sekalipun mempunyai harapan, biasanya berupa peasn-pesan kebapa ahli warisnya. harapan tersebut tergantung pada tergantung pada pengetahuan, pengalaman, lingkungan hidup, dan kemampuan masing-masing. Berhasil atau tidaknya suatu harapan, misalnya Rafiq mengharapan nilai a ujian yang akan datang, tetapi tidak ada usaha, tidak pernah hadir kuliah. Harapan harus berdasarkan kepercayaan, baik kepercayaan pada diri sendiri, maupun kepercayaan kepada Tuhan Yang Maha Esa. Harapan berasal dari kata harap yang berarti keinginan supaya sesuatu terjadi; sehingga harapan berarti sesuatu yang diinginkan dapat terjadi.

B. APA SEBAB MANUSIA MEMPUNYAI HARAPAN
Menurut kodratnya manusia itu adalah mahluk sosial. Setiap Lahir ke dunia langsung disambut dalam suatu pergaulan hidup, yakni di tengah suatu keluarga atau anggota masyarakat lainnya. Doronngan Kodrat Kodrat ialah sifat, keadaan, atau pembawaan alamiah yang sudah terjelma dalam diri manusia sejak manusia itu diciptakan oleh Tuhan. Dorongan kodrat menyebabkan manusia mempunyai keinginan atau harapan, misalnya menangis, tertawa, bergembira, dan sebagainya. Kodrat juga terdapat pada binatang, walau bagaimanapun juga besar sekali perbedaannya. Dalam diri manusia masing-masing sudah terjelma sifat, kodrat pembawa dan kemampuan untuk hidup bergaul, hidup bermasyarakat atau hidup bersama dengan manusia lain. Dengan Kodrat ini, maka manusia mempunyai harapan. Dorongan kebutuhan hidup Sudah kodrat pula bahwa manusia mempunyai bermacam-macam keebutuhan hidup. Untuk memenuhi semua kebutuhan itu manusia bekerja sama dengan manusia lain. Dengan adanya dorongan kodrat atau dorongan kebutuhan hidup itu maka manusia mempunyai harapan. Kelangsungan hidup (survival) untuk melangsungkan hidupnya manusia membutuhkan sandang pangan dan papan. setiap bayi begitu lahir di bumi menangis, ia telah mengharapkan diberi makan/minum. Sandang, semula hanya berupa perlindungan/keamanan, untuk melindungi dirinya dari cuaca. Papan yang dimaksud adalah tempat tinggal atau rumah. Untuk mencukupi kebutuhan pangan, sandang dan papan itu, maka manusia sejak kecil telah mulai belajar. Keamanan seriap orang membutuhkan keamanan. Bila seorang telah menginjak dewasa, sehingga sudah saatnya Hak dan Kewajiban mencuntai dan dicintai Tiap orang mempunyai hak dan kewajiban. Bila seorang telah menginjak dewasa, maka ia merasa sudah dewasa, sehingga sudah saatnya mempunyai harapan untuk dicintai dan mencintai. Status Setiap manusia membutuhkan status.

C. KEPERCAYAAN
Kepercayaan berasal dari kata percaya, artinya mengakui atau meyakini akan kebenaran. Dengan contoh berbagai kalimat yang sering kita dengan dalam ucapan sehari-hari itu, maka jelaslah kepada kita, bahwa dasar kepercayaan itu adalah kebenaran Ada jenis pengetahuan yang dimiliki seseorang, bukan karena merupakan hasil penyelidikan sendiri, melainkan diterima dari orang lain. Dalam agama terdapat kebenaran-kebenaran yang dianggap diwahyukan artinya diberitahukan oleh Tuhan atau tidak langsung kepada manusia. Dalam hal beragama tiap-tiap orang wajib menerima dan menghormati kepercayaan orang yang beragama itu. Kebenaran Kebenaran iatau benar amat penting bagi manusia. Dakam tingkah laku, ucaoan, perbuatan manusia selalu berhati-hati agar mereka tidak menyimpang dari kebenaran. Dalam agama Budha ada ajaran yang dinamakan "jalan utama delapan ruang". Tujuan ajaran itu agar pemeluknya tidak mengalami duka, kegelisahaanm dan ketidakpastian. Ajaran kebenaran itu juuga kita temui dalam agama-agama lain. jelaslah bagi kita, bahwa kebenaran atau benar merupakan kunci kebahagiaan manusia.

D. BERBAGAI KEPERCAYAAN DAN USAHA MENINGKATKANNYA
Dasar kepercayaan adalah kebenaran, Sumber kebenaran adalah manusia. Kepercayaan dibedakan atas: 1. kepercayaan pada diri sendiri 2. kepercayaan kepada orang lain 3. kepercayaan kepada pemerintah 4. Kepercayaan kepada Tuhan

Perbedaan cinta dan kasih sayang





Banyak yang mengira sayang dan cinta hampir sama. karena kegunaan dan bentuk pengukapan dalam segi rasa hampir sama.berbanding terbalik atau sangat mirip.Tapi setelah banyak pendapat ternyata bebeda fungsi, gunanya dan penempatan. Biasanya rasa sayang tumbuh lebih dahulu sebelum rasa cinta muncul. Tumbuhnya rasa sayang dan cinta semua tidak diketahui kapan dan sampai kapan, menurut buku yang saya baca cinta definisanya tidak terbatas, jadi rasa cinta dan sayang itu jangan dibatasi sebab luas persepsinya.

Banyak bermunculan ide dan pendapat bahwa cinta dan sayang itu saling bertolak belakang. Rasa cinta dan sayang adalah pemberian tuhan kepada hambanya, karena adanya sayang dan cinta mungkin dunia ini akan begitu indah karena penghuninya memliki rasa diantara rasa yang sangat mulia. Munculnya cinta dan sayang bukan karena tanpa sebab, semua itu mungkin sudah direncanakan olehNya. Antara sayang dan cinta siapa saja pasti sudah bisa merasakan betapa indah, nikmat tentunya banyak yang di buat bahagia atasnya. Tapi juga dampak dari rasa sayang dan cinta mungkin banyak yang bilang sakit dan trauma bahkan sangat benci karena mengenalnya. Karena adanya cinta tiap manusia tentu bisa mengerti hal-hal yang mungkin akan efek dari kedua hal ini. Untuk memiliki cinta ini butuh tahap karena pada hakikatnya semua orang pingin mendapatkan cinta suci yang tinggi nilainya. Mungkin ketika kita melhat sesuatu yang indah akan berubah takjup, ingin memeliki dan hasrat untuk segara mempunyai.

Contoh saja,ketika kita sudah memliki pacar di depan kita sedang berdiri misal cewek/cowok cakep secara tidak sengaja kita sudah mengagumi sosok nya, hal itu wajar manusia di karunia panca indra mereka bisa merasa,melihat dsb. Ketertarikan akan sesuatu berevolusi menjadi ingin memiliki apa yang ada dalam hatinya yg menurut ia sangat mengasyikkan. “cinta” kedalaman hati dalam jiwa manusia buah dari ketertarikan dan rasa suka. kasih sayang adalah efek dari rasa suka dan cinta jadi tidak ada bedanya, hanya yg beda pengungkapan kasih sayang tersebut antara seorang ibu dengan anaknya, sepasang kekasih, seorang sahabat. perhatian, memeluk, mencium adalah eksperesi kasih sayang seseorang dan wajar jika terjadi dalam diri manusia, tetapi semua ada normanya untuk menjaga kesucian cinta agar tak terjangkiti oleh nafsu. so ini hanya sebuah pikiran, masih muda dan kawan2 aku juga muda. perbedaan suka, sayang, dan cinta bagus banget dirangakai dari hati yg dalam dan sebuah pengalaman dan sudah menjadi warna dalam kehidupan.

Berbagai arti mengenai cinta dan sayang:

Cinta adalah sesuatu yang suci, anugerah Tuhan dan sering tidak rasional. Cinta dipenuhi nuansa memaklumi dan memaafkan. Kesabaran, kesetiaan, pengertian, pemberian dan pengorbanan akan mendatangkan/menyuburkan cinta, sementara penyelewengan, egoisme, kikir dan kekasaran akan menghilangkan rasa cinta.

Sayang adalah satu rasa yg tulus.bukan sekedar rela dan siap melepas seseorang yg kita cintai dan kita sayangi.tulus untuk mencintai dan sayang kpd org terkasih dgn melihat dia lebih bahagia dengan orang yg dia cintai itulah cinta yg murnim di hati kita dan cinta tak akan tumbuh jika Allah yg maha BERKUASA atas segalanya tdk menghendakinya.

Cinta adalah perasaan yang timbul dimana adanya keinginan untuk saling mengerti dan memahami. Cinta merupakan anugerah terindah dari tuhan karena melalui cinta kita dapat merasakan keajaiban akan kehidupan mulai dari bahagia,sedih,sakit,menderita dll.

Sayang itu hampir mendekati cinta tp banyak orang yang salah mengartikan cinta dan sayang. cinta itu terjadi karena adanya getaran hati dalam artian terjadi secara alami dan sayang terjadi karena adanya sesuatu diri diri seseorg yg bisa membuat kt menjadi sayang dengan org itu.Kalo cinta sudah pasti sayang tapi kalo sayang belum tentu cinta.Dan ketika kita mencintai seseorang kita pasti akan memberikan yg terbaik buat org itu n berusaha mencintai org itu dgn cara yg sesempurna mungkin yg bs kita lakukan.

Sayang itu lebih abadi sifatnya. Ketika kita sayang ama seseorang maka kita takut kehilangannya. Tetapi cinta bisa berubah menjadi benci. Rasa sayang membuat kita ingin memiliki dan dimiliki. Rasa cinta membuat kita ingin menguasai.

Cinta adalah membiarkan orang yang kita sayangi bahagia.. kalo kamu memang bener2 sayang ma orang itu jangan bikin dia terganggu dengan kehadiran kamu, biarkanlah dia pergi mencari kebahagiaanya sendiri apabila dia sadar kamu yang terbaik buat dia maka dia akan kembali dengan membawa kebahagiaan sejati.Rasa Sayang itu melebihi dari rasa suka,rasa cinta. tetapi kasih melibihi rasa sayang, karena kasih melebihi semua rasa itu.kasih itu panjang sabar,murah hati, dan tulus keluar dari hati.

Cinta adalah perasaan suka-menyukai karena sesuatu dalam diri orang lain yang membuat kita tertarik hati dan berkomitmen. Cinta lebih banyak mengandalkan keadaan seseorang tersebut dalam berinteraksi dengan kita. Lain kata, cinta itu bersifat pemberian yang pamrih.

Sayang lebih mendekati kata Kasih (mengasihi).Sayang itu tulus,rela,dan selalu melindungi. Tak pernah padam,tak pernah redup dan tak pernah dapat tergantikan oleh apapun.

Android VS Blackberry

Handset BlackBerry sangat fenomenal di Tanah Air. Tapi Android dengan varian harga yang beragam,
bisa menggilas kepopuleran BlackBerry. Tanda-tanda akan suksesnya ponsel Android sudah mulai terlihat jelas. Group Head Brand Marketing Indosat Teguh Prasetya yakin ponsel Android bisa melebihi BlackBerry.


Alasannya, Android bisa menyasar semua lapisan masyarakat karena didukung berbagai varian harga.
“Sejak masuknya BlackBerry, pada 2008 mulai terlihat masyarakat menyukai ponsel cerdas dengan
sistem online 24 jam. Kami optimistis Android bisa mengalami kesuksesan
yang sama,” katanya saat dihubungi. Ini dikarenakan kelebihan android dibandingkan BlackBerry jelas jauh berbeda. Dimana Android unggul dari Blackberry Respon konsumen pada ponsel Android sudah sangat tinggi.

Sejak menawarkan preorder pada 22 Februari lalu, Indosat telah melepas
1.000 handset Android dari berbagai merek. Indosat juga berhasil menjual sekitar 2.000 handset saat tour
7 kota. Bahkan banyak pengamat yang memastikan di tahun 2011 nanti, Android siap tenggelamkan Blackberry . Ini sunguh istilah yang sangat tragis bagi Blackberry terkhusus bagi pengguna setia Blackberry.

“Hingga akhir tahun ini kami menargetkan 100 ribu handset. Kami optimis dengan melihat respon
masyarakat seperti itu, ” tambah Teguh. Ponsel Android sudah banyak yang ditawarkan dengan harga di bawah Rp 2 juta. Teguh meyakini handset jenis ini juga akan
mengancam bundling ponsel China. Gadget Ponsel Android dan bundling ponsel China memiliki segmen berbeda meski harganya tidak jauh
berbeda. Pasar Indonesia, kata Teguh, sangat beragam sehingga tidak menutup kemungkinan ponsel China juga dapat dipasarkan dengan Android.


Jadi, meskipun ponsel Android dipasarkan dalam berbagai lingkup dan merek, tapi tetap saja diminati konsumen. Teguh mengatakan kekurangan Sistem Operasi Android saat ini karena masih sulit ditemui di pasaran. “Kami melihat bahwa orang Indonesia mudah menerima sesuatu yang baru, jadi saya rasa Android bukan sesuatu hal yang tidak dapat diterima mereka, ” imbuhnya.

Untuk mendorong penjualan, menurut Teguh, Indosat mengusung beberapa strategi khusus. Indosat
menyediakan smartphone berbasis Android dengan beragam level harga. Sementara ketersediaan beragam perangkat itu, kemudian dilengkapi dengan layanan jasa berupa broadband unlimited baik postpaid maupun prepaid. “Kami juga memiliki Komunitas Indosat Android. Di sini, para pengguna layanan dapat saling
berinteraksi satu sama lain. Selain itu juga ada Android Application Store atau A-Store, ” katanya.

Salah satu handset Android yang banyak dibeli konsumen adalah Samsung. Head of Dept HHP Business Samsung Hioe An Kin memperkirakan produk Android Samsung sukses
karena pas di kantong. “Fitur-fitur yang kami berikan sesuai yang diinginkan konsumen dan tak
kalah dengan harga yang lebih mahal, ” imbuhnya.

Ia berharap Android bisa sefenomenal BlackBerry. Namun untuk jangka pendek, Android belum akan mengalahkan BlackBerry, karena saat ini masih dalam tahap pengenalan. “Handsetnya juga masih belum terlalu banyak, ada yang masih setara dan ada beberapa yang lebih mahal dibandingkan BlackBerry. Untuk tiga bulan ke depan, saya rasa masih di tahap pengenalan, walaupun memang reaksi masyarakat saya rasa sudah sangat baik, ” imbuhnya.

Namun begitu Hioe An Kin mengatakan pada akhir tahun Android sudah membanjir dengan syarat semua pihak bisa mempromosikan produknya secara
optimal. “Handset Android saya pikir sudah mulai beragam ketika itu, ” jelasnya. Ia menjelaskan pada 2008, kebanyakan orang tidak menyangka BlackBerry bisa sesukses sekarang. Tapi ternyata sekarang BlackBerry bisa begitu terkenal. “Malah banyak gadget yang berusaha mirip atau promosi dengan membawa nama
BlackBerry sebagai tolak ukur.

Ini menunjukkan jika soal teknologi atau handphone masyarakat Indonesia
memang positif sekali, ” katanya.

Kamis, 29 Desember 2011

Membuat Progress Bar Dengan VB6

Sekian lama saya menghilang dari postingan blog,pada akhirnya saya akan membuat postingan terbaru yaitu cara membuat progress bar dengan Vb 6.Okay langsung aja ya:::;
  • Buka Visual Basic 6.0, setelah itu pilih form standar.exe
  • Pada properties form, ganti captionnya menjadi, lprogress bar atau latihan loding atau sesuai yang di inginkan
  • Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini : 


  •  Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
  • Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini : 

 
  • Setelah itu klik 2 kali pada Timer1
  • Lalu, masukkan coding seperti dibawah ini : 

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1

End If

End Sub

  • Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
  • Ganti intervalnya menjadi 100
  • Kemudian coba compile dengan menekan tombol play.
  • Jika berhasil tampilannya seperti ini:
 
Gampang khan,coba dech langsung tambahain ke program yang anda Buat.Selamat Mencoba!!!

Senin, 19 Desember 2011

MEMBUAT MENU BAR DI VB 6

Visual Basic 6.0 menyediakan sarana untuk membuat menu tanpa terlebih dahulu membuat dasar
pemrogramannya. Pembuatan menu mutlak diperlukan, mengingat program yang sudah siap pakai
bisa menjadi lebih efektif dan praktis. Selain itu, bentuk menu yang cantik bisa menjadi daya tarik
tersendiri bagi user.

1. MEMBUAT MENU BAR
Menu Bar adalah menu standar yang berlaku sebagai menu utama pada setiap program aplikasi.
Untuk membuat menu Bar adlah sebagai berikut :
1. Klik menu Tools pilih Menu Editor.
2. Pada kolom Menu Editor, ketik judul menu dan submenu seprti berikut :
Cara mengisi input Menu Editor adalah sebagai berikut :• Untuk menu utama, isi kolom input Caption (&File) dan Name(mnu_file).
• Untuk pengisian menu berikutnya, klik baris kosong di bawah menu yang telah terisi pada
listbox (atau klik tombol Next).
• Submenu ditandai oleh tanda empat buah titik (….) yang akan muncul bila tombol ��
ditekan.
• Untuk garis pemisah antara menu, ketik karakter -.
• Untuk bantuan tombol keyboard (missal : Ctrl + X), isi kolom “Shortcut”.
• Karakter & memberi arti bahwa karakter sesudahnya ditandai garis bawah.

3. Klik tombol OK setealah selesai.
4. Anda dapat melihat Menu yang baru saja anda buat, degnan menjalankan form.
5. Untuk mempercantik form dari menu, berilah warna dasar putih pada form.
6. Tambahkan 3 buah kontrol Timer, 2 buah kontrol Label dan 1 buah kontrol Shape
7. Atur property dari masing-masing kontrol
8. Selanjutnya agar tampilan dari menu anda kelihatan lebih sempurna, anda dapat
menambahkan kontrol StatusBar.




2. STATUS BAR
Untuk membuat status bar dipergunakan StatusBar Control, kontrol ini merupakan frame yang
berisi panel sebagai penunjuk dari suatu aplikasi, seprti penunjuk status Caps Lock atau Num
Lock, penunjuk waktu, penunjuk tanggal ataupun untuk menampilkan status user yang sedang
aktif menggunakan program aplikasi.
StatusBar Control terletak pada Microsoft Windows Common Controls 6.0, untuk
menggunakannya, StatusBar Control harus diletakkan pada ToolBox.
Cara membuat StatusBar (contoh) :
Berikut ini contoh untuk membuat Control Panel, langkah-langkahnya sebagai berikut :
1. Tempatkan StatusBar Control pada form.
2. klik kanan bidang StatusBar Control dan pilih properties (muncul kotak dialog property
pages).
3. Klik tab “Panels”.
4. Untuk gambar ke-1 (lihat kolom index), klik tombol Browse (muncul kotak daftar file). Cari
pada drive/folder/file mana gambar yang akan disisipkan.

5. Klik tombol open, pada frame Picture muncul sebuah gambar
6. Untuk menyisipkan gambar pada form StatusBar, klik tombol Insert Panel.
7. Ulangi langkah 4-6 untuk gambar ke-2.
8. Sampai di sini tampilan form anda kurang lebih akan seperti berikut :
9. Selanjutnya akan lebih sempurna, jika dalam form yang anda buat ditambahkan ToolBar
sebagai menu tambahan.





3. TOOL BAR
ToolBar control merupakan tombol untuk membuat menu berbentuk tombol yang bisa berisi
image icon, tulisan, tooltip, ataupun ketiga-tiganya.
ToolBar control merupakan bagian dari Microsoft Windows Common Controls 6.0. untuk
penggunaannya, ToolBar control harus diletakkan dalam ToolBox.
Sebagai kontrol yang bisa menampilkan image, ToolBar control harus disandingkan dengan
ImageList Control, selain itu, ComboBox dan TextBox Control dapat diletakkan dalam ToolBar
Control.
Untuk membuat ToolBar, ikuti langkah-langkah sebagai berikut :
1. Tempatkan ToolBar Control dan ImageList Control pada bidang form.
2. Klik Kanan pada ImageList Control yang sudah ditempatkan dalam form. Pilih Properties
(muncul kotak dialog Properti Pages).
3. Pada kotak dialog Properti Pages pilih tab Image, klik tombol Insert Picture, pada kotak
dialog Select Picture, cari file gambar/icon yang akan ditempatkan pada ImageList.
4. Isi nama image ke-1 pada kolom Key (misal : index -1 : Key=LOGIN, index -2 : Key=NEW,
index -3 : Key=PREVIEW, index -4 : Key=PRINT, index –5 : Key=EXIT)
5. Klik OK untuk menutup kotak dialog ImageList Property Pages.
6. Langkah selanjutnya adalah membuat tombol untuk kontrol Toolbar.
7. Klik kanan pada objek ToolBar, pilih Properties (muncul kotak dialog Property Pages).
8. Klik tab General, pada kolom ImageList, masukkan ImageList1.
9. Klik tab “Buttons”, isi judul tombol pda kolom caption untuk tombol ke-1 (lihat “index”), misal
(index-1: Login, index-2: New, index-3: Explore, index-4: Print, index-5: Exit). Pada kolom
Image isi sesuai dengan index yang ada pada ImgeList Property.
10. Ulangi langkah di atas hingga semua tombol diberi judul dan gambar.

Silhkan download tutorial pdf disini
Semoga bermanfaat......
jangan lupa kasih source codenya iya!!!OKAY

Minggu, 18 Desember 2011

Membuat Escape Pada VB 6

Event keyboard merupakan salah satu elemen utama dari interaksi antara user dengan program yang kita buat. Event keyboard terjadi saat user menekan (pressed) ataupun melepas (released) tombol pada keyboard. Menangani event keyboard dapat dilakukan pada 2 (dua) level, yaitu :
1. Pada level kontrol (low-level) – menangani event keyboard yang terjadi pada sebuah kontrol, misalnya ketika user mengetik pada sebuah TextBox. Tidak semua kontrol mempunyai event keyboard. Hanya kontrol yang bisa mendapatkan focus (dicirikan dengan property TabIndex dan TabStop) saja yang mempunyai event keyboard. 
2. Pada level form (hight-level) – menangani event keyboard yang terjadi pada lingkup sebuah form. Artinya form akan lebih dulu merespon event keyboard daripada kontrol-kontrol yang ada di dalamnya. Agar form selalu lebih dulu merespon event keyboard maka property KeyPreview pada form tersebut harus diset menjadi True.


Contoh Source Code
Private Sub Form_KeyPress(KeyAscii As Integer)
‘Cek tombol keyboard yang ditekan
If KeyAscii = vbKeyEscape Then ‘Tombol Escape
If MsgBox("Tutup program ?", vbQuestion + vbYesNo, _
Me.Caption) = vbYes Then Unload Me
End If
End Sub

Jangan lupa Form di setting terlebih dahulu caranya:
Klik pada form lalu setting properties KeyPreview jadi True..
Semoga bermanfaat...

Selasa, 29 November 2011

Membuat Halaman Login dengan VB 6

Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.
Form :
(Name) : frmLogin
BorderStyle : 1-fixed single
Caption : LOGIN
Label1:
Caption :Username
Label2:
Caption :Password
TextBox1:
Name :txtName
Text :dikosongkan
TextBox2:
Name :txtpass
PasswordChar: * (asterisk)
Text :dikosongkan
CommandButtton:
Name : cmdLogin
Caption : LOGIN

Berikut adalah contoh tampilan halaman login:













Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.