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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto