Langkah-langkah dalam membuat bentuk rambu lalu lintas STOP menggunakan metode region dalam bahasa pemrograman Visual Basic 6.0

 Berikut ini adalah langkah-langkah dalam membuat program bentuk rambu lalu lintas STOP.

LANGKAH 1

Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini.

Gambar 4.1

Setelah terbuka seperti ini gambar di bawah ini.

Gamabar 4.2

Kita bisa mengatur besarnya tampilan program dengan menarik ke bawah atau ke samping Project1-Form1(Form) dan Form1.

LANGKAH 2

Atur form dengan mengganti  BorderStyle menjadi 0 – None seperti gambar di bawah ini

Gambar 4.3

Setelah itu atur BackColor dengan warna yang di inginkan, seperti gambar di bawah ini

Gambar 4.4

LANGKAH 3

Langkah 3 ini adalah membuat kode program. Kode ini sangat penting karena program bisa berjalan atau tidak ditentukan oleh kode ini dan kode ini mempengaruhi dari bentuk yang kita inginkan. Pada pembuatan kode harus teliti dalam membuatnya.

Double klik pada FORM nanti akan keluar seperti pada gambar di bawah ini.

Gambar 4.5

Lalu ketikan kode yang di inginkan seperti berikut

Gambar 4.6

Kode untuk membuat bentuk rambu lalu lintas STOP

Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateRoundRectRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Declare Function CombineRgn Lib “gdi32” (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Declare Function CreateRectRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib “user32” (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib “user32” () As Long

Private Sub Form_DblClick()

    End

End Sub

Private Sub Form_Load()

    b1 = CreateEllipticRgn(150, 150, 350, 350)

    b2 = CreateRectRgn(175, 225, 325, 275)

    CombineRgn b2, b1, b2, 3

    SetWindowRgn Form1.hwnd, b2, True

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReleaseCapture

    SendMessage Form1.hwnd, &HA1, 2, 0&

End Sub

LANGKAH 4

Untuk mengecek/menjalankan program tekan F5 atau tanda play.

Tampilan output program Region bentuk Rambu lalu lintas STOP

Gambar 4.7

Penjelasan kode dari source code di atas

Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

• CreateEllipticRgn    = Untuk menampilkan bentuk elips
• Lib “gdi32”              = Maksud dari kode tersebut untuk mengakses file gdi32.dll yang ada di system32

Private Declare Function CreateRoundRectRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

• CreateRoundRectRgn      = Untuk menampilkan bentuk kotak namun dengan ujung yang melengkung

Private Declare Function CombineRgn Lib “gdi32” (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

• CombineRgn     = Untuk mengabungkan bangun satu dengan yang lainnya

Private Declare Function CreateRectRgn Lib “gdi32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

• CreateRectRgn      = untuk membuat bentuk  kotak namun dengan ujung lancip

Private Declare Function SetWindowRgn Lib “user32” (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

• SetWindowRgn      =  Untuk mengubah bentuk form sesuai objek yang telah kita bentuk sebelumnya
• Lib “user32”           = Maksud dari kode tersebut untuk mengakses file user32.dll yang ada di system32

Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

• SendMessage       = Berfungsi untuk memberi pesan saat user mengeklik button, menggerakkan mouse keatasnya atau kebawahnya, ataupun mengetikkan sesuatu

Private Declare Function ReleaseCapture Lib “user32” () As Long

• ReleaseCapture     = untuk membentuk objek sesuai bentuk form semula

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

• Form_MouseDown         = Perintah ini akan di jalankan pada saat Anda menekan mouse di dalam area Form