2048+ the Game

Pagine: [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ]

Ultimo (Member)
Guru

Messaggi: 877
Iscritto: 22/05/2010

Postato alle 18:00
Giovedì, 05/07/2018

@Carlo
@Mikelius

ho corretto un altro bug

Codice sorgente - presumibilmente VB.NET

Private Sub FacileToolStrip_Click(sender As Object, e As EventArgs) Handles FacileToolStrip.Click
        'modicato da Ultimo il 5-7-2018 alle ore 16
        If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then
            Return
        Else
            Livello_Diff = Difficoltà.Facile
            FacileToolStrip.Checked = False
            MediaToolStrip.Checked = False
            DifficileToolStrip.Checked = False
            MoltoDifficileToolStrip.Checked = False
            Call Diff_Checked()
        End If
    End Sub
 
    Private Sub MediaToolStrip_Click(sender As Object, e As EventArgs) Handles MediaToolStrip.Click
        'modicato da Ultimo il 5-7-2018 alle ore 16
        If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then
            Return
        Else
            Livello_Diff = Difficoltà.Media
            FacileToolStrip.Checked = False
            MediaToolStrip.Checked = False
            DifficileToolStrip.Checked = False
            MoltoDifficileToolStrip.Checked = False
            Call Diff_Checked()
        End If
    End Sub
 
    Private Sub DifficileToolStrip_Click(sender As Object, e As EventArgs) Handles DifficileToolStrip.Click
        'modicato da Ultimo il 5-7-2018 alle ore 16
        If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then
            Return
        Else
            Livello_Diff = Difficoltà.Difficile
            FacileToolStrip.Checked = False
            MediaToolStrip.Checked = False
            DifficileToolStrip.Checked = False
            MoltoDifficileToolStrip.Checked = False
            Call Diff_Checked()
        End If
    End Sub
 
    Private Sub MoltoDifficileToolStrip_Click(sender As Object, e As EventArgs) Handles MoltoDifficileToolStrip.Click
        'modicato da Ultimo il 5-7-2018 alle ore 16
        If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then
            Return
        Else
            Livello_Diff = Difficoltà.Molto_Difficile
            FacileToolStrip.Checked = False
            MediaToolStrip.Checked = False
            DifficileToolStrip.Checked = False
            MoltoDifficileToolStrip.Checked = False
            Call Diff_Checked()
        End If
    End Sub
 
    Public Sub Diff_Checked()
        'modicato da Ultimo il 5-7-2018 alle ore 16
        'imposta le difficoltà 
        Call Gestione_Difficolta_Livello()
    End Sub

settare la proprietà CheckonClick su False

per ogni Toolstrip (facile,media,difficile molto_difficile)

If ok Then GOTO Avanza else GOTO Inizia

Mikelius (Member)
Expert

Messaggi: 525
Iscritto: 14/04/2017

Postato alle 18:26
Giovedì, 05/07/2018

ho trovato un bug..almeno a me da come bug:

Se cancello ca cartella Risorse, da eccezzione all'avvio della Hall of Fame.

Ho corretto con

Codice sorgente - presumibilmente VB.NET

Public Sub Carica_Tabella(ByVal nomtab As String)
 
        myStremObjet_Classif = Classif_2048
        percorsofile += "\" & nomtab & ".bin"
        If File.Exists(percorsofile) Then
            Dim File_Stream As Stream = File.OpenRead(percorsofile)
            Dim deserializer As New BinaryFormatter
            myStremObjet_Classif = CType(deserializer.Deserialize(File_Stream), Classifica_2048)
            File_Stream.Close()
        Else
''''''''''''''''''''''''''''' File.Create() non mi crea tutto il percorso mancante
 
            Directory.CreateDirectory(".\Risorse\Dati")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim File_Stream As Stream = File.Create(percorsofile)
            Dim serializer As New BinaryFormatter
            serializer.Serialize(File_Stream, myStremObjet_Classif)
            File_Stream.Close()
        End If
 
    End Sub

Stessa cosa da farsi per le altre cartelle. ci vorebbe un controllo generale. Lo mettiamo all'avvio del gioco?

Ultimo (Member)
Guru

Messaggi: 877
Iscritto: 22/05/2010

Postato alle 18:41
Giovedì, 05/07/2018

Testo quotato

Postato originariamente da Mikelius:

ho trovato un bug..almeno a me da come bug:

Se cancello ca cartella Risorse, da eccezzione all'avvio della Hall of Fame.

Ho corretto con

Codice sorgente - presumibilmente VB.NET

Public Sub Carica_Tabella(ByVal nomtab As String)
 
        myStremObjet_Classif = Classif_2048
        percorsofile += "\" & nomtab & ".bin"
        If File.Exists(percorsofile) Then
            Dim File_Stream As Stream = File.OpenRead(percorsofile)
            Dim deserializer As New BinaryFormatter
            myStremObjet_Classif = CType(deserializer.Deserialize(File_Stream), Classifica_2048)
            File_Stream.Close()
        Else
''''''''''''''''''''''''''''' File.Create() non mi crea tutto il percorso mancante
 
            Directory.CreateDirectory(".\Risorse\Dati")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim File_Stream As Stream = File.Create(percorsofile)
            Dim serializer As New BinaryFormatter
            serializer.Serialize(File_Stream, myStremObjet_Classif)
            File_Stream.Close()
        End If
 
    End Sub

Stessa cosa da farsi per le altre cartelle. ci vorebbe un controllo generale. Lo mettiamo all'avvio del gioco?

Si puoi creare una funzione di controllo delle cartelle

se sono mancanti le crea :k:

quando è pronta la posti ok?

la funzione si deve attivare all'avvio del programma,

dal Load del Form1

:k:

Ultima modifica effettuata da Ultimo il 05/07/2018 alle 18:50

If ok Then GOTO Avanza else GOTO Inizia

Pagine: [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ]

Torna indietro