BAB IV Pemrograman Grafis

BAB IV Pemrograman Grafis Gambar dalam pemrograman grafis merupakan hel penting untuk dipelajari dalam Visual Basic, karena bisa menambah kemampuan dalam mendesain visual effect bagi program-program yang dibuat. unit kontrol yang digunakan untuk pemrograman grafis meliputi : • Line, digunakan untuk garis lurus di atad form • Shape, digunakan untuk membuat lingkaran, persegi empat, elips atau persegi panjang bersiku bulat • Image, untuk menampilkan gambar pada form • Picture Box, digunakan untuk menampilkan gambar di form. Namun kontrol ini paling baik jika digunakan untuk dipindahkan atau dibuat animasi. Dasar Pemrograman Grafis A. Sistem Koordinat Hampir semua operasi pemrograman grafis bekerja dengan sistem koordinat, seperti berpindah, mengubah ukuran, dan lain-lain. Pada Visual Basic hanya dikenal sistem koordinat dua dimensi, walupun natinya bisa saja dibuat sistem koordinat 3 dimensi dengan tambahan rutin yang dibuat. Untuk mendefinisikan koordinat pada form atau obyek yang lain digunakan penulisan (x,y). Standar awal dari koordinat adalah (0,0) pada titik paling kiri atas dari obyek yang didefinisikan koordinatnya. B. Warna Untuk mendefinisikan warna pada Visual Basic bisa digunakan : • Fungsi RGB • Fungsi QBColor untuk memilih satu dari 16 warna pada Microsoft Quick Basic • Salah satu konstanta intrinsic yang bisa dilihat pada Object Browser • Langsung mengisikan nilai warna, misalkan “&H00FFFFF&” Untuk menggunakan fungsi RGB digunakan standar penulisan rutin RGB(merah, hijau, biru). Fungsi ini akan menghasilkan warna sebagai kombinasi dari nilai-nilai yang diisikan pada merah, hijau dan biru. Nilai yang bisa dilakukan adalah dari 0 hingga 255. Contoh : Text1.BackColor = RGB(0,0,0) ‘ warna latar belakang hitan Pset (100,100), RGB(255,255,0) ‘titik pada koordinat (100,100) latar warna kunig Text1.BackColor = QBColor(2) ‘latar belakang berwarna hijau Microsoft Visual Basic 6.0 – by Iman Basuni

Kontrol untuk Pemrograman Grafis A. Kontrol Line Kontrol ini digunakan untuk menggambar garis lurus yang menghubungkan antara dua titik pada form, saat berada dalam mode desain.

B. Kontrol Shape Kontrol ini menyediakan beberapa bentuk geometri yang bisa dibuat. Visual Basic juga memberikan berbagai cara pengisian bentuk-bentuk geometri tersebut.

Microsoft Visual Basic 6.0 – by Iman Basuni

C. Kontrol Image Fungsi utamna dari kontrol ini adalah menampilkan gambar. Namun demikian kontrol ini memiliki sebuah properti uni bernama Stretch. Jika properti ini bernilai True maka fungsinya adalah menarik gambar menjadi besar sesuai dengan kontrol ini.

D. Kontrol PictureBox Kontro ini fungsinya mirip dengan kontrol image, Kelebihannya adalah kemampuan untuk menerima obyek lain diatasnya, bahkan bisa menulis atau menggambar pada kontrol ini, Bahkan jika kontrol ini dipindahkan, posisi obyek yang ada dalam kontrol ini tetap tak akan berubah. Prinsip ini mirip dengan penggunaan kontrol Frame.

Metoda-Metoda Pemrograman Grafis Visual Basic menyediakan beberapa metoda yang bisa digunakan dalam permrograman grafis yang meliputi : • Cls, mebuat semua grafis terhapus • Pset, mengatur warna pada sebuah titik pixel terpilih [Obyek.]Pset(x,y),[,warna] • Point, untuk mengembalikan nilai warna suatu titik • Line, untuk mebuat garis, persegi atau mengisi kotak [Obyek.]Line[(x1,y1)]-(x2-y2)[,warna] Microsoft Visual Basic 6.0 – by Iman Basuni

• •

Circle, untuk menggambar lingkaran, elips [Obyek.]Circle[Step] (x,y), radius[, warna] PaintPicture, untuk mengecat grafis pada suatu koordinat terpilih.

TUGAS GRAFIS 1 : Berikut ini adalah program menggunakan PSET. Buatlah tampilan program awal sebagai berikut :

Kode Program : Private Sub Command1_Click() If Command1.Caption = "&Mulai" Then Timer1.Enabled = True Command1.Caption = "&Berhenti" Else Cls Timer1.Enabled = False Command1.Caption = "&Mulai" End If End Sub Private Sub Form_Load() Form1.Caption = "Contoh PSet"

Form1.DrawWidth = 5 Command1.Caption = "&Mulai" Timer1.Interval = 10 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Merah = Rnd * 255 Hijau = Rnd * 255 Biru = Rnd * 255 x = Rnd * Form1.Width y = Rnd * Form1.Height PSet (x, y), RGB(Merah, Hijau, Biru) End Sub

Jalankan progran dengan menekan tombol Run ( Rekam Form dengan nama Rekam Project dengan nama

), dan perhatikan hasilnya.

: FrmPSet.Frm : ProgPSet.Vbp


TUGAS GRAFIS 2 : Berikut ini adalah program menggunakan LINE. Buatlah tampilan program awal sebagai berikut :

Kode Program : Private Sub Command1_Click() If Command1.Caption = "&Mulai" Then Timer1.Enabled = True Command1.Caption = "&Berhenti" Else Cls Timer1.Enabled = False Command1.Caption = "&Mulai" End If End Sub Private Sub Form_Load() Form1.Caption = "Contoh Line" Form1.DrawWidth = 5 Command1.Caption = "&Mulai"

Timer1.Interval = 10 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static x1, x2, y1, y2 As Currency Merah = Rnd * 255 Hijau = Rnd * 255 Biru = Rnd * 255 x2 = Rnd * Form1.ScaleWidth y2 = Rnd * Form1.ScaleHeight Line (x1, y1)-(x2, y2), RGB(Merah, Hijau, Biru) x1 = x2 y1 = y2 End Sub



: FrmLine.Frm : ProgLine.Vbp


TUGAS GRAFIS 3 : Berikut ini adalah program menggunakan CIRCLE. Buatlah tampilan program awal sebagai berikut :

Kode Program : Private Sub Command1_Click() If Command1.Caption = "&Mulai" Then Timer1.Enabled = True Command1.Caption = "&Berhenti" Else Cls Timer1.Enabled = False Command1.Caption = "&Mulai" End If End Sub Private Sub Form_Load() Form1.Caption = "Contoh Circle" Form1.DrawWidth = 5

Command1.Caption = "&Mulai" Timer1.Interval = 10 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Merah = Rnd * 255 Hijau = Rnd * 255 Biru = Rnd * 255 x = Form1.ScaleWidth / 2 y = Form1.ScaleHeight / 2 Radius = y * Rnd Circle (x, y), Radius, RGB(Merah, Hijau, Biru) End Sub



: FrmCircle.Frm : ProgCircle.Vbp


BAB IV Pemrograman Grafis

Recommend Documents