MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0

Baiklah kita akan membuat program aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :

1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe

2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :

Gambar Program Aplikasi Alarm Dengan Vb 6.0

3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga

4.    kemudian ketikkan kode/listing/script program dibawah ini :

Dim alarm As Boolean

Private Sub Command1_Click()

If alarm = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

alarm = False

Else

Command1.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

If Text1.Text = Label1.Caption And alarm = True Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

5.    Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :

Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0

6.    Mudahkan, Selamat Mencoba…!!!

MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER

Anda pasti hobi sekali bermain komputer sambil mendengar musik atau apalagi online sambil mendengarkan musik itu sangat mengasikkan, program yang anda buka pasti kalau bukan winamp, windows media player, GOM player atau yang lainnya.
Tapi kali ini kita akan membuat sendiri aplikasi pemutar musik atau mp3 player tersebut dengan Visual basic,  pasti anda menyangka sangat sulit untuk membuat aplikasi tersebut, jika prediksi saya itu benar berarti selama ini Anda salah besar karena dalam membuat program aplikasi mp3 player dengan program vb  wah itu sangat mudah sekali, berikut tutorialnya :

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda

Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :

5.  kemudian ketikkan kode/listing/script program dibawah ini :
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub
6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan

Gambar Hasil program aplikasi mp3 player dengan vb 6.0

7. Mudahkan, Selamat Mencoba…!!!

Belajar Winsock Membuat aplikasi chat sederhana

Setelah memahami properties-properties dasar yang harus disetting untuk membuat aplikasi sederhana menggunakan winsock, pada artikel ke 2 dari 5 seri belajar winsock ini kita akan membuat aplikasi chat sederhana dengan pola 1:1 atau dengan istilah lainnya single connection.

Membuat aplikasi chatting seperti MSN Messenger atau Yahoo Messenger sebenarnya mudah (tapi tidak termasuk saya ya :D ) dan kita sudah mempelajari bagaimana membuat koneksi sederhana menggunakan winsock, selanjutnya kita tinggal mengirimkan data menggunakan method .SendData dan menghandle data yang diterima melalui event Winsock_DataArrival.

Contoh penggunaan method SendData :
1    Private Sub cmdSend_Click()
2        With Winsock1
3            .SendData "Belajar Winsock Bagian 2"
4        End With
5        DoEvents
6    End Sub

Pemanggilan fungsi DoEvents untuk memberikan jeda waktu untuk menyelesaikan pengiriman data.

Kode untuk menghandle data yang masuk juga sangat sederhana. Winsock menerima data dan menyimpannya di dalam buffer. Untuk memanggil data ini, kita tinggal memanggil method .GetData dan ingat kita tidak bisa memanggil method ini setiap waktu karena setelah itu buffer otomatis dikosongkan. Jadi waktu yang tepat untuk memanggil method ini adalah pada saat event Winsock_DataArrival dijalankan.

Contoh penggunaan method GetData :
1    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
2        Dim strData As String
3   
4        Call Winsock1.GetData(strData)
5        MsgBox strData
6    End Sub

Oke, sampai disini kita sudah mengetahui dasar-dasar untuk membuat aplikasi chat sederhana dan untuk mendemokan ini kita akan membutuhkan 2 program kita sebut saja klien dan server. Adapun persiapan untuk aplikasi server/klien :

    Objek Winsock
    Label
    2 TextBox
    CommandButton

Source code lengkap aplikasi server :
01    Option Explicit
02   
03    Private Sub cmdSend_Click()
04        Winsock1.SendData txtChat.Text
05        DoEvents
06   
07        txtMain.Text = txtMain.Text & vbCrLf & txtChat.Text
08        txtChat.Text = ""
09    End Sub
10   
11    Private Sub Form_Load()
12        Winsock1.LocalPort = 11111
13        Winsock1.Listen
14    End Sub
15   
16    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
17        'reset the socket, and accept the new connection
18        Winsock1.Close
19        Winsock1.Accept requestID
20    End Sub
21   
22    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
23        Dim strData As String
24   
25        'get the data and display it in the textbox
26        Winsock1.GetData strData
27        txtMain.Text = txtMain.Text & vbCrLf & strData
28        txtMain.SelStart = Len(txtMain.Text)
29    End Sub

Aplikasi server tinggal duduk maniz :D dan menunggu koneksi yang masuk.

Source code lengkap aplikasi klien :
01    Option Explicit
02   
03    Private Sub Form_Load()
04        'set up the Winsock1 to connect to the local computer
05        Winsock1.RemoteHost = "127.0.0.1"
06        Winsock1.RemotePort = 11111
07        Winsock1.Connect
08    End Sub
09   
10    Private Sub cmdSend_Click()
11        'send the data thats in the text box and
12        'clear it to prepare for the next chat message
13        Winsock1.SendData txtChat.Text
14        DoEvents
15   
16        txtMain.Text = txtMain.Text & vbCrLf & txtChat.Text
17        txtChat.Text = ""
18    End Sub
19   
20    Private Sub Winsock1_Connect()
21        'we are connected!
22        MsgBox "Connected"
23    End Sub
24   
25    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
26        Dim strData As String
27   
28        ' get the data from the socket
29        Winsock1.GetData strData
30        ' display it in the textbox
31        txtMain.Text = txtMain.Text & vbCrLf & strData
32        ' scroll the box down
33        txtMain.SelStart = Len(txtMain.Text)
34    End Sub
35   
36    Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
37        ' an error has occured somewhere, so let the user know
38        MsgBox "Error: " & Description
39        ' close the socket, ready to go again
40        Winsock1.Close
41    End Sub