ColoreTesto 1
Scrivi String(37,32) & " Ultima del mese  BA-VE fibonacci mischiato sommativo ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruote(10),amb(2),amb2(5),ruotee(10),ruota(10)
Dim numeri1(5),numeri2(5),numeri3(10),numeri4(5),numeri5(10)
Dim posta(10) 
Dim poste(5)


poste(2)=1 
posta(1)=1 
 

cp=10


ini=10178
fin=EstrazioneFin
For n=ini To fin

If IsUltimaDelMese(n)  Then
Messaggio DataEstrazione (n)



numeri2(1)=Fuori90(Estratto(n,9,2)+55)
numeri1(1)=Fuori90(Estratto(n,3,4)+35)

numeri2(2)=Fuori90(Estratto(n,1,1)+16)
numeri2(3)=Fuori90(Estratto(n,5,1)+5)



Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(numeri2) Then
rip = 1
While NumeriRipetuti(numeri2)
For x = 1 To 2
For y = x + 1 To 3
If numeri2(x) = numeri2(y) Then numeri2(y) = Fuori90(numeri2(y) + 1)
Next
Next
Wend
End If
Rem fine formula










 ColoreTesto 2 :Scrivi "--1° estrazione del mese   ---------------------------",1
ColoreTesto 0
Scrivi
ruotee(1)=1
ruotee(2)=10
'ruotee(3)=11


amb2(1)=numeri2(1)
amb2(2)=numeri1(1)
ImpostaGiocata 1,amb2,ruotee,posta,eval(cp)

amb2(1)=numeri2(1)
amb2(2)=numeri2(2)
ImpostaGiocata 2,amb2,ruotee,poste,eval(cp)

amb2(1)=numeri2(1)
amb2(2)=numeri2(3)
ImpostaGiocata 3,amb2,ruotee,poste,eval(cp)
Gioca n
End If

Next
Scrivi

ScriviResoconto
ColoreTesto 2





End Sub

'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

       Dim sData , sDataNew
       Dim idGiornoSettimana
       Dim gMancanti
       Dim nMeseCorr
       
       sData = Replace(DataEstrazione(idEstr) , "." , "/")
       nMeseCorr = Month(sData)
       idGiornoSettimana = WeekDay (sData)
       
       Select Case idGiornoSettimana
       
       Case vbTuesday ' martedi
               gMancanti =2
       Case vbThursday ' giovedi
               gMancanti = 2
       Case vbSaturday ' sabato
               gMancanti = 3
       End Select
       
       sDataNew = DateAdd( "d" , gMancanti ,sData)
       
       If Month (sDataNew) <> nMeseCorr Then
               IsUltimaDelMese = True
       Else
               IsUltimaDelMese = False
       End If
       
End Function