Home » Archive for April 2015

Program ATM || Dev C++

Add Comment
Assalamualaikum, selamat malam teman-teman semua, kali ini saya akan posting contoh sederhana program ATM dengan menggunakan aplikasi Dev C++..
Seperti ATM pada umumnya, jika kita salah mmasukkan pin berulang-ulang selama tiga kali, maka atm akan si blokir sementara.. dan jika pin benar maka kita akan masuk ke menu utama pengambilan uang...

Related Posts:

Form Login || Delphi 7

Add Comment





Assalamualaikum, selamat malam teman-teman semua, kali ini saya akan posting cara membuat form login dengan menggunakan Delphi..

Langsung saja yah teman-teman :


 Include

  • 2 Label
  • 2 Edit
  • 1 Button 

Setelah teman-teman design tampilan login seperti diatas (sesuai kreasi teman-teman), pada bagian edit1 Name diganti menjadi ENama, bagian Textnya kosongkan saja. Seperti gambar di bawah :


Seperti langkah diatas, bagian edit2 Name diganti menjadi Epass, bagian Text dikosongkan saja dan pada PasswordChar diganti menjadi *.
Seperti gambar dibawah :


Kemudian pada tombol Button1 Name diganti menjad &LOGIN. Seperti gambar di bawah :


Setelah langkah diatas sudah selesai, kemudian double klik pada tombol LOGIN dan masukkan source code berikut :

begin
if(ENama.Text = 'Edet') and
(EPass.Text = 'Edet') then
Frmlst.Show
else
Application.MessageBox('Pastikan username atau password anda benar',0);
exit;
end;


Demikian tutorial singkatnya, Jika masih ada yang kurang jelas mohon komentar dan masukan dari teman-teman semua :)

Salam Anak IT (y)

Related Posts:

Menghitung luas segitiga || Delphi 7

Add Comment



Assalamualaikum, selamat malam teman-teman semua, kali ini saya akan posting program mencari luas segitiga dengan menggunakan Delphi.. 

Langsung saja yang teman-teman :)


Include

  • 3 Label
  • 3 Edit
  • 3 Button


Jika teman – teman sudah membuat tampilan seperi gambar diatas, double klik pada tombol hitung kemudian masukkan source code berikut :

var
a:integer;
t:integer;
Luas:real;
begin
a:=strtoint(edit1.Text);
t:=strtoint(edit2.Text);
Luas:=1/2*a*t;
edit3.Text:=FloatTostr(Luas);
end;

Sebenarnya intinya cuma itu, tapi saya menambahkan dua tombol button lagi..
yaitu tombol ulang dan tombol keluar.

Jika teman-teman juga menambahkan tombol itu, double klik pada tombol ulang dan masukkan source code berikut :

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';

source code diatas berguna untuk menghapus atau membersihkan bagian edit jika kita ingin memasukkan angka lainnya.

Kemudian pada tombol keluar, saya menggunakan komentar, tapi jika teman-teman lebih memilih sederhana, gampangnya tinggal memasukka code :

Close;

Tapi jika ingin menambahkan komentar pada tombol keluarnya masukkan source code berikut :

begin
if(application.MessageBox('Anda Yakin ingin Keluar??','Informasi',MB_YESNO)=idYES)then
close;
end;


Demikian tutorial singkat dari saya :D
Koment jika ada kesalahan, kita sama-sama belajar :D
Hehehee...

Salam Anak IT (y)

Related Posts:

Subscribe to: Posts (Atom)