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