Ultimo (Member)
Guru
 
Messaggi: 877
Iscritto: 22/05/2010
|
Postato originariamente da Carlo:
confermo, e.cancel=true, impedisce la chiusura di form1, permettendo poi a messaggio, di decidere se chiudere tutto o se riattivare form1 |
si si io intendevo di togliere ok_Esc
non serve più
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1344
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
non ho provato
credo si possa togliere!
e.cancel=true,
non fa chiudere il form1,
e con End di prima si chiude tutto!! |
Che tonto, rileggendo bene era proprio quello che hai detto. 
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
@Carlo
@Mikelius
versione 9.6.6.B
con le ultime correzzioni al codice
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1344
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
@Carlo
@Mikelius
versione 9.6.6.B
con le ultime correzzioni al codice
|
Scaricata, stasera cercherò di fare un controllo approfondito.
1 piccolo bug, già l'ho visto:
quando si è in play, dopo aver usato Z, se si pigia P, il gioco si azzera.
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
Postato originariamente da Carlo:
Postato originariamente da Ultimo:
@Carlo
@Mikelius
versione 9.6.6.B
con le ultime correzzioni al codice
|
Scaricata, stasera cercherò di fare un controllo approfondito.
1 piccolo bug, già l'ho visto:
quando si è in play, dopo aver usato Z, se si pigia P, il gioco si azzera. |
brutto bug 
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
@Carlo
modificato, bug risolto
Codice sorgente - presumibilmente VB.NET |
Private Sub Avvia_Click(sender As Object, e As EventArgs) Handles ButtonAvvia.Click 'modificato da Ultimo il 5-7-2018 ore 12 If Stato_eventi = Stato.Azzerato Then Call Inizializza_Matrice2048(Matrice4x4) Call Random_Matrice4x4_2048() Call Visualizza_Immagine_Celle2048(Matrice4x4) Call Copia_Matrice2048(Matrice4x4, Matrice_Back1) InMovimento = False Me.ButtonAvvia.Enabled = False ButtRivedi.BackgroundImage = My.Resources.buttRivediBW ButtRivedi.Text = "" ButtonAvvia.Text = "in play" Concatena = False 'memorizza nome + Data-ora If Registra_Partita Then Call Memo_data_Seq() End If End Sub
|
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Mikelius (Member)
Expert
Messaggi: 525
Iscritto: 14/04/2017
|
Il codice lo cambio io....
dall'ultima versione 9.6.6b
|
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
Postato originariamente da Mikelius:
Il codice lo cambio io....
dall'ultima versione 9.6.6b |
ho modificato il Ritenta, adesso se hai ancora bonus
ti fa riprovare dopo un back automatico,
se non hai più bonus, ti fa iniziare una nuova partita.
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Ultimo ha allegato un file: 2048 the game_v.9.6.6.B.zip (1565313 bytes)