Ciauz
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
- Codice: Seleziona tutto
'http://www.lottopassion.it/forum/viewtopic.php?f=3&t=3578
Sub main()
ColoreTesto 1
Scrivi String(20,"=")&" 2 NUMERI UGUALI ISOTOPI Gli eventi numerici alla ripetizione di ENZOB.---- ",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Dim ruote(2),num1(2),num2(4),num3(3),num4(4),posta(10),poste(10),postee(5)
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",9214)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 1
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=10 To 10
For p2=1 To 5
b=Estratto(es,r2,p2)
If p1=p2 Then '<<<--- isotopi
If a=b Then
casi=casi+1:Scrivi String(54,"=")&" caso n°"&casi,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."
ruote(1)=r1:ruote(2)=r2
n5=Estratto(es,4,3)
c1=11
c2=40
c3=43
poste(1)=1
posta(2)=1
num1(1)=n5
ImpostaGiocata 1,num1,ruote,poste,k
num2(1)=n5
num2(2)=c1
num2(3)=c2
num2(4)=c3
ImpostaGiocata 2,num2,ruote,posta,k
Gioca es
End If
End If
Next
Next:Next:next:next
ScriviResoconto
End Sub