BaffoBlù
Advanced Member >PLATINUM<
Ricerca Verticale Mensile
Salve a tutti
La pionieristica nel lotto è sempre stata una mia priorità,
ma non sono uno scripter di qualità, con tutte le limitazione che questo comporta...
Questa sera vi parlo della ricerca verticale mensile
tramite un occhio diverso, ma in fondo non tanto.
Quello che cerco di fare è portare le stesse regole di ricerca del lotto classico,
(ove ciò fosse possibile...), nella ricerca verticale mensile nei limiti del possibile.
Questo script è solo lo scheletro base della ricerca verticale mensile...
Parte tutto da uno script modificato da maldor e rimodificato da me
lo script (funzionante) non è tuttavia completo...
Aiuto...
vorrei arrivare a fare le cose che faccio con le immagini che vedrete in basso dopo lo script...
(portare il Verticale in Orizzontale come le immagini sarebbe carino...magari in tabelle...)
le immagini sono solo un esempio di tutto quello che si potrebbe visionare "Diversamente"...
Non lo so come andrà a finire...Ma forse in futuro ci sarà bisogno di funzioni apposite...
fate girare, così vi rendete conto fin dove...e poi mi blocco per la somma verticale giusta
non andando più avanti...
**********************************************************
Salve a tutti
La pionieristica nel lotto è sempre stata una mia priorità,
ma non sono uno scripter di qualità, con tutte le limitazione che questo comporta...
Questa sera vi parlo della ricerca verticale mensile
tramite un occhio diverso, ma in fondo non tanto.
Quello che cerco di fare è portare le stesse regole di ricerca del lotto classico,
(ove ciò fosse possibile...), nella ricerca verticale mensile nei limiti del possibile.
Questo script è solo lo scheletro base della ricerca verticale mensile...
Parte tutto da uno script modificato da maldor e rimodificato da me
lo script (funzionante) non è tuttavia completo...
Aiuto...
vorrei arrivare a fare le cose che faccio con le immagini che vedrete in basso dopo lo script...
(portare il Verticale in Orizzontale come le immagini sarebbe carino...magari in tabelle...)
le immagini sono solo un esempio di tutto quello che si potrebbe visionare "Diversamente"...
Non lo so come andrà a finire...Ma forse in futuro ci sarà bisogno di funzioni apposite...
fate girare, così vi rendete conto fin dove...e poi mi blocco per la somma verticale giusta
non andando più avanti...
Codice:
Option Explicit
Sub Main
Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
Dim es,r,j,esj,ini,fin,co,se,sv
Dim ruota(11)
ruota(1) = r
ini = 10000 ' Inizio 2022 Circa
Ultimo_indice = IndiceMensile(EstrazioneFin)
If IsUltimaDelMese(EstrazioneFin) Then
fin = EstrazioneFin
Else
fin = EstrazioneFin - Ultimo_indice
End If
ResetTimer
For r = 1 To 11
If r = 11 Then r = 12
co = 0
Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
Scrivi
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
Call AvanzamentoElab(ini,fin,es)
If IndiceMensile(es) = 1 Then
Erase Vet_Controllo
Erase Vet_ripetuti
Erase Mat_estr_mod
For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj,r,pos)
Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
Mat_estr_mod(j,pos) = Num
Next
If IsUltimaDelMese(esj) Then Exit For
Next
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi " 1° . 2° . 3° . 4° . 5° . ",,,,2,2
For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj,r,pos)
If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = " "
Next
Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
If IsUltimaDelMese(esj) Then Exit For
Next
conta = 0
For k = 1 To 90
For kk = 1 To 5
If Vet_Controllo(k,kk) > 1 Then
conta = conta + 1
Vet_ripetuti(conta) = k
End If
Next
Next
EliminaRipetuti Vet_ripetuti
ReDim aNum(conta)
Scrivi
Scrivi "Numeri ripetuti isotopi"
For Nr = 1 To conta
If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
aNum(Nr) = Vet_ripetuti(Nr)
Scrivi Format2(aNum(Nr)) & ".",1,False
End If
Next
Scrivi
If esj + 1 > EstrazioneFin Then Exit For
'
Scrivi String(70,"-"),1
For j = 0 To 20
esj = es + j
se = Fuori90(Estratto(esj,r,1) + Estratto(esj,r,2) + Estratto(esj,r,3) + Estratto(esj,r,4) + Estratto(esj,r,5))
Scrivi DataEstrazione(esj) & " * " & " Somma Estratti : " & Estratto(esj,r,1) + Estratto(esj,r,2) + Estratto(esj,r,3) + Estratto(esj,r,4) + Estratto(esj,r,5) & " * Fuori 90 = " & Format2(se),1,,,,2
If IsUltimaDelMese(esj) = True Then Exit For
Next
Scrivi String(50,"-"),1
For j = 0 To 20
esj = es + j
Scrivi DataEstrazione(esj) & " - " & "1° Estratto : " & Format2(Estratto(esj,r,1)),1,,,1,2
If IsUltimaDelMese(esj) = True Then Exit For
Next
For j = 0 To 19
esj = es + j
'sv = SommaEstratti(Estratto(esj,r,1))
If IsUltimaDelMese(esj) = True Then Exit For
Next
Scrivi String(50,"-"),1
Scrivi "Somma Verticale 1° Estratti : " & sv,1,,,1,2
Scrivi String(70,"-"),1
Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
Scrivi String(75,"°"),1
Scrivi
End If
Next
Next
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
End Sub**********************************************************
