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 »

MEMBATASI AREA GERAK MOUSE

Membatasi Area Gerak Mouse

Assalamualaikum, wr, wb..

Kali ini kita akan membahas tentang mouse, Area gerak pointer mouse yang tadinya bisa digerakan kemana-mana selebar layar monitor akan kita persempit supaya tidak bisa keluar dari daerah yang kita tentukan, jadi akhirnya si tikus (mouse) tidak bisa keluar dari perangkapnya, hehe.. keren kan?..

OC deh kita mulai ya..

Langkah-langkah untuk membatasi area gerak mouse.

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

2. Atur ScaleMode Form menjadi 1-Twip

3. Masukan 1 objek tombol dan ubah Captionnya menjadi "keluar"

4. Double klik pada area Form dan masukan variabel dibawah ini pada bagian Declaration

Dim nilaiX As Long
Dim nilaiY As Long
Dim nilaibalik As Long
Dim nilaibaru As area 

5. Lalu masukan listing kode dibawah pada prosedur Form_Activate() dan  Form_MouseMove(...)

Private Sub Form_Activate()

'Ambil nilai Twips per pixel (scalemode form harus diatur menjadi Twips)
nilaiX = Screen.TwipsPerPixelX
nilaiY = Screen.TwipsPerPixelY

'Set region kursor sesuai ukuran form
With nilaibaru
    .Left = Me.Left / nilaiX
    .Top = Me.Top / nilaiY
    .Right = .Left + Me.Width / nilaiX
    .Bottom = .Top + Me.Height / nilaiY
End With
nilaibalik = ClipCursor(nilaibaru)
End Sub 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Ambil nilai Twips per pixel (scalemode form harus diatur menjadi Twips)
nilaiX = Screen.TwipsPerPixelX
nilaiY = Screen.TwipsPerPixelY

'Set region kursor sesuai ukuran form
With nilaibaru
    .Left = Me.Left / nilaiX
    .Top = Me.Top / nilaiY
    .Right = .Left + Me.Width / nilaiX
    .Bottom = .Top + Me.Height / nilaiY
End With
nilaibalik = ClipCursor(nilaibaru)
End Sub

6. Dan masukan juga Kode dibawah pada prosedur tombolnya,

Private Sub Command1_Click()
Unload Me
End Sub

7. Selanjutnya pada prosedur Form_Unload() jangan lupa, supaya nanti ketika form ditutup area pointer mouse kembali seperti semula. Masukan listing kode dibawah ini pada prosedur Form_Unload().

Private Sub Form_Unload(Cancel As Integer)
Dim nilaibalik As Long
Dim nilaibaru As area
'set region cursor mouse ke awal
With nilaibaru
    .Left = 0
    .Top = 0
    .Right = Screen.Width
    .Bottom = Screen.Height
   
End With
nilaibalik = ClipCursor(nilaibaru)
End
End Sub

8. Langkah Terakhir buatlah file modul dan tempatkan kode dibawah ini pada modul

Type area
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Declare Function ClipCursor Lib "user32" (areaBaru As Any) As Long

9.Selesai. Coba anda jalankan dengan menekan tombol F5 pada keyboard anda dan lihat hasilnya...

Selamat mencoba...

Wassalam... n smoga bermanfaat.. 

Baca Selengkapnya »

TRIK ANIMASI ICON TITLE BAR

Trik animasi icon title bar dengan visual basic

Assalamualaikum wr, wb..

Tentunya akan lebih menarik apabila aplikasi kita dilengkapi dengan icon pada
title bar yang bergerak seperti halnya gambar animasi, untuk membuat icon seperti
itu sangat mudah sekali hanya dengan sedikit kode saja kita bisa membuat icon animasi pada tite bar.
Karna itu simak trik berikut ini :

Langkah-langkah trik membuat animasi icon pada title bar :

1. Buka program Visual Basic anda, dan mulailah dengan form baru.
2. Masukan tiga komponen gambar dengan memilih PictureBox pada Tab ControlBox.
   Pilih properties picture untuk memilih gambar icon (gambar sebaiknya berformat .ICO)
   Ketiga gambar icon harus beda antara satu dengan yang lainnya.
   Lihat contoh dibawah ini

3. Masukan komponen timer dan atur properties intervalnya menjadi 1000
4. Masukan kode berikut pada prosedur form_load() dan timer1_timer()

Option Explicit   ' pada area Declaration
Dim num As Integer 'pada area Declaration

Private Sub Form_Load()
    num = 1
End Sub

Private Sub Timer1_Timer()
    Select Case num
        Case 1
            Form1.Icon = Picture1.Picture
        Case 2
            Form1.Icon = Picture2.Picture
        Case 3
            Form1.Icon = Picture3.Picture
    End Select
    num = num + 1
    If num > 3 Then num = 1
End Sub
5. Jalankan program dengan menekan tombol F5 pada keyboard anda
   dan lihat hasilnya..

   Sekarang pada title bar aplikasi anda mempunyai icon animasi, keren kan ?

   Selamat mencoba..



Wassalam... n smoga bermanfaat...

Baca Selengkapnya »

TRIK MEMBUAT MULTI SEARCH ENGINE VISUAL BASIC

Trik membuat multi Search Engine Visual Basic

Assalamualaikum wr, wb..

Kali ini saya akan membahas trik untuk membuat Search Engine yang bisa mencari sesuatu pada internet dari beberapa Search Engine. Baiklah kita langsung ke TKP ya..

Langkah-langkah membuat Multi Search Engine

1. Buka rogram Visual Basic, dan mulai dengan form baru.

2. Masukan 3 komponen pada form : OptionButton, Text dan CommandButton

• Properties untuk ketiga komponennya seperti dibawah ini.
• CommandButton
• Name = Command1
• Caption = Cari
• TextBox
• Name = Text1
• Text = ""
• OptionButton (buat 2 OptionButton dengan nama yang sama, dngan cara control array, untuk membuat control array baca disini)
• Name = Option1
• Option1(0).Caption = Yahoo
• Option1(1).Caption = Google
• Label
• Name = Label1
• Masukan kode dibawah ini pada bagian declaration dan selanjutnya untuk setiap objek.

'Deklarasikan Function API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Variable hasil pilihan pada caption1
Private hasil As Integer

Private Sub Command1_Click()
    Dim S As String
'Cari sesuai text1.text berdasarkan pilihan search engine yang dipilih
    Select Case hasil
    Case 0
        S = "http://search.yahoo.com/bin/search?p=" & Label1.Caption
    Case 1
        S = "http://www.google.com/search?q=" & Label1.Caption
    End Select
'buka web browser default berdasarkan masukan pada text1
    ShellExecute Me.hwnd, "open", S, "", "", 1
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click(Index As Integer)
    If Selected <> Index Then
'yang dipilih hurupnya menjadi tebal
'dan yang tidak dipilih menjadi normal
        Option1(Selected).FontBold = False
        Option1(Index).FontBold = True
'masukan pilihan yang dipilih pada variabel hasil
        hasil = Index
    End If
End Sub

Private Sub Text1_Change()
    Dim I As Integer, cari As String, hasilcari As String
'masukan dari text1 ke var cari
    cari = Text1.Text
'cek apabila text1 kosong
    If cari = "" Then
'jika text1 kosong nonaktifkan tombol cari
        Command1.Enabled = False
    Else
'jika tidak aktifkan tombol cari
        Command1.Enabled = True
    End If
'Seleksi pada setiap karakter pada text1
    For I = 1 To Len(cari)
'cek nilai ASCII
        Select Case Asc(Mid(cari, I, 1))
'Hurup yang bukan karakter spesial hurupnya tetap
        Case 42, 43, 45 To 57, 64 To 90, 95, 97 To 122
            hasilcari = hasilcari + Mid(cari, I, 1)
'Hurup yang merupakan karakter spesial, beri kode
        Case Else
            hasilcari = hasilcari + "%" & Hex(Asc(Mid(cari, I, 1)))
        End Select
    Next I
'Tampilkan var hasilcari pada label1
    Label1.Caption = hasilcari
End Sub

Jalankan dengan menekan F5 pada keyboard anda dan coba ketik apa saja yang ingin anda cari di Google atau Yahoo lalu klik tombol Cari, lihat hasilnya...

Wassalam.. n smoga bermamfaat...

Baca Selengkapnya »

SOFTWARE PENDUKUNG WEBMASTER

Software Pendukung Webmaster dan Programmer

Assalamualaikum, wr, wb...

Halaman ini saya sediakan software-software freeware pendukung yang mungkin dibutuhkan untuk para Webmaster dan Programmer. Karna seorang Webmaster akan memerlukan software-software utility untuk mempermudah pekerjaannya dalam hal mengelola proyek program baik itu Website maupun program Aplikasi.

Berikut daftar software-software utility untuk para Webmaster dan Programmer :

Program-program untuk Webmaster :

PHP_Triad 

PHP Triad adalah program pendukung untuk membuat server lokal pada harddisk anda sebelum di upload ke server global. Berguna untuk mengetes website yang telah dibuat dan dioperasikan dalam server lokal, seperti halnya website yang telah di publikasikan lewat server global

AlterWind_Log_Analyzer_Lite

 AlterWind Long Analizer Lite adalah program khusus bagi para Webmaster yang berguna untuk meng-generate log server dan bandwidth, mendeteksi error, dan masih banyak lagi fungsi-fungsinya.

ConTEXT

ConTEX adalah script editor PHP, program ini mendukung lebih banyak format penyimpanan text.

DeluxeFTP

DeluxeFTP adalah software utility yang berguna untuk mengupload file-file dari harddisk anda kedalam sebuah server agar data-data tersebut dapat diakses dan dipublikasikan

DriveHQ_WWWShare_1.2

DriveHQ WWWShare 1.2 berguna untuk mentransfer file-file berukuran besar kepada teman anda dengan sangat mudah, karna banyak server E-mail yang menolak untuk mengirimkan file berukuran besar dan biasanya mereka menentukan limit maksimal ukuran file yang akan dikirim.

Hiband_10

Hiband.co.za adalah rogram yang diperlukan untuk melindungi sebuah website dari para Hacker, dan program ini juga dapat mengelola proses kecepatan server dan melakukan ping.

irfanView

irvanView adalah program yang berfungsi untuk mengelola file-file grafis, seperti jpg, bmp, gif dan bahkan file video pun bisa dibukanya dengan program ini.

MalWhere_112

MalWhere adalah program yang berguna untuk melindungi situs anda dari para Hacker yang akan mengganggu kestabilan situs tersebut, program ini merupakan program firewall.

Win32Whois

Win32Whois adalah program yang berguna untuk melihat data kepemilikan sebuah alamat domain, seperti data pemilik dan alamat pemilik domain yang dicari tersebut.

Program-program untuk Programmer :

Visual_Basic_6.0 full version

Visual Basic 6.0 adalah program untuk membuat aplikasi windows yang berorientasi pada pemrograman secara visual, programmer tidak akan merasa report untuk membuat objek-objek dan fungsi-fungsi yang dibutuhkan karena Visual Basic telah menyediakannya,, dan siprogrammer tinggal memakai dan menambahkan kode tambahan pada setiap ogjek yang digunakan.

Delphi 7 full version

Delphi 7 seperti halnya Visual basic, Delphi juga merupakan program pembangun aplikasi-aplikasi dengan sistem visual.

Sekian dulu share software-software frewarenya, lain waktu disambung lagi

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »

SOFTWARE BILLING TOKO GRATIS

BILLING STORE

 

 

Assalamualaikum, wr, wb..

Selamat Datang di halaman Billing toko gratis

 

Sebelumnya saya minta maap dan mohon maklum apabila dalam blog saya terdapat hal-hal yang kurang berkenan untuk anda. Disini saya akan membahas sedikit tentang Billing Store Application atau yang saya sebut Aplikasi Billing Toko. Pada waktu dua tahun yang lalu, saya mulai bekerja pada suatu toko Accesories HP dan penjualan pulsa, Nama toko tersebut Rifqi Cell yang beralamat di Garut, dan semenjak itu saya mulai merintis dan setelah beberapa lama saya mulai berpikir untuk membuat aplikasi manajemen toko untuk mengatur pembukuan manajemen toko di tempat yang saya kelola tersebut. Karna pengalaman saya pada waktu itu saya merasa pembukuan yang saya pakai secara manual rasanya kurang efisien dan banyak masalah, selain repotnya dalah hal tulis menulis data transaksi (karna saya lebih senang nonton film action daripada disuruh tulis menulis, hehe..) ternyata masal tunggakan pelanggan juga mulai menjadi repot, yah namanya juga usaha di kota kecil kalo gak ngasih ngutang ya susah juga lakunya, maklum.. Juga setiap akhir bulan saya selalu disibukan dengan masalah laporan bulanan yang harus saya setorkan pada pemilik toko sebagai pemilik usaha sebenarnya, saya harus membuat rekapitulasi dari semua transaksi berdasarkan data perbulan ditambah perhitungan-perhitungan yang membuat saya prustasi. Menghitung data pendapatan lah, menghitung data pengeluaran lah, tunggakan uang diluar lah, wah pokoknya pusing banget dah.. Nah sejak itu saya mulai membuat aplikasi agar pembukuan saya tidak merepotkan lagi, awalnya saya membuat aplikasi sederhana dan dengan berjalannya waktu kebutuhan output dan data yang diperlukan makin terlihat dan saya terus menambahkan feature-feature aplikasi sesuai dengan yang saya butuhkan pada saat itu, ya namanya aplikasi untuk dipakai sendiri ya tentunya saya buat sefleksibel dan interfacenya sebagus mungkin dengan tujuan agar lebih memudahkan saya untuk mengoperasikannya. Dan akhirnya Alhamdulillah meskipun hasilnya tidak sebagus dan secanggih aplikasi-aplikasi buatan para master programmer tapi saya merasa aplikasi Billing Toko ini cukup enak dipakai dan berguna. Selama dua tahun itu saya pakai aplikasi Billing Toko itu. Sekarang saya berniat baik untuk membagikan Aplikasi Billing Toko tersebut untuk anda download gratis dan anda pergunakan dengan harapan aplikasi yang telah saya buat menjadi lebih bermanfaat bagi saya dan bagi anda yang berminat tentunya tapi dengan catatan anda tidak boleh merubah, memanipulasi, memperjual belikan, dan menghilangkan Author aplikasi tersebut karna itu merupakan hak cipta saya sebagai Author Aplikasi. Berikut tentang Aplikasi Billing Toko

• Nama Aplikasi : Rifqi Cell Application
• Fitur-fitur dan Output yang dihasilkan :
• Laba peritem, perhari, dan perbulan
  
  
  —Data stok barang
  
  
  —Jumlah stok barang yang dinamis
  
  
  —Data tunggakan Customer
  
  
  — Form transaksi penjualan
  
  
  —Form transaksi belanja
  
  
  —Treeview pendapatan dan laba
  
  
  —Grafik pendapatan dan laba perbulan
  
  
  —Laporan bulanan otomatis tinggal cetak
  
  
  —Menu Help berisi panduan aplikasi
  
  
  —Tampilan yang dinamis 
  
  Dinamic Level Security
  
  
  —Dan masih banyak fitur lainnya..
  
  Aplikasi akan lebih maksimal dijalankan pada resolusi layar 1152 x 864 pixels.
  Support Windows xp, windows 7 (Versi windows selain itu saya belum mencobanya)
  Sebelum instalasi program aplikasi baca dulu "Baca saya.txt"
  
  Silahkan yang berminat bisa di download sekarang di tombol link dibawah ini
  
  
  

  
  

  Untuk Toko yang memiliki pegawai kasir khusus Sebaiknya Download Billing Toko yang telah di Upgrade (Keamanan data diprioritaskan) secara otomatis sesuai level ID user (Akun pegawai yang berhak mengoperasikan Aplikasi ini)

  Silahkan yang berminat Aplikasi Billing Toko Upgrade bisa di download sekarang di tombol link dibawah ini 

  
  
  

  
  
  

   

  
  
  

 

Baca Selengkapnya »

CONTROL PADA VISUAL BASIC (LANJUTAN)

Control pada Visual Basic

Assalamualaikum, wr, wb..

Artikel ini lanjutan dari artikel sebelumnya pada label Tutorial_VB yang membahas tentang control-control yang terdapat pada program Visual Basic.

Baiklah kita langsung saja

• Check Box
• Sebagai kebalikan dari OptionButton maka control ini digunakan untuk melakukan pemilihan lebih dari satu. Pemrogramannya tidak jauh berbeda dengan control option button, hanya jika control CheckBox ini di klik tidak akan menyebabkan control CheckBox yang lainnya berubah menjadi nilai False atau di off kan.
• ListBox
• Control ListBox digunakan untuk menampilkan daftar pilihan. Cara memilih item pada list dengan klik pada salah satu pilihan yang akan dipilih. Jumlah item yang ditampilkan pada list box bisa diatur sesuai dengan kondisi tinggi control yang ListBox yang digambarkan. Jadi apabila jumlah item pilihan melebihi besar dan tingginya control ini maka secara otomatis akan ditambahkan scroolbar untuk menggeser item dibawahnya.
• Pengisian item (teks) pada ListBox dikerjakan dengan metoda AddItem.
• Syntak penambahan item pada ListBox :   ListBox.AddItem item[index]
• Dalam implementasinya dilakukan pada prosedur Form_Load(), yaitu prosedur yang dipanggil ketika form di load tetapi belum ditampilkan.
• Untuk menghapus item pada ListBox yang dilakukan pada program digunakan metoda RemoveItem.
• Syntak penghapusan item pada ListBox : ListBox.RemoveItem index
• Sedangkan untuk menghapus seluruh item pada ListBox dilakukan dengan metoda Clear
• Syntak penghapusan seluruh item pada ListBox : ListBox.Clear
• ComboBox
• Seperti halnya ListBox, ComboBox juga dipergunakanuntuk memilih item-item yang terdapat dalam control trsebut. Tetapi ComboBox memiliki TextBox, dimana selain melakukan pilihandengan cara klik pada salah satu item, item-item ini juga dapat dipilih dengan menuliskan teks item tersebut pada TextBox.
• Control ini memiliki tiga jenis Style, antara lain Drop-down ComboBox, Simple ComboBox, dan Drop-down ListBox.
• Drop-down ComboBox adalah gabungan antara TextBox dengan ListBox.
• Simple ComboBox sama dengan Drop-down ComboBox, TextBox, dan ListBox yang ditampilkan.
• Drop-down ListBox seperti halnya Simple ComboBox tetapi control ini dalam pemilihan tidak bisa diedit dalam TextBoxnya hanya dipilih dari ListBoxnya dan akan ditampilkan pada TextBoxnya.
• Properti Enabled
• Properti Enabled di gunakan untuk melumpuhkan control supaya control tersebut tidak dapat diakses oleh user, Misalnya apabila dalam program kita membutuhkan waktu proses supaya selesai dulu baru bisa melanjutkan pada langkah berikutnya, maka control yang harus diakses untuk melanjutkan itu dilumuhkan dulu, setelah proses yang dibutuhkan selesai maka control yang dilumpuhkan tadi dinormalkan kembali. Syntak penulisan Enabled adalah Nama_control.Enabled = Boolean (True/False).
•   Proverti Visible
• Properti Visible digunakan untuk pengaturan penampakan pada control. Jika diatur True maka control akan ditampilkan, dan apabila diatur False akan menyembunyikan control dari penampakan
• Proverti untuk mengatur tulisan pada control.
• Tulisan-tulisan yang terdapat pada control dapat diatur menjadi cetak tebal, miring, jenis font dan lain sebagainya.
• Beberapa proverti untuk mengatur font
• FontBold untuk mengatur tebal tulisan nilai yang dimasukan True/False
• FontItalic untuk cetak miring, nilai yang dimasukan True/False
• FontName untuk menentukan jenis font, nilai yang dimasukan Nama Font
• FontSize untuk mengatur ukuran font, nilai yang dimasukan Angka
• FontStrikeThru untuk mencoret tulisan, nilai yang dimasukan True/False
• FontUnderline untuk menambah garis bawah pada tulisan, nilai yang dimasukan True/False
• FontColor untuk merubah warna teks, nilai yang dimasukan Nilai ASCI Font
• Pengaturan warna pada control
• untuk mengatur latar belakang teks digunakan properti BackColor.
• untuk mengatur warna tulisan gunakan ForeColor.
• Focus control
• untuk mempokuskan pada control ada beberapa alternatif yang bisa dilakukan yaitu dengan cara klik pada control, menggunakan TabIndex, dengan kunci akses dan bisa juga dengan pengaturan SetFocus
• Control Array
• Biasanya apabila mita menggambarkan control-control pada form akan mempunyai nama yang unik dari setiap controlnya, tidak boleh ada nama control yang sama, dengan adanya control array kita bisa memberikan nama yang sama pada satu jenis control.
• dengan adanya control array maka prosedur hanya dituliskan pada subrutin, jadi penulisan kode program akan lebih efisien
• cara untuk membuat control array gampang sekali, ketika kita telah menambahkan satu control pada form lalu klik control tersebut lalu gunakan teknik Copy & Paste maka Visual basic akan menampilkan pesan konfirmasi yang menanyakan apakan control yang akan dibuat sebagai hasil copy akan dibuatkan nama yang beda dengan yang dicopy atau control tersebut akan dibuatkan nama yang sama dengan memiliki index array. Pilih yes, maka control hasil copy akan memiliki nama yang sama dengan yang sebelumnya tapi memiliki index control yang berbeda.
• Pemrograman terhadap Control Array
• Anda akan lebih mengerti dengan melihat contoh dibawah ini :
• Misalnya kita buat 2 control CommandButton secara langsung dan bukan hasil copy, maka programnya :
• Private Sub Command1_Click()

                 ..... kode program
                End Sub

• Private Sub Command2_Click()

                 ..... kode program
                End Sub

• Bandingkan dengan kode untuk control array berikut ini
•  Private Sub Command1_Click(Index As Integer)

                    if index = 0 then
                        ...kode program
                    End If

                    if index = 1 then
                        ...kode program
                    End If

                 End sub

• Atau bisa juga dengan memakai pernyataan Select Case
•  Private Sub Command1_Click(Index As Integer) Select case Index
    Case 0 
       ...kode program
    Case 1     ...kode program
    End Select
  End sub
  
  
  
  
  Demikianlah pembahasan tentang Control-control pada Visual Basic
  
  Wassalam.. n smoga bermanfaat..
  

Baca Selengkapnya »

HYPERLINKS

Hyperlinks

Assalamualaikum, wr, wb...

Tentunya program aplikasi kita akan terlihat lebih menarik apabila pada program aplikasi kita tedapat hyperlinks yang menuju ke suatu situs tertentu atau juga bisa membuka Control panel system pada komputer anda. Karna itu simak Trik membuat Hyperlinks berikut ini :

1. Buka program Visual Basic anda, lalu buat form baru
2. Masukan tiga objek CommandButton
• Command1.Caption = www.bercode.blogspot.com
• Command2.Caption =Buka Control Panel
• Command3.Caption =Buka file EXE
3. Selanjutnya Double klik pada salah satu objek lalu masukan perintah dibawah ini pada bagian General dan Prosedur tombol klik.
4. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Const SW_SHOWNORMAL = 1
   
   Private Sub Command1_Click()
   result = ShellExecute(Me.hwnd, vbNullString, "https:\\bercode.blogspot.com", vbNullString, vbNullString, SW_SHOWNORMAL)
   End Sub
   
   Private Sub Command2_Click()
   result = Shell("rundll32.exe shell32.dll," & "Control_RunDLL", 5)
   End Sub
   
   Private Sub Command3_Click()
   result = Shell(App.Path & "\RifqiCellApplication.exe", 5)
   End Sub 

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »