Ciao armaus, ho trovato questo vedi se va bene, trova due numeri di somma 90 in due ruote in verticale.
ciao
Sub main()
Dim ruote(10)
Dim nu1(2),nu10(5),nu11(5)
Dim posta(2)
Dim poste(5)
posta(2)=2
poste(2)=3
poste(3)=1.3
poste(4)=0.5
poste(5)=0.2
casi=0
so=CInt(InputBox("Qual'è la somma da ricercare?","Somma da ricercare",90))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es =ini To fin
Messaggio "elab. estr. del < "&DataEstrazione (es)&" >"
'For r1=1 To 9 '<<-- x ruote non consecutive
For r1=1 To 10 '<<-- x ruote consecutive
For p=1 To 5
a=Estratto(es,r1,p)
'For r2=r1+1 To 10 '<<-- x ruote non consecutive
r2=r1+1 '<<-- x ruote consecutive
If r1=10 Then r2=1 End If '<<-- x per ruote consecutive
b=Estratto(es,r2,p)
If a+b=so Then
Scrivi
ColoreTesto 2 : Scrivi String(65,"•"),1:ColoreTesto 0
Scrivi " < 2 numeri isotopi somma "&so&" su su "&siglaruota(r1)&" e "&siglaruota(r2)&" >",1
Scrivi String(65,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" "& StringaEstratti(es,r1)&" ]"
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" "& StringaEstratti(es,r2)&" ]"
Scrivi "< numero [ "&format2(a)&" ] in "&(p)&"a pos. su " & SiglaRuota(r1)&" >"
Scrivi "< numero [ "&format2(b)&" ] in "&(p)&"a pos. su " & SiglaRuota(r2)&" >"
Scrivi String(65,"-")
c=Fuori90((45-a)+90) '1a ambata
d=Fuori90((45-b)+90) '2a ambata
e=Vert(c)'abbin
f=Vert(d)'abbin
g=Fuori90(e+10)'abbin
h=Fuori90(f+10)'abbin
ruote(1)=r1
ruote(2)=r2
ng=0 'per numero giocate
nu1(1)=c
nu1(2)=d
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=e
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=f
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=g
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=h
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=e
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=f
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=g
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=h
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu10(1)=c
nu10(2)=e
nu10(3)=f
nu10(4)=g
nu10(5)=h
ImpostaGiocata 10,nu10,ruote,poste,k
nu11(1)=d
nu11(2)=e
nu11(3)=f
nu11(4)=g
nu11(5)=h
ImpostaGiocata 11,nu11,ruote,poste,k
Gioca es
casi=casi+1
End If
'Next '<<-- x per ruote consecutive togliere
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub
