Contoh Program Aplikasi Chatting Ms Comm menggunakan Software VB 6

1. Hubungkan kabel seri DB 9 twisted pada kedua komputer.
2. Buka VB 6.
3. Buat interface berupa form Log In untuk mempermudah penggunaan aplikasi.

4. Buat perintah untuk melakukan log in chat. Hasil perintah yang saya buat:  

5. Buat form kedua sebagai media chatting.

6. Program yang saya gunakan:

Private Sub Command1_Click()

If MSComm1.PortOpen = False Then

    MSComm1.PortOpen = True

End If

    MSComm1.Output = Form1.Text1.Text + Form2.Text1.Text

    List1.AddItem (Form1.Text1.Text + Form2.Text1.Text)

    Text1.Text = ""

End Sub

Private Sub Command2_Click()

    List1.Clear

End Sub

Private Sub Command3_Click()

    Form2.Hide

    Form1.Show

    Form1.Text1.Text = "Let's Join!"

End Sub

Private Sub Command4_Click()

    If MsgBox("Are you sure? If you're exit, the chat data will be erased", vbCritical + vbYesNo, "Exit") = vbYes Then

     End

    End If

End Sub

Private Sub Form_Load()

If MSComm1.PortOpen = False Then

    MSComm1.PortOpen = True

End If

End Sub

Private Sub MSComm1_OnComm()

    List1.AddItem (MSComm1.Input)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    MSComm1.Output = Text1.Text

    List1.AddItem (Form1.Text1.Text + " : " + Text1.Text)

    Text1.Text = ""

    End If

End Sub

7. Lakukan uji coba dengan me-run program tersebut, dengan terlebih dahulu mengubah nilai Rthreshold dari “0” menjadi “1”. Hal ini berguna agar komputer dapat menerima informasi dari komputer lain.

Kesimpulan

            Dari praktikum yang telah dilakukan, terlihat bahwa program chatting pada VB 6 ini telah bekerja. Pada Form 1, program yang digunakan masih tergolong mudah karena telah dipelajari pada semester sebelumnya. Namun untuk Form 2, ada beberapa program baru yang dipelajari.

            

            Program di atas berfungsi untuk membuka port Ms Comm agar komputer dapat terkoneksi dengan komputer lain. di bawahnya terdapat program output, di mana ketika kita sudah log in dengan nama kita, maka saat mengirim pesan pada komputer lain, yang akan terbaca oleh komputer lain adalah “Nama : Isi pesan”.

           

            MSComm1.Output berguna untuk menerima pesan dari komputer lain.