|
Sub main()
ColoreTesto 2
Scrivi "Sisma_2 ambi a somma uguale.ls",1
ColoreTesto 1
Scrivi "-------------------------------by ScaraLab",1
ColoreTesto 0
Scrivi
Dim ambata(2), ambo1(2), ambo2(6), amb(1)
Dim ruota1(1), ruota2(1), ruote(2), rrtt(1)
Dim posta(1), poste(2)
rrtt(1)=TU_
posta(1)=1
poste(2)=1
eg=6 'imposta le estrazioni di gioco
ini=EstrazioneFin - 10 'imposta l'intervallo di ricerca
fin=EstrazioneFin
cond=0
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 9
ruota1(1)=r1
For p=1 To 4
a=Estratto (es,r1,p)
For q=p+1 To 5
b=Estratto (es,r1,q)
For r2=r1+1 To 10
ruota2(1)=r2
For p1=1 To 4
c=Estratto (es,r2,p1)
For q1=p1+1 To 5
d=Estratto (es,r2,q1)
If Fuori90(a+b)=Fuori90(c+d) Then
x1=Fuori90(a-b+a)
If x1>0 Then
'x1=x1+90
x2=Fuori90(c-d+c)
If x2>0 Then
'x2=x2+90
' d1=Distanza(a,b)
' d2=Distanza(c,d)
If (a-b)>(c-d) Then
amb(1)=x1
Else
amb(1)=x2
End If
ambata(1)=x1
ambata(2)=x2
ambo1(1)=x1
ambo1(2)=x2
ambo2(1)=x1
ambo2(2)=x2
ambo2(3)=a
ambo2(4)=b
ambo2(5)=c
ambo2(6)=d
ruote(1)=ruota1(1)
ruote(2)=ruota2(1)
Scrivi String(47,"*")
Scrivi DataEstrazione (es)+" "+ FormatSpace(NomeRuota (r1),9)+_
Format2(a)+"."+ Format2(b)+" - "+ +FormatSpace(NomeRuota (r2),9)+_
" "+Format2(c)+"."+ Format2(d)+" Somma "+Format2(x1)
Scrivi " prima ambata: "+Format2(x1)+" seconda ambata: "+ Format2(x2)+_
" Ambata Principale "+Format2(amb(1))
ImpostaGiocata 1,ambata,ruote,posta,eg,1
ImpostaGiocata 2,ambo2,ruote,poste,eg,2
ImpostaGiocata 3,ambo1,rrtt,poste,eg,2
ImpostaGiocata 4,amb,ruote,posta,eg,1
Gioca es
cond=1
Scrivi
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
If cond=1 Then ScriviResoconto
End Sub
|
