Esercizi VISUAL BASIC

[matpez]

Originariamente inviato da leadergl
sto fatto della rete mi sta cominciando un po ad infastidire.....................

Prova qlc oretta ancora...se entro le 18 nn ci riesci...allora ti do una mano

[leadergl]

So cosa dovrei fare per il gioco in rete......ma non mi vengono IDEE su come inserirlo nel mio programmino!!!!
Guarda,
PROCEDURA CLIENT

tcpClient.RemoteHost = "127.0.0.1"
tcpClient.RemotePort = 13982
tcpClient.Connect

tcpClient.SendData outputData
tcpClient.GetData inputData


dove outputData ed inputData devono essere gli indici del pulsanti da premere nel gioco!!!


PROCEDURA SERVER

tcpServer.LocalPort = 13982
tcpServer.Listen
'qui introduco prima qualche controllo sulla connessione, tipo se già ne esiste una
tcpServer.Accept requestID
tcpServer.SendData inputData
tcpServer.GetData outputData

qui outputData ed inputData sono associati agli inversi del Client.....(anke se non avrebbe importanza poichè sono sempre degli INTERI)

cmq tutto qui....giusto? alla fine è una cazzata, in più devo:

1 - Implementare entrambi i codici (client e server) nel programma
2 - Fare in modo che quando ci sia richiesta di gioco in rete il programma verifichi prima se ci sia una richiesta in attesa di QUESTO gioco su QUELLA porta, se si automaticamente si imposta come SERVER, altrimenti come CLIENT e propone una connessione....................

e fin qui è ok.......ma ancora non ho mentalmente chiaro come fare poi interagire il tutto con i miei pulsantini nel programma.....cazzarola......

cmq che te ne pare?!? Apprendo in fretta eheh......

[leadergl]

Option Explicit
inputData As Integer
tipo_connessione As String

Private Sub Connetti()

If "già c'è una connessione" Then
tcpClient.RemoteHost = "127.0.0.1"
tcpClient.RemotePort = 13982
tcpClient.Connect
tipo_connessione = "client"
Else
tcpServer.LocalPort = 13982
tcpServer.Listen
tcpServer.Accept requestID
tipo_connessione = "server"
End If

End Sub


Private Sub Invia(index As Integer)

Select Case tipo_connessione
Case "client": tcpClient.senddata index
Case "server": tcpServer.senddata index
End Select

End Sub


Private Sub Ricevi()

Select Case tipo_connessione
Case "client": tcpClient.GetData inputData
Case "server": tcpServer.GetData inputData
End Select

End Sub

[leadergl]

ora credo che.....la parte ricevi devo inserirla nel blocco

Command_Click(index as integer) del mio programma

ma all'inizio, mentre la parte invia alla fine!!!

ed inoltre dovrei inserire un comando che metta in attesa il mio programma della mossa dell'altro........


o forse no..........aspè.....forse a questo già ci pensa.....no no...pensavo k già lo facesse il programma grazie alla variabile booleana STATO, ma no......allora si, mi serve un comando che da inserire in RICEVI che praticamente lo metta in attesa di ricevere le informazioni dall'altro computer....

ok, giusto??

help...

[leadergl]

ok

sckConnectionPending è questa che vede se ci sono richieste di connessione giusto??


quindi l'IF di prima diventa


IF sckConnectionPending then
"client"
else
"server"

end if


giusto??

sto impazzendo, capendo e sclerando tutto insieme....e per di più m'è venuta l'influenza

[leadergl]

ok ho anke capito che non c'è bisogno di fare distinzione tra

INVIO CLIENT o SERVER

e

RICEVI CLIENT o SERVER

perchè

tcpClient e tcpServer sono nomi che abbiamo dato noi al controllo Winsocket

quindi posso eliminare il SELECT CASE, giusto??

we ma fatti sentire....mi sto rincoglionendo

[matpez]

Dai che sei sulla buona strada!

[leadergl]

Option Explicit
Dim inputData As Integer

Private Sub Connetti()

If sckConnectionPending Then
tcp.RemoteHost = "127.0.0.1"
tcp.RemotePort = 13982
tcp.Connect
Else
tcp.LocalPort = 13982
tcp.Listen
tcp.Accept requestID
End If

End Sub


Private Sub Invia(index As Integer)

tcp.senddata index

End Sub


Private Sub Ricevi()

tcp.GetData inputData

End Sub

allora...così che ne dici va???
ah un'altra cosa...

Private Sub Command_Click(Index As Integer)
Dim x, y As Integer


If matrice(x, y) = 0 Then
.............(il codice vario)
End If

Call controllo

If mode = "cpu" Then Call computer
if mode="rete" then call invia(index)

End Sub

allora che ne dici va così??
solo che il comando per ricevere???

[leadergl]

si lo so, aspè....così ti incasino e basta....ti mando il codice

[leadergl]

anzi....così dovrebbe andare.....fammi sapere!!

[matpez]

E' molto semplice....manca molte cose...ma guarda se così capisci meglio!

[leadergl]

vabbe...qualche ottimizzazione qua e la........ma ero vicino.....vero??

che dici funzionava come ho detto io??

[matpez]

Originariamente inviato da leadergl
che dici funzionava come ho detto io??

Mica tanto!

Perchè devi pensare in maniera ascincrona, cioè il server ha un pezzo di codice e il client ha un pezzo di codice!

La ricezione è la stessa per entrambi e l'invio uguale

[leadergl]

mi dici perchè cos' non funziona???

ho visto il tuo codice e ti ringrazio.....ma vorrei capire perchè così non va??

[leadergl]

a me serve che il programma capisca da solo se deve funzionare da CLIENT o da SERVER

[leadergl]

ok, sto iniziando a capire ma...............ma mi manca qualcosa!!

Ho fatto anche col mio programma, so k alla fine è quasi uguale...ma solo così si può fare, non ci sono molte altrnative....ma perchè ogni mossa che faccio mi da


"CASELLA GIA' PREMUTA"

???

[leadergl]

il mio codice è questo allegato

[leadergl]

come si fa a fare un if cosi??

IF KEYPRESS = "tasto invio" then
call ....

end if

come gli si dice il taso invio??

[leadergl]

per farti vedere che ho finalmente capito come funziona la rete...eccoti qua una semplice chat

[matpez]

Originariamente inviato da leadergl
come si fa a fare un if cosi??

IF KEYPRESS = "tasto invio" then
call ....

end if

come gli si dice il taso invio??

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  If KeyCode = vbKeyReturn Then
  
  End If

End Sub