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
    martedì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto