졸업작품 - 비주얼베이직 메신저

소개글

졸업작품 - 비주얼베이직 메신저에 대한 보고서 자료입니다.

목차

1. 개발 의도

2. 전체 구조도

3. 로그인, 친구관리, 내상태 변경, 파일전송 화면

4. 개발 로직

5. 개발 일정

6. 개발 환경

본문내용

메신저 프로그램 소스 중 일부입니다.

'///////////////// 서버에서 온 데이터를 처리... ///////////////

Private Sub Client_Sock_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Do Until SendReady = True
Loop

Dim TxtData As String '전송받는 데이터
Dim VarTxtData As Variant '나누어질 데이터
Dim i As Integer '루프를 돌릴 변수
Dim ProtocolLV1, ProtocolLV2, MsgProtocol As String '나누어진 데이터
Dim SQL As String '쿼리

'처리를 하기전에 붙어서 온 데이터를 자르는 작업을 먼저 진행한다.
Client_Sock.GetData TxtData

VarTxtData = Split(TxtData, Chr(&HD) & Chr(&HA))

For i = 0 To UBound(VarTxtData) - 1

If Len(VarTxtData(i)) < 5 Then Exit Sub
'받은 데이터를 전송계층단위로 나눈다.
ProtocolLV1 = Left(VarTxtData(i), 3)
ProtocolLV2 = Mid(VarTxtData(i), 4, 2)
MsgProtocol = Mid(VarTxtData(i), 6, Len(VarTxtData(i)) - 5)

Select Case ProtocolLV1

Case "LOG" '로그인 관련

If ProtocolLV2 = "OK" Then '성공시
StatusBar.Panels(1).Text = "로그인 성공"
Mnu_LogOutIn.Caption = "로그아웃"
Mnu_State.Enabled = True
Mnu_ChangeMyInfo.Enabled = True
Mnu_Tool.Enabled = True
End If

If ProtocolLV2 = "NO" Then '없는 아이디
StatusBar.Panels(1).Text = "없는 아이디"
End If

If ProtocolLV2 = "FL" Then '잘못된 비번
StatusBar.Panels(1).Text = "비밀번호가 틀렸음"
End If

If ProtocolLV2 = "IF" Then '내 정보
Dim VarMyInfo As Variant
VarMyInfo = Split(MsgProtocol, "º")
MyNum = Int(VarMyInfo(0))
MyIP = VarMyInfo(1)
MyID = VarMyInfo(2)
MyName = VarMyInfo(3)
StatusBar.Panels(1).Text = "내정보 전달"

Frm_Messenger.Text1.Text = MyName & " 님이 로그인 중입니다..^^"
'Frm_Messenger.Show
End If

Unload Frm_Login

.
.
.
.


Frm_EditInfo.Combo(0).Text = VarMyInfo1(10) '성격
Frm_EditInfo.Combo(1).Text = VarMyInfo1(11) '키
Frm_EditInfo.Combo(2).Text = VarMyInfo1(12) '외모
Frm_EditInfo.Combo(3).Text = VarMyInfo1(13) '경제력

Frm_EditInfo.Combo(4).Text = VarMyInfo1(14) '성격
Frm_EditInfo.Combo(5).Text = VarMyInfo1(15) '키
Frm_EditInfo.Combo(6).Text = VarMyInfo1(16) '외모 // 내 정보 수정 에서 정보를 처음에 뿌려준다.
Frm_EditInfo.Combo(7).Text = VarMyInfo1(17) '경제력

'MsgBox

Frm_EditInfo.Show vbModal '수정폼을 보인다.
End If

If ProtocolLV2 = "EO" Then
MsgBox "정보가 수정되었습니다."
End If


End Select

Next i
End Sub

키워드

졸업,   메신저,   비주얼베이직,   visual basic,   졸업작품,   messenger