|
|
|
Salve,ecco a voi un Listato l8+ che puo' essere usato per verificare i metodi sugli Ambi Spia su Ruota:si puo' cambiare come uno vuole,basta modificare i valori che andro' a sottolineare sotto.Altrimenti lanciarlo cosi' e cambiare i valori mano mano che gli imput box ce lo chiederanno..
------------------------------------------------------------------------------------------------------------------------------
Sub main()
Dim ruote(2),poste(3),num1(3),num2(3)
poste(2)=3:poste(3)=1.2
sp1=CInt(InputBox("1° numero spia?","1° numero spia ",75))' Qui' cambiare 1° Numero Spia
sp2=CInt(InputBox("2° numero spia?","2° numero spia ",76))' Qui' cambiare 2° Numero Spia
r1=CInt(InputBox("ruota di ricerca?","ruota di ricerca ",5))' Qui' cambiare Ruota di Ricerca
rg1=CInt(InputBox("1^ ruota di gioco?","1^ ruota di gioco ",8))' Qui' cambiare 1a Ruota di Gioco
rg2=CInt(InputBox("2^ ruota di gioco?","2^ ruota di gioco ",10))' Qui' cambiare 2a Ruota di Gioco
n1=CInt(InputBox("1° Numero Terzina?","1° Numero Terzina ",45))' Qui' cambiare 1°numero Terzina
n2=CInt(InputBox("2° Numero Terzina?","2° Numero Terzina ",60))' Qui' cambiare 2°numero Terzina
n3=CInt(InputBox("3° Numero Terzina?","3° Numero Terzina ",81))' Qui' cambiare 3°numero Terzina
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",5320)) ' Qui' cambiare da quale estrazione fare verifica
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",13)) ' Qui' cambiare i colpi di gioco
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
casi=casi+1:Scrivi String(70,"=")
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spie [ "&format2(sp1)&"."&format2(sp2)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=rg1:ruote(2)=rg2:co=0
num1(1)=n1:num1(2)=n2:num1(3)=n3
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num2(1)=n4:num2(2)=n5:num2(3)=n6
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
Gioca es
End If
Next:Next:Next
ScriviResoconto
End Sub
Edited by sean69 - 11/7/2010, 07:15
|
|
.
Offline
Web