29/07/08 12:24
giusy_m86
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String
Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Dove sbaglio?
aaa
29/07/08 13:53
GrG
Scusa se te lo dico, ma dovresti seguire un bel manuale, ti mancano cose base e addirittura cose a cui si potrebbe andare a intuzione le hai sbagliate...si direbbe che programmi da 2 minuti fa...
cmq:
Postato originariamente da giusy_m86:
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String
Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
la stringa in grassetto non serve a niente poteva servire solo se avevi fatto tipo:
dim Abilita as string
Abilita = "Abilita"
[...]
winsock1.senddata Abilita (<- la variabile)
cmq puoi lasciare come hai scritto tu levando semplcemente la riga in grassetto...
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String
dim data as string
Winsock4.GetData
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Dove sbaglio?
Anche qui c'è quella variabile inutile, poi c'è una parte in corsivo che ho aggiunto che serve per la ricezione...
poi ti ho messo in evidenza "<>" perchè significa diverso quindi tu dici:
se la stringa ricevuta è
diversa da "Abilita" allora:
abilita il command1
io penso che volevi dire se la stringa ricevuta è
uguale ad "Abilita"...
quindi metti al posto di "<>" l'uguale: "="
Ultima modifica effettuata da GrG 29/07/08 13:55
aaa
29/07/08 14:08
Overflow
Postato originariamente da giusy_m86:
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String
Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Dove sbaglio?
il metodo getdata vuole un parametro in input, non puoi fare il controllo su winsock.getdata <>"Abilita" ma dovresti fare
dim abilita as string
winsock4.getdata abilita 'passo la variabile come parametro
if abilita ="Abilita" then
'abilita il tasto
command1.enabled=true
end if
facendo invece
if winsock4.getdata <> "Abilita" then
'...
end if
in questo modo stai facendo un controllo sul valore di ritorno del metodo getdata (che credo non ne abbia) inoltre dovresti avere un errore poichè la funzione si aspetta un parametro in input.
Ultima modifica effettuata da Overflow 29/07/08 14:13
aaa
29/07/08 14:23
GrG
lol
mi ero dimenticato di segnalare anche quell'errore...
aaa
Supponendo che il codice vada bene...la funzione che mi abilta un comanado è questa: command1.value=true?