LA AP2A Pertemuan 5

 >>>>> DOWNLOAD .DOC<<<<<

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum          :  Algoritma & Pemrograman 2 A (AP2A)

Kelas                           :  1IA20

Praktikum ke-              :  5

Tanggal                        :  24 april 2015

Materi                          :  Pengenalan Visual basic

NPM                           :  53414057

Nama                           :  Didi Mulyadi

Ketua Asisten              :  Chairul U

Nama Asisten              :

Paraf Asisten               :

Jumlah Lembar            :  5 lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2015

Listing Program.

Listing Tombol dan logika:

-          FORM 1 Checkbox Italic Private Sub Check1_Click() Text2.FontItalic = Check1.Value End Sub             Pada isi command line di atas  digunakan untuk merubah font yang berada di text2,menjadi italic , jika checkbox pada italic ini di ceklis (value) dan akan kembali ke font sebelumnya ketika ceklis pada checkbox dihilangkan.              Checkbox Bold Private Sub Check2_Click() Text2.FontBold = Check2.Value End Sub             Pada isi command line di atas  digunakan untuk merubah font yang berada di text2,menjadi bold , jika checkbox pada bold ini di ceklis (value) dan akan kembali ke font sebelumnya ketika ceklis pada checkbox dihilangkan.              Button OK Private Sub Command1_Click() Text2.Text = Text1.Text End Sub             Pada kode program ini digunakan untuk menampilkan text2 yang menginput dari text1 , dengan kata lain ketika tombol Ok di klik makan yang ada di text1 akan tercetak di text2.              Button ( + ) Private Sub Command2_Click() Text2.FontSize = Text2.FontSize + 3 End Sub             Pada kode program diatas digunakan untuk memperbesar font yang berada di text 2 dengan size +3 setiap kita meklik buttonnya.              Button ( - ) Private Sub Command3_Click() Text2.FontSize = Text2.FontSize - 3 End Sub             Pada kode program diatas digunakan untuk memperkecil font yang berada di text 2 dengan size -3 setiap kita meklik buttonnya.               Button KELUAR Private Sub KELUAR_Click() MsgBox ("Terima Kasih") End Sub             Pada kode program diatas digunakan untuk keluar dari program, kemudian akan menampilkan box  pesan text “Terima Kasih”.                Sub Option MERAH Private Sub Option1_Click() Text2.ForeColor = vbRed End Sub Pada kode program diatas digunakan untuk mengubah font color pada text2 menjadi warna merah. Sub Option BIRU Private Sub Option1_Click() Text2.ForeColor = vbBlue End Sub             Pada kode program diatas digunakan untuk mengubah font color pada text2 menjadi warna merah. .

Output Program :