Cosi'?
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=45471
ColoreTesto 1
Scrivi "*************** MATUSALEMME ****************************************************",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
ColoreTesto 0
Sub main()
Dim ambata(3)
Dim ambo(2),quartina(4)
Dim ruote(10)
Dim rt(10)
Dim posta(2)
Dim poste(2),postee(5)
co = 0
For es=10100 To EstrazioneFin
For r=1 To 8
rt(1)=r
For rr=r+1 To 10
rt(2)=rr
For p1=1 To 5
If Distanza(r,rr)=2 Then
k=10 '<------------ qui metti al posto di 12 il numero di colpi che vuoi
posta(1)=1 '<------ se vuoi cambiare l'importo della posta
posta(2)=1 '<------ se vuoi cambiare l'importo della posta
poste(2)=1 '<------ se vuoi cambiare l'importo della posta
postee(3)=1 '<------ se vuoi cambiare l'importo della posta
n1=Estratto(es,r,p1)
n2=Estratto(es,rr,p1)
If Gemello(n1)=True And Gemello(n2)=True And n1<>n2 Then
n3=Estratto(es,r+1,p1)
a=Vert(n3) 'ambata
b=Vert(n1)
c=Vert(n2)
co = co + 1
ColoreTesto 0
Scrivi
Scrivi String(65,"*") & " Caso n°: " & CInt(co),1
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r),1
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr),1
Scrivi
Scrivi Left(NomeRuota(r),2)&"- Numero " &n1& " estratto in " &p1&"° Pos.",1
Scrivi Left(NomeRuota(r+1),2)&"- Numero " &n3& " estratto in " &p1&"° Pos.",1
Scrivi Left(NomeRuota(rr),2)&"- Numero " &n2& " estratto in " &p1&"° Pos.",1
Scrivi
ruote(1)=r
ruote(2)=rr
ambata(1)=a
ImpostaGiocata 1, ambata, rt, posta,k
ambo(1)=a
ambo(2)=b
ImpostaGiocata 2, ambo, ruote, poste,k
ambo(1)=a
ambo(2)=c
ImpostaGiocata 3, ambo, ruote, poste,k
Gioca es
Scrivi
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
