Domanda Tecnica (Ultima Estrazione Mese)

[Xeroxs]

Buongiorno a Tutti,

Vorrei sapere se esiste la possibilità in qualche modo se uso come indice ultima del mese o altro vorrei bloccare le verifiche o i risultati comunque all'ultima estrazione del mese,

Per esempio se imposto a gennaio un indice ultima del mese anche se imposto 13 colpi vorrei che il controllo si fermasse alla ultima data utile del mese di febbraio che è sotto i 13 colpi per non entrare nel mese successivo anche solo per un colpo.

Grazie.

 

[claudio8]

Inserisci il codice che intendi usare per la ricerca ed il seguente codice di controllo entro i 13 colpi.
Devi specificare se intendi x quest'ultimo utilizzare la funzione impostagiocata o un ciclo for ... next .
ciao

 

[Xeroxs]

Ciao Claudio8,

Questo è il listato, un esempio

Sub Main()
   Dim nu(5),ruote(2),ambata(1),posta(1),poste(3)
   posta(1) = 1 : poste(2) = 1 : poste(3) = 1
   Scrivi String(30," ") & "****** Metodo Napoli - Versione.1.0 ****** ",1
   Scrivi String(38," ") & "** Sommativo alla 9° del Mese ** ",1
   Scrivi String(42," ") & "****** By Xeroxs ****** ",1
   Scrivi
   ColoreTesto 1
   ini = 9700
   fin = EstrazioneFin
   For es = ini To fin
       'If IndiceMensile(es) = 9 Then
        If IsUltimaDelMese(es) Then
       AvanzamentoElab ini,fin,es
       '-------------------------------------------------------------------------- Ruote di Gioco
       ruote(1) = 6
       '-------------------------------------------------------------------------- Ambata
        nu(5) = Estratto(es,1,1)
       ambata(1) = Fuori90(nu(5) + 25)
       nu(1) = ambata(1)
       '-------------------------------------------------------------------------- Abbinamenti per Ambo
       nu(2) = 17
       nu(3) = 56
       nu(4) = 76
       casi = casi + 1
       co = co + 1
         ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
         Scrivi "Test",1
         ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
         "Ambata " & Format2(ambata(1)) & "  Abb. " & Format2(nu(2)) & "." & Format2(nu(3)) & "." & Format2(nu(4)),1
         Scrivi "Ritardo Attuale Dell'Ambata sulla Ruota di " & NomeRuota(ruote(1)) & " è di Estrazioni " & _
         EstrattoRitardo(ruote(1),nu(1))
         'Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(2)) & " è di Estrazioni " & _
         'EstrattoRitardo(ruote(2),nu(1))
         Scrivi
         ColoreTesto 0
         ImpostaGiocata 1,ambata,ruote,posta,13,0
         ImpostaGiocata 2,nu,ruote,poste,13,0
         Gioca es
       End If
   Next
   ScriviResoconto
End Sub

Come vedi ho usato su imposta giocata 13 ed il più delle volte va bene ma ad esempio nel mese di marzo che hanno interrotto nei mesi successivi sfora nel mese successivo,

Premetto la mia è solo una domanda tecnica per capire se è fattibile, nel mio esempio si può bloccare al 21 marzo.
Se è fattibile ovvio.

Per quanto riguarda l'uso del ciclo For... next se devo essere sincero non so come usarlo...

se hai voglia di farmi capire...

Ti Ringrazio comunque per il tuo intervento

 

[claudio8]

Ciao Claudio8, Ciao Xeroxs

Questo è il listato, un esempio... oK
Ti sconsiglio vivamente, di scrivere su unica riga diverse istruzioni usando i ":" , può dare adito ad errate letture del codice
Ti consiglio invece di dichiarare tutte le variabili che utilizzi in modo da averle evidenti nella lettura e nello stesso tempo questa metologia di scrittura, evita che vi possano essere sulle stesse errori di battitura, altra cosa, utilizzare Option Explicit per obbligarti all'uso delle dichiarazioni di variabili.

Come vedi ho usato su imposta giocata 13 ed il più delle volte va bene ma ad esempio nel mese di marzo che hanno interrotto nei mesi successivi sfora nel mese successivo, se i colpi sono fissi (13) è normale chelo script non tenga conto di quanti di questi restano sino alla fine del mese. Devi quantificarli prima di darli in pasto ad ImpostaGiocata

Premetto la mia è solo una domanda tecnica per capire se è fattibile, nel mio esempio si può bloccare al 21 marzo.
Se è fattibile ovvio. Certamente SI

Per quanto riguarda l'uso del ciclo For... next se devo essere sincero non so come usarlo...
non sapendo se avresti usato x l'esito la fuinzione VerificaEsito o Imposta giocata te lo ho chiesto.

se hai voglia di farmi capire...
Ti ho inserito nello script un ciclo for che nel tuo caso, con ImpostaGiocata estrapola, ciclando le estrazione successive alla "es", da +1 max + 16 cicli, il numero di colpi che mancano alla estrazione di FineMese succesiva alla "es" in analisi. La condizione che determina l'uscita dal ciclo e la fermata del contatore "colpi = colpi + 1" è chiaramente la " If IsUltimaDelMese(es + x) Then Exit For"
Concettualmente sarebbe stato uguale se tu avessi usato un ciclo in cui era il VerificaEsito a darti l'esito della giocata.

Ti Ringrazio comunque per il tuo intervento - prego

Option Explicit
Sub Main()
    Dim nu(5),ruote(2),ambata(1),posta(1),poste(3),es,Ini,fin,colpi,x,casi,co
    posta(1) = 1
    poste(2) = 1
    poste(3) = 1
    Scrivi String(30," ") & "****** Metodo Napoli - Versione.1.0 ****** ",1
    Scrivi String(38," ") & "** Sommativo alla 9° del Mese ** ",1
    Scrivi String(42," ") & "****** By Xeroxs ****** ",1
    Scrivi
    ColoreTesto 1
    Ini = 9700
    fin = EstrazioneFin
    For es = Ini To fin
        If IndiceMensile(es) = 9 Then
            'If IsUltimaDelMese(es) Then
            AvanzamentoElab Ini,fin,es
            '-------------------------------------------------------------------------- Ruote di Gioco
            ruote(1) = 6
            '-------------------------------------------------------------------------- Ambata
            nu(5) = Estratto(es,1,1)
            ambata(1) = Fuori90(nu(5) + 25)
            nu(1) = ambata(1)
            '-------------------------------------------------------------------------- Abbinamenti per Ambo
            nu(2) = 17
            nu(3) = 56
            nu(4) = 76
            casi = casi + 1
            'co = co + 1
            ColoreTesto 1
            Scrivi String(100,"*") & " Caso n° " & casi,1
            Scrivi "Test",1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
            "Ambata " & Format2(ambata(1)) & "  Abb. " & Format2(nu(2)) & "." & Format2(nu(3)) & "." & Format2(nu(4)),1
            Scrivi "Ritardo Attuale Dell'Ambata sulla Ruota di " & NomeRuota(ruote(1)) & " è di Estrazioni " & _
            EstrattoRitardo(ruote(1),nu(1))
            'Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(2)) & " è di Estrazioni " & _
            'EstrattoRitardo(ruote(2),nu(1))
            Scrivi
            ColoreTesto 0
            colpi = 0
            For x = 1 To 16 ' (max valore Indice mese possible)
                colpi = colpi + 1
                If IsUltimaDelMese(es + x) Then Exit For
            Next
            Scrivi " Colpi di gioco entro Ultima mese = " & colpi
            ImpostaGiocata 1,ambata,ruote,posta,colpi,0
            ImpostaGiocata 2,nu,ruote,poste,colpi,0
            Gioca es
        End If
    Next
    ScriviResoconto
End Sub

Saluti

 

[Xeroxs]

Ciao, Claudio8
Prima di tutto grazie.
Per come hai esposto le spiegazioni, dimostra la tua bravura nell 'uso del programma e certamente seguirò i tuoi consigli che per me sono preziosi non solo per migliorarmi ma per capire le logiche stesse dei vari codici,
Ero convinto che scrivendo in modo diverso andasse a capo, infatti devo capire bene quando espongo i vari dati perché a volte va a capo la riga e a volte no, invece sbagliavo. Farò delle prove pasticciando magari un listato per capire come si comporta mentre lo scrivo.
Sto cercando di scrivere e riscrivere codici e listati per assimilare meglio le normali regole del listato dalle variabili al ciclo o cicli, e cercherò di usare in modo fisso l option come da tuo consiglio.
Che dire grazie ancora non solo per quanto richiesto, ma per i consigli.

 

[claudio8]

