ネットワーク への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 (削除されました)  () 投稿日時 2013/10/14 22:50:50
(削除されました)
0
投稿者 ペンペン  (学生) 投稿日時 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.Object, ByVal 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.Object, ByVal 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
0
投稿者 まだまだ  (高校生) 投稿日時 2011/3/18 00:27:10
VB中学校で昨年開催された夏休みProgrammingContestの
Real Time ChessのCodeがとても参考になると思います。
ただしCodeのほかにもNetworkの知識がいろいろと必要になるかと思います。
0
投稿者 crown  (中学生) 投稿日時 2011/3/17 18:58:57
AIのプログラムは書いていません。
0
投稿者 crown  (中学生) 投稿日時 2011/3/17 18:26:54
vb2010です。オセロをつくりました。それにネットワーク対戦機能をつけるコードをおしえてください。オセロは初級講座のものです。
0