[졸업작품 메신저 비주얼베이직] 졸업작품 - 비주얼베이직 메신저-Visual Basic Messenger

이미지
준비중입니다.
※ 미리보기 이미지는 최대 20페이지까지만 지원합니다.
  • 분야
  • 등록일
  • 페이지/형식
  • 구매가격
  • 적립금
자료 다운로드  네이버 로그인
소개글
[졸업작품 메신저 비주얼베이직] 졸업작품 - 비주얼베이직 메신저-Visual Basic Messenger에 대한 자료입니다.
목차
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 6.0 으로 했습니다.

프로그램 소스에 주석도 많이 달아 놓았습니다.
visual Basic을 조금만 아신다면 프로그램 이해에 큰 도움이 되실겁니다

졸업작품 소스 일체와 제가 발표 했던 PPT도 함께 제공합니다.
(PPT는 총 2개 파일로 전체발표 했던PPT (총 17장) 와 세부발표했던 PPT (총 8장)으로 되어있습니다.)