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)