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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto