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 »