Esercizi VISUAL BASIC

[matpez]

Originariamente inviato da leadergl
nel senso che fatto così chiunque può chiedere la carta..........

Non ci riesci proprio da solo ? Dai sforzati ancora un pochino

PS: leggi la mail!

[leadergl]

no non ce l'ho mirc

[matpez]

Originariamente inviato da leadergl
no non ce l'ho mirc

Installalo, nn penso che per 1 mb muori (DOWNLOAD )

Sarebbe molto + comodo scriversi le cose corte li, a meno che nn voglia arrivare a senior member solo con questo 3d

[leadergl]

vedi se sto iniziando a capire e migliorare.....tiè

[leadergl]

guarda k sto in mirc...........sbrigati

[leadergl]

ho due problemi:

1 - non si aggiorna la variabile STATO, k controlla il punteggio
2 - mi esce sempre l'ASSO DI PICCHE

e non riesco a capire il perchè....sembra tutto in regola....cavolo!

ti allego il codice...per favore aiutami

[matpez]

Ora va

[leadergl]

allora, il programmino prosegue.....non troppo velocemente ma prosegue....

ho avuto qualche problemino a mandare dal SERVER al Client più SendData in successione....mi creava un po di casini con la variant vInput.....cmq risolto

Ho aggiunto:

1 - i turni
2 - gestione pulsante BASTA
3 - Passo del turno se SBALLA

DEVO AGGIUNGERE:

che durante il gioco si visualizzano anche le carte degli avversari........qui sono sicuro che trovarò dei casini......per vari motivi:

1 - ancora devo decidere cm gestire le altre carte nel gioco
2 - mandare il segnale a tutti facendo visualizzare carte diverse......

cmq è in PROGRESS.....

[matpez]

Sono veramente felice

A presto, fammi sempre sapere i tuoi passi

[leadergl]

attualmente ho un problema.......
ho fatto in modo che quando premo ALTRA CARTA, la carta che mi esce viene visualizzata anche agli altri giocatori, e fin qui tutto ok

ma quando cerco di fare la stessa cosa durante la distribuzione iniziale delle carte....beh mi si inceppa tutto......

praticamente i dati inviati si fondono.....tipo

Distribuisco le carte, e quindi invia una cosa tipo:

sendData= "#," & vettore.numero & "," & vettore.seme
(vabbè..nn esattamente..ma cmq così)

successivamente per mostrare anche agli altri lancio una funzione che invia la "stessa" cosa agli ALTRI giocatori..così:

Private Function AltriGiocatori(nIndex As Integer)
    Dim nI      As Integer
    
    For nI = 1 To nConnessioni
      If nI <> nIndex Then
          Server(nI).SendData "O," & Vettore(nVettore).nNumero & "," & Vettore(nVettore).nSeme
      End If
    Next nI
        
End Function

escludendo nIndex che sarebbe il "giocatore di turno".......

quindi alla fine lui invia il primo SendData e poi Quest'ultimo......ma i due si fondono in una cosa del genere

SendData= "#,numeroA,numeroBO,numeroA,numeroB"

che è la fusione di:

SendData="#,numeroA,numeroB" con
SendData="O,numeroA,numeroB"

perchè mi fa sto casino?????
mi manca "solo" questo..........

[leadergl]

quello che ho capito è che ad ogni invio deve corrispondere una risposta....altrimenti se faccio 2 invii lui li unisce in un'unico solo........


MA QUESTO PER ME E' NOCIVO........help.....ti allego il codice

[cionci]

Originariamente inviato da leadergl
quello che ho capito è che ad ogni invio deve corrispondere una risposta....altrimenti se faccio 2 invii lui li unisce in un'unico solo........


MA QUESTO PER ME E' NOCIVO........help.....ti allego il codice

altro che nocivo...è utile !!! Se un giocatore non risponde entro un certo timeout allora significa che l'utente è down...

[leadergl]

e se gli faccio rispondere dal Client con una risposta "inutile" nel senso che il server non la gestirà??

del tipo

client.senddata = "ok"

che per il server nn ha alcun significato e risvolto....può funzionare?

oppure dovrei fare questo ed in più aggiungere un ritardo prima di inviare l'altro dato...

come si fa ad introdurre una pausa in un programma??

[matpez]

Originariamente inviato da cionci
altro che nocivo...è utile !!! Se un giocatore non risponde entro un certo timeout allora significa che l'utente è down...

Eggià

Ora veramento nn posso controllarti il codice, se vuole farlo cionci lo faccia pure, io sono impeganto con i preparativi.

Altrimenti ti rispondo al 27 e ci pensi in questi 2 giorni!

[leadergl]

come faccio ad introdurre una pausa.....

ho cercato con

WAIT
Delay

...ma niente..

[matpez]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Me.Caption = "Your system will sleep 5 sec."
    'Sleep for 5000 milliseconds
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Sleep ..."
End Sub

[leadergl]

che dici funziona se introduco una pausa??
o sto solo perdendo tempo?!?

dimmi se sono sulla strada giusta.........

[cionci]

Secondo me la Sleep non è il metodo giusto...meglio implementare un Timer...

http://msdn.microsoft.com/library/de...mercontrol.asp

Se entro la scadenza del timer non hai ricevuto una risposta allora escludi l'utente dal gioco...e disattivi il timer...

[leadergl]

niente.....non ci riesco e mi sono anche rotto le BALL nel provarci........riprendo dopo natale!!!

ora....STO IN VACANZA.....è questo che c'è scritto sull'uscio del mio cervello

[matpez]

Originariamente inviato da cionci
Secondo me la Sleep non è il metodo giusto...meglio implementare un Timer...

http://msdn.microsoft.com/library/de...mercontrol.asp

Se entro la scadenza del timer non hai ricevuto una risposta allora escludi l'utente dal gioco...e disattivi il timer...

Se deve implementare un timeout si, avevo capito che lui volesse implementare un delay tra una spedizione e l'altra