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....
Perchè vanno nelle gemelle e nelle diametrali infatti se noti bari esce spesso a napoli io li ho 42 24
Ma qual'è questo? che ha dato stasera quaterna ? poi se mi spieghi come una bambina come si toglie e dove lapostrofo .
venerdì, feb 23 2024 < BA 53.14.39.62.40 > < 76
venerdì, feb 23 2024 < CA 20.15.28.80.63 > < 38
Estrazione generatrice del pronostico 10391 [ 31 - 23/02/2024]
G 0001 Numeri in gioco : 76.67 su BA CA per Estratto
V N. [76.67 ] [BA] [76 .. .. .. ..] C. 1 Estratto 10392 [ 32 - 24/02/2024]
V N. [76.67 ] [CA] [.. 76 .. .. ..] C. 5 Estratto 10396 [ 36 - 02/03/2024]
V N. [76.67 ] [BA] [.. 67 .. .. ..] C. 6 Estratto 10397 [ 37 - 05/03/2024]
V N. [76.67 ] [BA] [67 .. 76 .. ..] C. 10 Ambo 10401 [ 41 - 12/03/2024]
Ho inserito qualche altro script ..perchè invece di 13 mi da 12 strano per cortesia mi metti in evidenza questo script?ho copiato questo:
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
