Tutorial Pemograman VB 6.0: Merancang Sendiri Tampilan Aplikasi

Seringkali dalam membuat aplikasi dalam lingkungan Visual Basic, kita sudah disuguhkan dengan bentuk jendela dengan tampilan yang sama. Bagaimana kalau kita ingin membuat bentuk tampilan jendela sesuai dengan selera kita ? Bisa, karena tutorial kali ini kita akan membuat suatu bentuk jendela dengan TitleBar, tombol Minimize, Maximize dan Exit ala sendiri dan sangat mudah sekaligus sederhana dalam pembuatannya. Sudah tidak sabar ? Kalau begitu kita langsung saja ke langkah yang pertama yaitu,

Buatlah form untuk merancang tampilan jendela aplikasi seperti terlihat pada gambar 1. Kontrol-kontrol yang ditambahkan pada form tersebut adalah :
– 1 buah Label
– 5 buah PictureBox

Ubahlah properti-properti dari kontrol-kontrol tersebut seperti tertera pada tabel 1.

Kontrol

Properti

Nilai

Label1 BackStyle 0 – Transparent
(Name) lblTitle
Caption Jendela buatanku
ForeColor &H00FFFFFF&
Picture1 BackColor &H000080FF&
BorderStyle 0 – None
Width 6735
Height 375
(Name) PicTitleBar
Picture2 BackColor &H00008000&
BorderStyle 0 – None
Width 255
Height 255
(Name) PicMinimize
ToolTipText Minimize
Picture3 BackColor &H00800000&
BorderStyle 0 – None
Width 255
Height 255
(Name) PicMaximize
ToolTipText Maximize
Picture4 BackColor &H00000080&
BorderStyle 0 – None
Width 255
Height 255
(Name) PicExit
ToolTipText Exit
Picture5 BackColor &H000080FF&
BorderStyle 0 – None
Width 6735
Height 135
(Name) PicFootBar
Form1 Caption JENDELA BUATANKU
BorderStyle 0 – None
ShowInTaskbar True
StartUpPosition 2 – CenterScreen
Width 6720
Height 4440

Tabel 1.

Sebagai keterangan, kotak-kotak kecil  berwarna pada Form masing-masing memiliki fungsi yang berbeda. Kotak berwarna hijau akan diberi fungsi Minimize jendela, sebaliknya kotak berwarna biru akan kita beri fungsi Maximize jendela , dan kemudian kotak berwarna merah sebagai fungsi untuk menutup jendela atau exit.  Sebagaimana jendela aplikasi pada umumnya, jendela harus mudah dipindah-pindah yang bisanya mendrag bagian TitleBar.

Maka pada PicTitleBar, kita akan memasukkan kode program yang dapat menggeser jendela seperti yang tertera pada Listing 1. Sekarang buat Module dan kemudian isi dengan kode program pada Listing 2 untuk mendeklarasikan fungsi yang dibutuhkan untuk mendrag jendela. Pada Listing 3 terdapat kode program untuk PicMinimize supaya ketika kita klik kotak warna hijau , tampilan jendela dalam keadaan minimize. Sekarang bagaimana mengatur tampilan menjadi Maximize ? Isi kode program pada PicMaximize dan PicTitleBar seperti yang terlihat pada Listing 4 .

Untuk mengaktifkan Maximize kita perlu mengatur lebar dan tinggi jendela baik dalam keadaan normal atau maximize seperti pada Listing 5. Ukuran-ukuran yang ada pada Listing 5 hanya berlaku bila jendela yang kita buat berada pada layar monitor yang berresolusi 1024×768 pixel. Di luar resolusi itu hasil tampilan jendela akan terlihat berantakan. Maka jika itu terjadi, kita dapat menyesuaikannya dengan mengatur kembali  nilai lebar dan tinggi jendela aplikasi yang kita buat.

Seperti kode program yang tertera pada Listing 5, kita mengatur agar saat jendela dalam keadaan normal, ToolTip pada PicMaximize menampilkan tulisan ”Maximize”. Saat tampilan dalam keadaan Maximize, ToolTip menampilkan tulisan ”Restore Down”.   Langkah yang terakhir, pada PicExit kita memasukkan kode program yang berfungsi menutup aplikasi seperti yang tertera pada Listing 6. Supaya tampilan lebih menarik lagi, kita juga dapat mengimpor gambar pada setiap kontrol PictureBox.  Tutorial berikutnya kita akan mencoba memeberikan efek trasparan pada jendela aplikasi yang kita buat. Selamat mencoba !!!

Listing 1

  1. Private Sub PicTitleBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. ‘Jika tampilan dalam keadaan Maximize, Jendela tidak akan pernah dapat digeser-geser
  3. If  Me.WindowState <> 2 Then
  4. GeserJendela Me
  5. End If
  6. End Sub

Listing 2

  1. Public  Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  2. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam _
  3. As Any) As Long
  4. Declare Sub ReleaseCapture Lib "user32" ()
  5.  
  6. Public Sub GeserJendela(TheForm As Form)
  7. ReleaseCapture
  8. Call SendMessage(TheForm.hWnd, &HA1, 2, 0&)
  9. End Sub

Listing 3

  1. Private Sub PicMinimize_Click()
  2. Me.WindowState = 1
  3. Me.PicMinimize.BackColor = &H8000&
  4. End Sub

Listing 4

  1. Private Sub PicMaximize_Click()
  2. AksiMaximize
  3. Me.PicMaximize.BackColor = &H800000
  4. End Sub
  5.  
  6. Private Sub PicTitleBar_DblClick()
  7. AksiMaximize
  8. End Sub
  9.  
  10. Private Sub lblTitle_DblClick()
  11. AksiMaximize
  12. End Sub
  13.  
  14. Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  15. geser
  16. End Sub

Listing 5

  1. Sub AksiMaximize()
  2. If  Me.WindowState = 2 Then
  3. Me.WindowState = 0
  4. Me.PicMinimize.Left = 5640
  5. Me.PicMaximize.Left = 6000
  6. Me.PicExit.Left = 6360
  7. Me.PicMaximize.ToolTipText = "Maximize"
  8. Me.PicFootBar.Top = 4320
  9. Else
  10. Me.WindowState = 2
  11. Me.PicTitleBar.Width = 15400
  12. Me.PicMinimize.Left = 14200
  13. Me.PicMaximize.Left = 14600
  14. Me.PicExit.Left = 15000
  15. Me.PicMaximize.ToolTipText = "Restore Down"
  16. Me.PicFootBar.Width = 16000
  17. Me.PicFootBar.Top = 11400
  18. End If
  19. End Sub

Listing 6

  1. Private Sub PicTitleBar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. Me.PicExit.BackColor = &H80&
  3. Me.PicMaximize.BackColor = &H800000
  4. Me.PicMinimize.BackColor = &H8000&
  5. End Sub
  6.  
  7. Private Sub PicMaximize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  8. Me.PicMaximize.BackColor = &HFF0000
  9. End Sub
  10.  
  11. Private Sub PicMinimize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  12. Me.PicMinimize.BackColor = &HFF00&
  13. End Sub

Listing 7

  1. Private Sub PicExit_Click()
  2. End
  3. End Sub

Microsoft Visual Basic 6.0: Bikin Jendela Tembus Pandang

Jernih dan tembus cahaya ­ begitulah sebuah kamus mendefinisikan kata tembus pandang. Ya, sesuatu yang tembus pandang membuat tampak jelas apa yang ada dibelakangnya. Itulah yang terjadi jika jendela aplikasi kalau dibuat transparan. Biasanya jendela aplikasi yang aktif tampilannya akan menimpa jendela yang tidak aktif. Tapi sekarang kita akan mencoba membuat jendela aplikasi dengan Visual Basic 6.0 yang tembus pandang sehingga jendela yang tidak aktif terlihat dengan jelas.

Cara pembuatannya berikut ini :

1. Buka aplikasi  Visual Basic 6.0 lewat [Start] > [All Programs] > [Microsoft Visual Studio 6.0] > [Microsoft Visual Studio 6.0].

2. Pada jendela New Project, pilih tab New.

3. Pada tab New, pilihlah Standard EXE dan klik [ Open ] untuk membuka Jendela Project1 – Form1 (Form).

4. klik [View] > [Code] untuk membuka jendela Project1 – Form1 (Code)

5. Ketikkan kode program berikut ini :

  1. Option Explicit
  2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  3. (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  4. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  5. (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  6. Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  7. (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal _
  8. dwFlags As Long) As Long
  9. Private Const WS_EX_LAYERED As Long = &H80000
  10. Private Const LWA_ALPHA As Long = &H2
  11. Private Const GWL_EXSTYLE = (-20)
  12. Sub TembusPandang(lhWnd As Long, level As Integer)
  13. On Error GoTo keluar
  14.  
  15. Call SetWindowLong(lhWnd, GWL_EXSTYLE, GetWindowLong(lhWnd _
  16. , GWL_EXSTYLE) Or WS_EX_LAYERED)
  17. Call SetLayeredWindowAttributes(lhWnd, 0, (level * 255) / 100, LWA_ALPHA)
  18.  
  19. keluar:
  20. End Sub
  21.  
  22. Private Sub Form_Load()
  23. TembusPandang Me.hWnd, 50
  24. End Sub

6. Untuk melihat hasilnya simpan dan jalankan dengan menekan [F5].

Pada kode program TembusPandang Me.hWnd, 50 berarti jendela dibuat dengan tingkat transparan sebesar 50 %. Sekarang coba ubah angka 50 menjadi 100. Maka, efek tembus pandang pada jendela hilang dan kembali normal. Kemudian kalau kita ubah menjadi 0, maka sama sekali jendela tidak terlihat. Perlu diketahui, efek tembus pandang seperti ini hanya bisa dilakukan pada OS Windows 2000/ XP atau yang lebih tinggi. Selamat mencoba !!!

Ciptakan Efek Gradient pada Latar belakang Halaman Web

Halaman web di internet seringkali memamerkan keindahan yang khas. Tidak mengherankan jika ada pengunjung yang betah mondar-mandir atau berlama-lama ke situs tertentu yang unik.  Jika kita ingin membuat halaman web yang enak dilihat, kita bisa memadukan warna baik pada isi ataupun latarbelakang halaman web.

Secara standar, latarbelakang halaman web memang memiliki satu warna. Namun bagaimana kalau kita buat menjadi dua warna ? ada caranya supaya kita dapat menciptakan efek gradient pada latarbelakang halaman web dengan variasi  dua warna.
Langkah-langkah pembuatannya cukup mudah :

1. Buka teks editor yang anda miliki. Sebagai contoh : Notepad.
2. Ketikkan script di bawah ini :

3. Simpan dengan nama gradient.html dan jalankan.

Perhatikan hasilnya pada bagian atas latarbelakang berwana putih dan semakin ke bawah menjadi semakin merah.  Hal ini terjadi karena pada startColorstr=’#FFFFFF’ ini berarti warna awalnya putih dan endColorstr=’red’ berarti perubahan akhir menjadi merah. Nah, supaya lebih menarik lagi coba anda ubah-ubah endColorstr dan startColorstrnya dengan warna lain.

Perhatikan juga pada script itu terdapat gradientType=’0′ yang memaksudkan efek gradient secara vertikal. Sekarang coba anda ubah  gradientType=’1′ sehingga menghasilkan efek gradient secara horizontal. Selamat mencoba-coba!

Seberapa Efektif Pelajar Memanfaatkan Internet?

Kenyataannya Internet sekarang ini tidak hanya digunakan oleh para pekerja. Tuntutan era globalisasi adalah salah satu faktor yang turut memasyarakatkan internet kesemua lapisan masyaratkat termasuk para pelajar.

 Di sekolah-sekolah tingkat SMP dan SMA diIndonesia sudah dimasukkan kurikulum TI dalam kurikulum wajib mereka. Di Beberapa Sekolah Menengah Kejuruan malah dibuka 2 jurusan baru di bidang TI, yaitu Tekhnik Komputer & Jaringan dan Multimedia. Untuk tingkat SMP dan SMA biasanya para pelajar diajarkan hal-hal dasar dalam berinternet serta bagaimana mereka dapat memanfaatkan fasilitas internet seperti browsing, membuka dan mengirim email, mencari informasi yang dibutuhkan dengan bantuan search engine dan lain-lain.

 Tentu saja ini semua merupakan modal dasar yang berguna untuk masa depan. Apa lagi dizaman komputerisasi seperti sekarang ini, kecakapan dalam menggunkan komputer dan internet sangat dibutuhkan.

 Sekarang yang menjadi pertanyaan adalah seberapa efektif para pelajar memanfaatkan internet? Jawabannya bisa jadi berbeda satu sama lain. Bagi para pekerja bisa jadi menggunakan internet dengan efektif adalah jika mereka dapat menyelesaikan tugas dengan memanfaatkan internet atau benar-benar menggunakannya untuk bekerja. Bagi para pelajar internet dapat menjadi sarana yang ampuh untuk menambah pengetahuan mereka. Berjuta-juta informasi yang terdapat pada halaman Web dapat menjadi makanan dan minuman bagi mereka yang lapar dan haus informasi.

Tugas yang sedang mereka kerjakanpun akan menjadi lebih mudah. Tinggal mengetikkan topik yang cocok disearch  engine kemudian mengunjungi situs yang ditampilkan. Dengan sekali bunyi ‘klik’ tugas yang dikerjakan dapat diselesaikan tanpa harus pergi keperpustakaan dan membuka buku satu persatu.

 Namun kegiatan ini mungkin tidak akan mereka lakukan setiap kali mengakses internet. Biasanya akan dilakukan hanya jika mendapat tugas atau membuat makalah yang isinya tidak ada didalam buku pelajaran. Sebagai orang muda mereka biasanya lebih suka dengan bacaan-bacaan ‘ringan’ seperti ramalan, zodiak, informasi terbaru mengenai selebriti, atau sibuk mencari teman disitus komunitas seperti Friendster dan berchatting ria dengan teman atau ‘orang yang tidak dikenal’ dibelahan ‘bumi yang lain’ dengan instant messenger. Sangat disayangkan !!! padahal untuk memasuki dunia maya saja banyak yang harus dikorbankan. Banyak pelajar menyisihkan uang saku mereka atau mengatur keuangan mereka dengan sangat ‘ketat’ demi berselancar didunia maya. Ada juga yang rela mengantri selama berjam-jam diwarnet sepulangnya dari sekolah.

Kalau begitu bagaimana agar kita, khususnya para pelajar dapat menggunakan internet dengan efektif?

Berikut ini ada beberapa tips dan saran yang dapat diterapkan:
· Kumpulkan topik atau bahan yang hendak dicari, jadi saat browsing pencarian dapat dilakukan dengan jendela terpisah(Multitasking). Sementara topik ini sedang dicari, kita dapat menggunakan jendala lain untuk mencari topik yang berbeda.
· Saat berselancar, bawa media penyimpanan seperti disket, CD-RW, atau flash drive agar informasi yang ada dapat disimpan. Jadi tidak harus ditulis ulang saat itu juga agar lebih menghemat waktu.
· Catat dan simpan alamat situs yang dirasa dapat membantu untuk mencari topic lain dikemudian hari.
· Tetap fokus dan berpegang pada rencana yang telah dibuat.

OK, semoga tulisan ini bermanfaat.

iTunes 6: Memainkan Lagu Mulai Dari Reff

Jika dalam sistem operasi buatan Microsoft, Windows Media Player adalah multiplayer untuk file multimedia, maka dalam sistem operasi buatan Apple, iTunes adalah rajanya. Untuk urusan Audio kemampuan  iTunes memang tidak perlu diragukan lagi. Apalagi aplikasi ini juga bisa digunakan untuk me-manage iPod milik Anda.

Nah yang akan kita bahas kali ini adalah salah satu fasilitas yang jarang diketahui pengguna iTunes. Fasilitas yang penulis maksud adalah kemampuan iTunes untuk memainkan file Audio sesuai dengan waktu yang telah kita tentukan sebelumnya. Misalkan dalam sebuah lagu Anda hanya ingin mendengarkan bagian Reffnya saja, nah iTunes bisa Anda suruh untuk berbuat demikian. Kalau sudah tidak sabar, langsung saja kita suruh iTunes melakukannya yuk!

1. Eksekusi iTunes.

2. Klik kanan salah satu file yang ada pada playlist lalu pilih menu [Get Info].

3. Akan muncul sebuah jendela berisi informasi yang ada pada file. Pilih tab menu [Options].

4. Beri tanda pada kotak [Start Time] lalu isikan batas waktu awal dari file tersebut saat iTunes memainkannya. Sebagai contoh dalam gambar penulis memberikan batas waktu awal pada file Audio dalam menit pertama detik ke 32.

5. Jika Anda ingin juga memberikan batas waktu akhirnya, lakukan juga hal yang sama pada kotak [Stop Time].

6. Tekan tombol [OK] untuk menyimpan pengaturan.

Dengan demikian setiap kali Anda memainkan file tersebut, iTunes akan memulainya dan mengakhirinya sesuai dengan yang telah Anda tentukan. Perlu Anda ketahui bahwa pengaturan ini hanya berlaku pada aplikasi iTunes dan tidak berlaku terhadap aplikasi lainnya seperti Windows Media Player dan Winamp.