[졸업작품 메신저 비주얼베이직] 졸업작품 - 비주얼베이직 메신저-Visual Basic Messenger
- 등록일 / 수정일
- 페이지 / 형식
- 자료평가
- 구매가격
- 2007.05.10 / 2019.12.24
- 20페이지 / zip (압축파일)
- 평가한 분이 없습니다. (구매금액의 3%지급)
- 5,000원
추천 연관자료
- 하고 싶은 말
-
제가 졸업 작품으로 내놨던 작품입니다 ..
제가 직접 개발 했고,
개발 환경은 Visual Basic 6.0 으로 했습니다.
프로그램 소스에 주석도 많이 달아 놓았습니다.
visual Basic을 조금만 아신다면 프로그램 이해에 큰 도움이 되실겁니다
졸업작품 소스 일체와 제가 발표 했던 PPT도 함께 제공합니다.
(PPT는 총 2개 파일로 전체발표 했던PPT (총 17장) 와 세부발표했던 PPT (총 8장)으로 되어있습니다.)
- 목차
-
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
자료평가
-
아직 평가한 내용이 없습니다.