Latihan delphi berikutnya hampir sama dengan sebelumnya, cuma inputnya dijadikan satu Berikut untuk penjelsannya: Komposisi: Label1 : caption : STOCK BARANG Label2 : caption : Barang A : Label3 : caption : Barang B : Label4 : caption : Barang C : Label5 : caption : Jumlah Barang : Edit1 : Name : EbrgA Edit2 : Name : EbrgB Edit3 : Name : EbrgC Edit4 : Name : Ejumlah Button1 : ----------- caption: Proses Name : Bproses Button2 : ----------- caption: Exit Name : BExit Isi Code Perintah: ------------------- Tombol Button Bproses klik 2x: Diisi: //Menentukan tipe data variabel var a,b,c,jml :integer; Begin //Memasukkan nilai edit kedalam variabel dan //Merubah tipedata dari string ke integer a:=StrTOInt(EbrgA.Text); b:=StrToInt(EbrgB.Text); C:=StrToInt(EbrgC.Text); //Rumus jml:= a + b + c; //Memasukkan hasil rumus kedalam edit Ejumlah dan //Merubah tipedatanya dari Integer ke String Ejumlah.Text:= IntToStr(jml);//otomatis bukan diisi End; Isi Code Perintah: ------------------ Tombol Button BExit klik 2x: Diisi: //Menutup aplikasi program Application.Terminate; Kondisi Run: ============= 1. Object Tree view dan Object Insprctor(properties/even) tidak muncul 2. Form Design berubah mjd kondisi run dengan tanda tidak adanya garis titik2(...) dan tidak bisa diedit 3. Kondisi hank setelah run maka cara menghentikannya dengan menekan: run -> program reset 4. apabila error setelah run terdapat 2 pilihan: - end : menutup aplikasi run - debuge : menutup aplikasi run dan menunjukan letak baris kesalahan dengan warna kuning 5. run mempunyai taskbar sendiri dengan simbol berbeda dengan taskbar delphi Menambah Form: ============== File- New- Form Untuk Run karena form lebih dari 1 makaharus dipilih posisi run dengan cara: Project - Option - Pilih Main Form yang ingin di Run silahkan download
0 comments:
Posting Komentar