Bawię sie modułem ATB-WIFI , ustawiłem go w tryb AP aby komunikować się z prockeim AVR
zrobiłem programy terminali UDP 1) w androidzie , 2) na w jawie i 3) na PC w visual basicu
w androidzie działa wszystko w dwie strony, w jawie na PC też,
ale w VB wysyła dane , ale nie odbiera
jednak przy pierwszym uruchomieniu programu VB zawsze odbiera jeden raz, potem nigdy
ale przy tym pierwszym uruchomieniu muszę wysłać coś przez UDP do modułu WiFi ,inaczej nie odbiera nic
w procku po odebraniu znaku ENTER wysyłam jakiś tekst ,żeby sprawdzić czy odbiera terminal
co może być problemem w VB?
Bogusław
tutaj jest kod VB :
[syntax=vb]Imports System.Net
Imports System.Net.Sockets
Imports System.Net.EndPoint
Imports System.Text.Encoding
Imports System.Text
Public Class Form1
Dim publisher As New Sockets.UdpClient()
Dim subscriber As New Sockets.UdpClient(8899)
Dim licznik As Int16
Dim ep As IPEndPoint
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
licznik += 1
publisher.Connect(TbTo.Text, TbPort.Text)
Dim subscriber As New UdpClient()
Dim sendbytes() As Byte = ASCII.GetBytes(TbSend.Text & Chr(13))
publisher.Send(sendbytes, sendbytes.Length)
subscriber.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
subscriber.Client.ReceiveTimeout = 3000
subscriber.Client.Blocking = False
ep = New IPEndPoint(0, 8899)
subscriber.Connect("10.10.100.254", 8899)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Opened" & Chr(13)) 'wysłać cokolwiek aby zainicjować udp zdalne
subscriber.Send(sendBytes, sendBytes.Length)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim rcvbytes() As Byte = subscriber.Receive(ep)
TbRcv.Text = licznik & ASCII.GetString(rcvbytes) & vbCrLf
Catch ex As Exception
End Try
End Sub
End Class[/syntax]
jeszcze jedna informacja
program VB odbiera dane ,jeżeli w procku zrobię pętlę że na daje np. co 500ms jakiś tekst, wtedy po uruchomieniu programu VB ciągle odbiera dane,bez problemu
problem jest wtedy gdy w procku czekam na nadchodzące dane z UDP i dopiero po otrzymaniu całego tekstu z UDP wysyłam jakiś tekst potwierdzający odbiór, czyli np. po odborze ENTEraStatystyki: Napisane przez boguslaw66 — 21 lut 2016, o 18:07
]]>