Novità

Per Salvo modifica script

Ciao Raga,nello script in questione ci sono istruzioni di codici che però non si parlano fra loro.
i codici per la distribuzione degli esiti danno le giocate elencate per i vari colpi di esito e hanno una sua funzionalità per la visione di essi.

Poi però hanno anche bisogno del codice impostaGiocate e Gioca ES e qui avevo suggerito di mettere l'attesa ossia dopo quanti colpi iniziare la verifica.
Per questi nuovi codici di distribuzioneEsiti era stato consigliato di mettere False al Gioca Es proprio per non far scrivere le giocate elencate per estrazioni, altrimenti si hanno in output tanti dati, dai quali poi non si sa quali preferire.

Bisogna fare delle scelte o sapere poi leggere bene i dati in output.

Elenco giocate,Tabella,elencogiocate per distribuzione esiti è chiaro che tutto insieme creano confusione.

Ciao
 
Mike58;n2129031 ha scritto:
Ciao Raga,nello script in questione ci sono istruzioni di codici che però non si parlano fra loro.
i codici per la distribuzione degli esiti danno le giocate elencate per i vari colpi di esito e hanno una sua funzionalità per la visione di essi.

Poi però hanno anche bisogno del codice impostaGiocate e Gioca ES e qui avevo suggerito di mettere l'attesa ossia dopo quanti colpi iniziare la verifica.
Per questi nuovi codici di distribuzioneEsiti era stato consigliato di mettere False al Gioca Es proprio per non far scrivere le giocate elencate per estrazioni, altrimenti si hanno in output tanti dati, dai quali poi non si sa quali preferire.

Bisogna fare delle scelte o sapere poi leggere bene i dati in output.

Elenco giocate,Tabella,elencogiocate per distribuzione esiti è chiaro che tutto insieme creano confusione.

Ciao
Clicca per espandere...

Ciao Mike, meno male che hai dato una spiegazione, perchè io mi ero perso
 
Ciao Salvo e Mike a me va bene lo script modificato da Mike ma non riesco a capire tra i due script c'è qualcosa che non va vi allego le immagini.Ciao a tutti e due e scusate se insisto per me è una cosa importante grazie.

Cattura.PNG
 

Allegati

  • primo script.jpg
    primo script.jpg
    75,8 KB · Visite: 0
Ultima modifica:
Ciao a Tutti

Ciao Chicco

Guardando le due immagini, la prima cosa che mi salta all'occhio è che, nella prima immagine la prima ruota è quella di Firenze e la seconda ruota è quella di Genova.

Nella seconda immagine prima e seconda ruota, sono tutte e due di Genova, quindi ne deduco che anche se i numeri sono uguali si tratta di un'altra estrazione, in questo caso la data può essere anche diversa
 
Ciao Salvo, vedi anche che la seconda immagine è la 9517 su Genova ,ma come è possibile se la ricerca della previsione è su due ruote e ne da solo una in pratica dovrebbe darne due perche la ricerca è su due ruote e poi è elaborata il 30.8.2018 e il 59 è uscito la stessa data su firenze se vedi la prima immagine che quella va bene in teoria non dovrebbe darla come pronostico. Va be mi arrendo.Ragazzi come non detto la cosa non è fattibile.Vi ringrazio sia te che Mike che fate i miracoli x noi Ciao e Buona giornata chicco
 
chicco3;n2129143 ha scritto:
Ciao Salvo, vedi anche che la seconda immagine è la 9517 su Genova ,ma come è possibile se la ricerca della previsione è su due ruote e ne da solo una in pratica dovrebbe darne due perche la ricerca è su due ruote e poi è elaborata il 30.8.2018 e il 59 è uscito la stessa data su firenze se vedi la prima immagine che quella va bene in teoria non dovrebbe darla come pronostico. Va be mi arrendo.Ragazzi come non detto la cosa non è fattibile.Vi ringrazio sia te che Mike che fate i miracoli x noi Ciao e Buona giornata chicco
Clicca per espandere...

Se tu sin dall'inizio avessi detto che la differenza era nelle ruote, invece di dire che era incasinato, si sarebbe risolto subito.
Cosa faccio io mi metto a controllare tutto lo script, se c'è un errore ed io non sò qual'è l'errore, ci metterò un mucchio di tempo a trovarlo, io ho anche altre cose da fare.

Praticamente ho dimenticato a mettere la seconda ruota, negli script postati da me l'ho aggiunta, questo è quello postato da Mike con la seconda ruota

Codice: 
'Metodo chiesto da JURI per numeretti e da Miki55 per gli zerati
'Si cercano 2 numeretti stessa Posizione su 2 ruote.
'Poi si uniscono le cifre e la prima ambata principale e
'il vertibile la secondaria. Lo stesso con gli zerati,
'si prendono solo le cifre delle decine.
'Visualizzazione in tabella
'Script by Salvo50
Option Explicit
Dim R1,P1,P2,P3,Es,R2,Ess
Dim Ru(2),Num2(2),DoE
Dim Salvo50,Ini,FIn,Ind,Tutti,OK,Clp
Dim A,B,C,D,E1,E2,CaA,CaB,DeA,DeB,Amb,VAmb
Dim RetEsito,RetColpi,RetEstratti,RetId,posta(1)
Sub Main
   FIn = EstrazioneFin
   Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",Salvo50,100))
   Clp = CInt(InputBox("Per quanti colpi?",Salvo50,3))
   DoE = CInt(InputBox("Dopo quante estrazioni deve iniziare il controllo?",Salvo50,5))
   Ini = FIn - Ind
   posta(1) = 1
   ReDim aT(8)
   aT(1) = " Data Estraz. INIZIO  "
   aT(2) = " Data Inizio Controllo"
   aT(3) = " Ruota "
   aT(4) = " Numeri in Gioco "
   aT(5) = " Esito "
   aT(6) = " Colpo "
   aT(7) = " Estratti "
   aT(8) = " Data estraz. Fine "
   Call InitTabella(aT,1,,3,5)
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      'Scrivi
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               DeA = Decina(A) : DeB = Decina(B) : CaA = Cadenza(A) : CaB = Cadenza(B)
               If(CaA = 0 And CaB = 0) Or(DeA = 0 And DeB = 0) Then
                  OK = 0
                  If(CaA = 0 And CaB = 0) Then
                     Amb = DeA & DeB
                     If Amb > 90 Then
                        Amb = 0 & DeB
                     End If
                     OK = 1
                  End If
                  If(DeA = 0 And DeB = 0) Then
                     Amb = CaA & CaB
                     If Amb > 90 Then
                        Amb = 0 & CaB
                     End If
                     OK = 1
                  End If
                  If OK = 1 Then
                     VAmb = Vert(Amb)
                     Num2(1) = Amb
                     Num2(2) = VAmb
                     Ru(1) = R1
                     Ru(2) = R2
                     Ess = Es + DoE
                     If Ess > FIn Then Ess = FIn
                     Call VerificaEsito(Num2,Ru,Ess,1,Clp,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                     '--------------------------------------------------------------------------------------
                     ImpostaGiocata 1,Num2,Ru,posta,3,1
                     Gioca Ess,,,,,True
                     '--------------------------------------------------------------------------------------
                     ReDim av(8)
                     av(1) = DataEstrazione(Es)
                     av(2) = DataEstrazione(Ess)
                     av(3) = NomeRuota(R1)
                     av(4) = StringaNumeri(Num2)
                     av(5) = RetEsito
                     av(6) = RetColpi
                     av(7) = RetEstratti
                     If RetEsito = "" Then av(8) = " esito non verificato "
                     If RetEsito <> "" Then av(8) = DataEstrazione(RetId)
                     Call AddRigaTabella(av,,,3)
                  End If
               End If
            Next
         Next
      Next
   Next
   Call CreaTabella
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub
 
Ultima modifica:
Ciao Chicco, Salvo, secondo me le istruzioni non sono perfettamente sincronizzate, elaborerebbero tutte e 2 le istruzioni la stessa cosa, ma causa attesa non sincronizzata elencano date differenti.
Andrebbe riletto meglio e cercare di sincronizzare l'attesa, forse così i 2 codici non si parlano.

Intanto allo script di Salvo che ho copiato manca la ruota 2 da dichiarare come Ru(2) = R2, poi rimane da sincronizzare l'attesa.

Ad ora ho poco tempo ma consiglierei di impostare la giocata con L'attesa e per tutti i colpi in esame e vedere se si sincronizza con gli altri codici.

Per ora un ciao.
 
Secondo me per valutare al meglio tutti i dati dello script è consigliabile far operare lo script su tutti i colpi in esame e mettere un controllo visivo per l'attesa.

Poi valuta tu chicco, (l'impossibile non si può fare)

Codice: 
'Metodo chiesto da JURI per numeretti e da Miki55 per gli zerati
'Si cercano 2 numeretti stessa Posizione su 2 ruote.
'Poi si uniscono le cifre e la prima ambata principale e
'il vertibile la secondaria. Lo stesso con gli zerati,
'si prendono solo le cifre delle decine.
'Visualizzazione in tabella
'Script by Salvo50
Option Explicit
Dim R1,P1,P2,P3,Es,R2,Ess,x
Dim Ru(2),Num2(2),DoE
Dim Salvo50,Ini,FIn,Ind,Tutti,OK,Clp
Dim A,B,C,D,E1,E2,CaA,CaB,DeA,DeB,Amb,VAmb
Dim RetEsito,RetColpi,RetEstratti,RetId,posta(1)
Sub Main
   FIn = EstrazioneFin
   Ind = CInt(InputBox("Quante estrazioni vuoi controllare?","Salvo50",10))
   Clp = CInt(InputBox("Per quanti colpi?","Salvo50",7))
   DoE = CInt(InputBox("Dopo quante estrazioni deve iniziare il controllo?","Salvo50",1))
   Ini = FIn - Ind
   posta(1) = 1
   ReDim aT(10)
   aT(1) = " Data Estraz. INIZIO  "
   aT(2) = " Data Inizio Controllo"
   aT(3) = " Ruota "
   aT(4) = " Numeri in Gioco "
   aT(5) = " Esito "
   aT(6) = " Colpo "
   aT(7) = " Estratti "
   aT(8) = " Data estraz. Fine "
   aT(9) = " Valido x Attesa"
   aT(10) = " In Corso - In Attesa"
   Call InitTabella(aT,1,,3,5)
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      'Scrivi
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               DeA = Decina(A) : DeB = Decina(B) : CaA = Cadenza(A) : CaB = Cadenza(B)
               If(CaA = 0 And CaB = 0) Or(DeA = 0 And DeB = 0) Then
                  OK = 0
                  If(CaA = 0 And CaB = 0) Then
                     Amb = DeA & DeB
                     If Amb > 90 Then
                        Amb = 0 & DeB
                     End If
                     OK = 1
                  End If
                  If(DeA = 0 And DeB = 0) Then
                     Amb = CaA & CaB
                     If Amb > 90 Then
                        Amb = 0 & CaB
                     End If
                     OK = 1
                  End If
                  If OK = 1 Then
                     VAmb = Vert(Amb)
                     Num2(1) = Amb
                     Num2(2) = VAmb
                     Ru(1) = R1
                     Ru(2) = R2
                     Ess = Es + DoE
                     If Ess > FIn Then Ess = FIn
                     Call VerificaEsito(Num2,Ru,Es + 1,1,Clp,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                     '--------------------------------------------------------------------------------------
                     ImpostaGiocata 1,Num2,Ru,posta,7,1
                     Gioca Es,,,,,False ' false per non scrivere le giocate essendo elencate in
                     '--------------------------------------------------------------------------------------
                     ReDim av(10)
                     av(1) = Es & " - " & DataEstrazione(Es)
                     av(2) = GetInfoEstrazione(Es)
                     av(3) = StringaRuote(Ru)
                     av(4) = StringaNumeri(Num2)
                     av(5) = RetEsito
                     av(6) = RetColpi
                     av(7) = RetEstratti
                     If RetEsito = "" Then av(8) = " esito non verificato "
                     If RetEsito <> "" Then av(8) = DataEstrazione(RetId)
                     If RetEsito = "" And Clp > 4 Then
                        av(9) = Clp - RetColpi
                     Else
                        av(9) = ""
                     End If
                     If RetEsito = "" And RetColpi > 4 Then av(10) = "In Corso"
                     If RetEsito = "" And RetColpi <= 4 Then av(10) = "In Attesa"
                     If RetEsito <> "" Then av(10) = ""
                     If RetEsito = "" And Clp - RetColpi = 0 Then av(10) = "Negativo"
                     Call AddRigaTabella(av,,,3)
                     For x = 1 To 10
                        If av(10) = "In Corso" Then Call SetColoreCella((x),3,1)
                        If av(10) = "In Attesa" Then Call SetColoreCella((x),7,5)
                     Next
                  End If
               End If
            Next
         Next
      Next
   Next
   Call SetTableWidth("100%")
   Call CreaTabella
   ScriviDistribuzioneEsiti(False) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub
 
chicco3;n2129176 ha scritto:
Ciao Salvo lo provato e da errore in questa riga. Ciao


(Num2,Ru,Ess,1,Clp,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
Clicca per espandere...

E' perchè quando ho fatto il copia e incolla si sono creati degli spazi, adesso ho tolto gli spazi, prova a riprenderlo, prova anche l'ultimo di mike
 
Ciao Salvo e Mike volevo chiedere si riesce a mettere un filtraggio dei numeri in base al ritardo, frequenza,I.C. e colpi di gioco come da immagine allegata.La modifica dello script è nel primo post di Salvo. Ringrazio tutti e due e buon inizio settimana.Ciao Chicco
Immagine.jpg
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto