Risultati da 1 a 4 di 4

Discussione: Giochino Spara hai Pallini in Movimento



  1. #1
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Giochino Spara hai Pallini in Movimento

    Ciao a Tutti , il mio problema e questo : Su di un Foglio di Excel :
    1 ) A partire dalla Cella (B3:K13) ho inserito un tracciato .
    2 ) Mentre nelle Celle che vanno dalla (B3:K7) ci sono dei Somboli colorati
    3 ) Nella Riga (B13:K13) ho inserito un Simbolo che si Dovrebbe muovere sempre sulla stessa riga.

    Ora lo scopo di questo gioco molto semplice all'apparenza , Sarebbe quello : Che mentre i pallini colorati posti nella parte alta del Tracciato si muovono nerso il Basso .

    Il Simbolo cosi detto Spara tutto : Si dovrebbe poter solo muovere a destra ho ha Sinistra di Tale Riga , aiutato dalle due Freccette poste fuori dal Tracciato.

    Ora quello che vorrei sapere io : No è che mi facciate totalmente il gioco , ma mi facciate anche solo vedere come ottenere il Movimento di un Simbolo colorato che si Sposti verso il basso ; Lo Sparatutto che si sposti verso Destra ho sinistra che sia.

    E che quando Io Premo il Tasto Space da Tastiera Ho Enter ; mi Elimini un simbilo sempre chè essao venga colpito.

    Spero di Essere stato abbastanza chiaro ; Grazie infinite per tutto l'aiuto che saprete ho vorrete darmi in merito ; Saluti da A.Maurizio

    (P.S) Invio File ma senza Codice in quanto non ho la più pallida idea di come procedere
    File Allegati File Allegati

  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Maurizio.

    Professore, ti scopro ... sempre a giocare.
    Ricordati che hai dei doveri verso i "Golosi" :153: e verso chi apprezza la musica ... come mè! :32:

    Scherzi a parte, non mi è ben chiaro cosa deve accadere quando i "Simboli colorati" presenti in Riga 7, arrivano in Riga12.

    Codice: 
    Option Explicit
    
    Sub DX()
    Dim x As Byte
        For x = 2 To 10
            If Cells(13, x) <> "" Then
                Cells(13, x).Copy Cells(13, x + 1)
                Cells(13, x).ClearContents
                    Exit For
            End If
        Next x
    End Sub
    Sub SX()
    Dim x
        For x = 11 To 3 Step -1
            If Cells(13, x) <> "" Then
                Cells(13, x).Copy Cells(13, x - 1)
                Cells(13, x).ClearContents
                    Exit For
            End If
        Next x
    End Sub
    Sub Fuego()
    Dim Urg As Long
    Dim x As Byte, Cln As Byte
    Dim y
        For x = 2 To 11
            If Cells(13, x) <> "" Then
                Cln = x
                    Exit For
            End If
        Next x
            Urg = Cells(Rows.Count, x).End(xlUp).Row - 1
        For y = Urg - 1 To 3 Step -1
            If Cells(y, x) <> "" Then
                Cells(y, x).Copy Cells(y + 1, x)
                Cells(y, x).ClearContents
                    Exit For
            End If
        Next y
    End Sub
    Con questi Codici mi sono fermato alla gestione dei "Simboli colorati" presenti in Riga 5.

    Voglio dire, quando "spari" ad un "Simbolo colorato" presente in Riga 7 questo scende di una Riga fino alla Riga 12.
    Continuando a "sparare" il "Simbolo colorato" presente in Riga 6 questo scende di una Riga fino alla Riga 11.

    A questo punto mi sono fermato; ho bisogno di capire se hai la necessità di "spostare" tutti i "Simboli colorati" dalle Righe 3:7 alle Righe 8:12 o cos'altro.




    A disposizione.

    Buona serata

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Maurizio;
    Dopo aver ringrazito @ cromagno per il Suo Apprezzamento.

    Sono arrivato a:
    - muovere il simbolo del "Fuoco" a Destra o a Sinistra
    - tramite il simbolo del "Fuoco" il "Simbolo colorato" più vicino
    - rendere automatica la discesa dei "Simboli colorati"
    Il problema, almeno per mè, è far interagire l'eliminazione del "Simbolo colorato" durante l'esecuzuine del Codice:
    Codice: 
    Option Explicit
    
    Sub Muovi()
    Dim lNum As Long
    Dim arNum() As Long
    Dim j As Long
    Dim r As Long
    Dim n As Long
    Dim Rtd As Long
    Dim Urg, Rpt
    Dim x As Byte, Cln As Byte, Nrc As Byte
    Dim y
        
        For Rpt = 1 To 150
        lNum = 12
    ReDim arNum(1 To lNum)
        For j = 1 To lNum
            arNum(j) = j
        Next j
            For j = lNum To 2 Step -1
                r = Int((j * Rnd) + 1)
                n = arNum(r)
                arNum(r) = arNum(j)
                arNum(j) = n
                For Urg = 12 To 3 Step -1
                    If n < 3 Then n = 3
                    If Cells(Urg, n - 1) <> "" Then Exit For
                Next Urg
                Cells(Urg, n + 1).Select
                    If Cells(Urg, n - 1) = "" Then End
                        Cells(Urg, n - 1).Copy Cells(Urg + 1, n - 1)
                        Cells(Urg, n - 1).ClearContents
                Exit For
            Next j
                Erase arNum
            If Urg = 11 Then End
                For Rtd = 1 To 1000000
                Next Rtd
           Next Rpt
    Application.ScreenUpdating = True
    End Sub
    Questo Codice si occupa di spostare i "Simboli colorati" presenti nelle varie Colonne (2:11); colonne selezionate in modo "Random".
    La Variabile "Rtd" permette di ritardare l'esecuzione tra i vari Cicli "Rpt".
    Non potendo utilizzare il il simbolo del "Fuoco" durante l'esecuzione del Codice, il Codice termina quando il primo "Simbolo colorato" raggiunge la Riga 12.

    Modificando l'istruzione:
    Codice: 
     If Urg = 11 Then End
    in
    Codice: 
     Cells(12, n - 1).ClearContents
    Il Codice prosegue correttamente fino al completo svuotamento dei 5 "Simboli colorati" inizialmente presenti in una delle Colonne.

    Vorrei cercare di far interagire il "Fuoco" durante l'esecuzione del Codice, ma, per il momento sono bloccato su questo evento.



    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  5. #4
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Giuseppe , Sui giochini sei il miglio a quanto .
    Scherzi a parte : Ti ringrazio per il tuo Aiuto costante nel volermi aiutare in tutte le mie richieste , anche sè a dire il vero tolto via il mio gioco della Dama , non nè ho ancora più molte.
    Ecco il perchè tempo fà avevo dichiarato l'intenzione di lasciare il forum , Ma solo perchè non oh più ineressi , tutto qui.
    Tornando a noi , mi hai chiesto qual era lo scopo di questo gioco : Lo scopo di questo gioco , sono sostanzialmente due.
    1 ) Per quello che riguardano i simboli sono quello di Raggiungere la meta , e quando non c'è ne più neppure uno , termina il gioco ; Vengono fuori i Saluti ; E si dovrebbere Riposizionare i Pallini come da inizio gioco.
    2 ) Mentre per lo Spara Tutto , L'intento e quello di poter colpire più Bersagli Possibili, Tanto e vero che una volta capito il meccanismo di tale gioco.
    La mia prossima Verifica Sarà proprio quella di , creare una sorta di Punteggio per ogni Bersaglio Colpito, con tanto di schedario dei migliori 10 Punteggi eseguiti ; Proprio come avevo fatto quando avevo creato il gioco del Tris.
    Però in quel Contesto non solo ero più giovane e fluido di mente.
    Ma ero riuscito a renderlo Autonomo rispetto alla mia Giocata .
    Cosa che non sarei più in grado di ripetere con il gioco della Dama .
    Ma questa e tutta un altra storia; Grazie infinite a te e a Cromagno.
    (P.s) Per chi si fosse perso il mio gioco del tris Allego questo ; e un altro Brano solo per te
    https://app.box.com/s/x0ro04gz6emg3eyj3s87iq82m1z8s899
    https://app.box.com/s/b7c3wa48d6zi5juvjcac4mjz3y6qc2f3

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •