توضیحات

توجه : به همراه فایل word این محصول فایل پاورپوینت (PowerPoint) و اسلاید های آن به صورت هدیه ارائه خواهد شد

  مقاله ویژوال بیسیک CHAT 1-n و CHAT 1-1 با word دارای 90 صفحه می باشد و دارای تنظیمات در microsoft word می باشد و آماده پرینت یا چاپ است

فایل ورد مقاله ویژوال بیسیک CHAT 1-n و CHAT 1-1 با word  کاملا فرمت بندی و تنظیم شده در استاندارد دانشگاه  و مراکز دولتی می باشد.

توجه : در صورت  مشاهده  بهم ریختگی احتمالی در متون زیر ،دلیل ان کپی کردن این مطالب از داخل فایل ورد می باشد و در فایل اصلی مقاله ویژوال بیسیک CHAT 1-n و CHAT 1-1 با word،به هیچ وجه بهم ریختگی وجود ندارد


بخشی از متن مقاله ویژوال بیسیک CHAT 1-n و CHAT 1-1 با word :

ویژوال بیسیک پروژه CHAT 1-n و CHAT 1-1

كار با كنترل winsock

كنترل winsock به شما اجازه می دهد به یك ماشین راه دور متصل شده و داده ها را با استفاده از پروتكل TCP و UDP مبادله كنید. هر دو پروتكل می توانند برای برنامه های client و server استفاده شوند.

موارد استفاده :
ساختن یك برنامه client كه اطلاعات كاربر را قبل از فرستادن به سمت server جمع آوری می كند.
ساختن بك برنامه server كه به عنوان بك نقطه مركزی مجموعه برای داده های چندین كاربر می باشد.
ساخت یك برنامه chat
و موارد دیگر ;
Socket :
عاملی است برای برنامه نویسی تحت اینترنت كه از طریق آن دو برنامه ، دو پروسه در شبكه مشخص می شوند .بنابراین اطلاعات ارسال شده یا دریافت شده از طریق این شماره منحصر به فرد یا عامل منحصر به فرد مسیر خود را پیدا می كند.

انتخاب یك پروتكل :
وقتی از كنترل winsock استفاده می كنید باید به این مسئله رسیدگی كنید كه كدامیك از پروتكل های TCP و UDP را می خواهید استفاده كنید . تفاوت اصلی بین این دو در حالت اتصال آنها می باشد :
پروتكل TCP یك پروتكل اتصال – پایه است و مانند تلفن كاربر باید قبل از اقدام به ارسال اطلاعات یك ارتباط ایجاد كند.
پروتكل UDP یك پروتكل بدون اتصال است و مبادله اطلاعات بین دو كامپیوتر مانند ارسال پیغام است : یك پیغام از یك كامپیوتر برای یكی دیگر ارسال می شود اما ارتباط بین آن دو واضح نیست . حداكثر اندازه داده ارسال شده به صورت منحصر به فرد ، بوسیله شبكه تعیین می شود .

ساخت یك client :
وظیفه برنامه client side application : فرایند یا برنامه ای كه در سمت مشتری برای استفاده از یك سرویس وب اجرا می شود .

عملیاتی كه توسط client side application انجام می شود:

در خواست اتصال به برنامه server (عمل connect )
عمل ارسال اطلاعات به سمت server
دریافت اطلاعات از server

1- برای شروع سا خت برنامه client ابتدا ویژوال بیسیك را باز كرده و یك پروژه استاندارد را انتخاب و سپس آنرا باز می كنیم

2- سپس در قسمت ابزار راست كلیك كرده و گزینه components; را انتخاب می كنیم .

3- از صفحه ای كه باز می شود گزینه Microsoft WinSock Control 6 را انتخاب می كنیم

4- بعد از زدن دكمه ok دو كامپیوتر كوچك پشت سرهم در كنار نوار ابزار پدیدار می شوند .

5- سپس روی آن كلیك كرده و آنرا برروری فرم خود قرار دهید . نام آنرا به sockc تغییر دهید .

Winsock یكی از ابزارهای برقراری ارتباط از طریق پورتهای TCP و UDP بین server و client در ویژوال بیسیك می باشد . تقریبا تمام ارتباطات استاندارد در ویژوال بیسیك از این طریق انجام می گیرد .

6- بعد از انجام مراحل بالا 5 Textbox به فرم مورد نظر خود اضافه می كنیم
سپس بر روی فرم مورد نظر خود دو بار راست كلیك می كنیم تا وارد محیط كد نویسی شویم . سپس در form_load( ) برنامه خود كدهای زیر را اضافه می كنیم .

Private Sub cmdConnect_Click()
If sockc.state = 0 Then
sockc.RemoteHost = txtip.Text
sockc.RemotePort = txtport.Text
sockc.Connect
Label3.Caption = status(sockc.state)
txtsend.SetFocus

Else
sockc.Close
Label3.Caption = status(sockc.state)

End If
Label3.Caption = status(sockc.state)
End Sub

تنظیم پروتكل :
برای تنظیم پروتكل شما می توانید از یكی از دو حالت sckTCPProtocol و sckUDPProtocol استفاده كنید كه ما در اینجا از خاصیت sckTCPProtocol استفاده كرده ایم .

مشخص كردن نام كامپیوتر :
برای اتصال به كامپیوتر راه دور شما باید IP ویا نام دوستانه آنرا بدانید. IP كامپیوترهای شخصی 127001 می باشد كه این رشته را به عنوان مقدار برای خاصیت RemoteHost قرار می دهیم .

مشخص كردن پورت كامپیوتر ها :
برای اینكه كامپیوتر های راه دور بتوانند با یكدیگر ارتباط برقرار كنند بایستی یك شماره پورت برای نرم افزارهای دو طرف یعنی client و server انتخاب می كنیم كه در واقع نرم افزارها از طریق این پورت با یكدیگر ارتباط برقرار می كنند .و این پورت به عنوان ورودیها و خروجیهای دو نرم افزار عمل می كند كه ما در اینجا مقدار خاصیت RemotePort را برابر رشته 5050 قرار داده ایم .
سپس مقدار دو socks.protocolو socks.local port را به ترتیب برابر با 127001 و 5050 قرار داده ایم كه وقتی برنامه client اجرا می شود برای كاربر مشخص شود كه برنامه بر روی چه IP و پورتی كار می كند .
بعد از این كار مقدار را برابر مقداری كه یك تابع بر می گرداند قرار داده ایم . كار این تایع به این صورت است كه در هر لحظه وضعیت برنامه client را مشخص می كند در واقع sockc.state داخل پرانتز یك عدد را برمی گرداند .

تعریف تابع status :
unction status(state As Integer)
Select Case state
Case 0
status = “closed”
Case 1
status = “open”
Case 2
status = “listening;”
Case 6
status = “connecting;”
Case 7
status = “connected”
Case 9
status = “ERROR”
End Select
End Function
در اینجا برای انتخابهای 0 تا 9 مقدار status را با یك پیغام مناسب مقدار دهی كرده ایم .
كد برنامه

Chat 1-Chat 1
———————————-
Client
———————————-
Option Explicit

Private Sub cmdClose_Click()

sockc.Close

End Sub
Private Sub cmdConnect_Click()

If sockc.state = 0 Then
sockc.RemoteHost = txtip.Text
sockc.RemotePort = txtport.Text
sockc.Connect
Label3.Caption = status(sockc.state)
txtsend.SetFocus
Else
sockc.Close
Label3.Caption = status(sockc.state)
End If

Label3.Caption = status(sockc.state)

End Sub
Private Sub cmdSend_Click()

If sockc.state = sckConnected Then
sockc.SendData txtsend.Text
Label3.Caption = “Sending Data”
Else
Label3.Caption = “Not connected to host”
End If

End Sub

Private Sub sockc_DataArrival(ByVal bytesTotal As Long)

Dim sData As String
sockc.GetData sData,vbString
txtget.Text = sData
Label3.Caption = “Received Data”

End Sub

Private Sub sockc_SendComplete()

Label3.Caption = “Data Send”

End Sub

Function status(state As Integer)

Select Case state
Case 0
status = “closed”
Case 1
status = “open”
Case 2
status = “listening;”
Case 6
status = “connecting;”
Case 7
status = “connected”
Case 9
status = “ERROR”
End Select

End Function

Server
————————————-
Function Status (State As Integer)

Select Case state
Case 0
status = “closed”
Case 1
status = “open”
Case 2
status = “listening;”
Case 6
status = “connecting;”
Case 7
status = “connected”
Case 9
status = “ERROR”
End Select

End Function
Private Sub Form_Load()

socks.Protocol = sckTCPProtocol
socks.LocalPort = 5050
socks.listen
lblhost.Caption = socks.LocalHostName
lblip.Caption = socks.LocalIP
lblstatus.Caption = status(socks.state)

End Sub

Private Sub listen_Click()

If socks.state = sckClose Then
socks.listen
Else
socks.Close
End If

lblstatus.Caption = status(socks.state)

End Sub

Private Sub Send_Click()

If socks.state = sckConnected Then
socks.SendData sendtxt.Text
Else
MsgBox “Not Connected To Server Please Check Again”, vbExclamation, ” ALERT”
End If

lblstatus.Caption = status(socks.state)

End Sub

Private Sub socks_Close()

socks.Close
socks.listen
lblstatus.Caption = status(socks.state)

End Sub

Private Sub socks_ConnectionRequest(ByVal request ID As Long)

socks.Close
socks.Accept request ID
lblstatus.Caption = status(socks.state)

End Sub
Private Sub socks_DataArrival(ByVal bytesTotal As Long)

Dim data As String
socks.GetData data
gettxt.Text = data
lblstatus.Caption = status(socks.state)

End Sub
Chat 1-Chat n
———————————–
client
———————————–
Private Sub Command1_Click()

If Winsock1.State = sckClosed Then
Winsock1.Connect
Else
Winsock1.Close
End If

End Sub

Private Sub Command2_Click()

If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
Else
MsgBox (“connection does not valid”)
End If

End Sub
Private Sub Form_Load()

برای دریافت اینجا کلیک کنید

سوالات و نظرات شما

برچسب ها

سایت پروژه word, دانلود پروژه word, سایت پروژه, پروژه دات کام,
Copyright © 2014 icbc.ir