سلام
لطفا راهنمایی کنید
یک برنامه کلاینت سرور که که تاریخ رو از کاربر بگیرد و برای سرور بفرستد و سرور تاریخ ورودی ( شمسی ) رو به میلادی تبدیل کند و برای کلاینت بفرستد.
این برنامه رو خودم تحت ویندوز یعنی گرافیکی نوشتم ولی مشکل این است که این برنامه رو باید تحت داس باشه یعنی تحت کامند باشه
به هر زبانی باشه مهم نیست فقط کار رو انجام بده
باور کنین که سر نوشتن اون کد سرویس شدم ولی از این یکی دیگه حتی یک خط هم بلد نیستم ( کنسول پوراگرامینگ)
2 روز هم بیشتر وقت ندارم
لطفا کمک کنید
خواهش فقط یک روز دیگه فرصت دارم
من خودم کد کلاینت و سرور رو درست کردم حالا برای تبدیل تاریخ تو کنسول کمک کنید لطفا
این دیگه کار سختی است مبتدی نیست
لطفا این رو کمک کنید دیگه
کد کلاینت
کد:
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public Class MainClass
Shared Stream As NetworkStream
Public Shared Sub Main()
System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1))
Dim Client As New TcpClient
Try
Client.Connect(IPAddress.Parse("127.0.0.1"), 200)
Console.WriteLine("TCP Client Connection established.")
Console.WriteLine(New String("-", 40))
Console.WriteLine()
Stream = Client.GetStream()
Dim ReceiveThread As New Thread(AddressOf ReceiveData)
ReceiveThread.IsBackground = True
ReceiveThread.Start()
Dim w As New BinaryWriter(Stream)
Dim Text As String
Do
Text = Console.ReadLine()
If Text <> "QUIT" Then w.Write(Text)
Loop Until Text.ToUpper() = "QUIT"
Client.Close()
Catch Err As Exception
Console.WriteLine(Err.ToString())
End Try
End Sub
Private Shared Sub ReceiveData()
Dim r As New BinaryReader(Stream)
Do
If Stream.DataAvailable Then
Console.WriteLine(("RECEIVED: " + r.ReadString()))
End If
Loop
End Sub
End Class
کد سرور
کد:
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public Class MainClass
Shared Stream As NetworkStream
Public Shared Sub Main()
Dim a As Integer
a = Console.ReadLine
Dim Listener As New TcpListener(a)
Listener.Start()
Console.WriteLine("TCP Server Waiting for a connection...")
Try
Dim Client As TcpClient = Listener.AcceptTcpClient()
Console.WriteLine("Connection accepted.")
Console.WriteLine(New String("-", 40))
Console.WriteLine()
Stream = Client.GetStream()
Dim ReceiveThread As New Thread(AddressOf ReceiveData)
ReceiveThread.IsBackground = True
ReceiveThread.Start()
Dim w As New BinaryWriter(Stream)
Dim Text As String
Do
Text = Console.ReadLine()
If Text <> "QUIT" Then w.Write(Text)
Loop Until Text.ToUpper() = "QUIT"
ReceiveThread.Abort()
Client.Close()
Listener.Stop()
Catch Err As Exception
Console.WriteLine(Err.ToString())
End Try
End Sub
Private Shared Sub ReceiveData()
Dim r As New BinaryReader(Stream)
Do
If Stream.DataAvailable Then
Console.WriteLine("RECEIVED: " + r.ReadString())
End If
Loop
End Sub
End Class