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ì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto