Risultati da 1 a 6 di 6

Discussione: Come posso Risolvere questo problema con il Gioco della dama e le Image.Picture



  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

    Come posso Risolvere questo problema con il Gioco della dama e le Image.Picture

    Ciao a Tutti , Il mio problema e questo : Qualche settimana fà , Vi avevo detto che ero riuscito a creare il gioco della Dama in VBA, il chè e vero .
    Però provandolo più volte mi sono accorto che è molto Instabile, per qui volevo rifare il tutto e provare ad inserire al posto delle Shape , Usare delle Image.Picture (Active).
    Ora come forma di codice Funziona in quanto non mi dà errore ; però le pedine non si Spostano.
    Qualquno di voi riuscirebbe gentilmente mettere mano al tutto e farle fare le mosse volute.
    Grazie sinceri Saluti da A.Maurizio
    (P.S) Allego Link di Gioco : https://app.box.com/s/9qnadhvvs9rehpzwaab28fx4ynamb4k5

  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 giornata, Maurizio;
    mi auguri di essere prontamente smentito, ma, temo, sia lavoro immane.

    Per spostare la pedina Bianca da "I8" a "H7", potresti seguire due strade:

    Codice VBA:
    Codice: 
     
        ActiveSheet.Shapes.Range(Array("B9")).Select
        ActiveSheet.Shapes("B9").IncrementLeft -39
        ActiveSheet.Shapes("B9").IncrementTop -33.75
    Per spostare la pedina Nera da "H5" a "I6":
    Codice VBA:
    Codice: 
     
        ActiveSheet.Shapes.Range(Array("N11")).Select
        ActiveSheet.Shapes("N11").IncrementLeft 39
        ActiveSheet.Shapes("N11").IncrementTop 33.75
    Oppure, soluzione fortemente sconsigliata:
    - SVILUPPO
    - MODALITÀ PROGETTAZIONE
    In questo modo, hai la possibilità di spostare liberamente le Pedine.

    Lascio a Te l'incarico di "Eliminare" le Pedine "Mangiate".


    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    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 Come Stai ! Spero Bene .
    Ascolta forse non ho Scritto bene ho tu hai interpretato male le mie parole ; però sta di fatto che tutto il lavoro Sporco lo già fatto Io , in quanto il mio Lavoro , se Rimetto a posto le Shape funziona Benissimo ; Mangia ; si va a Dama ecc...!
    Sempre Fermo e restando che si giochi in due e non Umano contro Computer.
    Però la mia Richiesta era Questa : Io Vorrei che si Riuscisse ad Adattare il Mio istato usando delle Picrure o Immagini che siano al Posto delle Shapes, in quanto sfarfallano meno e lo rendono più stabile; Tutto qui.
    Mentre tu mi hai gentilmente offerto una tua soluzione usando dinuovo delle Shape e non delle Image.picture.
    Ti prego di Scaricarvi chi lo desiderasse il mio untimo Programma , li c'è tutto il neccessario per farlo funzionare, ma attualmente non mi funziona perche ci sono le shapes e non le image.
    Grazie Saluti sinceri da A.Maurizio

  4. #4
    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.
    Poi, prometto non ti disturbo più.
    Molto probabilmente hai ragione Tu, ma, se guardi attentamente i due Codici VBA che ho proposto, vedrai che che, entrambi fanno riferimento a "Shapes".
    La pedina in "I8" è la Shapes "B9" (Bianca 9); mentre la pedina in "H5" è la Shapes "N11" (Nera 11).

    Utilizzando Codice VBA, gli spostamenti delle Pedine, si basano sui Valori indicati in:
    - IncrementLeft
    e
    - IncrementTop

    Quello che è sicuramente possibile fare è parametrare i Valori degli Incrementi in due Celle del Foglio di lavoro.
    Voglio dire, se, ad esempio in Cella "B13", scrivi, -39 e, in Cella "D13" scrivi -33,75 (è fondamentale scrivere il Valore con la Virgola al posto del Punto) il Tuo Codice:
    Codice: 
        ActiveSheet.Shapes.Range(Array("B9")).Select
        ActiveSheet.Shapes("B9").IncrementLeft -39
        ActiveSheet.Shapes("B9").IncrementTop -33.75
    potrebbe diventare:
    Codice: 
        ActiveSheet.Shapes.Range(Array("B9")).Select
        ActiveSheet.Shapes("B9").IncrementLeft Range("B13")
        ActiveSheet.Shapes("B9").IncrementTop Range("D13")
    Questo è quanto sono riuscito ad interpretare.



    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  5. #5
    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
    Grazie Giuseppe Proverò anche questa Ti ringrazio , Ma al di la di ciò che c'è scritto nel mio Listato , io non voglio più interagire con le Shapes ma bensi con delle pictureBox ; Questo e il mio problema.
    Comunque sia Grazie infinite del tuo interessamento ; Ora non posso , ma non appena potrò Vedrò io di fare una cosa che Possa andare bene, Tanto voglio dire visto che ho fatto trenta Faccio anche Trentuno , per qui prima ho poi Riuscirò a finire anche questa.
    Anche perche : grazie anche al vostro contributo , tante cose sono riuscito a risolverle; Per qui il Meccanismo lo Capito , ora non resta altro che Mettere insieme tutti i pezzi e chiudere anche questo Capitolo.
    Ciao e Grazie Infinite .
    (P.S) Sperando di farti Cosa Gradita ti invio un Paio dei miei Brani Suonati da me al Pianoforte , Puoi Scaricarli da questo link Ciao : https://app.box.com/s/j71a34iiba6kx2o4460g3gwverz9enj6

  6. #6
    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
    Altro Giro Altro Regalo .
    No Stai Tranquillo era Solo Che Ti Avevo inserito la Dama Precedente e Questa ciù che Devi Scaricare , questo e il Link : https://app.box.com/s/baux41bojahytmcefn5zk807rw88t176

    Approposito Giuseppe hai Ascoltato i miei Brani , o non sei riuscito a Scaricarli Ciao Maury

Discussioni Simili

  1. Gioco Della Tombola Parlante
    Di A.Maurizio nel forum Lavori e giochi con Excel
    Risposte: 2
    Ultimo Messaggio: 13/01/17, 11:38
  2. [Risolto] Come posso fare la ricerca nella combobox....digitando parte della parola da ricercare
    Di CAVALLO67 nel forum Domande su Excel VBA e MACRO
    Risposte: 39
    Ultimo Messaggio: 06/12/16, 18:00
  3. Come faccio operativamente a risolvere questo task che mi è stato affidato?
    Di Sarah17591 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 02/09/16, 13:01
  4. Sempre il mio gioco della Dama Rielaborata
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 20/12/15, 12:58
  5. Problema nella scrittura della formula (tutorial)
    Di Gerardo Zuccalà nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 3
    Ultimo Messaggio: 05/07/15, 13:19

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
  •