Carlo (Member)
Guru
 
Messaggi: 1344
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
Inserita versione 8.8.8
|
Bella!
sulle immagini giapponesi c'è una carta vuota, è regolare?
Caratteri Romani, se li vuoi inserire ancora! 
Codice sorgente - presumibilmente VB.NET |
- Dim Roma() As String = {" I", " II", " III", " IV", " V", " VI", " VII", " VIII", " IX", " X", " XI", " XII", " XIII"} For i = 0 To 12 imgbmp = New Bitmap(84, 84) ' creo una bitmap Using g As Graphics = Graphics.FromImage(imgbmp) ' g agisce su imgbmp g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit g.FillRectangle(Brushes.Navy, 0, 0, 84, 84) Using Carattere As Font = New Font("Georgia", 22, FontStyle.Regular) g.DrawString(Roma(i), Carattere, Brushes.Red, New PointF(5, 26)) End Using End Using ImageList1.Images.Add(imgbmp) Next Panel1.BackColor = Color.Tomato PictureBox1.BackColor = Color.Navy
|
Ultima modifica effettuata da Carlo il 31/05/2018 alle 0:28
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
@Carlo
La carta bianca è regolare, volendo si può cambiare
per i numeri Romani gli inserisco nella prossima versione
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1344
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
@Carlo
La carta bianca è regolare, volendo si può cambiare
per i numeri Romani gli inserisco nella prossima versione |
Ok Ok!!
Scusa non è che vado a caccia di errori, ma quando si azzera, va ripristinata la matrice Obiettivi_Punteggio, sennò alla seconda partita non suona più la musica. 
Codice sorgente - presumibilmente VB.NET |
Private Sub AzzeraToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AzzeraToolStripMenuItem.Click Stato_eventi = Stato.Azzerato Punteggio = 0 mosse = 0 Max_Potenza_Raggiunta = 2 Obiettivi_Punteggio = {2048, 4096, 8192} ' ripristino Call Inizializza_Matrice2048(Matrice4x4) Call Random_Matrice4x4_2048() Call Visualizza_Immagine_Celle2048(Matrice4x4) Scambio_ok = True InMovimento = False End Sub
|
Mi sono accorto, perché volevo verificare il discorso play e sleep, e ho abbassato gli obiettivi a 16 e 64.
Nel mio PC la musica viene suonata tutta anche senza Sleep(200), so che i PC in base alle schede audio montate non si comportano tutti allo stesso modo, per questo dovresti provare tu, una mia idea.
Animazioni e sleep impediscono un gioco "veloce" si può usare una variabile globale , da mettere a true quando parte un Play, ed inserire prima di ogni sleep:
if AudioOn then Thread.Sleep(200) : AudioOn = false |
.
Se puoi e vuoi fai una prova, io non la posso fare perché non riscontro nessun problema nei suoni anche senza gli sleep.
Anche la scelta nessuna animazione è consigliata. Ultima modifica effettuata da Carlo il 31/05/2018 alle 13:00
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
@Carlo
Ho inserito i numeri Romani
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
@Carlo
Aggiungo audio on/off
nelle mie prove si sentiva male sotto 200
giusto ripristinare gli obiettivi
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
Ho inserito la versione 8.9.9
Aggiunto Set Immagini
Audio On/Of
Animazione On/Of
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Ultimo (Member)
Guru
Messaggi: 877
Iscritto: 22/05/2010
|
Mio punteggio
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1344
Iscritto: 29/01/2018
|
in programmazione tutto è permesso |
|
|
Ultimo ha allegato un file: Cattura_mr2.PNG (31507 bytes)
