Novità

PER DANILO

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Salve Danilo , stavo analizzando i suoi due listati sui terni di somma , ma l'elaborazione arriva fino al Dicembre 2005 , cosa devo modificare per arrivare sino all'estrazione finale ?

Saluti:):):);)


Kant


La mente è come un paracadute, funziona solo se si apre.
A.Einstein
 
Ciao Danilo eccone uno , si ferma a Dicembre 2005 ed in + nn evidenzia le ruote , sia di rilevamento che di esito.
Se puoi fare qualcosa ti ringrazio fin d'ora , lo stesso dicasi per la somma 108.

Buona giornata.


Sub main()
Dim numeri1(12)
Dim numeri2(12)
Dim numeri3(12)
Dim numeri4(12)
Dim numeri5(12)
Dim numeri6(12)
Dim numeri7(12)
ini=EstrazioneIni(2)
fin=EstrazioneFin(2)
cn=0
For i = ini To fin
Messaggio CStr(i)
sp=0
For x1=1 To 4
For x2=x1+1 To 5
For x3=x2+1 To 6
n1=Estratto(i,,x1,2)
n2=Estratto(i,,x2,2)
n3=Estratto(i,,x3,2)
zz=n1+n2+n3
If zz=105 Then sp=1 End If
Next
Next
Next
If sp=1 Then
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione (i, True,2) & " Previsione valida ESITO:"
ct=ct+1
fi=i+7
If fi =>fin Then fi=fin End If
numeri1(1)=3
numeri1(2)=25
am1=SerieFreq(i+1,fi,numeri1,,1,2) 'ambate
numeri6(1)=3
numeri6(2)=31
numeri6(3)=37
am10=SerieFreq(i+1,fi,numeri6,,3,2)
am21=SerieFreq(i+1,fi,numeri6,,2,2)
numeri7(1)=25
numeri7(2)=19
numeri7(3)=21
am11=SerieFreq(i+1,fi,numeri7,,3,2)
am22=SerieFreq(i+1,fi,numeri7,,2,2)
am6=am1+am21+am22+am10+am11
am8=am21+am22 'ambi
am7=am7+am8 'ambi totali
am9=am9+am1 'ambate totali
am12=am10+am11 'terni
am13=am13+am12 'terni totali
If am6<1 Then
ColoreTesto 2
Scrivi "Giocata del " & DataEstrazione (i, True,2) & " CASO NEGATIVO"
ColoreTesto 0
Else
Scrivi "Ambate --> " & am1 & " Ambi --> " & am8 & " Terni --> " & am12
End If
If am1>0 Then
Scrivi StringaNumeri(numeri1)&" Ambata",1
End If
If am21>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri6)&" Ambo",1 : ColoreTesto 0
End If
If am22>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri7)&" Ambo",1 : ColoreTesto 0
End If
If am10>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri6)& " Terno",1 : ColoreTesto 0
End If
If am11>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri7)& " Terno",1 : ColoreTesto 0
End If
If am6<1 Then
cn=cn+1
End If
End If
Next
ColoreTesto 1 :
Scrivi "************************************************",1
Scrivi "************ RESOCONTO TOTALE ***************",1 : ColoreTesto 0
Scrivi "CASI TOTALI : " & ct,1
Scrivi "CASI POSITIVI : " & (ct-cn)
ColoreTesto 2 : Scrivi "CASI NEGATIVI : " & cn : ColoreTesto 0
Scrivi " AMBATE = " & am9,1
Scrivi " AMBI = " & am7,1
Scrivi " TERNI = " & am13,1
Scrivi : Scrivi "Poste 1€ per AMBATA, AMBO e TERNO",1
sp=70 * ct
ip=6 * am9
im=50 * am7
it=500*am13
ii=ip + im + it
gu=ii-sp
Scrivi "SPESE : " & FormatSpace(sp,5) & " €"
Scrivi "INCASSI : " & FormatSpace(ii,5) & " €"
Scrivi "GUADAGNO : " & FormatSpace(gu,5) & " €",1
End Sub









Kant


La mente è come un paracadute, funziona solo se si apre.
A.Einstein
 
Ciao Danilo eccone uno , si ferma a Dicembre 2005 ed in + nn evidenzia le ruote , sia di rilevamento che di esito.
Se puoi fare qualcosa ti ringrazio fin d'ora , lo stesso dicasi per la somma 108.

Buona giornata.


Sub main()
Dim numeri1(12)
Dim numeri2(12)
Dim numeri3(12)
Dim numeri4(12)
Dim numeri5(12)
Dim numeri6(12)
Dim numeri7(12)
ini=EstrazioneIni(2)
fin=EstrazioneFin(2)
cn=0
For i = ini To fin
Messaggio CStr(i)
sp=0
For x1=1 To 4
For x2=x1+1 To 5
For x3=x2+1 To 6
n1=Estratto(i,,x1,2)
n2=Estratto(i,,x2,2)
n3=Estratto(i,,x3,2)
zz=n1+n2+n3
If zz=105 Then sp=1 End If
Next
Next
Next
If sp=1 Then
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione (i, True,2) & " Previsione valida ESITO:"
ct=ct+1
fi=i+7
If fi =>fin Then fi=fin End If
numeri1(1)=3
numeri1(2)=25
am1=SerieFreq(i+1,fi,numeri1,,1,2) 'ambate
numeri6(1)=3
numeri6(2)=31
numeri6(3)=37
am10=SerieFreq(i+1,fi,numeri6,,3,2)
am21=SerieFreq(i+1,fi,numeri6,,2,2)
numeri7(1)=25
numeri7(2)=19
numeri7(3)=21
am11=SerieFreq(i+1,fi,numeri7,,3,2)
am22=SerieFreq(i+1,fi,numeri7,,2,2)
am6=am1+am21+am22+am10+am11
am8=am21+am22 'ambi
am7=am7+am8 'ambi totali
am9=am9+am1 'ambate totali
am12=am10+am11 'terni
am13=am13+am12 'terni totali
If am6<1 Then
ColoreTesto 2
Scrivi "Giocata del " & DataEstrazione (i, True,2) & " CASO NEGATIVO"
ColoreTesto 0
Else
Scrivi "Ambate --> " & am1 & " Ambi --> " & am8 & " Terni --> " & am12
End If
If am1>0 Then
Scrivi StringaNumeri(numeri1)&" Ambata",1
End If
If am21>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri6)&" Ambo",1 : ColoreTesto 0
End If
If am22>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri7)&" Ambo",1 : ColoreTesto 0
End If
If am10>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri6)& " Terno",1 : ColoreTesto 0
End If
If am11>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri7)& " Terno",1 : ColoreTesto 0
End If
If am6<1 Then
cn=cn+1
End If
End If
Next
ColoreTesto 1 :
Scrivi "************************************************",1
Scrivi "************ RESOCONTO TOTALE ***************",1 : ColoreTesto 0
Scrivi "CASI TOTALI : " & ct,1
Scrivi "CASI POSITIVI : " & (ct-cn)
ColoreTesto 2 : Scrivi "CASI NEGATIVI : " & cn : ColoreTesto 0
Scrivi " AMBATE = " & am9,1
Scrivi " AMBI = " & am7,1
Scrivi " TERNI = " & am13,1
Scrivi : Scrivi "Poste 1€ per AMBATA, AMBO e TERNO",1
sp=70 * ct
ip=6 * am9
im=50 * am7
it=500*am13
ii=ip + im + it
gu=ii-sp
Scrivi "SPESE : " & FormatSpace(sp,5) & " €"
Scrivi "INCASSI : " & FormatSpace(ii,5) & " €"
Scrivi "GUADAGNO : " & FormatSpace(gu,5) & " €",1
End Sub









Kant


La mente è come un paracadute, funziona solo se si apre.
A.Einstein
 
Questo listato è fatto per il lotto estero, in questa versione per l'Irlanda,


non visualizza nessuna ruota di rilevqamento o di gioco proprio perchè non c'è

come archivio invece arriva fino alle ultime estrazioni in cui trova la condizione,

questo è uno stralcio del resoconto che stampa:

-----------------------------------------------
sab 11.06.2005 Previsione valida ESITO:
Ambate --> 3 Ambi --> 2 Terni --> 0
03.25 Ambata
03.31.37 Ambo
25.19.21 Ambo
-----------------------------------------------
mer 03.08.2005 Previsione valida ESITO:
Ambate --> 1 Ambi --> 1 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
mer 07.12.2005 Previsione valida ESITO:
Ambate --> 3 Ambi --> 2 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
sab 03.06.2006 Previsione valida ESITO:
Ambate --> 2 Ambi --> 1 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
mer 12.07.2006 Previsione valida ESITO:
Giocata del mer 12.07.2006 CASO NEGATIVO
************************************************
************ RESOCONTO TOTALE ***************
CASI TOTALI : 65
CASI POSITIVI : 64
CASI NEGATIVI : 1
AMBATE = 153
AMBI = 92
TERNI = 9


naturalmente funziona con L8 versione 6.17

ciao danilo



Danilo by cs1
 
Questo listato è fatto per il lotto estero, in questa versione per l'Irlanda,


non visualizza nessuna ruota di rilevqamento o di gioco proprio perchè non c'è

come archivio invece arriva fino alle ultime estrazioni in cui trova la condizione,

questo è uno stralcio del resoconto che stampa:

-----------------------------------------------
sab 11.06.2005 Previsione valida ESITO:
Ambate --> 3 Ambi --> 2 Terni --> 0
03.25 Ambata
03.31.37 Ambo
25.19.21 Ambo
-----------------------------------------------
mer 03.08.2005 Previsione valida ESITO:
Ambate --> 1 Ambi --> 1 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
mer 07.12.2005 Previsione valida ESITO:
Ambate --> 3 Ambi --> 2 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
sab 03.06.2006 Previsione valida ESITO:
Ambate --> 2 Ambi --> 1 Terni --> 0
03.25 Ambata
25.19.21 Ambo
-----------------------------------------------
mer 12.07.2006 Previsione valida ESITO:
Giocata del mer 12.07.2006 CASO NEGATIVO
************************************************
************ RESOCONTO TOTALE ***************
CASI TOTALI : 65
CASI POSITIVI : 64
CASI NEGATIVI : 1
AMBATE = 153
AMBI = 92
TERNI = 9


naturalmente funziona con L8 versione 6.17

ciao danilo



Danilo by cs1
 
Grazie Danilo.

Buona giornata.:):):);)


Kant


La mente è come un paracadute, funziona solo se si apre.
A.Einstein
 
Grazie Danilo.

Buona giornata.:):):);)


Kant


La mente è come un paracadute, funziona solo se si apre.
A.Einstein
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto