{"id":1337,"date":"2014-08-06T18:20:47","date_gmt":"2014-08-06T09:20:47","guid":{"rendered":"http:\/\/www.digifie.jp\/blog\/?p=1337"},"modified":"2015-07-27T19:12:30","modified_gmt":"2015-07-27T10:12:30","slug":"air-%e3%81%a8%e9%80%a3%e6%90%ba%e3%81%99%e3%82%8b%e3%81%9f%e3%82%81%e3%81%ab-vb-net-%e3%81%a7-udpsocket","status":"publish","type":"post","link":"https:\/\/www.digifie.jp\/blog\/archives\/1337","title":{"rendered":"AIR \u3068\u9023\u643a\u3059\u308b\u305f\u3081\u306b VB.NET \u3067 UDPSocket"},"content":{"rendered":"
Facebook \u306b\u30b7\u30a7\u30a2<\/a><\/div>
Tweet<\/a><\/div><\/div>\n
\n

Windows \u3067\u306e \u30c7\u30b8\u30bf\u30eb\u5165\u51fa\u529b\uff08DIO\uff09\u30c7\u30d0\u30a4\u30b9\u3092\u4f7f\u7528\u3059\u308b\u5c55\u793a\u30b7\u30b9\u30c6\u30e0\u306e\u3001DIO\u30c9\u30e9\u30a4\u30d0\u306e\u5236\u5fa1 API \u304c VB.NET \u3060\u3063\u305f\u305f\u3081\u3001\u3053\u3044\u3064\u306e\u5236\u5fa1\u30a2\u30d7\u30ea\u3068 Adobe AIR \u88fd\u306e\u30d5\u30ed\u30f3\u30c8\u30a2\u30d7\u30ea\u3092\u9023\u643a\u3055\u305b\u308b\u5fc5\u8981\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002\uff08\u4eca\u56de DIO \u5236\u5fa1\u304c\u5fc5\u8981\u3060\u3063\u305f\u306e\u306f\u4e0b\u306e\u5199\u771f\u306e\u30b9\u30a4\u30c3\u30c1\uff09<\/p>\n

\"switch\"<\/p>\n

\u3061\u306a\u307f\u306b DIO \u3068\u306f\u3001LED \u304b\u3089 \u30e2\u30fc\u30bf\u30fc\u307e\u3067\u3001\u63a5\u70b9\u3092\u4f7f\u7528\u3057\u3066\u5165\u51fa\u529b\u5236\u5fa1\u3092\u884c\u3046\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u3067\u3001\u3053\u308c\u306b\u3088\u3063\u3066 PC \u304b\u3089\u306e\u5916\u90e8\u6a5f\u5668\u306e\u5165\u51fa\u529b\u5236\u5fa1\u304c\u53ef\u80fd\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u4eca\u56de\u306e\u4e0a\u8a18\uff12\u3064\u306e\u30a2\u30d7\u30ea\u9593\u9023\u643a\u306b\u306f UDP Socket\uff08DatagramSocket\uff09\u3092\u4f7f\u7528\u3057\u305f\u305f\u3081\u3001\u30b0\u30b0\u308a\u307e\u304f\u3063\u3066\u306a\u3093\u3068\u304b\u52d5\u4f5c\u3059\u308b\u3088\u3046\u306b\u306a\u3063\u305f VB.NET \u5074\u306e UDP Socket \u306e\u30b3\u30fc\u30c9\u3092\u5fd8\u308c\u306a\u3044\u3088\u3046\u306b\u81ea\u5206\u7528\u30e1\u30e2\u3002<\/p>\n

\r\n'\u53d7\u4fe1\u5074\r\nDim receivePort As Integer = "\u53d7\u4fe1\u30dd\u30fc\u30c8\u756a\u53f7"\r\nDim receivedUDP As New System.Net.Sockets.UdpClient(receivePort)\r\nDim RemoteIpEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)\r\nDim str As String = ""\r\n    \r\n'\u53d7\u4fe1\u5f85\u3061\u53d7\u3051\u7528\u30b9\u30ec\u30c3\u30c9\r\nDim threads1 As New System.Threading.Thread(AddressOf receive)\r\nDim LoopFlag As Boolean = True\r\n'\u30b9\u30ec\u30c3\u30c9\u958b\u59cb\r\n threads1.Start()\r\n\r\n'\u9001\u4fe1\u5074\r\nDim sendAdress As String = "\u9001\u4fe1\u5148\u30a2\u30c9\u30ec\u30b9"\r\nDim sendPort As Integer = "\u9001\u4fe1\u30dd\u30fc\u30c8\u756a\u53f7"\r\nDim sendUDP As New System.Net.Sockets.UdpClient(sendPort)\r\n    \r\n    \r\n'UDP \u53d7\u4fe1\r\nPrivate Sub received()\r\n\tDo\r\n\t\tTry\r\n\t\t\tDim receiveBytes As [Byte]() = receivedUDP.Receive(RemoteIpEndPoint)\r\n\t\t\t'\u53d7\u4fe1\u3059\u308b\u307e\u3067\u3053\u3053\u3067\u505c\u6b62\r\n\t\t\tDim returnData As String = System.Text.Encoding.Default.GetString(receiveBytes)\r\n\t\t\tstr = returnData\r\n\t\t \t'\u53d7\u4fe1\u5185\u5bb9\u3092\u78ba\u8a8d\r\n\t\t\tConsole.WriteLine(str)\r\n\t\tCatch err As Exception\r\n\t\t\tConsole.WriteLine(err.ToString())\r\n\t\tEnd Try\r\n\tLoop While (LoopFlag)\r\nEnd Sub\r\n    \r\n'UDP \u9001\u4fe1\r\nPrivate Sub SendUDP(msg As String)\r\n\tTry\r\n\t\tsendBytes = enc.GetBytes(msg)\r\n\t\tsendUDP.Send(sendBytes, sendBytes.Length, sendAdress, sendPort)\r\n\tCatch ex As Exception\r\n\t\tConsole.WriteLine(Err.ToString())\r\n\tEnd Try\r\nEnd Sub\r\n<\/pre>\n
\u3053\u308c\u3067\uff08\u4e0a\u8a18 UDP \u3092\u5b9f\u88c5\u3057\u305f VB.NET \u30a2\u30d7\u30ea\u7d4c\u7531\u3067\uff09Adobe AIR \u30a2\u30d7\u30ea\u304b\u3089 DIO \u3092\u5236\u5fa1\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002
\nAdobe AIR \u306e DatagramSocket \u306b\u3064\u304d\u307e\u3057\u3066\u306f\u3001\u3053\u3061\u3089\u306e\u8a18\u4e8b<\/a>\u3067\u3002<\/p>\n
        
Facebook \u306b\u30b7\u30a7\u30a2<\/a><\/div>        
Tweet<\/a><\/div><\/div>\n
\n","protected":false},"excerpt":{"rendered":"
Windows \u3067\u306e \u30c7\u30b8\u30bf\u30eb\u5165\u51fa\u529b\uff08DIO\uff09\u30c7\u30d0\u30a4\u30b9\u3092\u4f7f\u7528\u3059\u308b\u5c55\u793a\u30b7\u30b9\u30c6\u30e0\u306e\u3001DIO\u30c9\u30e9\u30a4\u30d0\u306e\u5236\u5fa1 API \u304c VB.NET \u3060\u3063\u305f\u305f\u3081\u3001\u3053\u3044\u3064\u306e\u5236\u5fa1\u30a2\u30d7\u30ea\u3068 Adobe AIR \u88fd\u306e\u30d5\u30ed\u30f3\u30c8\u30a2\u30d7\u30ea\u3092\u9023\u643a\u3055\u305b\u308b\u5fc5\u8981\u304c\u767a […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[44],"tags":[],"_links":{"self":[{"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/posts\/1337"}],"collection":[{"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/comments?post=1337"}],"version-history":[{"count":7,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/posts\/1337\/revisions"}],"predecessor-version":[{"id":1346,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/posts\/1337\/revisions\/1346"}],"wp:attachment":[{"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/media?parent=1337"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/categories?post=1337"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.digifie.jp\/blog\/wp-json\/wp\/v2\/tags?post=1337"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}