Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - gioco grattacieli
Forum - Visual Basic 6 - gioco grattacieli

Avatar
maurizio74 (Normal User)
Pro


Messaggi: 117
Iscritto: 30/03/2009

Segnala al moderatore
Postato alle 12:22
Venerdì, 19/04/2024
Questo topic è stato chiuso dal moderatore

Buongiorno a tutti

sulla scia del gioco calcolo enigmatico.... da qualche giorno mi sto cimentando con un altro gioco simpatico anch'esso
spesso visto nella settimana enigmistica e che è stato realizzato da alcuni progr. in excel.

il gioco consiste in un quadrato 4 x 4 dove all'esterno dei quadrati grigi con delle cifre indicano il numero di grattacieli che è possibile "vedere" da quella posizione di vedetta. I Grattacieli sono cosi' composti 10, 20, 30 o 40 piani e possono stare in una riga o in una colonna solo 1 volta.

vi allego anche il sito excel per chi potrebbe essere interessato per avere un idea migliore di quanto detto:

https://www.forumexcel.it/forum/threads/quizzzzzzzz-grattac ...

come potete vedere dall'immagine allegata io mi sono arenato nella seguente posizione in cui il prossimo passaggio dovrebbe essere quello di intercettare l'utimo 4 che manca nella griglia e che si troverebbe nella casella text11 poichè è l'unica in cui riga e colonna non possono andare
altri 4.

ho provato con una serie di if infiniti per trovare la soluzione ma niente da fare sono rimasto inceppato....

sotto riporto la prima parte di sviluppo per intercettare i grattaceli piu' alti  e poi andando avanti sono arrivato nella posizione che vedete nell'immagine....
Codice sorgente - presumibilmente Delphi

  1. 'alto riempi cella con 4 se la cella dimostrativa è 1
  2.      If TextA1.Text = 1 Then
  3.      Text1.Text = 4
  4.      Else
  5.      Text1.Text = Text1.Text
  6.      End If
  7.      If TextB1.Text = 1 Then
  8.      Text2.Text = 4
  9.      Else
  10.      Text2.Text = Text2.Text
  11.      End If
  12.      If TextC1.Text = 1 Then
  13.      Text3.Text = 4
  14.      Else
  15.      Text3.Text = Text3.Text
  16.      End If
  17.      If TextD1.Text = 1 Then
  18.      Text4.Text = 4
  19.      Else
  20.      Text4.Text = Text4.Text
  21.      End If
  22.      
  23.      'destra riempi cella con 4 se la cella dimostrativa è 1
  24.       If TextDD1.Text = 1 Then
  25.       Text4.Text = 4
  26.       Else
  27.       Text4.Text = Text4.Text
  28.       End If
  29.       If TextD2.Text = 1 Then
  30.       Text8.Text = 4
  31.       Else
  32.       Text8.Text = Text8.Text
  33.       End If
  34.       If TextD3.Text = 1 Then
  35.       Text12.Text = 4
  36.       Else
  37.       Text12.Text = Text12.Text
  38.       End If
  39.       If TextDD4.Text = 1 Then
  40.       Text16.Text = 4
  41.       Else
  42.       Text16.Text = Text16.Text
  43.       End If
  44.        
  45.       'basso riempi cella con 4 se la cella dimostrativa è 1
  46.      If TextD4.Text = 1 Then
  47.      Text16.Text = 4
  48.      Else
  49.      Text16.Text = Text16.Text
  50.      End If
  51.      If TextC4.Text = 1 Then
  52.      Text15.Text = 4
  53.      Else
  54.      Text15.Text = Text15.Text
  55.      End If
  56.      If TextB4.Text = 1 Then
  57.      Text14.Text = 4
  58.      Else
  59.      Text14.Text = Text14.Text
  60.      End If
  61.      If TextAA4.Text = 1 Then
  62.      Text13.Text = 4
  63.      Else
  64.      Text13.Text = Text13.Text
  65.      End If
  66.        
  67.        
  68.      'sinistra riempi cella con 4 se la cella dimostrativa è 1
  69.       If TextAA1.Text = 1 Then
  70.       Text1.Text = 4
  71.       Else
  72.       Text2.Text = Text2.Text
  73.       End If
  74.       If TextA2.Text = 1 Then
  75.       Text5.Text = 4
  76.       Else
  77.       Text5.Text = Text5.Text
  78.       End If
  79.       If TextA3.Text = 1 Then
  80.       Text9.Text = 4
  81.       Else
  82.       Text9.Text = Text9.Text
  83.       End If
  84.       If TextAA4.Text = 1 Then
  85.       Text13.Text = 4
  86.       Else
  87.       Text13.Text = Text13.Text
  88.       End If



qualcuno a qualche idea da suggerirmi???

grazie....


maurizio74 ha allegato un file: Immagine.png (8693 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da maurizio74 il 20/04/2024 alle 0:31
PM
Avatar
AldoBaldo (Member)
Guru


Messaggi: 708
Iscritto: 08/01/2015

Segnala al moderatore
Postato alle 23:18
Martedì, 23/04/2024
Si può vedere qualche schema di esempio (magari scannerizzato proprio da riviste di enigmistica), e una descrizione accurata delle regole da seguire? Personalmente non ho capito molto bene le finalità e le caratteristiche del gioco che hai riportato (e che non ho mai avuto modo di incontrare prima).


ATTENZIONE! Sono un hobbista e l'affidabilità delle mie conoscenze informatiche è molto limitata. Non prendere come esempio il codice che scrivo, perché non ho alcuna formazione accademica e rischieresti di apprendere pratiche controproducenti.
PM
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 8:44
Mercoledì, 24/04/2024
In ogni caso se scrivi cose come

Text1.Text = Text1.Text

Text2.Text = Text2.Text

vuol dire (se ce ne fosse bisogno) che devi prima studiare tanto e solo dopo tanta pratica con esercizi piu' semplici puoi passare a temi piu' complessi.

Postare qui del codice che non ha senso per un programma complesso sembra che sia fatto solo per fartelo scrivere dagli altri. Strano che Carlo non abbia provato a farlo, certo non lo faro' io.

Ultima modifica effettuata da il 24/04/2024 alle 8:48
PM
Avatar
maurizio74 (Normal User)
Pro


Messaggi: 117
Iscritto: 30/03/2009

Segnala al moderatore
Postato alle 18:39
Giovedì, 25/04/2024
Al signor Nessuno...

visto che Lei non capisce glielo ridico un'altra volta....
1- per me e' solo un passatempo
2- non ho mai ha detto o sperato che lei o qualcun altro dovesse fare il programma per me...
3- alla fine se lo vuol proprio sapere sono riuscito a farlo da solo...
4- se lei non risponde ai miei post fa un favore a me ed uno a se stesso visto la sua superiorita'
5- è concludo.... ma a lei non glielo ha detto mai Nessuno che non è Nessuno scenda dal suo    piedistallo...


saluti....

PM
Avatar
Thejuster (Admin)
Guru^2


Messaggi: 2331
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 23:46
Giovedì, 25/04/2024
Visto che e stato risolto chiudo.


https://mire.forumfree.it/ - Mire Engine
C# UI Designer
PM