Forza Quattro versione Excel

Hai un problema con Excel?

Nuova discussione

Forza Quattro - versione Excel
di HarryBosch data: 30/03/2013 16:13:24
Se a Pasqua non sapete come trascorrere il tempo, potete giocare a Forza Quattro!

Scherzi a parte, da una richiesta di un mio cuginetto che si proclama re indiscusso di tale gioco, ho dovuto agire di conseguenza.
Non avendo un Forza Quattro in scatola, ne ho creato uno in Excel ^_^

In modo da affrontarlo domani... magari prima del pranzo, altrimenti lo stomaco potrebbe compromettere le mie attività celebrali.

Così mi è venuta l'idea di renderlo un pò carino e postarlo sul Forum.

Naturalmente aspetto le vostre critiche ed eventuali suggerimenti per un miglioramento.

Allego qua sia una versione per Excel 2007 e superiori e una per Excel 2003 (che sulla mia macchina virtuale gira bene, ma da testarne l'affidabilità su un sistema di base).

Per chi arrivasse dopo, può scaricare lo stesso file da questo link:
h t t p s://www.sugarsync.com/pf/D7311182_4250348_7888637

Ancora Buona Pasqua,
Vanni
di Vecchio Frac data: 30/03/2013 17:02:38
Decisamente carino ^_^
A quando un modulo IA per giocare contro il computer? :)
di Vecchio Frac data: 30/03/2013 17:23:39
Perchè nella versione 2003 hai tolto Harry? L'immagine era carina... senza contare che non è visibile nemmeno il link a ExcelVBA ^_^
(e potevi evitare di citarmi nel codice anche perchè non mi sembra di aver scoperto niente, nel mostrare/nascondere un'immagine ^_^)
di Vecchio Frac data: 30/03/2013 17:36:43
Ecco :) l'immagine compare passando col topo sulla scritta di copyright :P scommetto che hai usato il trucco dell'hyperlink con l'effetto rollover ... bellissimo, l'effetto è gradevole :D
di HarryBosch data: 30/03/2013 17:54:46
^_^
Ma era proprio quello a cui si riferiva il commento con il tuo riferimento!
Ho utilizzato proprio il trucchetto che avevi proposto qualche tempo fa, con l'effetto rollover al passaggio del mouse.
La function in questione si riferisce al collegamento inserito nella cella con il mio Nik

La versione con l'IA era qualcosa a cui stavo pensando! :)
Sto cercando una strategia abbastanza efficace per produrre una simulazione con almeno 3 livelli: facile, medio e difficile.

Ovviamente l'argomento è aperto a tutti coloro che volessero cimentarsi
di Vecchio Frac data: 30/03/2013 17:59:48
Sì, questo è un ottimo test e un buon campo di battaglia, le tecniche possono essere diverse :)
Discussione aperta a tutti!
di Vecchio Frac data: 30/03/2013 18:12:40
Un piccolo baco, se ci sono già sei pedine in una colonna, si ottiene un errore tentando di sistemare un'altra pedina nella stessa colonna.
Si risolve agigungendo una piccola riga di istruzione:
If pos > 6 Then Application.EnableEvents = True: Exit Sub
r = .[a17:a27].Find(pos).Row
di Vecchio Frac data: 30/03/2013 18:21:08
Un piccolo completamento, per il caso (molto improbabile, ma possibile) del pareggio.
Codice da inserire prima della dichiarazione di vittoria per giallo o rosso:

If WorksheetFunction.CountA([griglia_x]) = 42 Then
MsgBox "Pari e patta! Nessun vincitore!"
ActiveSheet.Unprotect
Range("griglia").Locked = True
ActiveSheet.Protect
End If
di totygno71 data: 30/03/2013 18:38:57
Ma che carino... ^_^ Un gioco d'altri tempi... un po come il ns VF! ^_^
di Vecchio Frac data: 30/03/2013 18:41:49
Sei fortunato che sta piovendo a dirotto... verrei fuori a cercarti ^_^ (per una birra naturalmente :P )
di totygno71 data: 30/03/2013 18:44:05
torno ora da verona e non ti dico che Acqua in autostrada! O.o
Cmq per na bira un baretto lo troviamo con tavolini all'esterno lo potremmo trovare ^_^
di HarryBosch data: 30/03/2013 18:53:56
O.T.
Sempre simpatico Totygno ^_^
E dove torni di bello da Verona? visto che io sono della zona Lago (veronese) e anche qua acqua tutto il giorno... così vengo anch'io a bermi una birra

Mi ero dimenticato del possibile pareggio, ottima osservazione :)
E il bug mi era sfuggito ma del resto ho postato il programmino anche per testarne il risultato.
Un altro errore è nella partenza con il colore selezionato: mi ero dimenticato che la formula che determina l'option scelto, viene sovrascritta in fase di gioco.
Pertanto va reimpostata nella Sub nuova_partita()

Foglio2.[a1] = "=IF(R[1]C=1,""rosso"",""giallo"")"
di totygno71 data: 30/03/2013 18:57:17
AL chiuso
scipping alla corti venete!
di Vecchio Frac data: 30/03/2013 21:26:49
Il modellino, visto che è stato realizzato in poco tempo, è molto buono, anche se il concept è un po' arzigogolato ^_^
Non avrei messo in piedi un artificio di celle e formule, avrei fatto tutto in memoria, ma visto che si tratta di Excel... sfruttarlo è stata un'ottima idea.
Ed ecco altri spunti di miglioramento:
- possibilità di inserire i nomi dei partecipanti
- possibilità di far scegliere il ruolo dei partecipanti: se -umano- o -computer-
- il nome serve per realizzare una Hall Of Fame con registrazione dei punteggi (minor numero di mosse per vincere)
- pulsanti per salvare la partita o riprendere una partita salvata (è già cosa fatta, basta salvare il foglio com'è)
- eventuale previsione di un torneo con specchietto degli incontri e dei risultati
- impostazione dei livelli di difficoltà (stupid o random, easy, medium, hard): il livello stupid è... stupido, il pc sceglie la mossa a caso :)
di Luca.Donati data: 02/04/2013 15:01:29
Veramente magnifico! Complimenti.
Nella versione 2003 c'è uno scambio sul colore di chi comincia. Vabbè, è secondario e penso facile da correggere.
Appena esce la versione contro il pc, chiamatemi a qualsiasi ora del giorno come della notte!
di Vecchio Frac data: 02/04/2013 15:06:28
cit. " Appena esce la versione contro il pc "
---> Eh no, non vale :) Qui tutti i volenterosi sono chiamati a proporre una soluzione... e non a sfruttare le soluzioni altrui :P
Quindi Luca datti da fare e adesso, per punizione, risolvi il bug dello scambio di colore (se rileggi i post precedenti, vedrai che Harry ha già risposto) ^_^
di Luca.Donati data: 02/04/2013 16:46:11
(Uffaaaa.... ! Speravo proprio di farla franca...)
Risolto per il colore (tiè, beccati questa Vecchio Frac!)
La soluzione è semplice: si va nel post di HarryBosch del 30/03/2013 18:53:56, si copia l'ultima riga e la si incolla all'inizio della Sub nuova_partita() che sta nel Modulo1 subito dopo le dichiarazioni proprio al primo posto che uno proprio non la può mancare.
Come mi è venuta una trovata così geniale? Beh, adesso non vorrete mica che vi sveli tutti i miei segreti!
Come sarebbe ho copiato !?! Non è vero !!!
Uffa, allora visto che non mi credete, per punizione non vi dico come si fa la partita contro il pc! Voglio proprio vedere se ci riuscite senza il mio (ahem) ... prezioso aiuto.

(Ciao, buona Pasqua in ritardo)

Vuoi Approfondire?