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 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto