Setelah sebelumnya tutorial mengenai menghidupkan led dari
vb(
dsini), skrg kita akan mempelajri tntang komunikasi serial menghidupkan warna led
rgb sesuai dengan warna yang dipilih pada vb6. Prinsip kerja dari program ini,
jika seseorang memilih suatu warna pada program vb yang telah dibuat maka
secara otomatis led rgb pada arduino akan menjadi warna yang dipilih tadi. Untuk
lebih jelasnya, langsung saja kita praktekkan.
J
Hal pertama yang kita lakukan adalah pemrograman serial pada
vb6. Buat 2 buah form seperti gambar dibawah ini :
Double klik form1 dan
masukkan kode ini :
Private Sub
Form_Load()
With MSComm1
.Settings = "9600,n,8,1"
.RThreshold = 1
End With
milih = 0
For te = 0 To 20
Combo1.AddItem te
Next
End Sub
Buat 2 buah fungsi :
Sub kirim(de As Integer)
Dim rr, gg, bb As Integer
rr = (de \ 100)
gg = ((de \ 10) Mod 10)
bb = (de Mod 10)
MSComm1.Output = rr & gg & bb
End Sub
Sub FindRGB(Col As Long)
R = &HFF& And Col
G = (&HFF00& And Col) \ 256
Be = (&HFF0000 And Col) \ 65536
End Sub
Double Klik pada
tombol load picture, masukkan kode:
CommonDialog1.Filter =
".JPEG"
CommonDialog1.ShowOpen
Picture2.Cls
Picture1.Picture =
LoadPicture(CommonDialog1.FileName)
Picture1.Picture =
Picture1.Image
Picture2.PaintPicture
Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, 0, 0, Picture1.Width,
Picture1.Height
milih = 1
Double Klik pada
tombol Custom color, masukkan kode:
Picture2.Picture =
Nothing
Picture2.Cls
CommonDialog1.Flags =
cdlCCRGBInit
CommonDialog1.Color =
2521625
CommonDialog1.ShowColor
Picture2.BackColor =
CommonDialog1.Color
milih = 2