'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

citazione:

---

Inviato in origine da franca46

ciao Dj , grazie , lo provo subito

---

14.12.2023 Fi 80.22.28.10.05
14.12.2023 Mi 86.77.35.14.40

Fi- Numero    22   estratto in  2°  Pos.
Ge- Numero    70   estratto in  2°  Pos.
Mi- Numero    77   estratto in  2°  Pos.

gio 14.12.2023  [10353]
  G  1:  MA      07.70         Fi Ge Mi    10/10    
     M  70               su Mi    1° colpo   [10354/15.12.2023]
     M  70.07            su Ge    2° colpo   [10355/16.12.2023]
     A  70.07            su Ge    2° colpo   [10355/16.12.2023]
     M  07.70            su Mi    6° colpo   [10359/23.12.2023]
     A  07.70            su Mi    6° colpo   [10359/23.12.2023]
     M  70               su Ge    7° colpo   [10360/27.12.2023]
     M  70               su Ge    9° colpo   [10362/29.12.2023]

  G  2:  AT      07.29.70      Fi Ge Mi    10/10    
     A  70.07            su Ge    2° colpo   [10355/16.12.2023]
     A  07.70            su Mi    6° colpo   [10359/23.12.2023]

  G  3:  AT      07.79.70      Fi Ge Mi    10/10    
     A  70.07            su Ge    2° colpo   [10355/16.12.2023]
     A  07.70            su Mi    6° colpo   [10359/23.12.2023]

  G  4:  AT      07.70.29.79   Tu          10/10    
     A  70.07            su Tu (Ge)    2° colpo   [10355/16.12.2023]
     A  29.70            su Tu (Pa)    5° colpo   [10358/22.12.2023]
     A  07.70            su Tu (Mi)    6° colpo   [10359/23.12.2023]