Pages

Membuat Form Login [Delphi 7]

Kamis, 25 Desember 2014

Selamat sore kawan ^_^

sekarang aku pengen share cara bikin form login di Delphi 7. di sini aku mengasumsikan kalian udah install Delphi 7 ya. ini cuma ilmu dasar sih, tapi mungkin berguna buat para pemula kaya aku sebenernya ada 2 jenis pembuatan form login yang aku tau, pertama yang gapake database dan yang pake database. Dua-duanya punya kelebihan dan kekurangan masing-masing.

Ga Pake Database :
  • Kelebihan : Sulit di bobol karna username/password tersimpan di script
  • Kekurangan : pengguna ga bisa ganti password atau menambah akun (register)
Pake Database :
  • Kelebihan : Bisa mengganti username/password dan menambah akun baru
  • Kekurangan : Mudah di bobol karna database akun bisa di cari dan di buka.
Tapi sekarang aku cuma mau bahas yang gapake database :v
Oke kita mulai!
Pertama coba kalian bikin desain form seperti ini.
Simpel aja ya, karna kita mau belajar kodingnya bukan desain :v
oiya yang Edit2/Kolom Password ganti properties "PasswordChar" jadi tanda *
biar saat di ketik berubah menjadi ******
sekarang klik 2x di tombol Login dan masukan koding ini di antara begin dan end;

if (Edit1.Text <> 'azisu') or (Edit2.Text <> 'azusa')
  then
  begin
  MessageDlg('ID Atau Username Anda Salah, Silahkan Coba Lagi!',mtwarning,[mbok],0);
  Edit1.Text := '';
  Edit2.Text := '';
  Edit1.SetFocus;
  end
  else
  begin
  MessageDlg('Anda Berhasil Login!',mtinformation,[mbok],0);
  Form1.Hide;
  Form2.Show;
end;

biar ku jelasin cara kerja kodingnya. Jadi jika teks di dalam Edit1 tidak sama dengan 'azisu' atau teks di dalam Edit2 tidak sama dengan 'azusa' maka akan gagal login dan teks di kosongkan semua.
itu teks yang di merahin boleh kalian ganti sesuka kalian, yang 'azisu' untuk username dan 'azusa' untuk passwordnya.

oiya sebelumnya jangan lupa buat bikin Form2, bikin aja ga perlu ada isinya buat tanda aja kalo Form Login kalian berhasil dan pindah ke Form Menu (Form2).
oke sekarang kita coba aja dulu, pencet F9 di keyboard kalian! lalu masukan username dan passwordnya, maka hasilnya akan seperti ini.



Jika berhasil dan kalian meng-klik OK maka akan pindah ke Form Menu(Form2), dan jika salah kalian akan disuruh mengulanginya.

terakhir kita bikin koding untuk tombol keluar, gampang kok, ga ribet, ga panjang, ga rumit, ga banyak dan ga bikin pusing :v
oke, klik 2x di tombol keluar dan masukan koding yang sangat sedikit ini diantara begin dan end;

close;

sekian, semoga bermanfaat~ ^_^

Membuat Kalkulator Tombol [Visual Basic 6.0]

Selasa, 23 Desember 2014

Selamat Siang kawan ^_^
Kali ini aku pengen share apa yang ku pelajarin di sekolah :D
kita akan belajar bikin Kalkulator. Emang ngga berguna sih hasilnya karna kalkulator sekarang sudah ada di setiap komputer dan henpon :v
Tapi mungkin cara kerja programnya akan berguna untuk membuat program lain. oke kita mulai!

Pertama coba kalian bikin desain formnya seperti ini
di gambar ada 4 Label dan 16 Command. Ubah Properties (Name) nya menjadi seperti ini :

Tombol
(Name)
Tombol
(Name)
1
b1
9
b9
2
b2
0
b0
3
b3
+
bTambah
4
b4
-
bKurang
5
b5
/
bBagi
6
b6
*
bKali
7
b7
=
bHasil
8
b8
Hapus
bHapus

Kalau Label nya biarin aja kaya gitu ga usah di rubah.
Oke saatnya kita berkoding ria :v

Private Sub b0_Click()
Label1.Caption = Label1.Caption & b0.Caption
End Sub
Private Sub b1_Click()
Label1.Caption = Label1.Caption & b1.Caption
End Sub
Private Sub b2_Click()
Label1.Caption = Label1.Caption & b2.Caption
End Sub
Private Sub b3_Click()
Label1.Caption = Label1.Caption & b3.Caption
End Sub
Private Sub b4_Click()
Label1.Caption = Label1.Caption & b4.Caption
End Sub
Private Sub b5_Click()
Label1.Caption = Label1.Caption & b5.Caption
End Sub
Private Sub b6_Click()
Label1.Caption = Label1.Caption & b6.Caption
End Sub
Private Sub b7_Click()
Label1.Caption = Label1.Caption & b7.Caption
End Sub

Private Sub b8_Click()
Label1.Caption = Label1.Caption & b8.Caption
End Sub

Private Sub b9_Click()
Label1.Caption = Label1.Caption & b9.Caption
End Sub

koding di atas berfungsi untuk menambah angka ketika kita meng-klik tombol angka tersebut. Jadi ketika tombol 1 di klik maka Caption Label 1 akan berubah menjadi gabungan antara Caption Tombol 1 dan Caption Label 1. Kira-kira begitulah cara kerjanya :v
Oke kita lanjut ke koding selanjutnya!

Private Sub bTambah_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bTambah.Caption
Label1.Caption = ""
End Sub
Private Sub bKurang_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bKurang.Caption
Label1.Caption = ""
End Sub
Private Sub bKali_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bKali.Caption
Label1.Caption = ""
End Sub
Private Sub bBagi_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bBagi.Caption
Label1.Caption = ""
End Sub

biar kujelasin cara kerja koding ini. Jadi ketika tombol tambah di klik, apa yang ada ada di Label1 akan di taruh di Label2. Terus tanda tambah yang ada di Caption tombol tambah juga di taruh di Label 4 untuk di proses di koding selanjutnya. Kemudian Label1 di kosongkan agar memudahkan pengguna (kaya ada yang gunain aja wkwkw :v). Lanjuuut!

Private Sub bHasil_Click()
Label3.Caption = Label1.Caption
Label1.Caption = ""
Select Case Label4.Caption
Case "+"
Label1.Caption = Val(Label2.Caption) + Val(Label3.Caption)
Case "-"
Label1.Caption = Val(Label2.Caption) - Val(Label3.Caption)
Case "x"
Label1.Caption = Val(Label2.Caption) * Val(Label3.Caption)
Case "/"
Label1.Caption = Val(Label2.Caption) / Val(Label3.Caption)
End Select
End Sub

di sini aku mengasumsikan kalau kalian udah input nilai yang ke dua, jadi ketika tombol hasil(=) di klik apa yang ada di Label1 akan di taruh di Label 3. Kemudian kita membuat Case sesuai dengan apa yang ada di Label4. Jika di Label4 berisi lambang tambah maka Label2 di tambah Label3 dan hasilnya di taruh di Label1 begitu juga dengan lambang kurang, kali dan bagi.

oiya ada yang ketinggalan :v
ini koding hapusnya

Private Sub bHapus_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
End Sub

kalo yang ini pasti ngerti kan? -,-
dari kodingnya aja udah kliatan fungsinya, ga ngerti jitak nih :v

oke sekian, semoga bermanfaat~

Installasi Windows 98

Rabu, 19 Februari 2014



  1. Siapkan Installer Windows 98
  2. Pastikan Di Cpu ada CD-ROM atau Flopy drive atau usb 
  3. Untuk memulai ini menginstal Windows. Pertama, cek apakah perangkat boot pertama di BIOS sistem Anda diatur ke Drive CD-ROM.
    (Untuk mengetahui bagaimana untuk mengakses BIOS silahkan lihat manual motherboard anda atau produsen komputer Anda. (Sistem BIOS biasanya dapat dimasukkan saat boot, biasanya dengan menekan F1, F2, F8, F10 atau tombol DEL. Pastikan Anda menyimpan pengaturan sebelum keluar))
    Jika Anda tidak yakin atau tidak ingin untuk masuk ke BIOS maka hanya menguji komputer dengan menempatkan CD-ROM di drive dan reboot komputer. Ini adalah cara yang direkomendasikan untuk menginstal windows.
    Anda akan tahu bahwa komputer Anda akan / telah boot dari CD-ROM ketika layar berikut akan muncul.
  4. Untuk memulai Windows 98 menginstal pilih Opsi 2 (Boot dari CD-Rom)
  5. Layar berikut akan muncul berikutnya. Pilih Opsi 1. (Start Windows 98 Setup dari CD-ROM)
  6. CD-ROM driver Anda sekarang akan menginstal, bersabarlah ini mungkin memakan waktu beberapa saat.
  7.  Sekarang tekan Enter untuk melanjutkan, atau F3 untuk keluar.
  8. Proses installan akan melakukan pemeriksaan pada sistem Anda, tekan Enter untuk melanjutkan.
  9. Scandisk Selanjutnya akan berjalan, biarkan proses penginstallan berjalan
  10.  Sekarang proses penginstallan  akan menyalin file penting untuk menginstal. 
  11. Pengaturan sekarang telah mulai, mouse sekarang harus aktif, tekan "Continue" untuk melanjutkan. Jika Anda memiliki perubahan pikiran kemudian tekan Pengaturan " Exit ". Jika mouse tidak aktif tekan "ENTER" pada keyboard  
  12. Wizard sekarang akan mulai. mungkin ini akan memerlukan waktu beberapa saat.  
  13. Sekarang pilih direktori anda ingin menginstal Windows ke dalam. Secara default C: \ Windows akan dipilih. Anda dapat mengubah ini, tetapi tidak disarankan. Klik Next untuk Lanjutkan.
  14. Proses penginstallan sekarang akan mempersiapkan direktori, bersabarlah ini dapat meluangkan waktu anda sejenak.
  15. Proses penginstallan  sekarang cek ruang  pada hardisk anda 
  16. Apa yang Anda ingin menginstal. Kami merekomendasikan khas, yang merupakan default. Jadi klik Next untuk melanjutkan.
  17. Komponen Windows harus diinstal sekarang akan terdaftar. Tinggalkan di default dan tekan Next.
  18. Jika kartu jaringan telah terdeteksi berikut ini akan muncul. Isi rincian dan klik Next. 
  19. Sekarang pengaturan negara Anda, pilih yang diperlukan dan kemudian tekan Next.   
  20. Sekarang Windows akan menyalin file, ini akan memakan waktu yang cukup lama
  21. Setelah kadang-kadang Anda akan diminta untuk restart, Windows akan melakukannya sendiri, Anda dapat klik pada Restart Now untuk mempercepat proses. 
  22. Menu boot CD-ROM akan muncul. Pilih opsi 1 (Boot dari Hard Disk)   
  23. Untuk layar booting pertama kali akan muncul.    
  24. Sekarang masukkan nama Anda, perusahaan adalah opsional. Klik Next untuk melanjutkan.
  25.  Sekarang Perjanjian Lisensi. Baca dan jika anda setuju klik "Saya menerima Perjanjian" dan klik berikutnya. Jika Anda memilih "" Saya tidak menerima Perjanjian "kemudian setup akan berakhir.  
  26. Sekarang masukan produk Anda kunci atau kode sertifikat keaslian. Ini adalah 16 digit dan terletak di belakang kasus CD atau pada Windows 98 Buku. Jika Anda memiliki komputer OEM maka bisa di samping atau belakang komputer Anda. Klik next untuk melanjutkan.  
  27. Selanjutnya klik Finish.  
  28. Setup sekarang akan menyelesaikan hardware dan menginstal setelan. 
  29. Plug and Play Devices .....
  30. komputer Anda akan meminta untuk restart ....
  31. Menu booting CD akan muncul. Pilih opsi 1 (Boot dari Hard Disk) dan tekan enter.
  32. Windows is booting. 
  33. dan melanjutkan menginstal perangkat.
  34. Sekarang pilih tanggal / waktu pengaturan, menggunakan panah di samping GMT -0800.
  35. Setelah dipilih klik pada menerapkan dan kemudian OK. 
  36. Windows akan melanjutkan setup item Windows..   
  37. komputer sekarang akan perlu restart lagi  
  38. Menu boot CD-ROM akan muncul. Pilih Opsi 1 (Boot dari Hard Disk) dan tekan enter. 
  39. setelah proses installasi selesai anda akan masuk ke windows 98  
  40. dan memperbarui Pengaturan Sistem.   
  41. Pada akhirnya anda telah tiba di desktop.