Novità

x cinzia 27 vorrei uno script

L'apostrofo va qui - ( ' )ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte o metterlo per eliminarla
Te lo rimetto:
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),ruota(5)
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?",,50)
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
z = DiametraleD(o)
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
ruota(1) = r1
ruota(2) = r2
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
n(8) = z
ImpostaGiocata 1,n1,ruota,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
Ciao toon credo che ti convenga mettere 3 script uno su tutto ,uno alla prima estrazione mese ed uno all'ultima del mese- per adele
io insegnavo matematica . chimica biologiaetc ma per l'informatica scrivere trasferimenti etc è sempre stato mio fratello che nel tempo ci ha rinunciato a spiegarmeli per me è arabo.
 
L'apostrofo va qui - ( ' )ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte o metterlo per eliminarla
Te lo rimetto:
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),ruota(5)
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?",,50)
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
z = DiametraleD(o)
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
ruota(1) = r1
ruota(2) = r2
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
n(8) = z
ImpostaGiocata 1,n1,ruota,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
qual'è lo script dove ti esce il 13? poi elimino tuttte le spiegazioni ok ?
 
L'apostrofo va qui - ( ' )ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte o metterlo per eliminarla
Te lo rimetto:
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),ruota(5)
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?",,50)
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
z = DiametraleD(o)
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
ruota(1) = r1
ruota(2) = r2
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
n(8) = z
ImpostaGiocata 1,n1,ruota,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
cosa c'è di differente tra l'ultima e quella inviata da me li spunta la quaterna cosa c'è di diverso?
 
Ok ora ok ma conservo e cancello quello della quaterna caso mai mi richiedi perchè io non ho compreso dov'è la differenza visto che dava con meno 1 l'ambata???????
 
Non puoi pensare di aggiungere altri numeri o calcoli, altrimenti la quantità dei pronostici non rende convenienti le giocate, spenderesti più di quello che vinci...🙈
 
Se noti ambata 87 a colpo su ruota ed ambetto poi 47 74 su tutte Toon lo haipreso?
 
Ultima modifica:
io insegnavo matematica . chimica biologiaetc ma per l'informatica scrivere trasferimenti etc è sempre stato mio fratello che nel tempo ci ha rinunciato a spiegarmeli per me è arabo.
Ciao adele anch'io non ne capisco molto copio ed incollo lungi da me ecc.....se per te è arabo per me è "cinese" spesso uso la mia parte"aliena" e me la cavo bene" :unsure: :ROFLMAO: Ma era solo per darti una "mano".
 
Ultima modifica:
ahahaha uscito il 71 io avevo fatto con 67 ed 66 .pero uscito con le spie c'è 4 e 12 sulla naz.
Estrazione generatrice del pronostico 10401 [ 41 - 12/03/2024]
G 0001 Numeri in gioco : 75.57 su BA CA per Estratto

V N. [75.57 ] [BA] [.. 57 .. .. ..] C. 3 Estratto 10404 [ 44 - 16/03/2024]

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 75.57.65.56.14.41.12.17 su BA CA TT per Ambo,Terno
V N. [75.57.65.56.14.41.12.17 ] [BA] [17 57 .. .. ..] C. 3 Ambo 10404 [ 44 - 16/03/2024]

Estrazione generatrice del pronostico 10395 [ 35 - 01/03/2024]
G 0001 Numeri in gioco : 17.71 su BA CA per Estratto

V N. [17.71 ] [BA] [17 .. .. .. ..] C. 9 Estratto 10404 [ 44 - 16/03/2024]
71 66

In corso per altre 5 estrazioni
G 0002 Numeri in gioco : 17.71.66.69.15.51.12.17 su BA CA TT per Ambo,Terno
dippio ambetto con il 30
30.03 su BA CA per Estratto
V N. [30.03 ] [CA] [.. 30 .. .. ..] C. 1 Estratto 10398 [ 38 - 07/03/2024]
V N. [30.03 ] [CA] [30 .. .. .. ..] C. 5 Estratto 10402 [ 42 - 14/03/2024]

In corso per altre 7 estrazioni
G 0002 Numeri in gioco : 30.03.14.41.29.22.18.13
ambo seco 30 e 13
 
sabato, mar 23 2024 < BA 14.86.75.70.73 > < 60
sabato, mar 23 2024 < NA 53.34.51.28.78 > < 42

Estrazione generatrice del pronostico 10408 [ 48 - 23/03/2024]
G 0001 Numeri in gioco : 60.06 su BA NA per Estratto

V N. [60.06 ] [NA] [.. .. .. .. 60] C. 3 Estratto 10411 [ 51 - 29/03/2024]
V N. [60.06 ] [BA] [.. .. .. 60 ..] C. 4 Estratto 10412 [ 52 - 30/03/2024]

In corso per altre 10 estrazioni
G 0002 Numeri in gioco : 60.06.42.24.33.39.26.21 su BA NA TT per Ambo,Terno
V N. [60.06.42.24.33.39.26.21 ] [BA] [39 .. .. 60 42] C. 4 Terno 10412 [ 52 - 30/03/2024]
V N. [60.06.42.24.33.39.26.21 ] [TT] [BA][39 .. .. 60 42] C. 4 Terno 10412 [ 52 - 30/03/2024]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto