Sabtu, 23 Juli 2011

Visualisasi Objeck (Visual Basic)

Visualisasi Warna dengan VB
Buat sebuah Form masukan obyek OptionButton dan HScrollBar pada Frame yang terpisah. Properties untuk HScrollBar Max = 255, untuk Option1 = value = true. Warna dalam Komputer nilainya berkisar antara 0 – 255, 0 = warna hitam, 255 = warna putih.


Sourcecode programnya sebagaiberikut :

Option Explicit
Dim mh, bh, hh As Integer ' deklarasi utk huruf'pemisahan konfigurasi huruf dan warna
Dim mb, bb, hb As Integer 'deklarasi utk background

Private Sub GantiWarna() 'konfigurasi warna text dan background
Dim merah, hijau, biru As Integer
merah = HScroll1.Value
hijau = HScroll2.Value
biru = HScroll3.Value
If Option1.Value Then
Text1.ForeColor = RGB(merah, hijau, biru) 'RGB perintah utk mencampurkan warna
Else
Text1.BackColor = RGB(merah, hijau, biru)
End If
End Sub
Private Sub Command1_Click()
End 'atau UnloadMe
End Sub

Private Sub Form_Load() 'pada komputer utk warna nilai 0=hitam, 255=putih,
mh = 0
bh = 0
hh = 0
mb = 255
bb = 255
hb = 255
End Sub 'pada komputer warna berkisar 0 - 255

Private Sub HScroll1_Change()
Call GantiWarna
Label4.Caption = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
Call GantiWarna
Label5.Caption = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Call GantiWarna
Label6.Caption = HScroll3.Value
End Sub

Private Sub Option1_Click() 'konfigurasi utk Huruf
mb = HScroll1.Value 'background disimpan
hb = HScroll2.Value
bb = HScroll3.Value
HScroll1.Value = mh 'huruf diload
HScroll2.Value = hh
HScroll3.Value = bh
End Sub

Private Sub Option2_Click() 'konfigurasi utk background
mh = HScroll1.Value 'huruf disimpam
hh = HScroll2.Value
bh = HScroll3.Value
HScroll1.Value = mb 'background diload
HScroll2.Value = hb
HScroll3.Value = bb
End Sub

Download project dan program jadinya Disini
Tampilan jadinya seperti berikut :

Kita bisa mengatur warna font dan background dengan memilih menu configurasi dan mengeser-gesernya untuk mendapatkan warna yang kita inginkan.
Download project dan program jadinya disini

0 komentar:

Poskan Komentar