15 Il Gioco

Pagine: [ 1 2 3 4 ]

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 1:43
Sabato, 24/03/2018

Prima di realizzare il Gioco del 15 con lo scorrimento delle tessere, avevo immaginato il programma senza lo scorrimento.
Non lo avevo scritto, ma era abbastanza corto, ora l'ho scritto.

Codice minimale per il Gioco del 15, nulla da inserire sul form, anche la grafica è gestita dal codice.

Codice sorgente - presumibilmente VB.NET

Imports System.Collections
 
Public Class Form1
    Dim Mosse, Ciclo As Short
    Dim lTasto(16) As Label
    Dim rnd As New Random
    Dim aControllo = New Integer(15, 3) {{1, 4, 0, 0}, {0, 2, 5, 1}, {1, 3, 6, 2}, {2, 7, 3, 3},
                                         {0, 5, 8, 4}, {4, 1, 6, 9}, {5, 2, 7, 10}, {11, 3, 6, 7},
                                         {4, 9, 12, 8}, {8, 5, 10, 13}, {14, 9, 6, 11}, {15, 10, 7, 11},
                                         {8, 13, 12, 12}, {12, 9, 14, 13}, {13, 10, 15, 14}, {14, 11, 15, 15}}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' oggetti grafici sul form
        For Tessere = 0 To 16
            lTasto(Tessere) = New Label ' creo una collezione di 17 labels
            lTasto(Tessere).Size = New Size(55, 55)
            lTasto(Tessere).Text = Tessere + 1
            lTasto(Tessere).Location = New Size(56 * (Tessere Mod 4) + 33, 56 * (Math.Ceiling(Tessere \ 4)) + 40)
            lTasto(Tessere).Tag = Tessere : lTasto(Tessere).BackColor = Color.White
            lTasto(Tessere).BorderStyle = BorderStyle.FixedSingle
            lTasto(Tessere).TextAlign = ContentAlignment.MiddleCenter
            lTasto(Tessere).Font = New Font("Comic Sans MS", 12, FontStyle.Bold)
            Me.Controls.Add(lTasto(Tessere))
            AddHandler lTasto(Tessere).Click, AddressOf lTasto_OnClick ' evento click
        Next Tessere
        lTasto(15).Text = " " : lTasto(15).BackColor = Color.LightGray
        lTasto(16).AutoSize = True : lTasto(16).Location = New Size(35, 10)
        Mescola()
    End Sub
 
    Private Sub lTasto_OnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Trovato As Short = 99
        If sender.tag = 16 Then Mescola() : Exit Sub ' label di intestazione
        For Me.Ciclo = 0 To 3 ' cerco la casella vuota usando la matrice di controllo
            If lTasto(aControllo(sender.tag(), Ciclo)).Text = " " Then Trovato = Ciclo
        Next
        If Trovato <> 99 Then ' scambio il contenuto dei tasti
            lTasto(aControllo(sender.tag(), Trovato)).Text = lTasto(sender.tag).Text
            lTasto(aControllo(sender.tag(), Trovato)).BackColor = lTasto(sender.tag).BackColor
            lTasto(sender.tag).Text = " " : lTasto(sender.tag).BackColor = Color.LightGray
            Mosse += 1 : Controllo()
        End If
    End Sub
 
    Sub Controllo()
        Dim Situazione As String = ""
        For Me.Ciclo = 0 To 15
            Situazione = Situazione & lTasto(Ciclo).Text
        Next Ciclo
        If Situazione = "123456789101112131415 " Or Situazione = " 123456789101112131415" Then
            lTasto(16).Text = "Hai vinto in " & Mosse & " mosse"
        Else
            lTasto(16).Text = "Gioco del 15 mossa N. " & Mosse
        End If
    End Sub
 
    Sub Mescola()
        Dim Numero, mtdati(15), Ciclo1 As Short
        For Me.Ciclo = 0 To 15 ' per 16 caselle
            Numero = rnd.Next(1, 17) : mtdati(Ciclo) = Numero : lTasto(Ciclo).Text = Numero
            If Numero = 16 Then
                lTasto(Ciclo).Text = " " : lTasto(Ciclo).BackColor = Color.LightGray
            Else
                lTasto(Ciclo).Text = Numero : lTasto(Ciclo).BackColor = Color.White
            End If
            For Ciclo1 = 0 To Ciclo - 1
                If Numero = mtdati(Ciclo1) Then Ciclo -= 1
            Next Ciclo1
        Next Ciclo
        lTasto(16).Text = "   Gioco del 15 [mescola]  "
        Mosse = 0
    End Sub
End Class

Ultima modifica effettuata da Carlo il 28/03/2018 alle 4:33

in programmazione tutto è permesso

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 7:25
Martedì, 27/03/2018

Inserita Versione 3.3.00.
Corretto piccolo bug e il puzzle ora può avere un massimo di colonne/righe = 8

Carlo ha allegato un file: 15 Il Gioco.jpg (143904 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da Carlo il 29/03/2018 alle 10:18

in programmazione tutto è permesso

Thejuster (Admin)
Guru^2

Messaggi: 2339
Iscritto: 04/05/2008

Postato alle 10:07
Giovedì, 29/03/2018

fantastico 63 numeri, è da provare.

Vediamo in quanto tempo lo risolvo

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

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 10:24
Giovedì, 29/03/2018

ci faccia sapere...

in programmazione tutto è permesso

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 14:03
Venerdì, 30/03/2018

Testo quotato

Postato originariamente da Thejuster:

fantastico 63 numeri, è da provare.

Vediamo in quanto tempo lo risolvo

Non ci ha fatto sapere, io ho pronto il 10x10.
Esatto 99 numeri, ho cercato in giro e non esiste!!!
Datemi conferma se sono l'unico imbranato che ha programmato il gioco del 15 con 99 numeri.

Carlo ha allegato un file: 15 Il Gioco.jpg (195104 bytes)
Clicca qui per guardare l'immagine

in programmazione tutto è permesso

Thejuster (Admin)
Guru^2

Messaggi: 2339
Iscritto: 04/05/2008

Postato alle 20:05
Venerdì, 30/03/2018

non sò perché ma windows defender me lo rileva come virus.
forse è il zip non saprei.

Cmq ti risparmio la noia di doverti creare ogni tessera tramite immagine.

(Libreria Tessera)
https://mega.nz/#!IgwBwL5S!elBTvYxTrOghs_3BskCQWCC1OZiZwFop ...

Aggiungi la libreria al progetto

Invece di aggiungere una normalissima pictureBox
Aggiungi il componente Tessera

Codice sorgente - presumibilmente VB.NET

'                                                W    H  N       ENUM
        Dim tess As New Tessere.Tessera(55, 55, 8, Tessere.Tessera.GrandientMode.Verticale)
        tess.Gradiente = True
        tess.ColoreGradiente1 = Color.Red
        tess.ColoreGradiente2 = Color.White

W = Larghezza (default 55)
H = Altezza ( default 55)
N = Numero da visualizzare
Enumeratore per il tipo di sfumatura
ed altri campi opzionali.

l'Handle lo gestisci identico alla picture.

Anziché fare

Codice sorgente - presumibilmente VB.NET

For Tessere = 0 To NumColonne * NumRighe - 2
            pictTasto(Tessere) = New PictureBox ' creo le n. PictureBox
            pictTasto(Tessere).Width = DimTessera
            pictTasto(Tessere).Height = DimTessera
            pictTasto(Tessere).SizeMode = PictureBoxSizeMode.Zoom
            pictTasto(Tessere).Name = "Tes" & Tessere.ToString ' parametro inutilizzto
            pictTasto(Tessere).Image = ImageList1.Images.Item(Tessere) ' associazione indice, immagine
            pictTasto(Tessere).Left = DimTessera * (Tessere Mod NumColonne) ' ccordinata X calcolata
            pictTasto(Tessere).Top = DimTessera * (Math.Ceiling(Tessere \ (NumRighe + NumColonne - NumRighe))) ' coordinata Y calcolata
            pictTasto(Tessere).Tag = Tessere + 1 ' corrispondenza immagine con numero rappresentato
            Me.PictureBox1.Controls.Add(pictTasto(Tessere)) ' aggiungo a PictureBox1 usato come contenitore per avere le coordinate invariate anche se si sposta il puzzle nel form
            AddHandler pictTasto(Tessere).Click, AddressOf PictTasto_OnClick ' permette di avere l'evento click
            SequenzaGenerata = SequenzaGenerata & (Tessere + 100 + 1).ToString.Substring(1, 2) 'sequenza delle 15 caselle il +100 per aggiungere lo zero = Format(tessere, "00"), in Vb.NET?
        Next Tessere

ti basterà inserire quello.
così eviti anche di disegnare le immagini una per una ed appesantire il progetto.

ho fatto una semplice generazione
alla fine ecco il risultato

https://s9.postimg.org/wck3yxftr/Cattura.png

puoi anche cambiare i colori, la grandezza del font etc.

Ultima modifica effettuata da Thejuster il 30/03/2018 alle 22:18

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

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 3:19
Sabato, 31/03/2018

Testo quotato

Postato originariamente da Thejuster:
Cmq ti risparmio la noia di doverti creare ogni tessera tramite immagine.

(Libreria Tessera)
https://mega.nz/#!IgwBwL5S!elBTvYxTrOghs_3BskCQWCC1OZiZwFop ...

Aggiungi la libreria al progetto

Invece di aggiungere una normalissima pictureBox
Aggiungi il componente Tessera

Sei sempre pronto a stimolare la mente.

Non ho eseguito il tuo consiglio di aggiungere il componente tessera perché finché posso mi piace fare da me.

Quando ho disegnato tutti i tasti in maniera ripetitiva, "sentivo" che qualcosa non andava, anche se mi giustificavo perché volevo un tasto personalizzato, e tu me ne hai dato conferma, disegnare tutti quei tasti era "sbagliato".

Ora ho disegnato solo lo sfondo del tasto con photoshop e l'ho caricato sul background delle pictureboxs poi ho creato delle bitmaps con il numero con effetto ombreggiato usando DrawStrig, e riaggiunto alle picturebox.image:

Codice sorgente - presumibilmente VB.NET

Dim imgbmp As Bitmap = Nothing
Dim pictTasto(100) As PictureBox
 
' ciclo for tessere
 
pictTasto(Tessere).BackgroundImage = ImageList1.Images.Item(0) ' sfondo
 
imgbmp = New Bitmap(DimTessera, DimTessera)
   Using g As Graphics = Graphics.FromImage(imgbmp)
      g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
      Dim Testo As String = Tessere + 1.ToString
      If Testo.Length = 1 Then Testo = " " & Testo  'centratura.
      Using Carattere As Font = New Font("Arial", DimTessera \ 2, FontStyle.Regular)
         ' prima di scrivere il numero giallo chiaro, lo scrivo spostato nero per effetto ombra
         g.DrawString(Testo, Carattere, Brushes.Black, New PointF(2, DimTessera / 8 + 2)) 
         g.DrawString(Testo, Carattere, Brushes.LightYellow, New PointF(0, DimTessera / 8))
      End Using
   End Using
pictTasto(Tessere).Image = imgbmp
 
' next tessere

Il risultato è che i tasti hanno ancora l'aspetto personalizzato e allo zoom restano nitidi, ma l'exe è diventato di soli 64k, grazie per il consiglio.

il link per scaricare il progetto:
http://www.pierotofy.it/pages/projects/files.php?id=665

Testo quotato

Postato originariamente da Thejuster:
non sò perché ma windows defender me lo rileva come virus.
forse è il zip non saprei.

Mi controlli se il solo .exe ti dice che è un virus?

Ultima modifica effettuata da Carlo il 27/02/2023 alle 9:34

in programmazione tutto è permesso

Carlo (Member)
Guru^2

Messaggi: 1423
Iscritto: 29/01/2018

Postato alle 16:00
Sabato, 22/08/2020

Ver 5.1, tolta dipendenza Microsoft PowerPack

il link per scaricare il progetto:
http://www.pierotofy.it/pages/projects/files.php?id=665

Ultima modifica effettuata da Carlo il 22/08/2020 alle 16:25

in programmazione tutto è permesso

Pagine: [ 1 2 3 4 ]

Torna indietro