TRIK MEMBUAT EFEK LASER VISUAL BASIC

Trik membuat efek laser Visual Basic

Assalamualaikum wr, wb...

Rasanya belum tuntas juga nih pembahasan masalah program animasi Visual Basic karna yang namanya ilmu tuh selalu dinamis dan berkembang, seperti halnya lagi-lagi sekarang kita akan membahas masih seputar animasi yang dibuat oleh Visual Basic.

Nah.. kali ini kita akan membahas bagaimana cara membuat efek laser dengan menggunakan program Visual Basic kita, saya akan bahas program yang sederhananya saja dan pengembangannya terserah anda, silahkan modifikasi lagi supaya lebih menarik menurut anda.

Baiklah kita mulai Langkah-langkah membuat Efek Laser menggunakan VisualBasic

1. Buka program Visual Basic dan mulailah dengan form baru.

2. Masukan komponen komponen yang diperlukan, yaitu PictureBox dan CommandButton.

3. Masukan gambar yang anda inginkan pada properties picture.

4. Atur lebar dan tinggi picture1 terserah anda dengan syarat jangan melebihi titik Nilai_AwalX dan 

    Nilai_AwalY yang akan kita tentuka nanti pada program, lihat contoh gambardibawah ini.

5. Double klik pada area form dan masukan listing kode dibawah ini pada area Declaration (area paling 

    atas).

Private Function aniLaser(Gambar As PictureBox, nilai_awalX As Integer, nilai_awalY As Integer, PosisiLeft_Gambar As Integer, PosisiTop_Gambar As Integer, warna As String)

Dim Lebar_Gambar, Lebar_Gambar2 As Integer
Dim warna2 As String

Me.ScaleMode = vbPixels

With Gambar
.ScaleMode = vbPixels
.AutoRedraw = True
End With

For Lebar_Gambar2 = 0 To Gambar.ScaleWidth
For Lebar_Gambar = 0 To Gambar.ScaleHeight
warna2 = Gambar.Point(Lebar_Gambar2, Lebar_Gambar)
Line (nilai_awalX, nilai_awalY)-(PosisiLeft_Gambar + Lebar_Gambar2, PosisiTop_Gambar + Lebar_Gambar), warna2
Next
Line (nilai_awalX, nilai_awalY)-(PosisiLeft_Gambar + Lebar_Gambar2, PosisiTop_Gambar + Gambar.ScaleHeight), warna
Next

For Lebar_Gambar2 = 0 To Gambar.ScaleHeight
Line (nilai_awalX, nilai_awalY)-(PosisiLeft_Gambar + Gambar.ScaleWidth, PosisiTop_Gambar + Lebar_Gambar2), warna
Next

End Function

6. Lalu double klik pada objek tombol sebagai pencetus fungsi laser dan masukan kode dibawah ni pada

    prosedur Command1_Click()

Private Sub Command1_Click()
'ukuran picture1 tidak boleh lebih dari nilai_awalX dan nilai_awalY dalam ukuran Fixel pada Form
aniLaser Picture1, 680, 180, 10, 10, Me.BackColor
End Sub

7. Jalankan dengan menekan tombol F5 pada keyboard anda, Selamat mencoba...

Dibawah ini contoh sedikit modifikasi dari program diatas

Wassalam... n smoga bermanfaat..

Baca Selengkapnya »

TRIK ANIMASI TEKS 3D VISUAL BASIC

Trik animasi teks 3D Visual Basic

Assalamualaikum wr, wb...

Setelah kemarin kita belajar membuat animasi teks tiga dimensi, nah sekarang kita akan kembangkan dengan belajar membuat teks tiga dimensi tersebut menjadi animasi teks, seperti yang sering kita lihat pada gambar atau teks-teks animasi berformat gif atau flash, tapi kita buat dengan versi Visual Basic.

Bagaimana caranya ?..

Untuk menjawab pertanyaan itu, mari kita mulai untuk mempraktekannya dan lihat hasilnya, simak trik dibawah ini dengan seksama.

Trik membuat animasi teks Visual Basic

1. Buka program Visual Basic dan mulailah dengan form baru
2. Atur panjang dan tinggi form sesuai keinginan yang penting sesuaikan dengan lebar teks yang akan di
    tampilkan.
3. Masukan Dua komponen Timer
4. Atur Interval Timer1 dan Timer2 dengan nilai 2000
5. Atur Enabled Timer1 menjadi "True" dan Enabled Timer2 menjadi "False"

6. Double klik pada objek Timer1 dan masukan listing kode dibawah ini pada prosedur Timer1_timer()

     Private Sub Timer1_Timer()
        Dim Tm As Double
    Dim strText As String
    Dim Ctr As Integer
'Set ukuran font, nama, dan style
    With Form1
        .FontName = "Arial Black"
        .FontSize = 24
        .FontBold = True
        .FontUnderline = True
    End With
'Set teks yang akan ditampilkan pada form
        strText = "BERCODE.BLOGSPOT.COM"
        x = CurrentX
        y = CurrentY
        x = 120 'posisi x
        y = 90 'posisi y
    For Ctr = 0 To 255
        ForeColor = RGB(Ctr, 0, 0) ' ganti warna gradient dengan fungsi RGB()
        x = x + 1
        y = y + 1
        CurrentX = x
        CurrentY = y
    Print strText
    Next Ctr
        ForeColor = RGB(0, 255, 0) 'ganti warna teks yang akan ditampilkan paling depan
        CurrentX = x: CurrentY = y
    Print strText
    Timer1.Enabled = False
Timer2.Enabled = True

    End Sub

7. Masukan listing dibawah ini pada prosedur Timer2_Timer()

 Private Sub Timer2_Timer()
        Dim Tm As Double
    Dim strText As String
    Dim Ctr As Integer
'Set ukuran font, nama, dan style
    With Form1
        .FontName = "Arial Black"
        .FontSize = 24
        .FontBold = True
        .FontUnderline = True
    End With
'Set teks yang akan ditampilkan pada form
        strText = "BERCODE.BLOGSPOT.COM"
        x = CurrentX
        y = CurrentY
        x = 120 'posisi x
        y = 90 'posisi y
    For Ctr = 0 To 255
        ForeColor = RGB(0, Ctr, 0) ' ganti warna gradient dengan fungsi RGB()
        x = x + 1
        y = y + 1
        CurrentX = x
        CurrentY = y
    Print strText
    Next Ctr
        ForeColor = RGB(0, 0, 255) 'ganti warna teks yang akan ditampilkan paling depan
        CurrentX = x: CurrentY = y
    Print strText
Timer2.Enabled = False
Timer1.Enabled = True

End Sub







8. Coba jalankan dengan menekan tombol F5 pada keyboard anda

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »

TRIK MEMBUAT TEKS TIGA DIMENSI KEREN

Trik membuat teks 3D keren Visual Basic

Assalamualaikum wr, wb...

Apa kabar semuanya... Mudah-mudahan anda semua selalu dalam keadaan sehat dan diberkahi oleh Allah SWT, amiin..

Hari ini kita akan bahas bagaimana cara membuat tulusan tiga dimensi dengan program Visual Basic.

Coba lihat contoh gambar dibawah ini, keren kan ?

Baiklah basa-basinya dicukupkan saja, dan sekarang kita langsung masuk ke TKP OK..

Langkah-langkah membuat teks 3D

1. Sepertia biasa buka program Visual Basic anda dan buat form baru (atur lebar form sesuai dengan

    panjang teks yang akan anda tuliskan).

2. Tambahkan satu komponen tombol ganti Caption menjadi "Tampilkan"

3. Double klik pada CommandButton1 dan masukan kode berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
ForeColor = 0: X = 1485: Y = 855
For I = 1 To 100
        X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
        FontSize = 30
        Print "SELAMAT DATANG DI" ' Tuliskan teks disini
Next
CurrentX = X: CurrentY = Y
FontSize = 30
ForeColor = &HFFFF& 'Ganti warna teks
        Print "SELAMAT DATANG DI" ' Tuliskan teks disini
       
ForeColor = 0: X = 1485: Y = 1500 'ganti posisi X atau Y untuk teks selanjutnya
For I = 1 To 100
        X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
        FontSize = 30
        Print "BERCODE.BLOGSPOT.COM" ' Tuliskan teks disini
Next
CurrentX = X: CurrentY = Y
FontSize = 30
ForeColor = &HFF0000          'Ganti warna teks
        Print "BERCODE.BLOGSPOT.COM" ' Tuliskan teks disini
       
End Sub

4. Jalankan program anda dengan menekan tombol F5 pada keyboard. Selamat anda telah berhasil membuat tulisan tiga dimensi yang keren abis..

Wassalam.. n smoga bermanfaat...

Baca Selengkapnya »

APPEARANCE WINDOWS

Merubah tampilan windows

Assalamualaikum wr, wb..

Adakalanya kita merubah-rubah tampilan windows pada komputer kita agar kelihatan berbeda, dengan mengatur pada bagian Appearance Windows dengan cara klik kanan pada desktop dan memilih Appearance properties, Nah dengan program Visual Basic juga kita bisa membuat program yang berfungsi untuk melakukan hal itu. Untuk merubah tampilan window ini saya akan berikan contoh sederhana saja dan nantinya anda kembangkan sendiri.

Baiklah kita akan mulai untuk membuat program yang dapat merubah tampilan windows kita.

Langkah-langkah :

1. Buka program Visual Basic anda dan mulai dengan form baru.

2. Masukan satu komponen tombol sebagai pencetus program

3. Double klik pada area form dan masukan kode berikut pada bagian Declaration :

Private Const COLOR_SCROLLBAR = 0 'Warna Scrollbar
Private Const COLOR_BACKGROUND = 1 'Warna background yang tidak menggunakan wallpaper
Private Const COLOR_ACTIVECAPTION = 2 'Warna tulisan pada window aktif
Private Const COLOR_INACTIVECAPTION = 3 'Warna tulisan pada window yang tidak aktif
Private Const COLOR_MENU = 4 'Menu
Private Const COLOR_WINDOW = 5 'background Windows
Private Const COLOR_WINDOWFRAME = 6 'Frame Window
Private Const COLOR_MENUTEXT = 7 'Text Window
Private Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Private Const COLOR_CAPTIONTEXT = 9 'Tulisan dalam Caption window
Private Const COLOR_ACTIVEBORDER = 10 'Border window yang aktif
Private Const COLOR_INACTIVEBORDER = 11 'Border window yang tidak aktif
Private Const COLOR_APPWORKSPACE = 12 'Background untuk MDI desktop
Private Const COLOR_HIGHLIGHT = 13 'background dari item yang dipilih
Private Const COLOR_HIGHLIGHTTEXT = 14 'Item menu yang dipilih
Private Const COLOR_BTNFACE = 15 'Tombol/Button
Private Const COLOR_BTNSHADOW = 16 '3D Bayangan tombol
Private Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Private Const COLOR_BTNTEXT = 18 'Teks tombol
Private Const COLOR_INACTIVECAPTIONTEXT = 19 'Teks window yang tidak aktif
Private Const COLOR_BTNHIGHLIGHT = 20 '3D tombol yang dipilih
Private Declare Function SetSysColors Lib "User32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

4. Lalu masukan kode berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
'Set title bar dari form yang aktif menjadi biru
Dim lngReturn As Long
lngReturn = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(0, 0, 255))
Me.Appearance = lngReturn

'Set warna tombol dari form yang aktif menjadi merah
lngReturn = SetSysColors(1, COLOR_BTNFACE, RGB(255, 0, 0))
Me.Appearance = lngReturn

'Set warna tulisan tombol jadi hijau
lngReturn = SetSysColors(1, COLOR_BTNTEXT, RGB(0, 255, 0))
Me.Appearance = lngReturn
End Sub

5. Program diatas akan merubah tampilan window menjadi merah Caption pada title bar berwarna biru dan 

    tulisan pada window jadi berwarna hijau. 

6. Yang kita atur hanya tiga macam saja karna itu hanya sebagai contoh, Anda bisa mengatur hal lainnya dengan cara diatas tinggal mengganti konstanta seperti COLOR_ACTIVECAPTION dengan konstanta lainnya yang ada pada area Declaration. Selamat mencoba..

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »

TRIK ANIMASI FORM KEREN

Trik animasi Form keren

Assalamualaikum wr, wb...

Apa maksud judul diatas? 

Hehe.. Maksud saya membuat judul tersebut karna kita sekarang akan membuat animasi untuk form program kita agar terlihat lebih keren dan tidak monoton. Gambarannya begini, Ketika form dibuka, sebelum form tampil sepenuhnya dia akan keluar dengan gaya membesar dan apabila tombol Tutup di klik maka form akan menutup dengan gaya menggulung keatas. Keren kan..

Ooohh.. gtu toh.. trus gimana caranya?

Ya makanya simak trik berikut ini untuk membuat animasi form keren, Check it out..

1. Buka program Visual Basic dan mulailah dengan form baru.

2. Tambahkan dengan komponen tombol (CommandButton)

    Ganti Caption tombol menjadi "Tutup"

3. Double klik pada area form dan masukan isting kode dibawah ini pada prosedur Form_Load()

Sub Form_Load()
   Me.Width = 0
   Me.Height = 0

   Me.Show
      For x = 0 To 5000 Step 100
      Me.Width = x
      Me.Height = x
      With Me 

         .Left = (Screen.Width - .Width) / 2
         .Top = (Screen.Height - .Height) / 2
      End With
   Next x
End Sub

4. Double klik pada Tombol Tutup dan masukan Listing berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
nilai = Me.Height / 2


For nilaibaru = 1 To nilai
    'Nilai baru yang dihasilkan dari tinggi form/2


    DoEvents
        Me.Height = Me.Height - 10
        'Me.Top = (Screen.Height - Me.Height) / 2
        If Me.Height <= 11 Then GoTo nilaiakhir
    Next nilaibaru


    'ini Bagian lebar form
nilaiakhir:
    Me.Height = 30
    nilai = Me.Width / 2


    For nilaibaru = 1 To nilai
        'nilaibaru yang dihasilkan


        DoEvents
            Me.Width = Me.Width - 10
            'Me.Left = (Screen.Width - Me.Width) / 2
            If Me.Width <= 11 Then End
        Next nilaibaru
       
End
End Sub

5. Selesai... Coba Jalankan program anda dengan menekan tombol F5 pada keyboard.

Wassalam.. n smoga bermanfaat

Baca Selengkapnya »

WARNA GRADIENT MEMUSAT DITENGAH FORM

Warna gradient memusat ditengah form

Assalamualaikum wr, wb..

Setelah sebelumnya kita belajar membuat warna Gradient Form vertikal (dari atas kebawah).  Nah sekarang kita akan lanjutkan dengan membuat gradient secara memutar berpusat ditengah form. Caranya gampang sekali dan kali ini kita buat sederhana tanpa memasang komponen-komponen lain supaya pembahannya lebih terpokus ke Form.

Ok kita langsung saja ya..

Langkah-langkah membuat warna gradient form memusat di tengah

1. Buka program Visual  Basic dan mulai dengan Form baru.

2. Langsung saja masukan listing kode dibawah ini pada prosedur Form_Resize() dengan cara double klik 

    pada area formnya.

Private Sub Form_Resize()

' nama form harus sama dengan nama form anda

' karna form saya Form.Name = Form12

CircleGradient Form12, 111, 111, 222, 222, 255, 255, True

End Sub

3. Dan selanjutnya masukan listing kode dibawah ini pada area Declaration/ paling atas code editor.

CircleGradient(frm As Form, rs%, gs%, bs%, re%, ge%, be%, smooth As Boolean) ' lanjutan kode diatas

    If frm.WindowState = vbMinimized Then Exit Sub
    frm.BackColor = RGB(re, ge, be)
    If smooth = True Then
        frm.DrawStyle = 6
    Else
        frm.DrawStyle = 0
    End If
    If frm.ScaleWidth <> 255 Then
        frm.ScaleWidth = 255
    End If
    If frm.ScaleHeight <> 255 Then
        frm.ScaleHeight = 255
    End If
    frm.DrawWidth = 5
    frm.Refresh
    ri = (rs - re) / 255
    gi = (gs - ge) / 255
    bi = (bs - be) / 255
    rc = rs: bc = bs: gc = gs
    For X = 0 To 255
        frm.Circle (frm.ScaleWidth / 2, frm.ScaleHeight / 2), X, RGB(rc, gc, bc) ' lanjutan kode diatas
        rc = rc - ri
        gc = gc - gi
        bc = bc - bi
    Next X
End Sub

4. Jalankan program dengan menekan tombol F5 pada keyboard anda.

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »

FORM BENTUK BULAT

Form bentuk bulat

Assalamualaikum wr, wb..

Form standar yang biasanya kita gunakan bentuknya persegi, Nah bagaimana kalau kita ingin membuat bentuk form supaya berbentuk lain, bulat misalnya. Jadi kan form kita gak monoton dan membosankan. Nah karna itu sekarang kita akan membuat Form supaya berbentuk bulat, agar ampilan form jadi lebih menarik. Simak caranya.

1. Buka Program Visual Basic dan mulai dengan Form baru.

2. Double klik pada area form dan masukan listing kode dibawah ini pada bagian Declaration

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 SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

3. Pada prosedur Form_Load(), masukan listing kode dibawah ini :

Private Sub Form_Load()
    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
   
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

4. Jalankan dengan menekan tombol F5 pada keyboard anda.

5. Form anda jadi berbentuk bulat, Selamat anda sekarang bisa membuat form bentuk bulat.

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »