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 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 »

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 »

MENAMPILKAN FONT SYSTEM PADA COMBO BOX

MENAMPILKAN FONT SYSTEM PADA COMBO BOX

Assalamualaikum, wr, wb..

Kali ini saya akan bahas tutorial memasukan dan menampilkan seluruh font system yang ada pada komputer anda dan ditampilkan pada ComboBox sekaligus menampilkannya.

Simak Trik manampilkan seluruh font system pada ComboBox dibawah ini.

1. Buka program Visual Basic, dan mulai dengan form baru
2. Masukan 2 objek Label dan 1 objek ComboBox
3. Untuk Label2 propertis font size nya ganti dengan yang lebih besar misalnya 20
4. Pilih propertis ComboBox lalu rubah propertis Style menjadi 1-Simple Combo.
   
5. Double klik pada area form lalu masukan listing kode dibawah ini pada Form_Load.
6. Private Sub Form_Load()
   Combo1.Clear
   For i = 0 To Screen.FontCount - 1
       Combo1.AddItem (Screen.Fonts(i))
   Next i
   End Sub
7. Double klik pada Combo1 dan masukan listing kode dibawah ini pada Combo1_Click.
8. Private Sub Combo1_Click()
   Label2.Font = Combo1
   End Sub
9. Jalankan dengan menekan tombol F5 pada keyboard anda
   
10. Wassalam.. n smoga bermanfaat...
    

Baca Selengkapnya »

MERUBAH TAMPILAN AREA KERJA VISUAL BASIC

Merubah tampilan area kerja Visual Basic

Assalamualaikum, wr, wb..

Sekarang kita akan membahas bagaimana caranya supaya tampilan area kerja Visual Basic jadi lebih leluasa dalam mendesain program ataupun dalam pengkodean program, yaitu caranya dengan mengaktifkan IDE (Integrated Development Environtment) pada menu Option.

Langkah-langkah merubah area kerja Visual Basic

1. Seperti biasa bika program Visual Basicnya dan buat form baru.
2. Klik menu Tool lalu pilih Option...
3. Aktifkan tab Advanced, lalu ceklist pilihan SDI Development Environtment
   
   
   
4. Lalu akan tampil pesan seperti gambar dibawah ini, klik OK
   
5. Untuk melihat hasilnya anda harus menutup dulu program Visual Basicnya, lalu jalankan lagi.

Selamat mencoba.

Wassalam.. n smoga bermanfaat...

Baca Selengkapnya »

TRIK MEMBUAT MIDI PLAYER DENGAN VISUAL BASIC

Trik mainkan musik dengan Visual Basic

Assalamualaikum, wr, wb..

Sebenarnya ini merupakan Trik sederhana pada Visual Basic, tapi kemampuannya cukup lumayan, karena program ini bisa memainkan file sound berformat wave .WAV, file midi .MID, file video .AVI, Cukup hebat bukan ?

OK langsung bahas ya, dah gak sabar ni kayaknya...
Simak Langkah-langkah membuat MIDI Player Visual Basic

1. Buka program Visual Basic anda dan mulai dengan form baru
2. Masukan CommandButton1
• Name = Command1
• Caption = Load dan mainkan File
3. Karna kita akan memainkan file sound, berarti kita harus menentukan atau memilih filenya yang akan dimainkan. Karna itu kita pakai bantuan dengan menambahkan objek DialogBox 
• Name = CommondDialog1
4. Masukan listing kode dibawah ini pada Command1_click

Option Explicit

Private Sub Command1_Click()

    Dim Multimedia As New Mmedia
    With CommonDialog1
        .Filter = "WaveAudio (*.wav)|*.wav|Midi (*.mid)|*.mid|Video files (*.avi)|*.avi"
        .FilterIndex = 0
        .ShowOpen
    End With

    If CommonDialog1.Filename <> "" Then
        Multimedia.mmOpen CommonDialog1.Filename
        Multimedia.mmPlay
    End If

End Sub

5. Tambahkan modul (klik kanan pada box project , pilih Add - Module). Masukan listing kode dibawah ini.

Option Explicit


Private sAlias As String
Private sFilename As String
Private nLength As Single
                         
Private nPosition As Single
Private sStatus As String
Private bWait As Boolean
                       

Private Declare Function mciSendString Lib "winmm.dll" _Alias "mciSendStringA" (ByVal lpstrCommand As String, _ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _ByVal hwndCallback As Long) As Long

Public Sub mmOpen(ByVal sTheFile As String)

    Dim nReturn As Long
   
    Dim sType As String

    If sAlias <> "" Then
        mmClose
    End If
   
    Select Case UCase$(Right$(sTheFile, 3))
       Case "WAV"
          sType = "Waveaudio"
       Case "AVI"
          sType = "AviVideo"
       Case "MID"
          sType = "Sequencer"
        Case Else
          Exit Sub
    End Select
    sAlias = Right$(sTheFile, 3) & Minute(Now)

    If InStr(sTheFile, " ") Then sTheFile = Chr(34) & sTheFile & Chr(34)
    nReturn = mciSendString("Open " & sTheFile & " ALIAS " & sAlias _
            & " TYPE " & sType & " wait", "", 0, 0)
End Sub

Public Sub mmClose()
    Dim nReturn As Long

    If sAlias = "" Then Exit Sub
   
    nReturn = mciSendString("Close " & sAlias, "", 0, 0)
    sAlias = ""
    sFilename = ""
   
End Sub

Public Sub mmPause()
    Dim nReturn As Long
   
    If sAlias = "" Then Exit Sub
   
    nReturn = mciSendString("Pause " & sAlias, "", 0, 0)

End Sub

Public Sub mmPlay()
    Dim nReturn As Long
   
    If sAlias = "" Then Exit Sub
   
    If bWait Then
        nReturn = mciSendString("Play " & sAlias & " wait", "", 0, 0)
    Else
        nReturn = mciSendString("Play " & sAlias, "", 0, 0)
    End If
End Sub

Public Sub mmStop()
    Dim nReturn As Long
   
    If sAlias = "" Then Exit Sub
   
    nReturn = mciSendString("Stop " & sAlias, "", 0, 0)
   
End Sub

Public Sub mmSeek(ByVal nPosition As Single)
    Dim nReturn As Long
   
    nReturn = mciSendString("Seek " & sAlias & " to " & nPosition, "", 0, 0)

End Sub

Property Get Filename() As String
    Filename = sFilename
End Property

Property Let Filename(ByVal sTheFile As String)
   mmOpen sTheFile
End Property

Property Get Wait() As Boolean
   Wait = bWait
End Property

Property Let Wait(bWaitValue As Boolean)
   bWait = bWaitValue
End Property

Property Get Length() As Single
   Dim nReturn As Long, nLength As Integer

   Dim sLength As String * 255
   
   If sAlias = "" Then
      Length = 0
      Exit Property
   End If

  nReturn = mciSendString("Status " & sAlias & " length", sLength, 255, 0)
  nLength = InStr(sLength, Chr$(0))
  Length = Val(Left$(sLength, nLength - 1))
End Property

Property Let Position(ByVal nPosition As Single)
    mmSeek nPosition
End Property

Property Get Position() As Single
   Dim nReturn As Integer, nLength As Integer
   
   Dim sPosition As String * 255

   If sAlias = "" Then Exit Property
   
   nReturn = mciSendString("Status " & sAlias & " position", sPosition, 255, 0)
   nLength = InStr(sPosition, Chr$(0))
   Position = Val(Left$(sPosition, nLength - 1))

End Property

Property Get Status() As String
   Dim nReturn As Integer, nLength As Integer
   
   Dim sStatus As String * 255
   
   If sAlias = "" Then Exit Property

   nReturn = mciSendString("Status " & sAlias & " mode", sStatus, 255, 0)
   
   nLength = InStr(sStatus, Chr$(0))
   Status = Left$(sStatus, nLength - 1)
   
End Property

6. Jalankan dengan menekan tombol F5 pada keyboard anda, dan Selamat sekarang anda mendengar musik yang anda pilih, 
Sekian tentang Trik membuat midi Player dengan Visual Basic, Selamat mencoba...



Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »