client/server

سلام...
راستش من برنامه client /server را نوشتم ولي برنامه server مشکل داره کسي ميتونه کمک کنه؟ تا مشکل حل بشه؟
با vb.net هم نوشته شده .. Rolling Eyes

پروژه درس مهندسي اينترنت Anxious

honey نوشته بود:

سلام...
راستش من برنامه client /server را نوشتم ولي برنامه server مشکل داره کسي ميتونه کمک کنه؟ تا مشکل حل بشه؟
با vb.net هم نوشته شده .. Rolling Eyes

پروژه درس مهندسي اينترنت Anxious

كدوم برنامه Client/Server ؟ Think

شايد بهتر بود مي‌گفتيد " من يك برنامه client /server را نوشتم " و بازهم بهترتر بود اگر مي‌گفتيد كه اون چه برنامه‌ايه و بازهم بهترترتر بود اگر كدي كه مشكل داره رو هم مي‌گذاشتيد كه اگر كسي هم بخواد كمك كنه بتونه. Wink

البته اينها رو براي راهنمايي شما نوشتم چون من vb.net بلد نيستم، پس منتظر كمك من نباشيد. Wink

چند بار بگم کد رو بده ببينم؟ Brick wall

عبود نوشته بود:

honey نوشته بود:

سلام...
راستش من برنامه client /server را نوشتم ولي برنامه server مشکل داره کسي ميتونه کمک کنه؟ تا مشکل حل بشه؟
با vb.net هم نوشته شده .. Rolling Eyes

پروژه درس مهندسي اينترنت Anxious

كدوم برنامه Client/Server ؟ Think

شايد بهتر بود مي‌گفتيد " من يك برنامه client /server را نوشتم " و بازهم بهترتر بود اگر مي‌گفتيد كه اون چه برنامه‌ايه و بازهم بهترترتر بود اگر كدي كه مشكل داره رو هم مي‌گذاشتيد كه اگر كسي هم بخواد كمك كنه بتونه. Wink

البته اينها رو براي راهنمايي شما نوشتم چون من vb.net بلد نيستم، پس منتظر كمك من نباشيد. Wink

موضوع اينه که نميتونم عيبش رو برطرف کنم .. در ضمن من خواستم اطلاع بدم که اگه کسي ميتونه کمکي بکنه به من بگه من برنامه رو براي اون فرد کمک کننده بفرستم ... Think

Yaghma نوشته بود:

چند بار بگم کد رو بده ببينم؟ Brick wall

مرسي از همراهي و همکاري و کمک و دلگرميت Mr. Green

ولي خوشم اومد ..اينجا سکوت بهترين جوابه Mr. Green

اين هم کد برنامه server Rolling Eyes

---------------------------------------------------------------------------------------------

Imports System.Net.Sockets
Class server_application
Shared Sub main()

dim ip as Net.IPAddress.parse("127.0.0.1")
Dim tcplistener As New TcpListener(ip, 8000)
tcplistener.Start()
Console.WriteLine("waiting for connection..")

Dim tcpclient As TcpClient = tcplistener.AcceptTcpClient()
Console.WriteLine("connection accepted.")

Dim networkstream As NetworkStream = tcpclient.GetStream()
Dim bytes(tcpclient.ReceiveBufferSize) As Byte
networkstream.Read(bytes, 0, CInt(tcpclient.ReceiveBufferSize))
dim clientdata as String=
System.Text.Encoding.ASCII.GetString(bytes)
Console.WriteLine(("client sent:" + clientdata))

Dim responsestring As String = "connected to server."
Dim sendbytes As [Byte]=

System.Text.Encoding.ASCII.GetBytes(responsestring)
networkstream.Write(sendbytes, 0, sendbytes.length)

tcpclient.Close()
tcplistener.Stop()
Console.WriteLine("press any key to exit...")
Console.ReadLine()
End Sub

End Class

حالا کسي ميتونه مشکل رو حل کنه؟ Sad

اگه اين هفته تحويل بدم 5 نمره ميگيرم (1 نمره اضافه تر Rolling Eyes

)

honey نوشته بود:

اين طور مواقع، کل پروژه ات رو بايد rar (يا zip يا ...) کني و بزاري، تا اگر کسي خواست به تو کمک کنه، متحمل دردسرهاي اضافي بيخودي نشه! مطمئنا با قرار دادن يک فايل از برنامه، (که کامپايلش نيازمند ساخت يه پروژه جديد و ... هست) هيچکس به تو کمکي نخواهد کرد. به اين نکته هم توجه داشته باش که هر چند همه آدمها روي ساخته هاشون تعصب دارند، اما کد تو عمرا به درد کسي بخوره! اميدوارم منطقي به حرفم نگاه کني ...

در راستای حرفهای احسان بگم که :

لطفا بگو اشکالش چیه کجاش مشکل داره (error میده , Exception میده آخه بگو چه مرگشه تا بقیه حل کنن)

احسان نوشته بود:

honey نوشته بود:

اين طور مواقع، کل پروژه ات رو بايد rar (يا zip يا ...) کني و بزاري، تا اگر کسي خواست به تو کمک کنه، متحمل دردسرهاي اضافي بيخودي نشه! مطمئنا با قرار دادن يک فايل از برنامه، (که کامپايلش نيازمند ساخت يه پروژه جديد و ... هست) هيچکس به تو کمکي نخواهد کرد. به اين نکته هم توجه داشته باش که هر چند همه آدمها روي ساخته هاشون تعصب دارند، اما کد تو عمرا به درد کسي بخوره! اميدوارم منطقي به حرفم نگاه کني ...

دعوا ميکني چرا؟ حرف شما متين ..مرسي از راهنماييتون..ولي ديگه تو قسمت view دو تاtext box گذاشتن دردسر و کار اضافي نميشه !!؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ d'oh!

فقط دوتاtext box ميخواد همين ..وارد قسمت view code بشين و کدهايي که گذاشتم رو کامل به جاي کدهاي اون قسمت کپي ميکنين ..من حتي قسمت import و end sub , end class رو هم نوشتم .....
کد بالا بطور کامل جايگزين قسمت کد يک پروژه اي ميشه که در view فقط دو تا دونه text box داره ...
ولي به ip ايراد ميگيره ...

honey نوشته بود:

...
ولي به ip ايراد ميگيره ...

خط 5 و 6 کدت

dim ip as Net.IPAddress.parse("127.0.0.1")
Dim tcplistener As New TcpListener(ip, 8000)

رو با اين جايگزين کن:

Dim tcpListener As New TcpListener(8000)

من وي بي کار نيستم، ولي اون مشکلت با اين کار رفع ميشه!

___
عمل کردن يا عمل نکردن تو به اون چيزي که گفتم (احترام بيشتر به کسي که ازش انتظار کمک داري) هيچ فرقي براي من نميکنه! با رعايت اون اصول احتمال اينکه کسي کارت رو راه بندازه بيشتر ميشه! همين!

___
آدرس ايميل تالارت رو هم درست کن! Pray

چشم آقا احسان .. Embarassed

مرسي از راهنماييتون ..

احسان نوشته بود:

honey نوشته بود:

...
ولي به ip ايراد ميگيره ...

خط 5 و 6 کدت

dim ip as Net.IPAddress.parse("127.0.0.1")
Dim tcplistener As New TcpListener(ip, 8000)

رو با اين جايگزين کن:

Dim tcpListener As New TcpListener(8000)

من وي بي کار نيستم، ولي اون مشکلت با اين کار رفع ميشه!

___
عمل کردن يا عمل نکردن تو به اون چيزي که گفتم (احترام بيشتر به کسي که ازش انتظار کمک داري) هيچ فرقي براي من نميکنه! با رعايت اون اصول احتمال اينکه کسي کارت رو راه بندازه بيشتر ميشه! همين!

___
آدرس ايميل تالارت رو هم درست کن! Pray

sorry ربطي نداشت.. d'oh!

honey نوشته بود:

sorry ربطي نداشت.. d'oh!