Novità

Domanda Tecnica (Ultima Estrazione Mese)

Xeroxs

Super Member >PLATINUM<
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

Advanced Member >PLATINUM PLUS<
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

Super Member >PLATINUM<
Ciao Claudio8,

Questo è il listato, un esempio

Codice:
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

Advanced Member >PLATINUM PLUS<
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


Codice:
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
 
Ultima modifica:

Xeroxs

Super Member >PLATINUM<
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

Advanced Member >PLATINUM PLUS<
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 = FalseBooleano specifica se impostare il grassetto
Optional ACapo = TrueBooleano manda a capo per la prossima riga
Optional HighlightColor = -1Colore di sfondo del testo
Optional TextColor = -1Colore del testo
Optional Dimensione = 2Dimensione del font
Optional sFontName = "Courier New"Nome del font
Optional bSottolineato = FalseBooleano specifica se il testo è sottolineato
Optional bBarrato = FalseBooleano specifica se il testo è barrato
Optional bItalic = FalseBooleano 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

Super Member >PLATINUM<
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

Advanced Member >PLATINUM<
Joe NON ha scritto:
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

Super Member >PLATINUM<
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.

;) :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    Saturday 17 October 2020
    Bari
    47
    24
    50
    84
    17
    Cagliari
    19
    11
    50
    89
    68
    Firenze
    44
    07
    43
    23
    11
    Genova
    27
    24
    60
    34
    05
    Milano
    27
    31
    10
    14
    47
    Napoli
    21
    40
    24
    68
    85
    Palermo
    67
    04
    11
    63
    49
    Roma
    28
    32
    49
    81
    72
    Torino
    50
    28
    40
    22
    18
    Venezia
    21
    49
    29
    47
    12
    Nazionale
    90
    32
    20
    10
    63
    Estrazione Simbolotto
    33
    13
    15
    14
    05

Ultimi Messaggi

Alto