Novità

x cinzia 27 vorrei uno script

toon ha scritto:
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
Clicca per espandere...
Alien. ha scritto:
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
Clicca per espandere...
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.
 
toon ha scritto:
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
Clicca per espandere...
qual'è lo script dove ti esce il 13? poi elimino tuttte le spiegazioni ok ?
 
toon ha scritto:
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
Clicca per espandere...
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:
adeleadele ha scritto:
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.
Clicca per espandere...
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]
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 maggio 2026
    Bari
    84
    57
    09
    22
    60
    Cagliari
    52
    58
    80
    57
    76
    Firenze
    50
    15
    63
    58
    60
    Genova
    08
    30
    61
    75
    55
    Milano
    82
    68
    29
    16
    10
    Napoli
    86
    46
    15
    33
    65
    Palermo
    46
    29
    73
    74
    37
    Roma
    30
    15
    02
    87
    52
    Torino
    15
    62
    82
    52
    67
    Venezia
    58
    85
    40
    35
    48
    Nazionale
    16
    51
    56
    71
    17
    Estrazione Simbolotto
    Milano
    18
    07
    27
    32
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto