PROGRAM CAMPUR WARNA RGB MENGGUNAKAN VB V.6

Tweet

Buffer

     PROGRAM CAMPUR WARNA RGB MENGGUNAKAN VB V.6

Berikut inisial Cara membuat campur Warna atu RGB menggunakan Visual Basic v.6, Program Suami Biasa digunakan Dalam, mata kuliah Pengolahan Citra

Rancangan Form:

Program Daftar:

Option Explicit Swasta Jenis POINTAPI


    x As Long
    As Long y
Type End Dim Pt (0 To 2) Sebagai POINTAPI


Dim Angle As Double

Swasta Const PI As Double = 3,14159265358979
Swasta Declare Function PlgBlt Lib "gdi32" (ByVal hdcDest As Long, lpPoint Sebagai POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, nWidth ByVal As Long, nHeight ByVal As Long, ByVal hbmMask As Long, xMask ByVal As Long, yMask ByVal As Long) As Long Private Sub Command1_Click ()


Picture1.BackColor = RGB (Text1.Text, 0, 0)
Picture2.BackColor = RGB (0, Text2.Text, 0)
Picture3.BackColor = RGB (0, 0, Text3.Text) Picture4.BackColor = RGB (Text1.Text, Text2.Text, Text3.Text)


Text4.Text = "" & Text1 & "," & Text2 & "," & text3 & ""
End Sub Private Sub Command2_Click ()


End
End Sub
http://www.blogger.com/blogger.g?blogID=1157282967381305977 # editor / src = sundulan
Private Sub Form_Load ()
    Text1.Text = ""
    Text2 Teks. = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub