Pages

Membedakan Angka Ganjil dan Genap Delphi7

Senin, 31 Maret 2014
Kali ini saya akan membuat program membedakan Angka Ganjil dan Genap
dan tanpa banyak bicara saya akan langsung postingkan kodingnya...
Taaaa Daaaaaa....!!!
hasilnya akan seperti dibawah ini., sederhana memang... tapii buat pelajar delphi7...
dapat memberikan pelajaran tambahan...
Asseeekkkkk












Ini koding sobat...
.langsung saJa ea... selamat mencoba!

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := strtoint(edit1.Text);
if a mod 2 =0 then
    begin
      label1.Caption:= 'Bilangan Genap';
      end
     else
     label1.Caption:= 'Bilangan Ganjil';
     Edit1.SetFocus;
  end;
end.
Read more ...

Input Nilai Dengan Delphi7

Senin, 31 Maret 2014
Hasil Input Nilai saat Run














Naaaach kita langsung mulai saja
berikut ini adalah bagaimana cara membuat ON-CREATE
caranya ikuti saja petunjuk gambar dibawah ini
1. click FOrm terlebih dahulu untuk membuatnya.
2. cari yang namanya OnCreate. letaknya ada dibagian Event.
  contoh gambar dibawah ini. jangan lupa double click ya tulisan OnCreate itu :-)
3. masukkan koding yang sudah saya siapkan:



















ini koding untuk OnCreate

procedure TMudawwir12012769.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('12012001');
  ComboBox1.Items.Add('12012002');
  ComboBox1.Items.Add('12012003');
  ComboBox1.Items.Add('12012004');
  ComboBox1.Items.Add('12012005');
end;





















Disini Langkah-langkah cara menyesuaikan ComboBox1:
1. double klik OnClick. maka secara otomatis anda akan masuk ke bagian koding., lalu maukkan koding dibawah ini yaaa, copas juga gk pa2.! ngirit waktu

procedure TMudawwir12012769.ComboBox1Click(Sender: TObject);
begin
   case ComboBox1.ItemIndex of
   0:Edit1.Text:='Mudawwir';
   1:Edit1.Text:='Mulfi Ubaidillah';
   2:Edit1.Text:='Muhammad Ikhlas';
   3:Edit1.Text:='Yudik Angrayni';
   4:Edit1.Text:='Wekik Chan';
   end;
end;

Setelah selesai dengan tombol OnClick
Jangan Lupa pilih ComboBox1 lagi, namun kali ini masuk ke bagian OnChange, sudah nampak contohnya kn seperti gambar diatas yg sudah siap kn.
double click OnChange tersebut lalu masukkan kodingnya:
dibawah ini koding untuk OnChange

procedure TMudawwir12012769.ComboBox1Change(Sender: Tobject);
begin
  Edit2.SetFocus;
 end;


Koding pada tombol (Tbutton: Proses):








Ok kita langsung saja memasukkan koding
jangan lupa, terlebih dahulu kita double klik Jbutton (tombol proses)
dibawah ini koding:

procedure TMudawwir12012769.ProsesClick(Sender: TObject);
var nilai:integer;
   hasil:string;
begin
if (edit1.Text = '') or (edit2.Text = '') then
    begin
  Application.MessageBox('Data masih ada yang kosong' +sLineBreak+'Isi dulu semua data!','Informasi',MB_ICONINFORMATION);
Edit2.SetFocus;
    end
    else
   nilai:=strtoint(edit2.Text);
   if nilai < 51 then
      hasil:= 'Nilai E'
    else if  nilai < 66 then
      hasil:='Nilai D'
      else
      if nilai < 76 then
      hasil:='Nilai C'
      else
      if nilai < 86 then
      hasil:='Nilai B'
      else
      if nilai < 101 then
      hasil:='Nilai A';
 edit3.Text:= hasil;
end;



Setelah selesai lanjutan pengkodingan dibawah ini ya.
caranya sama dengan memasukkan koding pada tombol Proses:

Koding pada tombol (Tbutton:  Keluar ):
procedure TMudawwir12012769.KeluarClick(Sender: TObject);
begin
close;
end;


Koding pada tombol (Tbutton: Ulang):
procedure TMudawwir12012769.UlangClick(Sender: TObject);
begin
ComboBox1.Text:='';
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
ComboBox1.SetFocus;
end;

end.

.selamat mencoba yaaaa...!!!
  .semoga sukses :-)
Read more ...

fungsi dan arti tombol keyboard

Rabu, 19 Maret 2014
         ..::Tombol Fungsi dan kegunaan::..
F1.________________________.Menjalankan fungsi pertolongan yang disediakan pada Word.
F2.________________________.Memindahkan teks atau objek yang dipilih
F3.________________________.Menjalankan perintah AutoText
F4.________________________.Mengulangi perintah sebelumnya
F5.________________________.Menjalakan perintah Find and Replace atau Goto
F6.________________________.Menjalankan perintah Other Pane
F7.________________________.Memeriksa kesalahan ketik dan ejaan teks
F8.________________________.Awal perintah penyorotan atau pemilihan teks atau objek
F9.________________________.Meng-Update Field (Mail Merge)
F10._______________________.Mengaktifkan Menu
F11._______________________.Memasukkan Field berikutnya (Mail Marge)
F12._______________________.Mengaktifkan dialog Save As
ESC._______________________.Membatalkan dialog
Enter._____________________.Melaksanakan pilihan atau mengakhiri suatu paragraf
Tab.________________________.Memindahkan teks sesuai dengan tanda Tab yang ada pada ruler horizontal
Windows.___________________.Mengaktifkan Menu Start
Shorcut.___________________.Mengaktifkan Shorcut pada posisi kursor
Delete.____________________.Menghapus 1 karakter diseblah kanan kursor
Backspace._________________.Menghapus 1 karakter disebelah kiri kursor
Insert.____________________.Menyisip karakter diposisi kursor
Home.______________________.Memindahkan posisi kursor ke awal baris
End._______________________.Memindahkan posisi kursor ke akhir baris
PageUp.____________________.Menggulung ke atas
PageDown.__________________.menggulung layar ke bawah
Up.________________________.Memindahkan Kursor 1 baris ke atas
Down.______________________.Memindahkan Kursor 1 baris ke bawah
Left.______________________.Memindahkan Kursor 1 karakter ke kiri
Right._____________________.Memindahkan Kursor 1 karakter ke kanan
Ctrl + 1.____________________.Jarak antar baris pada paragraf 1 spasi
Ctrl + 2.____________________.Jarak antar baris pada paragraf 2 spasi
Ctrl + 5.____________________.Jarak antar baris pada paragraf 1,5 spasi
Ctrl + =.____________________.Teks dengan efek Subscript
Ctrl + A.____________________.Menyorot seluruh objek yang terdapat dalam jendela dokumen yang aktip
Ctrl + B.____________________.Memberi style tebal pada teks
Ctrl + C.____________________.Awal perintah pemotong objeks yang dipilih untuk dipindahkan berpasangan dengan Ctrl+V
Ctrl + D.____________________.Membuka dialog font
Ctrl + E.____________________.Merata tengahkan paragraf
Ctrl + F.____________________.Membuka dialog Find and Replace untuk mencari teks tertentu
Ctrl + G.____________________.Membuka dialog Find and Replace untuk menuju halaman tertentu
Ctrl + H.____________________.Membuka dialog Find and Replace untuk mengganti teks tertentu
Ctrl + I.____________________.Memberi style miring pada teks
Ctrl + J.____________________.Merata kanankan paragraf
Ctrl + K.____________________.Menyisipkan perintah hyperlink
Ctrl + L.____________________.Merata kirikan paragraf
Ctrl + M.____________________.Menggeser paragraf ke arah kanan
Ctrl + N.____________________.Menciptakan dokumen baru
Ctrl + O.____________________.Membuka dokumen
Ctrl + P.____________________.Membuka dialog Print untuk mencetak halaman dokumen
Ctrl + Q.____________________.Mengembalikan style paragraf ke style awal
Ctrl + R.____________________.Merata kanankan paragraf
Ctrl + S.____________________.Menyimpan dokumen
Ctrl + T.____________________.Memindahkan posisi  Hanging Indent
Ctrl + U.____________________.Menggaris bawahi teks
Ctrl + V.____________________.Memperlihatkan hasil kopian atau hasil potongan
Ctrl + W.____________________.Menutup dokumen
Ctrl + X.____________________.Awal perintah pengopian objeks yang dipilih yang berpasangan dengan Ctrl+V
Ctrl + Y.____________________.Mengulangi perintah yang sudah dibatalkan
Ctrl + Z.____________________.Membatalkan perintah
Ctrl + Space.________________.Mengembalikan format teks
Ctrl + ].____________________.Memperbesar ukuran font
Ctrl + [.____________________.Memperkecil ukuran font
Ctrl + F2.___________________.Print Review
Ctrl + F4.___________________.Menutup dokumen
Ctrl + F6.___________________.Beralih ke jendela dokumen lainnya
Ctrl + F9.___________________.Insert Field Chars
Ctrl + F12.__________________.Mengaktifkan dialog open
Ctrl + Esc.__________________.Mengaktifkan menu start
Ctrl + Shorcut.______________.Mengaktifkan menu shorcut
Ctrl + Delete._______________.Menghapus 1 kata di kanan kursor
Ctrl + Backspace.____________.Menghapus 1 kata di kiri kursor
Ctrl + Up.___________________.Memindahkan kursor ke awal paragraf
Ctrl + Down._________________.Memindahkan kursor ke awal paragraf dibawahnya
Ctrl + Left._________________.Memindahkan Kursor 1 kata ke kiri
Ctrl + Right.________________.Memindahkan Kursor 1 kata ke kanan
Ctrl + Insert._______________.sama dengan Ctrl+C
Ctrl + Home._________________.Memindahkan kursor ke posisi awal dokumen
Ctrl + End.__________________.Memindahkan kursor ke posisi akhir dokumen
Ctrl + PageUp._______________.Memindahkan posisi kursor ke awal paragraf pertama halaman sebelumnya
Ctrl + PageDown._____________.Memindahkan posisi kursor ke awal paragraf pertama halaman sesudahnya
Alt + F3.____________________.Mendefinisikan Auto Text  
Alt + F4.____________________.Mengakhiri pengunaan Microsoft Word
Alt + F6.____________________.Beralih ke jendela dokumen lainnya
Alt + F8.____________________.Menjalakan Tools Macro
Alt + F11.___________________.View VB Code
Shift + F2.___________________.Mengopi Text
Shift + F3.___________________.Change Case
Shift + F4.___________________.engulangi pencarian
Shift + F5.___________________.Mengulangi perintah Go
Shift + F12.__________________.Menyimpan dokumen
Ctrl + Shift + F6.______________.Ke jendela dokumen berikutnya
Ctrl + Shift + F8.______________.Menyorot Kolom
Ctrl + Shift + F12._____________.Memulai perintah cetak
Alt + Ctrl + F2._______________.Membuka dokumen
Alt + Shift + F2.______________.Menyimpan dokumen
Alt + Shift + F6.______________.Ke jendela dokumen sebelumnya
   

            >>..::SEMOGA BERMAMFAAT YA::..<<
Read more ...