Menambakan Efek suara pada Project di VB 6.0

1. Menambahkan Efek Suara pada Form

• Kopikan File Suara apa saja yang ber extension.wap, saya mengambil Applause.wap dan masukan ke folder  tempat penyimpanan Project (harus di jadikan satiu folder)
• Buka jendela kode, ketik kode berikut:

Private Declare Function sndPlaySound Lib “winamm.dll” Alias “sndPlaySoundA” (Byval  lpszSoundName As String, Byval  uFlags As Long) AsLong

Private Const SND_SYNC=&H0

Private Const SND_ASYNC=&H1

Private Const SND_LOOP=&H8

Dim Musik As String

Baca Selengkapnya »

Membuat Program untuk Mengetahui Berapa lama Komputer Anda berjalan dengan VB 6.0

Program ini bertujuan memeberitahukan kepada pengguna berapa lama Anda menjalankan Windows dalam hitungan waktu.

Berikut langkah-langkahnya :

Buka form baru

Letakan 6 buah label dan kontrol Timer pada form

Susun kontrol-kontrol di form seperti dibawah ini

LABEL1                                                  LABEL2                                                 LABEL3

LABEL4                                                  LABEL5                                                  LABEL6

Atur property masing-masing:

Label1                   Caption           :  WINDOWS SUDAH DI JALANKAN SELAMA

Label2                   Borderstyle    :  1-Fixed Single

Label3                   Caption         :  DETIK

Label4                   Caption        :  ATAU SEKITAR

Label5                   BorderStyle  : 1-Fixed Single

Label6                   Caption        : MENIT

Timer1                  Interval          : 1

Baca Selengkapnya »

Membuat Screen Saver dengan Password di VB 6.0

Pada saat kita sedang asik maen komputer tiba-tiba kita ada keperluan mendadak yang membuat kita terpaksa harus meninggalkan komputer dan kita memilih untuk mengaktifkan screen saver,jika tidak ada tangan jahil tentu gak ada masalah bagaimana jika ada orang iseng ngutak-ngatik komputer kita tentu menjadi masalah. Dari kasus diatas kita perlu memebrikan password pada Screen saver kita,walaupun dalam program windows bawaan tersedia aplikasi ini tapi gak ada salahnya kita membuatnya dengan VB 6.0 untuk menambah wawasan kita,berikut caranya:

Buka Form baru yang akan di jadikan Screen saver

Letakan label, TextBox,  dan sebuah CommandButton

Atur pripertinya :

Form1                                      BorderStyle     :None-0

                                                WindowState    :2-Maximized

Label1                                     Caption            : Password:

Text1                                       Text:

Command1                              Caption            : OK

Baca Selengkapnya »

Tutorial Membuat Program Trial Pada VB 6

Program trial biasanya di gunakan untuk mempromosikan suatu aplikasi atau software dengan tujuan agar calon pembeli bisa mencoba atau mencicipi program atau aplikasi tersebut sebelum dibeli.

Setau saya jenis program trial itu ada 2, yaitu pembatasan  penggunaan program dengan jumlah hari dan pembatasan dengan berapa kali program di pakai atau di gunakan.

Naah..disini saya mencoba program trial dengan pembatasan berapa kali program di jalankan. Dalam contoh ini saya membatasi pemakaian hanya bisa 30 kali, anda bisa mengubahnya sesuai keinginan anda. 

Baca Selengkapnya »

SPECIAL EFECT UNTUK TAMPILAN FORM dengan VB 6.0

Hai, sobat Blogger apakabarnya semua kali ini kita akan mempelajari berbagai macam tip untuk mempercantik tampilan Form di VB, dimana tip ini tidak memerlukan kode panjang tapi hasilnya membuat kita kagum para pengguna. Agar tidak penasaran silakan Anda mencoba sendiri, berikut tip-nya :

1.       Membuat Form Berbentuk Elips

·         Buka Form baru

·         Masuk ke jendela Kode (F7),kemudian ketik kode berikut:

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 “user 32” (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Private Sub Form_Load ()

Dim lngRegion As Long

Dim lngReturn As Long

Dim FormWidth As Long

Dim FormHeight  As Long

lngFormWidth=Me.Width/Screen.TwipsPerPixelX

lngFormHeight=Me.Height/Screen.TwipsPerPixelY

lngRegion=CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)

lngReturn=SetWindowRgn(Me.hWnd, lgnRegion, True)

End Sub

Jalankam Program

Baca Selengkapnya »

Memodifikasi Munculnya Form saat di load dengan VB 6.0

Jika Anda bosan dengan tampilan form yang itu-itu aja, Anda bisa merubahnya dengan trik berikut dimana form akan muncul saat dilaod dengan tampilan kecil membuka secara vertikal dan dikit sedikit akan bertambah besar dan akhirnya fullScreen,berikut kodenya:
1. Buat form baru di VB 6.0
2. Tambahkan sebuah Timer di Form dengan interval 1 (sesuai kebutuhan)
3. Ketik Kode berikut:

    Private Sub Form_Load()
    Me.Height=10
    End Sub

   Public Sub Tengah()
   Me.Left=(screen.Width-Me.Width)/2
   Me.Top=(screen.Height-Me.Height)/2
   End Sub

  Private Sub Timer1_Timer()
  Me.Height=Me.Height+100
  Tengah
  If Me.Height>=4000 then
  Timer1.Enabled=false
  Tengah
  end if
  End Sub

Catatan:
Anda bisa merubah kata Height menjadi Width

Baca Selengkapnya »

Membuat Tampilan Form Selalu di atas di VB 6.0

Untuk membuat Aplikasi kita Always on top (selalu diatas) agar tidak terhalangi oleh software lain yang sedang di jalannya seperti TaskManager. Berikut Cara pembuatan form agar Selalu di Depan :

‘Pada Declaration

Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As LongConst SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const flags = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2

untuk Mengaktifkannya :

Dim res As Long
    res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) 

dan untuk mematikannya :

Dim res As Long
    res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags)

Semoga bermanfaat .

Baca Selengkapnya »

Cara Membuat Aplikasi Shut Down dengan VB 6.0

Pada kali ini, kita akan membahas bagaimana cara membuat aplikasi shutdown menggunakan visual basic 6.0.
Jika kita sering mengunakan komputer, kita sudah tidak asing lagi mendengar kata shutdown atau cara mematikan komputer. teman2 pasti akan mengetahui proses kerja saat kita mengklik tombol shutdown, restart dan log off pada sistem operasi Windows.

bagi teman2 yg belum punya visual basic 6.0 download nih : klikdisini

Berikut ini adalah cara dan langkah-langkah dalam pembuatan aplikasi shutdown : 
- Buka Microsoft Visual Basic 6.0
- Akan muncul jendela seperti dibawah :

       

Baca Selengkapnya »

Jadwal Lengkap Sepak Bola Seagames 2015

 

Dalam situs resminya, panitia penyelenggara Sea Games 2015 Singapura sudah menerbitkan jadwal pertandingan untuk cabang sepakbola. Cabang olahraga sepakbola Sea Games 2015 dimulai 7 (tujuh) hari lebih awal dari pembukaan resmi, tepatnya pada tanggal 29 Mei 2015. Partai final akan berlangsung pada tanggal 15 Juni 2015.
Pertandingan pertama sepakbola Sea Games 2015 akan mempertemukan antara Brunei Darussalam menghadapi Vietnam yang tergabung di Grup B, dilanjutkan pertandingan antara Laos menghadapi peraih medali emas dua tahun lalu, Thailand. Semua pertandingan di Grup B akan dilangsungkan di Stadion Bishan.
Indonesia sendiri yang tergabung di Grup A bersama Singapura, Myanmar, Kamboja dan Filipina baru akan memulai pertandingan pada tanggal 2 Juni 2015 menghadapi Myanmar. Sedangkan pada pertandingan terakhir Indonesia di babak penyisihan grup akan bertemu dengan tuan rumah Singapura. Semua pertandingan di Grup A akan berlangsung di Stadion Jalan Besar.
Berikut Jadwal Lengkap Sepakbola Sea Games 2015 ;

Baca Selengkapnya »