LAPORAN
AKHIR PRATIKUM
(Delphi
& VB)
Nama : Diah Ayu Setiani
NPM : 2D114282
Kelas : 1KB05
Materi Pratikum : Delphi & VB
Tanggal Pratikum : 19
Oktober 2014
Asisten Baris :
Ketua Asisten : Valdi
UNIVERSITAS
GUNADARMA
LABORATORIUM
SISTEM INFORMASI
2014/2015
TugasAkhir
Tutorial / LangkahKerja Membuat Form tampil pada Panel.
1. Klik
Open pada Delphi
2. Terlihat
Form seperti dibawah Ini
3. Buat
Komponen- Komponennya …
a.
Form1
-
Panel1
-
Button1
-
Button2
-
Button3
b.
Form2
-
Label1,2,3 =
Nama, NPM, dan Kelas
-
Edit1,2,3 = -
-
Memo 1
-
Button1 = Tampilan
c.
Form 3
-
Label1,2,3 = UTS, UAS, Total
-
Edit1,2,3 = -
-
Button1 = Prosess
d.
Form4
-
Label1,2 = Total Nilai,
Keterangan
-
Edit1,2 =
-
-
Button1 = Prosess
4. MasukkanLah
Coding pada Masing2 Komponennya.
Logika
:
>>
Jika di Klik run maka program dapat berjalan dengan beberapa logika coding
berikut ..
a. Button
1 :
procedure
TForm1.Button1Click(Sender: TObject);
begin
>> jika di klik pada button1 maka
berjalan program seperti di samping ini
form2.top
:=10; >> menentukan posisi atas pada formnya
form2.left
:=10; >> menentukan posisi kiri pada formnya
form2.Parent:=panel1; >>form2 akan tampil pada panel1
form2.visible:=true; >> yaitu coding yang mempunyailogika
akan tampil atau tidak, karna hasilnya true maka akan tampil..
end;
>>
pada coding ini Jika di Klik Button1 maka akan tampil form2 pada panelnya..
b. Button2
:
procedure
TForm1.Button1Click(Sender: TObject);
begin >> jika di klik pada button1 maka
berjalan program seperti disamping ini..
form3.top
:=10; >> menentukan posisi atas pada formnya
form3.left
:=10; >> menentukan posisi kiri pada formnya
form3.Parent:=panel1; >>form3 akan tampil pada panel1
form3.visible:=true; >> yaitu coding yang mempunyailogika
akan tampil atau tidak, karna hasilnya true maka akan tampil..
end;
>>
pada coding ini Jika di Klik Button2 maka akan tampil form3 pada panelnya..
c. Button3
:
procedure
TForm1.Button1Click(Sender: TObject);
begin >> jika di klik pada button1 maka
berjalan program seperti dibawah ini..
form4.top
:=10; >> menentukan posisi atas pada formnya
form4.left
:=10; >> menentukan posisi kiri pada formnya
form4.Parent:=panel1; >>form4 akan tampil pada panel1
form4.visible:=true; >> yaitu coding yang mempunyailogika
akan tampil atau tidak, karna hasilnya true maka akan tampil..
end;
>>
pada coding ini Jika di Klik Button3 maka akan tampil form4 pada panelnya..
Demikian Tutorial ini saya buat
dengan kemampuan saya sendiri..
0 komentar:
Posting Komentar