ネットワーク

タグの編集
投稿者 crown  (中学生) 投稿日時 2011/3/17 18:26:54
vb2010です。オセロをつくりました。それにネットワーク対戦機能をつけるコードをおしえてください。オセロは初級講座のものです。
投稿者 crown  (中学生) 投稿日時 2011/3/17 18:58:57
AIのプログラムは書いていません。
投稿者 まだまだ  (高校生) 投稿日時 2011/3/18 00:27:10
VB中学校で昨年開催された夏休みProgrammingContestの
Real Time ChessのCodeがとても参考になると思います。
ただしCodeのほかにもNetworkの知識がいろいろと必要になるかと思います。
投稿者 ペンペン  (学生) 投稿日時 2013/10/14 15:55:42
はじめまして、ペンペンです。
僕もネットワーク対戦型のオセロを製作中です。

ネットワークのTcp/IpやUdp/Ipについて勉強してください!

以下簡易チャットを作った時のソースです。
送受信だけですですが、参考までに...

頑張ってください^^

Public Class Form1
    Dim Thread As New System.Threading.Thread(AddressOf Receive)
    Dim Udp As New System.Net.Sockets.UdpClient(6000) '受信ポートの番号 
    Dim IpEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
    Dim Sentence As String = ""
    Dim Flag As Boolean = True

    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Thread.Start()
        Udp.Connect("「ホストネーム」", 6000)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Send As [Byte]() = System.Text.Encoding.Default.GetBytes("「送信する文」")
        Udp.Send(Send, Send.Length)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
        If Sentence = "" Then
        Else
            MsgBox(Sentence & Chr(13) & Now, 0, "メッセージが届きました")
            Sentence = ""
        End If
        Timer1.Enabled = True
    End Sub

    Private Sub Receive()
        Do
            Dim Receive As [Byte]() = UdpClient.Receive(IpEndPoint)
            Dim MessageData As String = System.Text.Encoding.Default.GetString(Receive)
            Sentence = MessageData
        Loop While (Flag)
    End Sub

End Class
投稿者 (削除されました)  () 投稿日時 2013/10/14 22:50:50
(削除されました)