Novità

Aiuto per Script

salvo14

Super Member >PLATINUM<
OGNI QUALVOLTA IL 1° ESTRATTO DI BARI LA FIGURA E' 6 ALLORA LO SCRIPT DEVE SVILUPPARE 5 QUATERNE CLP 15

AL PRIMO DI BARI SOMMARE I SEGUENTI NUMERI PER FORMARE 5 QUATERNE



1Q 7 40 57 68

2Q 39 60 71 79

3Q 24 50 51 57

4Q 14 45 56 83

5Q 24 30 39 84



IL GIOCO SI SVOLGE NELLA STESSA ESTRAZIONE DI BARI.

N.B LA SOMMA DI OGNI SINGOLO NUMERO SI SOMMA AL PRIMO ESTRATTO DI BARI CHE HA DATO LA FIGURA 6 E NON ALLA SUA FIGURA.

Lo Script funziona, solo che calcola la previsione ad ogni estrazione e non quando cè la condizione della figura 6.




Sub Main()
ColoreTesto 1
Dim poste(1)
Dim ruota(1)
Dim a1(4)
poste(1) = 1
clp = 15
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
ColoreTesto 0 :Scrivi " FARE LA FIGURA DEL PRIMO ESTRATTO DI BARI CHE DEVE ESSERE 6 CLP 15 ",1,1,1,4,4,"verdana",1
Scrivi
If Figura(Estratto(Estrazione,BA_,1)) = 6 Then
End If

a1(1) = Fuori90(Estratto(es,1,1) + 7)
a1(2) = Fuori90(Estratto(es,1,1) + 40)
a1(3) = Fuori90(Estratto(es,1,1) + 57)
a1(4) = Fuori90(Estratto(es,1,1) + 68)
ImpostaGiocata 1,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 39)
a1(2) = Fuori90(Estratto(es,1,1) + 60)
a1(3) = Fuori90(Estratto(es,1,1) + 71)
a1(4) = Fuori90(Estratto(es,1,1) + 79)
ImpostaGiocata 2,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 24)
a1(2) = Fuori90(Estratto(es,1,1) + 50)
a1(3) = Fuori90(Estratto(es,1,1) + 51)
a1(4) = Fuori90(Estratto(es,1,1) + 57)
ImpostaGiocata 3,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 14)
a1(2) = Fuori90(Estratto(es,1,1) + 45)
a1(3) = Fuori90(Estratto(es,1,1) + 56)
a1(4) = Fuori90(Estratto(es,1,1) + 83)
ImpostaGiocata 4,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 24)
a1(2) = Fuori90(Estratto(es,1,1) + 30)
a1(3) = Fuori90(Estratto(es,1,1) + 39)
a1(4) = Fuori90(Estratto(es,1,1) + 84)
ImpostaGiocata 5,a1,ruota,poste,clp


ruota(1) = 1

Gioca es,1

Next

ScriviResoconto
End Sub
 
Salvo 14 vedi se va bene
Sub Main()
ColoreTesto 1
Scrivi:Scrivi " (Figura 6 su BA in 1° pos.) - - -> By Pomito "
Scrivi " Metodo di Fidelio"
ColoreTesto 1
Dim ruota(3),posta(5),poste(5),quaterna(4),quaterna1(4),quaterna2(4),quaterna3(4),quaterna4(4)
Dim quaterna5(4),quaterna6(4)
'Dim ambo2(2)
posta(1) = 1:poste(2) = 1: poste(3) = 1:poste(4) = 1
k = 13
ce = 300
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin:Messaggio es
r1 = BA_
For p = 1 To 1
a = Estratto(es,r1,p)
If Figura(a) = 6 Then
casi = casi + 1:Scrivi String(65,"o"),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] " & Format2(a) & " " &(p) & "^ pos."
Scrivi String(52,"-") & " caso n° " &(casi)
ruota(1) = r1
quaterna(1) = Fuori90(Estratto(es,BA_,1) + 7)
quaterna(2) = Fuori90(Estratto(es,BA_,1) + 40)
quaterna(3) = Fuori90(Estratto(es,BA_,1) + 57)
quaterna(4) = Fuori90(Estratto(es,BA_,1) + 68)
ImpostaGiocata 1,quaterna,ruota,poste,k,4
quaterna1(1) = Fuori90(Estratto(es,BA_,1) + 39)
quaterna1(2) = Fuori90(Estratto(es,BA_,1) + 60)
quaterna1(3) = Fuori90(Estratto(es,BA_,1) + 71)
quaterna1(4) = Fuori90(Estratto(es,BA_,1) + 79)
ImpostaGiocata 2,quaterna1,ruota,poste,k,4
quaterna2(1) = Fuori90(Estratto(es,BA_,1) + 24)
quaterna2(2) = Fuori90(Estratto(es,BA_,1) + 50)
quaterna2(3) = Fuori90(Estratto(es,BA_,1) + 51)
quaterna2(4) = Fuori90(Estratto(es,BA_,1) + 57)
ImpostaGiocata 3,quaterna2,ruota,poste,k,4
quaterna3(1) = Fuori90(Estratto(es,BA_,1) + 14)
quaterna3(2) = Fuori90(Estratto(es,BA_,1) + 45)
quaterna3(3) = Fuori90(Estratto(es,BA_,1) + 56)
quaterna3(4) = Fuori90(Estratto(es,BA_,1) + 83)
ImpostaGiocata 4,quaterna3,ruota,poste,k,4
quaterna4(1) = Fuori90(Estratto(es,BA_,1) + 24)
quaterna4(2) = Fuori90(Estratto(es,BA_,1) + 30)
quaterna4(3) = Fuori90(Estratto(es,BA_,1) + 39)
quaterna4(4) = Fuori90(Estratto(es,BA_,1) + 84)
ImpostaGiocata 5,quaterna4,ruota,poste,k,4
Gioca es,1
End If
Next:Next':Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19
Indietro
Alto