Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Qualcuno puo' aggiungere una modifica oppure descrivo e mi dite come aggiungere sullo script.
è errato guarda questa previsione cosi ti è piu chiaro,Ti va bene così?
ho aggiunto il calcolo che hai spiegato..
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,14)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,200)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
'If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
d = Estratto(es,r1,3)
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
l = Figura(Estratto(es,r2,4))
m = Fuori90(g & l)
o = m - 5
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
n(7) = o
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
'End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub
sei un angelo
ma non c'è oppure dove lo hai messo?
no l'ambata aggiuntiva niente va bene ugualmente stasera l'ambata aggiuntia è 12 17 vediamo se esce a colpo come il 33 38 della scorsa estrazione.
13 e 18 stragiocato a bari a febbraio poi uscito il 13 l'ho tolto.
Ok il 71 e il 17 con cosa lo vedi il 69 uscito c'è il 71 da tanto con 15 51?c'è ora 12 e con la spia accessoria a bari 12 è corretta 66 13 è 12 con 6 i
ma io non lo trovo mi da altri numeri dove hai messo lo script....invece guarda che mi viene la quaterna è uscita primaQuesto il risultato con le modifiche che mi hai chiesto...
[42.24.11.19.24.42.18.13 ] [BA] [18 .. .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024]
[42.24.11.19.24.42.18.13 ] [TT] [BA][18 .. .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024]
[42.24.11.19.24.42.18.13 ] [TT] [TO][.. 24 11 .. 18] C. 2 Terno 10404 [ 42 - 14/03/2024]
non male....
Ma qual'è questo? che ha dato stasera quaterna ? poi se mi spieghi come una bambina come si toglie e dove lapostrofo .Questo il risultato con le modifiche che mi hai chiesto...
[42.24.11.19.24.42.18.13 ] [BA] [18 .. .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024]
[42.24.11.19.24.42.18.13 ] [TT] [BA][18 .. .. 13 ..] C. 2 Ambo 10404 [ 42 - 14/03/2024]
[42.24.11.19.24.42.18.13 ] [TT] [TO][.. 24 11 .. 18] C. 2 Terno 10404 [ 42 - 14/03/2024]
non male....
| Estrazione generatrice del pronostico 10397 [ 35 - 01/03/2024] | |||||||||||||
| G 0001 Numeri in gioco : 17.71 su BA CA per Estratto | |||||||||||||
| Interrotta per raggiunta durata | |||||||||||||
| G 0002 Numeri in gioco : 17.71.66.69.15.51.12 su BA CA per Ambo,Terno | |||||||||||||
| V N. [17.71.66.69.15.51.12 ] [CA] [.. 51 12 66 ..] C. 5 Terno 10402 [ 40 - 09/03/2024] | |||||||||||||
