| ' Spero di non aver fatto errori. Le combinazioni isotope vengono segnalate dal listato in rosso "AMBI IN POSIZIONE ISOTOPA". Saluti federico53
ColoreTesto 1 :Scrivi "==========METODO AMBO RIPETUTO AD INCROCIO DI PASQUALE ROBBE=========",1
Scrivi
Scrivi String(28,32)&"Listato da Federico53",1
ColoreTesto 0
Sub main()
Dim num(5)
Dim nu1(4)
Dim nu2(4)
Dim nu3(4)
Dim nu4(4)
Dim ruote(10),ruotee(10)
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
tmp = InputBox("Quante estrazioni controllo?",,100)
fin = EstrazioneFin
ini = fin - tmp
t=0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k=14
For r=1 To 10
For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)
For r1=r+1 To 12
If r1=11 Then r1=12
For pp=1 To 4
For qq=pp+1 To 5
c=Estratto (es,r1,pp)
d=Estratto (es,r1,qq)
If (c=b And a=d) Then
b1=Fuori90(a+b)+1
a1=Diametrale(b1)
a2=Abs(a-b)
a3=Fuori90(a2*2)
a4=Fuori90(a3+a2)
a5=90-a4
t=t+1
Scrivi
ColoreTesto 2 :Scrivi "============================================================"& "Giocata n° "& Format2(t),2
Scrivi
ColoreTesto 0
Scrivi DataEstrazione (es)&" "& SiglaRuota (r) & " " & StringaEstratti(es,r) & " ------> " & Format2(a)& " - "& Format2(b)& " ",1
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1) & " " & StringaEstratti(es,r1) & " ------> " & Format2(c)& " - "& Format2(d)& " ",1
If p=pp And q=qq Then ColoreTesto 2 : cx=" POSIZIONE ISOTOPA " Else ColoreTesto 1 : cx=" POSIZIONE NON ISOTOPA "
Scrivi " AMBI IN "& cx,1
ColoreTesto 0
Scrivi"---------------------------------------------"
ColoreTesto 1
ruote(1) = r:ruote(2) = r1:ruotee(1) = r:ruotee(2) = r1:ruotee(3) = 11
nu1(1) = a1
EliminaRipetuti nu1
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a1
nu2(2) = a4
EliminaRipetuti nu2
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a1
nu2(2) = a5
EliminaRipetuti nu2
ImpostaGiocata 3,nu2,ruote,poste,k
nu3(1) = a1
nu3(2) = a4
nu3(3) = a5
EliminaRipetuti nu3
ImpostaGiocata 4,nu3,ruotee,post,k
Gioca es
Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1 :Scrivi "-----METODO AMBO RIPETUTO AD INCROCIO DI PASQUALE ROBBE-----",1
Scrivi
Scrivi String(20,32)&"Listato da Federico53",1
End Sub
|
grazie fede