2048+ the Game

Pagine: [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ]

Mikelius (Member)
Expert

Messaggi: 525
Iscritto: 14/04/2017

Postato alle 13:01
Venerdì, 22/06/2018

Si setta anche il ShortcutKeyDisplayString...? :yup:

scontato, dopo che lo sai... :rofl:

E' sempre una buona cosa guardare dentro al designer, si capiscono un sacco di cose.
Il ShortcutKeyDisplayString si setta anche da proprietà :k:

si, un consiglio. Imposta l'elenco delle proprietà im modo alfabetico. Così cercando ShortcutKey l'avresti subito vista (è nella categoria Aspetto e non in varie come le altre 2)

Carlo (Member)
Guru

Messaggi: 1344
Iscritto: 29/01/2018

Postato alle 13:16
Venerdì, 22/06/2018

Testo quotato

Postato originariamente da Mikelius:

Si setta anche il ShortcutKeyDisplayString...? :yup:

scontato, dopo che lo sai... :rofl:

E' sempre una buona cosa guardare dentro al designer, si capiscono un sacco di cose.
Il ShortcutKeyDisplayString si setta anche da proprietà :k:

si, un consiglio. Imposta l'elenco delle proprietà im modo alfabetico. Così cercando ShortcutKey l'avresti subito vista (è nella categoria Aspetto e non in varie come le altre 2)

in programmazione tutto è permesso

Ultimo (Member)
Guru

Messaggi: 877
Iscritto: 22/05/2010

Postato alle 15:05
Venerdì, 22/06/2018

Testo quotato

Postato originariamente da Carlo:

Testo quotato

Postato originariamente da Mikelius:

Testo quotato

Postato originariamente da Ultimo:

@Mikelius
@Carlo

Ho reinserito una nuova versione 9.3.3

ho corretto il codice, adesso funziona :k:

Non ho visto l'ultimo codice, ma ho scoperto il problema del precendete.
Io tramite il Menu' chiamavo l'evento che a sua volta richiamava la routine
ImmSet_Click(), mentre col tasto richiamavo direttamente la routine in questione.
Tu invece con i tasti richiami sempre l'evento che ha problemi a reperire l'integer del TAG.
Ecco perchè dava errore

Confermo, i numeri non funzionavano, codice vecchio e nuovo mescolato, ora ok!

@Ultimo
Ho visto che non hai ancora inserito TipoGrafica1, la lista colori elimina un bel po' di ElseIf
Sul menu Selezione Set Immagini, le voci Set1 e Set4 hanno uno spazio a sinistra.

Tutte le modifiche, che hanno compattato il codice, mi piacciono.

Manca la guida e l'autosoluzione (ci metterò mano al più presto) :heehee:

Per l'autosoluzione mi è venuta un idea:

Creare una IA che simula la tua tecnica delle mosse,

ma lo fai prima senza mostrarlo a video, tipo bruteforze

memorizzi sempre le mosse passo passo in una lista di matrici,

quando arriva a 2048 esce e presenti la sequenza delle matrici valida

con regolazione del tempo di esecuzione :k:

If ok Then GOTO Avanza else GOTO Inizia

Carlo (Member)
Guru

Messaggi: 1344
Iscritto: 29/01/2018

Postato alle 15:56
Venerdì, 22/06/2018

Testo quotato

Postato originariamente da Ultimo:

Per l'autosoluzione mi è venuta un idea:

Creare una IA che simula la tua tecnica delle mosse,

ma lo fai prima senza mostrarlo a video, tipo bruteforze

memorizzi sempre le mosse passo passo in una lista di matrici,

quando arriva a 2048 esce e presenti la sequenza delle matrici valida

con regolazione del tempo di esecuzione :k:

Ho già fatto una cosa simile.
ho scritto 4 routine che agiscono sulla matrice e il random senza visualizzare:
MDown()
MRight()
MLeft()
MUp().

Quando si avvia l'autosoluzione,
memorizzo lo stato della matrice

esguo 4 mosse richiamando le routine, ecco un estratto del tentativo 1:

Codice sorgente - presumibilmente Plain Text

posAttuale = -4
 
          ' tentativo 1
            posAttuale += 4
            MemorizzaTentativi(posAttuale, ArrayTestMosse) ' originale
 
            MDown()
            posAttuale += 4 
            MemorizzaTentativi(posAttuale, ArrayTestMosse)
 
            MRight()
            posAttuale += 4 
            MemorizzaTentativi(posAttuale, ArrayTestMosse)
 
            MDown()
            posAttuale += 4 
            MemorizzaTentativi(posAttuale, ArrayTestMosse)
 
            MRight()
            posAttuale += 4 
            MemorizzaTentativi(posAttuale, ArrayTestMosse)
 
            Ripristina(0, ArrayTestMosse)

memorizzando le mosse nella matrice ArrayTestMosse.

Ripristino lo stato iniziale
eseguo il tentativo 2, con mosse diverse
Ripristino lo stato iniziale
eseguo il tentativo 3, con mosse diverse
Ripristino lo stato iniziale
eseguo il tentativo 4, con mosse diverse
Ripristino lo stato iniziale
eseguo il tentativo 5, con mosse diverse
Ripristino lo stato iniziale

I 5 tentativi producono disposizioni distinte
Eseguo una valutazione sul punteggio
Scelgo il tentativo migliore, lo inserisco nella matrice principale e visualizzo.

con questo sistema si raggiunge 1024 nel 50% dei casi, ma è solo la partenza.

Cosa manca, che potrebbe migliorare la situazione?
In parte lo avevo già fatto nella mia precedente autosoluzione, che raggiunge un 1024 insieme a un 512, nel 50% dei casi

1) la valutazione quando lo schema non è pieno, va fatta sulle caselle vuote, con un ordine di priorità lati centro

Vecchio codice:

Codice sorgente - presumibilmente VB.NET

Function calcolaVuoti() As Integer
        Dim calcolaV As Integer
        Dim VuotiAttuali As Integer
 
        For calcolaV = 1 To 4
            If Matrice4x4(calcolaV, 1) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 2) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 3) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 4) = 1 Then VuotiAttuali += 1
        Next
        Debug.Print("VuotiTotali" & VuotiAttuali)
        Return VuotiAttuali
    End Function
 
    Function calcolaVuotiLato() As Integer
        Dim calcolaV As Integer
        Dim VuotiAttuali As Integer
 
        For calcolaV = 1 To 2
            If Matrice4x4(calcolaV, 1) = 1 Then VuotiAttuali += 1
            'If Matrice4x4(calcolaV, 2) = 1 Then VuotiAttuali += 1
            ' If Matrice4x4(calcolaV, 3) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 4) = 1 Then VuotiAttuali += 1
        Next
        Debug.Print("VuotiLato" & VuotiAttuali)
        Return VuotiAttuali
    End Function
 
    Function calcolaVuotiCentro() As Integer
        Dim calcolaV As Integer
        Dim VuotiAttuali As Integer
 
        For calcolaV = 1 To 2
            'If Matrice4x4(calcolaV, 1) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 2) = 1 Then VuotiAttuali += 1
            If Matrice4x4(calcolaV, 3) = 1 Then VuotiAttuali += 1
            'If Matrice4x4(calcolaV, 4) = 1 Then VuotiAttuali += 1
        Next
        Debug.Print("VuotiCentro" & VuotiAttuali)
        Return VuotiAttuali
    End Function

2) Quando i vuoti sono in pareggio, la valutazione punteggio va fatta prediligendo le soluzioni che hanno una sequanza progressiva a serpente, nelle ultime due righe:
00 00 00 00
00 00 00 00
12 11 10 09
13 14 15 16

3) Analisi dello schema che intercetta mosse a cui non si può rinunciare (alcune lo ho scritte)
4) Analisi dello schema che intercetta mosse da evitare (alcune lo ho scritte)

Si può provare con tentativi con più mosse per volta, ma finquando non si ottimizzano i punti 3 e 4 è inutile poichè, anche se lo schema lo esegui centinaia di volte fino alla fine, sempre che a 2048, non ci arrivi

Se invece si riesce ad arrivare a 2048 anche solo nel 5% 10% dei casi, con il brute force poi lo porti al 100%