Option Explicit
Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quante_Estr,resito,recolpi,restratti
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
fin = EstrazioneFinDL
ini = fin - Quante_Estr
For es = ini To fin
Messaggio DataEstrazioneDL(es)
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Data Estrazione :" & " " & DataEstrazioneDL(es)
ColoreTesto(1)
Scrivi "Numeri Considerati Dal 11esimo al 15esimo Estratto :" & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5
Scrivi "Numeri Considerati Dal 16esimo al 20esimo Estratto :" & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10
ColoreTesto(vbBlack)
Scrivi String(24,"=")
ColoreTesto(2)
Scrivi "Primo numero :" & Primo_num
Scrivi "Secondo numero :" & Secondo_num
Scrivi "Terzo numero :" & Fuori90(Primo_num + Secondo_num)
Scrivi "Quarto numero :" & Fuori90(Primo_num - Secondo_num)
ColoreTesto(vbBlack)
Terzo_num = Fuori90(Primo_num + Secondo_num)
Quarto_num = Fuori90(Primo_num - Secondo_num)
ReDim aNumeri(4)
aNumeri(1) = Primo_num
aNumeri(2) = Secondo_num
aNumeri(3) = Terzo_num
aNumeri(4) = Quarto_num
Scrivi "Esito :",True
Call VerificaEsitoDL(aNumeri,es,1,1,resito,recolpi,restratti)
If resito = "0" Then Scrivi "Nessun numero sortito"
If resito = "Estratto" Then ColoreTesto 0
If resito = "Ambo" Then ColoreTesto 1
If resito = "Terno" Then ColoreTesto 2
If resito = "Quaterna" Then ColoreTesto 4
Scrivi restratti & " ",1,0
Scrivi resito,1
Scrivi
Next
Scrivi "###############################################################################################",,,6,7
Scrivi "# Metodo Ricerca Quartina per 10 e lotto serale, redatto da Moro_80 su richiesta di Armando59 #",,,6,7
Scrivi "# http://forum.lottoced.com/f12/aiuto-x-scrip-10elotto-serale-119173/ #",,,6,7
Scrivi "###############################################################################################",,,6,7
End Sub