C# / VB.NET - Comunicazione tra un Client e più Server

Forum - C# / VB.NET - Comunicazione tra un Client e più Server

allamac74 (Normal User)
Newbie

Messaggi: 4
Iscritto: 22/10/2013

Postato alle 14:07
Martedì, 22/10/2013

Ciao a tutti vi spiego in dettaglio l'applicazione:
Ho realizzato dei contatori geiger, la scheda monta un Pic18 con periferica Ethernet che funziona da server,
ora voglio controllarli con un pc.. e ricevere i dati delle misure fatte.

Sto scrivendo la mia prima applicazione in vb.net , e sono insicuro sulla strategia da utilizzare
avrei delle domande da porre:

1) quando apro una connessione l'indirizzo ip cambia per ogni dispositivo, deve cambiare anche la porta?

2) posso mantenere circa 10 comunicazioni aperte in contemporanea?

ringrazio chiunque mi possa dare delle dritte

GRAZIE ciao

nessuno (Normal User)
Guru^2

Messaggi: 6346
Iscritto: 03/01/2010

Postato alle 14:13
Martedì, 22/10/2013

1) No, se cambia il dispositivo e l'IP, la porta non c'è nessuna necessità di cambiarla. Anzi, il programma sul PIC lavorerà sempre su una porta ben stabilita.

2) Puoi mantenere aperte tutte le comunicazioni che vuoi, ma chiarisci la domanda ... con 10 device diversi? con lo stesso device? il problema è lato PC o device?

E poi, con quale protocollo lavorerà il Pic ? TCP ? UDP ?

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilità) chiamava il gioco del Lotto Tassa sulla stupidità.

allamac74 (Normal User)
Newbie

Messaggi: 4
Iscritto: 22/10/2013

Postato alle 14:43
Martedì, 22/10/2013

grazie per le risposte, hai fatto centro!!

entrambe le risposte che mi hai dato sono utilissime .

Il pic lavora con protocollo TCP (qui nessun problema), i dispositivi potrebbero essere N (~10/15) ogni dispositivo è un server.

Attualmente ho provato a comunicare con la classe system.net.socket.. ho notato che la connessione del socket è "lenta", circa 7/8 secondi per connettersi e avere un socket disponibile..

ho letto sul sito che si può usare più semplicemnte la classe client quasi quasi stasera ci provo..

scusate se non mi spiego bene e in gergo tecnico

nessuno (Normal User)
Guru^2

Messaggi: 6346
Iscritto: 03/01/2010

Postato alle 15:16
Martedì, 22/10/2013

Sì, puoi usare più semplicemente la classe TCPClient

Sulla lentezza, sicuramente dipenderà dal dispositivo ... un PIC non ha molte risorse. Però mi sembra sempre un po' tanto ...

allamac74 (Normal User)
Newbie

Messaggi: 4
Iscritto: 22/10/2013

Postato alle 18:12
Martedì, 22/10/2013

Si ci mette troppo ... è un tempo imbarazzante, credo che sia il codice vb che ho "ripreso" e modificato da un esempio nella MSDN..

Comunque proverò con la classe tcpclient e ti farò sapere

grazie per il tuo aiuto

ciao

Snogar (Normal User)
Pro

Messaggi: 145
Iscritto: 09/01/2012

Postato alle 21:03
Martedì, 22/10/2013

Posta il codice magari c'è qualche falla li dentro.

allamac74 (Normal User)
Newbie

Messaggi: 4
Iscritto: 22/10/2013

Postato alle 13:23
Mercoledì, 06/11/2013

Scusate l'assenza.. posto il codice che stabilisce una connessione con il server in modo molto lento

Codice sorgente - presumibilmente VB.NET

Public Function ConnectSocket(ByVal server As String, ByVal port As Integer) As Boolean
 
        Dim msg As String
 
        Try
            s = CntSkt(server, port)
            If s.Connected = True Then
                Return True
                Link = True
            Else
                Return False
            End If
 
 
        Catch ex As Exception
            msg = ex.Message
            MsgBox(msg, MsgBoxStyle.Critical, "function connect socket")
 
        End Try
 
    End Function
 
    Private Function CntSkt(ByVal server As String, ByVal port As Integer) As Socket
        Dim Msg As String = ""
        'Dim s As Socket = Nothing
        Dim hostEntry As IPHostEntry = Nothing
 
        ' Get host related information.
        hostEntry = Dns.GetHostEntry(server)
 
        ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
        ' an exception that occurs when the host host IP Address is not compatible with the address family
        ' (typical in the IPv6 case).
        Dim address As IPAddress
        Try
            For Each address In hostEntry.AddressList
                Dim endPoint As New IPEndPoint(address, port)
                Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
 
                tempSocket.Connect(endPoint)
 
                If tempSocket.Connected Then
                    s = tempSocket
                    Msg = "Device is connected! " & Chr(13) & s.RemoteEndPoint.ToString()
                    'Msg = "Device is connected! " & Chr(13) & tempSocket.RemoteEndPoint.ToString()
                    MsgBox(Msg, MsgBoxStyle.Information, "Link Status")
                    Link = True
                    Exit For
                End If
 
            Next address
        Catch ex As Exception
 
            'msg = ex.ToString()
            Msg = "Device is disconnected!" & Chr(13) & ex.ToString()
            MsgBox(Msg, MsgBoxStyle.Information, "Link Status")
            Link = False
        End Try
        Return s
    End Function

Usando la classe tcpclient la connessione avviene in pochi millisecondi..

giunto a questo punto ho voluto calcolare quanto tempo impiega il server a rispondere ad un comando generico, es. : inizia a contare e il server risponde ok comando ricevuto.
per calcolare il tempo ho inizializzato nella variabile StartTime as date = now all'inizio della funzione
e assegnato a endTime as date = now alla fine.
fin qui tutto ok :rotfl:

ora sottraggo startTime da endTime per otttenere il tempo impiegato.
Ora ho la possibilità di ottenere il tempo in millisecond o totalmillisecond

il risultato con funzione millisecond è di 50 millisecondi mentre in totalmillisecond è di 64,002
qualcuno sa dirmi perchè??

il tempo mi serve per capire a quanti dispositivi(server) posso inviare una richiesta di dati, nel tempo di un secondo