Novità

x il sig. disaronno e per chi voglia aiutarmi

B

baikal

Super Member >PLATINUM<
salve sig. disaronno la disturbo in quanto lei ha già accontentato una mia richieste per le lotterie internazionali appena riusciremo a contsttarci le propongo la metodologia ideata dal sig. rosce14 se me lo consentirà
 
Ultima modifica:
CERCARE AD OGNI ESTRAZIONE X OGNI RUOTA LA DOPPIA FIG.( OGNI NUMERO HA LA SUA FIGURA)

ES: ESTRAZIONE DEL 24 12 12

FI 24 17 89 41 68// RELATIVE FIG. 6/ 8/ 8 /5 /5 COME VEDETE SONO PRESENTI LE DOPPIE FIG. 5/8.
SI FA LA SOMMA DELLE FIG. 5+8=13.
FI 13 AMBATA PRINCIPALE X ABBINAMENTO LE 2 FIG. CHE HANNO GENERATO IL PRONOSTICO 5 / 8.

PER METTERLA IN GIOCO LA REGOLA VUOLE CHE NELL'ESTRAZIONE DELLA RUOTA ESAMINATA NON SIA PRESENTE NESSUN NUMERETTO, E CHE LE AMBATE SIANO 2 E NON 3 (ES: XXX/YY)
 
le pubblico il listato per avere un idea del percorso per l'archivio e l'idea dello script
Codice: 
Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\Keeper\Desktop\Archivio baikal\Archivio 60s.txt",6,",")
Ini = 1
fin = EstrazioniArchivioFT
Tot = fin - Ini + 1
Scrivi " Statistica dal " & DataEstrazioneFT(Ini) & " al " & DataEstrazioneFT(Fin) & " ",1,0,6
Scrivi" ****** lotteria internazionale lottometrica by Disaronno******** ",1,0,3
Scrivi " totale sestine " &(Tot) & " ",1,- 1,4
Scrivi
ReDim at(10)
at(01) = " Casi "
at(02) = " Data Estrazione Pr."
at(03) = " Estratti Pr. "
at(04) = " Data Estrazione Suc."
at(05) = " Estratti Suc. "
at(06) = " Numeri in Gioco "
at(07) = " Esito "
at(08) = " Colpo "
at(09) = " R_Estratti "
at(10) = " Data Esito "
Call InitTabella(at,1,,2,5)
ReDim numeri(02)
co = 0
For ix = Ini To fin
Messaggio ix
AvanzamentoElab Ini,fin,ix
For p1 = 1 To 5
a = EstrattoFT(ix,p1)
For p2 = p1 + 1 To 6
b = EstrattoFT(ix,p2)
If b = a + 1 Or b = a - 1 Then
For ex = ix - 5 To ix - 1
For p3 = 1 To 5
c = EstrattoFT(ex,p3)
For p4 = p3 + 1 To 6
d = EstrattoFT(ex,p4)
If d = c + 1 Or d = c + 1 Then
If c = a + 1 Or c = b + 1 Then
If d = a + 1 Or d = b + 1 Then
ok = 0
If a = c Then numeri(01) = b:numeri(02) = d:ok = 1
If a = d Then numeri(01) = b:numeri(02) = c:ok = 1
If b = c Then numeri(01) = a:numeri(02) = d:ok = 1
If b = d Then numeri(01) = a:numeri(02) = c:ok = 1
If ok = 1 Then
co = co + 1
Call VerificaEsitoFT(numeri,ix + 1,1,30,esito,colpi,estratti,id)
ReDim av(10)
av(01) = co
av(02) = DataEstrazioneFT(ex)
av(03) = StringaEstrattiFT(ex)
av(04) = DataEstrazioneFT(ix)
av(05) = StringaEstrattiFT(ix)
av(06) = StringaNumeri(numeri)
If esito <> "" Then av(07) = esito
If esito <> "" Then av(08) = colpi & "°"
If esito <> "" Then av(09) = estratti
If esito <> "" Then av(10) = DataEstrazioneFT(id)
If esito = "" And colpi > 29 Then av(10) = " Negativo "
If esito = "" And colpi <= 29 Then av(10) = " In corso "
Call AddRigaTabella(av,,,2,,"arial black")
Call SetColoreCella(1,RGB(175,174,222),5)
Call SetColoreCella(3,RGB(252,237,240),0)
Call SetColoreCella(5,RGB(252,237,240),0)
Call SetColoreCella(6,RGB(164,242,249),0)
Call SetColoreCella(8,RGB(236,200,176),2)
Call SetColoreCella(9,RGB(175,239,173),2)
If DataEstrazioneFT(id) = DataEstrazioneFT(fin) Then Call SetColoreCella(10,4,1)
If esito = "" And colpi > 29 Then av(10) = " Negativo ":Call SetColoreCella(10,RGB(255,0,0),5)
If esito = "" And colpi <= 29 Then av(10) = " In corso ":Call SetColoreCella(10,RGB(255,255,102),5)
' ---------------- calcolo colpi -------------------------
If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
If esito <> "" And colpi = 11 Then clp11 = clp11 + 1
If esito <> "" And colpi = 12 Then clp12 = clp12 + 1
If esito <> "" And colpi = 13 Then clp13 = clp13 + 1
If esito <> "" And colpi = 14 Then clp14 = clp14 + 1
If esito <> "" And colpi = 15 Then clp15 = clp15 + 1
If esito <> "" And colpi = 16 Then clp16 = clp16 + 1
If esito <> "" And colpi = 17 Then clp17 = clp17 + 1
If esito <> "" And colpi = 18 Then clp18 = clp18 + 1
If esito <> "" And colpi = 19 Then clp19 = clp19 + 1
If esito <> "" And colpi = 20 Then clp20 = clp20 + 1
If esito <> "" And colpi = 21 Then clp21 = clp21 + 1
If esito <> "" And colpi = 22 Then clp22 = clp22 + 1
If esito <> "" And colpi = 23 Then clp23 = clp23 + 1
If esito <> "" And colpi = 24 Then clp24 = clp24 + 1
If esito <> "" And colpi = 25 Then clp25 = clp25 + 1
If esito <> "" And colpi = 26 Then clp26 = clp26 + 1
If esito <> "" And colpi = 27 Then clp27 = clp27 + 1
If esito <> "" And colpi = 28 Then clp28 = clp28 + 1
If esito <> "" And colpi = 29 Then clp29 = clp29 + 1
If esito <> "" And colpi > 0 And colpi < 29 Then clptot = clptot + 1
If esito = "" And colpi < 29 Then clpcorso = clpcorso + 1
If colpi >= 29 Then clp30 = clp30 + 1
'---------------------------------------------------------
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Call SetTableWidth("100%")
CreaTabella()
ReDim att(33)
att(01) = " Colpo 1 "
att(02) = " Colpo 2 "
att(03) = " Colpo 3 "
att(04) = " Colpo 4 "
att(05) = " Colpo 5 "
att(06) = " Colpo 6 "
att(07) = " Colpo 7 "
att(08) = " Colpo 8 "
att(09) = " Colpo 9 "
att(10) = " Colpo 10 "
att(11) = " Colpo 11 "
att(12) = " Colpo 12 "
att(13) = " Colpo 13 "
att(14) = " Colpo 14 "
att(15) = " Colpo 15 "
att(16) = " Colpo 16 "
att(17) = " Colpo 17 "
att(18) = " Colpo 18 "
att(19) = " Colpo 19 "
att(20) = " Colpo 20 "
att(21) = " Colpo 21 "
att(22) = " Colpo 22 "
att(23) = " Colpo 23 "
att(24) = " Colpo 24 "
att(25) = " Colpo 25 "
att(26) = " Colpo 26 "
att(27) = " Colpo 27 "
att(28) = " Colpo 28 "
att(29) = " Colpo 29 "
att(30) = " Totale Casi "
att(31) = " Casi Positivi "
att(32) = " Casi Negativi "
att(33) = " Casi in Corso "
Call InitTabella(att,2,,3,4)
ReDim avv(33)
avv(01) = clp1
avv(02) = clp2
avv(03) = clp3
avv(04) = clp4
avv(05) = clp5
avv(06) = clp6
avv(07) = clp7
avv(08) = clp8
avv(09) = clp9
avv(10) = clp10
avv(11) = clp11
avv(12) = clp12
avv(13) = clp13
avv(14) = clp14
avv(15) = clp15
avv(16) = clp16
avv(17) = clp17
avv(18) = clp18
avv(19) = clp19
avv(20) = clp20
avv(21) = clp21
avv(22) = clp22
avv(23) = clp23
avv(24) = clp24
avv(25) = clp25
avv(26) = clp26
avv(27) = clp27
avv(28) = clp28
avv(29) = clp29
avv(30) = co
avv(31) = clptot
avv(32) = clp30
avv(33) = clpcorso
Call AddRigaTabella(avv,4,,3,2)
Call SetTableWidth("100%")
Call CreaTabella()
'Scrivi
End Sub
 
Ultima modifica:
Sig.disaronno si sono io il proprietario del pc ma ho solo nominato la macchia keeper ma non ho nulla a che fare aprii tempo fa un pó per sapere con ribtracciarlo ma nulla non si é fatto vivo pur essendo stato riammesso proverò il listato e le faró sapere. X il momento tante grazie
 
Ultima modifica:
buon pomeriggio ho provato lo script e funziona si potrebbe implementare anche il conteggio dei casi e le relative sortite nel senso 1 colpo sortite sei ambate e 3 ambi
2 colpo ecc. ecc. e poi i casi negativi per avere una sorta di riepilogo.grazie
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 06 maggio 2025
    Bari
    06
    44
    88
    74
    39
    Cagliari
    72
    46
    55
    69
    07
    Firenze
    84
    82
    56
    39
    05
    Genova
    77
    53
    57
    42
    49
    Milano
    40
    71
    11
    02
    64
    Napoli
    12
    78
    75
    59
    38
    Palermo
    16
    47
    26
    56
    05
    Roma
    20
    19
    55
    01
    72
    Torino
    54
    83
    78
    71
    41
    Venezia
    71
    41
    55
    35
    63
    Nazionale
    46
    52
    67
    78
    59
    Estrazione Simbolotto
    Milano
    34
    21
    07
    16
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto