FINALLE: THE PROJECT

Assalamualaikum kawan-kawan sedunia!!!!
Akhirnya dengan banyak bantuan dari narasumber-narasumber yang lumayan terpercaya, kami dapat menyelesaikan proyek ini sesuai goal yang diinginkan. Kami sempat putus asa loh...tapi dengan tekad yang bulat dan semangat yang menggebu-gebu alhamdulillah, project ini selesai.

Kalau kalian ingin donlot dan mempelajarinya, silahkan Klik di sini program ini telah dapat menampilkan chat room dan privat room. Tapi ingat ini hanya program client, untuk mendapatkan program servernya dapat kamu donlot di blog temanku di http://mencariilmu-hasilpkl.blogspot.com/ . Oke teman, sampai jumpa lagi yaa....

Assalamulaiakummmm

PEKAN KE EMPAT

Hei guys, sekarang ane kirimin link ke job yang ane bikin. Kalo ente-ente mau pake sok....mangga didonlot ni link-nya disini ni!okeh bray, ane cao dulu ye. Ni baru software client guys!!,, kalo mau donlot servernya donlot di blog punya temen ane dulu bray, kalian bisa donlotdisini ni! siipp ga tuhhhh??
Met Puasa teman-teman,
Assalamulaikum Warahmatullahi Wabarakatuh

TITIK TERANG

Setelah  3 minggu kami berjuang mengerjakan project ini dan selalu berganti-ganti tampilang dan coding akhirnya kami mendapat titik terang. Tepatnya tadi pagi kami mendapat sebuah coding yang dapat digunakan sesusai goal yang kami harapkan. Inilah hasilnya,
1. Tampilan awal client:

dan ini adalah coding-nya:

Private Sub Command1_Click(index As Integer)

If Winsock1.State = sckConnected Then
  data = "login," & Text1.Text & "," & Text2.Text
  Winsock1.SendData data
End If
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Text3.Text
.RemotePort = 70
.Connect
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim ar() As String
Dim proto() As String
Dim ar2() As String

Call Winsock1.GetData(data)
proto = Split(data, ";")
ar = Split(proto(0), ",")
ar2 = Split(proto(1), ",")

If ar(0) = "login" And ar(1) = "ok" Then

  MsgBox "Monggo " & Text1.Text, vbOKOnly, ""
  Form4.Show
  Form1.Hide
  Form4.List2.AddItem ar2(0)
  Form4.List2.AddItem ar2(1)
  Form4.List2.AddItem ar2(2)
  Form4.List2.AddItem ar2(3)
  Form4.List2.AddItem ar2(4)
  Form4.List2.AddItem ar2(5)
  Form4.List2.AddItem ar2(6)
  Form4.List2.AddItem ar2(7)
  Form4.List2.AddItem ar2(8)
  Form4.List2.AddItem ar2(9)
  Form4.List2.AddItem ar2(10)
Else
  MsgBox "Nama atau Password kamu salah"
  'Winsock1.Close
  Text1.SetFocus

End If
End Sub

Nah sekarang kita akan ke form selanjutnya, beginilah bentuknya:
2. Tampilan form chatting

dan inilah coding-nya:


Private Sub Command2_Click()
Dim intResponse As Integer

intResponse = MsgBox("Are you sure you want to quit?", _
vbYesNo + vbQuestion, _
"Quit")

If intResponse = vbYes Then
End
End If
End Sub

Private Sub List2_Click()
Text1.SetFocus
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Form1.Winsock1.State Then Form1.Winsock1.Close
Form1.Winsock1.Accept requestID
End Sub

Private Sub Command1_Click()
If Winsock1.State = sckConnected Then
    i = Text1.Text
    Winsock1.SendData "chat," & Form1.Text1.Text & "," & Form4.List2 & "," & i
End If
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Form1.Text3.Text
.RemotePort = 80
.Connect
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim i As String

Form1.Winsock1.GetData data, vbString
List2.AddItem data

Winsock1.GetData i, vbString
List1.AddItem i

End Sub

Alhamdulillah yah.....hehehe, oke job selanjutnya adalah: privat chat!!
semangka!! eh,, semangat!!!

HARI KESEMBILAN

Setelah beberapa hari ini, ternyata kami menemukan kesalahan yang sangat fatal. Jadi untuk beberapa hari ini kami tidak melakukan posting untuk laporan.
Setelah kami diskusikan dengan pembimbing kami, kami memutuskan untuk membuat ulang protocol kami mulai dari 0. Oke sekarang akan saya sampaikan protocol kedua yang telah kami sepakati. Daftar anggota sudah ada di database.

1. server Sudah Memiliki data base anggota chat, contoh:

 (NamaPasword)

2. Untuk login adalah

LOGIN(iko1234)

  * If   'NO'   tidak akan diproses (Nama Or Pasword salah)

  * If   'Yes'   Data akan diproses (Nama Or Pasword Benar)

  

3. Setelah login,

     Server menampilkan nama-nama teman yang online.

        * (Anggota online ada namanya di list)

                          ( Text Nama)

        *  (Anggota off line, tidak ada nama di list) 

                                  (Text " ")

4. Request Connect (masukkan Port yang tersedia)

       (Port, Connect)

5. Chatting (Permintaan Chat)

      

       chating ke id fah adalah

CHAT.fah

kemudian id fah menyetujui dengan protocol

CONNECT.iko      

jika yang ingin chat dengan fah adalah iko.

6.  Komunikasi Data 

Protocol untuk mengirim pesan adalah:

SEND (TEXT.fah "Hello")

dan penerima akan mendapat protocol:

ARRIVED (TEXT.fah "Hello")

4. Keluar sistem:

LOGOUT 

semoga tidak ada lagi protocol-protocol yang lain lagii,,
SALAM KOMPAK SELALU

HARI KEENAM

Sampai saat kami telah menyelesaikan suatu program Multichating,, yaitu program yang memungkinkan kita berkomunikasi dengan orang lebih dari satu dalam satu forum, namun program ini masih sangat sederhana. Dan program ini juga masih dalam masa percobaan, kemungkinan akan mendapat banyak perubahan.


Inilah tampilan Programnya:

dan inilah coding programnya:

Option Explicit
Dim blnClientConnected(7) As Boolean
Private Sub Cmd_connect_Click()
If OptServer.Value = True Then
Dim i As Integer
For i = 0 To 7
Wnsck(i).LocalPort = Txt_port.Text + i
Wnsck(i).Listen
lstconversation.AddItem "listening on port" & Txt_port.Text + i
Next i
Else
WnsckConnect.RemoteHost = Txt_id.Text
WnsckConnect.RemotePort = Txt_port.Text
WnsckConnect.Connect
End If
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Cmdsend_Click()
Dim tempMessage As String
Dim i As Integer
tempMessage = Txt_name.Text & ": " & Txt_msg.Text
If OptServer.Value = True Then
For i = 0 To 7
If blnClientConnected(i) = True Then
 Wnsck(i).SendData tempMessage

End If
Next i
Else
WnsckConnect.SendData tempMessage
End If
Txt_msg.Text = ""
Txt_msg.SetFocus
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 7
blnClientConnected(i) = False
Next i
End Sub
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)
End Sub
Private Sub Wnsck_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Wnsck(Index).State <> sckClosed Then
Wnsck(Index).Close
End If
Wnsck(Index).Accept requestID
lstconversation.AddItem "user connected"
blnClientConnected(Index) = True
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData "User Connected"
End If
Next i

End Sub
Private Sub Wnsck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim receivedData As String
Wnsck(Index).GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData receivedData
End If
Next
End Sub

Private Sub Wnsck_Error(Index As Integer, 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)
MsgBox ("Eror!" & vbCrLf & Description)
End Sub
Private Sub WnsckConnect_ConnectionRequest(ByVal requestID As Long)
If WnsckConnect.State <> sckClosed Then
 WnsckConnect.Close
 End If
 WnsckConnect.Accept requestID
 
End Sub
Private Sub WnsckConnect_DataArrival(ByVal bytesTotal As Long)
Dim receivedData As String
WnsckConnect.GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
End Sub

program ini dapat dimainkan sampai dengan 7 user. Oke bray!!!! bye
salam

HARI KELIMA

Di hari yang kelima ini saya sudah dapat membuat aplikasi login dan daftar. Namun sayab sadari ini belum begitu sempurna, masih banyak hal-hal yang harus diperbaikik lagi. Oke sekarang mari kita lihat hasilnya.

Ini adalah tampilan login untuk pertama kalinya

Dan ini adalah coding programnya:

Private Sub Command1_Click() 'tombol login
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
Winsock1.SendData Text2.Text
End If

'untuk mengirim data nama dan pasword ke server

If Text1.Text = "" And Text2.Text = "" Then
MsgBox "isi dulu donk!"
Text1.SetFocus
Else
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "isi semua donk!"
Text1.Text = ""

 Text1.SetFocus




Else


MsgBox "wellcome " + Text1.Text





End If
End If

Form3.Show
Form1.Hide



End Sub

'untuk mengetahui bahwa client benar-benar terdaftar pada server

Private Sub Command2_Click() 'tombol Daftar
Form2.Show
Form1.Hide
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "172.16.16.20"
.RemotePort = 70
.Connect
End With
End Sub

'untuk menentukan alamat yang ingin dituju pada server

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID
End Sub

'jika telah mengirim sinyal/koneksi maka akan diterima oleh server

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
MsgBox ("Data Tersimpan")


End Sub

'untuk mendaftar atau mengirim data pada server agar disimpan di server
 

Oke, sekarang kita bahas tampilan mendaftar

Dan ini adalah coding programnya:

Private Sub Command1_Click() 'tombol Daftar
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
Winsock1.SendData Text2.Text
End If
 

'untuk mengkoneksikan client pada server serta mengirim data ke server dan selanjutnya akan disimpan oleh server

If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
MsgBox "isi dulu donk!"
Else
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "isi semua donk!"
Else
If Text2.Text <> Text3.Text Then
MsgBox "paswordnya harus sama donk!"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Else
Form4.Show
Form2.Hide
End If
End If
End If

'untuk memastikan bahwa nama dan pasword tersebut dikenali oleh server

End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "172.16.16.20"
.RemotePort = 80
.Connect
End With

'untuk menentukan alamat IPaddress  pada server 

End Sub

 

Nah, kawan-kawan coding program di atas belum sempurnya. Maka saya akan berusaha menyempurnakannya menjadi lebih baik. Saya rasa cukup untuk laporan ini. Bye

SALAM KOMPAK SELALU

HARI KEEMPAT

Di hari yang keempat ini kami baru dapat membuat 2 program dari keseluruhan program yang kami ingin buat, untuk itu kami mengharapkan kami dapat melanjutkannya dengan baik dan lancar. Namun untuk sementara tidak akan saya posting hasil kerja kami di sini, dikarenakan beberapa alasan. Alasan yang terpenting adalah: Mungkin akan ada banyak perubahan pada desainnya, so karena itu tidak akan saya tampilkan coding maupun tampilannya. Sekian dan Terima kasih
SEMANGAT!!