Membuat Form Login [Delphi 7]

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]

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~