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.
Non vuole darci i numeriseeee va beh ce paga ce paga ...........l'aspettamo tutti fora dopo
Lascia perdere!.....poi vai via con la testa!,,,restiamo poveri che è meglio!
Ho fatto il 730 e l'otto per mille l'ho lasciato ad un gattileMA QUANDO MAI IO LI EVOLVO IN BENEFICENZA
Hai fatto bene!....anch'io faccio la stessa cosa,ho 2 persiane che
Può essere
Hai previsioni giocabili ?
per un attimo ho pensato che da buon "Veneto" gli suggerivi di mangiarsi i gatti 
I Magna gatti, sono i Vicentini !….io bevo prosecco e magno sardee in saor
Ei pian coi magnagatti vicentini ,mi son vicentina ma ai gati ghe do mi da magnare ...dopo se i vien bei grosi no so ........I Magna gatti, sono i Vicentini !….io bevo prosecco e magno sardee in saor
scherzo naturalmente per fortuna quei tempi sono passati e ora i gatti stanno più che bene con noi Vicentini .
Sub Main()
Dim number(5)
Dim ruote(4)
Dim posta(2)
'posta(1)=1
posta(2) = 0.5
ruote(1) = BA_
For n = 10000 To EstrazioneFin
If IndiceMensile= 1 Then
'number(1) = Abs(Estratto(n,5,3) - Estratto(n,6,5))
'number(2) = Vert(number(1))
'number(3) = 87
number(1) = Fuori90(Figura(Estratto(n,NZ_,5)) + Estratto(n,MI_,1)+1)
number(2) = Fuori90(SommaCifreNumero(Estratto(n,GE_,5)) + Estratto(n,TO_,1) + 57)
number(3) = Fuori90(ComplAdX(Estratto(n,RO_,4),90) + Estratto(n,FI_,1) + 18)
number(4) = Fuori90(ComplAdX(Estratto(n,TO_,5)) + Estratto(n,GE_,4) + 4)
number(5) = Fuori90(DiametraleD(Estratto(n,RO_,5)) + Estratto(n,RO_,2) + 75)
ImpostaGiocata 1,number,ruote,posta,12
Gioca n
End If
Next
ScriviResoconto
End Sub
Function SommaCifreNumero(numero)
Dim cifra1
Dim cifra2
Dim somma
' Verifica se il numero è composto da una o due cifre
If numero >= 10 And numero <= 90 Then
' Numero composto da due cifre
' Estrai la prima cifra (decine)
cifra1 = numero \ 10
' Estrai la seconda cifra (unità)
cifra2 = numero Mod 10
' Somma le due cifre
somma = cifra1 + cifra2
' Restituisci la somma
SommaCifreNumero = somma
ElseIf numero >= 1 And numero < 10 Then
' Numero composto da una sola cifra
' Restituisci il numero stesso
SommaCifreNumero = numero
Else
' Caso in cui il numero non è valido (es: negativo o maggiore di 90)
' Restituisci -1 o un valore di errore a tua scelta
SommaCifreNumero = -1
End If
End Function
Sub Main()
Dim number(5)
Dim ruote(4)
Dim posta(2)
'posta(1)=1
posta(2) = 0.5
ruote(1) = BA_
For n = 10000 To EstrazioneFin
If IndiceMensile
'number(1) = Abs(Estratto(n,5,3) - Estratto(n,6,5))
'number(2) = Vert(number(1))
'number(3) = 87
number(1) = Fuori90(Figura(Estratto(n,NZ_,5)) + Estratto(n,MI_,1)+1)
number(2) = Fuori90(SommaCifreNumero(Estratto(n,GE_,5)) + Estratto(n,TO_,1) + 57)
number(3) = Fuori90(ComplAdX(Estratto(n,RO_,4),90) + Estratto(n,FI_,1) + 18)
number(4) = Fuori90(ComplAdX(Estratto(n,TO_,5)) + Estratto(n,GE_,4) + 4)
number(5) = Fuori90(DiametraleD(Estratto(n,RO_,5)) + Estratto(n,RO_,2) + 75)
ImpostaGiocata 1,number,ruote,posta,12
Gioca n
End If
Next
ScriviResoconto
End Sub
Function SommaCifreNumero(numero)
Dim cifra1
Dim cifra2
Dim somma
' Verifica se il numero è composto da una o due cifre
If numero >= 10 And numero <= 90 Then
' Numero composto da due cifre
' Estrai la prima cifra (decine)
cifra1 = numero \ 10
' Estrai la seconda cifra (unità)
cifra2 = numero Mod 10
' Somma le due cifre
somma = cifra1 + cifra2
' Restituisci la somma
SommaCifreNumero = somma
ElseIf numero >= 1 And numero < 10 Then
' Numero composto da una sola cifra
' Restituisci il numero stesso
SommaCifreNumero = numero
Else
' Caso in cui il numero non è valido (es: negativo o maggiore di 90)
' Restituisci -1 o un valore di errore a tua scelta
SommaCifreNumero = -1
End If
End Function
