레포트샵

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

이전

  • icon

다음

  • 최대 100페이지까지 확대보기 서비스를 제공합니다.

> 레포트 > 공학계열 > 자료상세보기 (자료번호:164460)

구매가격
5,000원 할인쿠폰4,500원
등록/수정
2007.05.10 / 2007.05.11
파일형식
fileiconzip(압축파일) [무료뷰어다운]
페이지수
20페이지
자료평가
평가한 분이 없습니다.
등록자
kys324
  • 다운로드
  • 장바구니 담기

닫기

이전큰이미지 다음큰이미지
  • 트위터
  • 페이스북
신규가입 200원 적립! + 10% 할인쿠폰 3장지급! banner구매자료를 평가하면 현금처럼 3%지급!

소개글

[졸업작품 메신저 비주얼베이직] 졸업작품 - 비주얼베이직 메신저-Visual Basic Messenger에 대한 자료입니다.

하고 싶은 말

제가 졸업 작품으로 내놨던 작품입니다 ..

제가 직접 개발 했고,

개발 환경은 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

태그 졸업작품, 메신저, visual, messenger, 졸업

도움말

오피스2003버젼의 경우 호환성 문제로 열리지 않을 수 있으니 열리지 않는 경우 메인페이지의 파워포인트2003오류패치 링크를 통해 업데이트 하신 후 열어보시기 바랍니다.

자료평가

아직 평가한 내용이 없습니다.

오늘 본 자료

  • 오늘 본 자료가 없습니다.
  • img

    저작권 관련 사항 정보 및 게시물 내용의 진실성에 대하여 레포트샵은 보증하지 아니하 며, 해당 정보 및 게시물의 저작권과 기타 법적 책임은 자료 등록자에게 있습니다. 위 정보 및 게시물 내용의 불법적 이용, 무단 전재·배포는 금지됩니다. 저작권침해, 명예훼손 등 분쟁요소 발견시 고객 센터에 신고해 주시기 바랍니다.