CODICE
Sub main()
Dim num1(1),num2(3),num3(4),ruote(2),ruota(1),posta(1),poste(3),post(4)
posta(1)=1:poste(2)=1.2:poste(3)=1.2
post(2)=1:post(3)=1.2:post(4)=1.2
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8336) '7115 metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "un numero è isotopo? proviamo a fare l'ambo di p_robbe (script by maxma62) ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
r2=r1+1 ' per ruote consecutive (con ba e ve)
If r1=10 Then r2=1 End If 'per ruote consecutive (con ba e ve)
For p2=1 To 5
b=Estratto(es,r2,p2)
If p1=p2 Then
If a=b Then
n1=Diametrale(a) 'ambata
n2=Fuori90(n1+a) 'abb
n3=Fuori90(n2+40) 'abb
If n2>40 Then n4=(n2-40)
If n2<40 Then n4=(n2+90)-40
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos. "
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "&StringaEstratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(p2)&"^ pos. "
Scrivi String(62,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:cg=0
num1(1)=n1
cg=cg+1
ImpostaGiocata cg,num1,ruote,posta,k,0
num2(1)=n2
num2(2)=n3
num2(3)=n4
cg=cg+1
ImpostaGiocata cg,num2,ruote,poste,k,0
cg=cg+1
ImpostaGiocata cg,num2,ruota,poste,k,0
num3(1)=n1
num3(2)=n2
num3(3)=n3
num3(4)=n4
cg=cg+1
ImpostaGiocata cg,num3,ruote,post,k,0
cg=cg+1
ImpostaGiocata cg,num3,ruota,post,k,0
Gioca es
End If
End If 'solo pos iso
Next:Next:Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "un numero è isotopo? proviamo a fare l'ambo di p_robbe (script by maxma62) ",1
End Sub
