Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
Dim N(1),Am(5),Ruote(1)' ,Posta(1),Poste(2)
'Posta(1) = 10 : Poste(2) = 5 : clp = 9
Ruote(1) = BA_ : Spia = 4
Ini = 8300 : Fin = EstrazioneFin
For Es = Ini To Fin : Messaggio Es
If Posizione(Es,Ruote(1),Spia) Then
Co = Co + 1 : Scrivi String(96,"=") & FormatSpace(" Caso n°" & Co,10,1),1
N(1) = (Estratto(Es,BA_,1) + Estratto(Es,NA_,5) - Estratto(Es,FI_,2)) '''''Ambata
If N(1) < 0 Then
Scrivi "[" & ES &"] " & DataEstrazione (Es) & " N(1) = ",0,0
Scrivi Fuori90 (N(1))& " era " & N(1)
End If
'Am(1) = N(1) ''''' Aggiunge l'Ambata alla Lunghetta
'Am(2) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,TO_,5) + 91)
'Am(3) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,MI_,3) + Estratto(Es,CA_,3))
Am(4) = (Estratto(Es,BA_,1) - Estratto(Es,GE_,4) * 31)
If Am(4) < 0 Then
Scrivi "[" & ES &"] " & DataEstrazione (Es) & " Am(4) = ",0,0
Scrivi Fuori90 (Am(4))& " era "& Am(4)
End If
'Am(5) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,FI_,1) * 49)
'ImpostaGiocata 1, N,Ruote,Posta,clp,1
'ImpostaGiocata 2,Am,Ruote,Poste,clp,2
'Gioca es
End If
Next
ColoreTesto 1 : Scrivi String(92,"=") & FormatSpace(" Script By Joe",10,1),1 : ColoreTesto 0
'ScriviResoconto
End Sub
================================================================================================ Caso n°1
[8312] 11.12.2010 Am(4) = 90 era -2127
================================================================================================ Caso n°2
[8330] 22.01.2011 Am(4) = 90 era -468
================================================================================================ Caso n°3
[8345] 26.02.2011 Am(4) = 90 era -1174
================================================================================================ Caso n°4
[8352] 15.03.2011 Am(4) = 90 era -1628
================================================================================================ Caso n°5
[8363] 09.04.2011 N(1) = 90 era -31
[8363] 09.04.2011 Am(4) = 90 era -709
================================================================================================ Caso n°6
[8383] 26.05.2011 N(1) = 90 era -30
[8383] 26.05.2011 Am(4) = 90 era -1846
================================================================================================ Caso n°7
[8393] 18.06.2011 N(1) = 90 era -13
[8393] 18.06.2011 Am(4) = 90 era -1757
================================================================================================ Caso n°8
[8410] 28.07.2011 Am(4) = 90 era -2613
================================================================================================ Caso n°9
[8433] 20.09.2011 Am(4) = 90 era -1093
================================================================================================ Caso n°10
[8437] 29.09.2011 Am(4) = 90 era -289
================================================================================================ Caso n°11
[8452] 03.11.2011 Am(4) = 90 era -1147
================================================================================================ Caso n°12
[8480] 07.01.2012 Am(4) = 90 era -244
============================================================================================ Script By Joe
Sub Main()
Dim Ru(1),N(1),Am(5)
Ru(1) = BA_
Spia = 4
Ini = 8300
Fin = EstrazioneFin
For Es = Ini To Fin
If Posizione(Es,Ru(1),Spia) Then
K = K + 1
Scrivi String(96,"=") & FormatSpace(" Caso n°" & K,10,1),1
Scrivi DataEstrazione (Es),1
N(1) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,NA_,5) - Estratto(Es,FI_,2))
Am(4) = Fuori90(Estratto(Es,BA_,1) - Estratto(Es,GE_,4) * 31)
Scrivi "Giocherà N(1) = " & N(1)
Scrivi "Giocherà Am(4) = " & Am(4)
End If
Next
ColoreTesto 1
Scrivi String(92,"=") & FormatSpace(" Script By Joe",10,1),1
ColoreTesto 0
' Qui ... ScriviResoconto
End Sub
================================================================================================ Caso n°1
11.12.2010
Giocherà N(1) = 24
Giocherà Am(4) = 90
================================================================================================ Caso n°2
22.01.2011
Giocherà N(1) = 68
Giocherà Am(4) = 90
================================================================================================ Caso n°3
26.02.2011
Giocherà N(1) = 5
Giocherà Am(4) = 90
================================================================================================ Caso n°4
15.03.2011
Giocherà N(1) = 83
Giocherà Am(4) = 90
================================================================================================ Caso n°5
09.04.2011
Giocherà N(1) = 90
Giocherà Am(4) = 90
================================================================================================ Caso n°6
26.05.2011
Giocherà N(1) = 90
Giocherà Am(4) = 90
================================================================================================ Caso n°7
18.06.2011
Giocherà N(1) = 90
Giocherà Am(4) = 90
================================================================================================ Caso n°8
28.07.2011
Giocherà N(1) = 86
Giocherà Am(4) = 90
================================================================================================ Caso n°9
20.09.2011
Giocherà N(1) = 23
Giocherà Am(4) = 90
================================================================================================ Caso n°10
29.09.2011
Giocherà N(1) = 41
Giocherà Am(4) = 90
================================================================================================ Caso n°11
03.11.2011
Giocherà N(1) = 37
Giocherà Am(4) = 90
================================================================================================ Caso n°12
07.01.2012
Giocherà N(1) = 7
Giocherà Am(4) = 90
============================================================================================ Script By Joe
Sub Main()
Dim N(1),Am(5),Ruote(1),Posta(1),Poste(2)
Posta(1) = 10
Poste(2) = 5
clp = 9
Ruote(1) = BA_
Spia = 4
Ini = 8300
Fin = EstrazioneFin
For Es = Ini To Fin
Messaggio Es
If Posizione(Es,Ruote(1),Spia) Then
Co = Co + 1
Scrivi String(96,"=") & FormatSpace(" Caso n°" & Co,10,1),1
N(1) = Fuori90(90 + Estratto(Es,BA_,1) + Estratto(Es,NA_,5) - Estratto(Es,FI_,2)) '''''Ambata
Am(1) = N(1) ''''' Aggiunge l'Ambata alla Lunghetta
Am(2) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,TO_,5) + 61)
Am(3) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,MI_,3) + Estratto(Es,CA_,3))
Am(4) = Fuori90((90 + Estratto(Es,BA_,1) - Estratto(Es,GE_,4)) * 31)
Am(5) = Fuori90((Estratto(Es,BA_,1) + Estratto(Es,FI_,1)) * 49)
ImpostaGiocata 1,N,Ruote,Posta,clp,1
ImpostaGiocata 2,Am,Ruote,Poste,clp,2
Gioca es
End If
Next
End Sub
Sub Main
A = 2
B = 3
C = 60
Scrivi a+b*c
End Sub
Bene,... dopo tutto questo dire,.... per tornare alle cose concrete, potresti postare un esempio relativo al tuo ultimo quesito?
Non l'ultimo ... dei tanti. Per cui, se mi è concesso, nel caso della moltiplicazione (sottrattiva)
occorre prevedere ulteriori aggiustamenti. Perchè un semplice e solo "+90" potrebbe non essere sufficiente.
grazie
scusate ma visto che il lotto è fatto di convenzioni non sarebbe possibile trattare i numeri sempre col loro valore assoluto ? In questo modo i numeri negativi non esisterebbero proprio ...
Certo !! sono daccordo il lotto ha le sue regole convenzionali e si compone di un insieme finito di numeri ovviamente dentro le palline avrebbero potuto scrivere pure nomi di regioni e citta ma chi se ne ricordava 90 e quanti altri problemi pratici sarebbero sorti ? I numeri invece non li devi ricordare basta che uno sappia contare ;-)
Tuttavia mi esprimo con un mio concetto personale rispetto alle dstanze negative.
Dato il cerchio ciclometrico posizionandoci sul 90 e andando di 10 posizioni a destra troviamo il 10 se invece andassimo
a sinistra averemmo l'80 , la distanza tra il 90 e questi 2 numeri è sempre 10 solo che in un caso ci si muove di -10 ..
ovviamete parlo da non giocatore .....