CODICE
Sub main()
'Metodo Antonio Longo - Il Terno Secco...
Dim numero(10,10)
Dim numeri(3)
Dim amb(1)
Dim poste(5)
Dim post(1)
Dim ruot(1),ruote(1)
Dim i,j,e,riga,r
Dim usciti, max
post(1)=1
poste(2)=1
poste(3)=1
fr=0
ruot(1)=6
ruote(1)=11
max=0
For re=8164 To EstrazioneFin
Messaggio DataEstrazione (re)
If IndiceMensile(re)=10 Then
sommatot=0
For gg=1 To 10
For ii=1 To 10
numero(ii,gg)=SommaEstratti ((re+1)-gg,ii)
sommatot=sommatot+SommaEstratti ((re+1)-gg,ii)
Next
Next
'For ii=1 To 10
'gg=NomeRuota (ii)
'Scrivi gg & "= " & numero(ii,1)
'Next
Scrivi "********************************************************************"
Scrivi DataEstrazione (re)
Scrivi "SOMMA TOTALE= " & sommatot
q=CStr (numero(6,1))
n1=Mid(q,1,1)
n2=Mid(q,2,1)
n3=Mid(q,3,1)
If n3="" Then n3="0" End If
Scrivi "Napoli Somma= " & numero(6,1)
somman123=Eval(n1)+Eval(n2)+Eval(n3)
Scrivi "Napoli= " & n1 & "+" & n2 & "+" & n3 & "=" & somman123
div=sommatot/somman123
Scrivi "Divione Somme=" & div
n1=Eval(Mid(CStr(div),1,2))
n2=Eval(Mid(CStr(div),3,2))
If n1>n2 Then
mag=n1
min=n2
Else
mag=n2
min=n1
End If
Scrivi "Maggiore=" & mag & " Minore=" & min
diffmagmin=mag-min
Scrivi "Terzo numero=" & diffmagmin
n1=Mid(CStr(div),6,1)
n2=Mid(CStr(div),6,2)
n3=Mid(CStr(div),8,2)
Scrivi "1° Numero dopo Quoziente=" & n1 & " 2° Coppia dopo Quoziente=" & n2
If n1="" Or n1="7" Or n1="8" Or n1="9" Then
diffmagmin=Fuori90 (diffmagmin+10)
Scrivi "Attenzione Regola 1ª Attivata, Numero differenza=" & diffmagmin
End If
flaggo=0
If n1<>"" And n2=n3 Then
Scrivi "Attenzione Regola 2ª Attivata, Previsione NULLA Presenza di " & n3
flaggo=1
End If
pippo=0
mag=Fuori90 (mag)
If mag=20 Or mag=22 Or min=20 Or min=22 Then
pippo=1
End If
cad1=11
cad2=12
If n2<>"" And n3 <>"" Then
cad1=Eval(Cadenza(n2))
cad2=Eval(Cadenza(n3))
End If
If cad1=cad2 And cad1=6 And n2<>n3 Then pippo=1 End If
If cad1=cad2 And cad1=9 And n2<>n3 Then pippo=1 End If
If mag=min Or mag=diffmagmin Or min=diffmagmin Then pippo=1 End If
If pippo=1 Then
Scrivi "Attenzione Regola 3ª Attivata, Previsione NULLA Pres. CAD. o 20/22 o UGUALI"
flaggo=1
End If
If flaggo=0 Then
Scrivi "Previsione: Napoli e Tutte=" & mag & "-" & min & "-" & diffmagmin
Scrivi "********************************************************************"
numeri(1)=mag
numeri(2)=min
numeri(3)=diffmagmin
ImpostaGiocata 1,numeri,ruot,poste,13,2
ImpostaGiocata 2,numeri,ruote,poste,13,2
For a=2 To 2
For b=2 To 2
ImpostaInterruzioni 1,a,2
ImpostaInterruzioni a,1,2
ImpostaInterruzioni a,b,2
Next
Next
max=max+1
Gioca re
End If
ResettaGiocate
End If
Next
Scrivi
ColoreTesto 1
Scrivi "CASI GIOCABILI= " & max
ColoreTesto 0
ScriviResoconto
End Sub