Scrivi (copiato dall'Help)

Sub Scrivi(Optional ByVal sNewText = "", Optional grassetto = False, Optional ACapo = True, Optional HighlightColor = -1, Optional TextColor = -1, Optional Dimensione = 2, Optional sFontName = "Courier New", Optional bSottolineato = False, Optional bBarrato = False, Optional bItalic = False)

Descrizione
Consente di scrivere un testo nella finestra di output

Note

Valore di ritorno

Parametri:

Optional ByVal sNewText = ""	Testo da scrivere
Optional grassetto = False	Booleano specifica se impostare il grassetto
Optional ACapo = True	Booleano manda a capo per la prossima riga
Optional HighlightColor = -1	Colore di sfondo del testo
Optional TextColor = -1	Colore del testo
Optional Dimensione = 2	Dimensione del font
Optional sFontName = "Courier New"	Nome del font
Optional bSottolineato = False	Booleano specifica se il testo è sottolineato
Optional bBarrato = False	Booleano specifica se il testo è barrato
Optional bItalic = False	Booleano imposta il corsivo

- Nota: controllate nella sez. Configurazione ( Altri menù-> Configura-> Opzioni ) il settaggio di come agisce il parametro ACapo.

- Ogni riga di scrittura viene gestita dal comando/ funzione "Scrivi " quindi in generale con esso scrivi le righe una sotto l'altra ivi comprese le righe vuote però, tra i parametri di detto comando vi e' uno (vedi nell'help di Scrivi il significato di A Capo) che gestire la possibilità di continuare a scrivere sulla stessa riga il testo presente nel successivo "Scrivi".
Un ulteriore "Scrivi" senza testo, fa terminare questa possibilita di scrittura sulla stessa riga.

Importante:
- Oltre a poter meglio approfondire le capacita operative di ogni funzione con l'Help, nella pagina di scrittura codice, per tutti i comandi/ funzioni è possibile leggere tutti i paramenti di cui può essere alimentata la stessa, per poter fare ciò basta posizionare il cursore alla fine di ogni funzione e cliccare sulla barraspaziatrice apparirà una barra gialla contenente l'elenco dei parametri e man mano che li inserirete o scrorrete il cursore su quanto già inserito, gli stessi si evidenzieranno in grassetto.

un saluto

 

[Xeroxs]

Ciao, Claudio8,
Grazie anche per queste indicazioni preziose.

Volevo chiederti a tale proposito che avevo tentato di trovare certe cose nell'help ma non ci sono riuscito non trovo quanto tu hai esposto, ho provato ma non trovo le tue note prese dall'help, sbaglierò qualcosa certamente, il secondo appunto "Acapo" invece ok, appuntato per altri chiarimenti.

Grazie e Buon Sabato.

 

[joe]

Devi calcolare i colpi tra "Es" di gioca ... e "ultima del mese"

e limitare la giocata ai colpi residui.

Ma questo non è possibile se le estrazioni non sono ancora, state effettuate.

Al netto di presupporre quante potranno o potrebbero essere teoricamente,

Dovendo anche considerare che le estrazioni potrebbero essere posticipate al mese successivo.

O, all'anno dopo.

L' "errore" che potrebbe riassumersi nella la differenza tra

un dodicesimo e un tredicesimo ... è comunque secondo me trascurabile.

Minimo ... rispetto all'errore della divisione in mesi che non esistono.

Oppure esistono solo "nella testa" del giocatore.

Differenza che è una "frazione della frazione" di quanto può essere grande

lo scibile numerico. Per il resto ...

Avevo ed ho suggerito alcuni usi molto particolari e peculiari dell'istruzione scrivi.

Ho dato il consiglio anche di usarli con molta parsimonia.

Perché ripeto sono possibili solo con spaziometria ... e non è un problema.

Sono ANCHE molto-molto-molto pesanti.

Rallentano moltissimo e complicano moltissimo l'output.

Sono anche molto difficili da individuare, correggere cambiare.

Se si hanno delle buone ragioni e motivazioni, sono tempi ed energie ben spesi.

Giusto provare, provare, provare ... anche i consigli sbagliati.

 

[Xeroxs]

Grazie Joe,
Infatti lo userò solo in casi particolari per Testare delle idee da provare, ma è sempre utile vedere alternative anche magari complicate ma che aiutano a comprendere certe dinamiche, anche se a volte anomale.