| R E V I S I O N E D E L L A D I S C U S S I O N E |
| franca46 |
Posted - 01 dicembre 2023 : 08:11:45
ciao ragazzi , in questo listato si può aggiungere la Naz ? forse per questo si ferma al 6 ottobre ?
Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4,n5,n6
Dim am(10)
Dim ab(10)
Dim at(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim posto(5)
posto(2)=1.6
posto(3)=0.4
posta(1)=1
posta(2)=1
ini= 10000
For n=ini To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While RAD30(n,t,r1,r2,n1,n2,n3,n4,n5,n6)=True
Scrivi "**************************************************************"
ColoreTesto 2
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r1),2)&" "& StringaEstratti(n,r1)
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r2),2)&" "& StringaEstratti(n,r2)
Scrivi
ColoreTesto 0
ruota(1)=r1
ruota(2)=r2
ruota(3)=12
am(1)=n4
am(2)=Diametrale(am(1))
ImpostaGiocata 1,am,ruota,posta,12,0
ab(1)=n1
'ab(2)=Diametrale(ab(1))
'ImpostaGiocata 2,ab,ruota,posta,9,2
at(1)=n2
'at(2)=Diametrale(at(1))
'at(3)=n1
'ImpostaGiocata 3,at,ruota,posta,9,2
at(1)=n4
'at(2)=Diametrale(at(1))
'at(3)=n2
'ImpostaGiocata 4,at,ruota,posta,9,2
at(1)=n5
at(2)=ab(2)
'at(3)=n3
' ImpostaGiocata 5,at,ruota,posta,9,2
For x=2 To 5
For xx=2 To 5
Next
Next
Gioca n
t=t+1
Loop
Next
'ScriviResoconto
End Sub
Function RAD30(estrazione,tentativo,byref ruota1,byref ruota2,byref numero1,byref numero2,byref numero3,byref numero4,byref numero5,byref numero6)
Dim trovati,r,i,j
trovati=0
For r= 1 To 10
For i= 1 To 3
j=i+2
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
If Distanza(a,b)=30 Then
For rr=1 To 10
c=Estratto(estrazione,rr,i+1)
If c=(Fuori90(a+30) And c<>b) Or c=(Fuori90(a+60) And c<>b) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=Estratto(estrazione,r,i)
numero2=Estratto(estrazione,r,j)
numero3=Estratto(estrazione,rr,i+1)
numero4=Estratto(estrazione,r,i+1)
numero5=Estratto(estrazione,rr,j)
numero6=Estratto(estrazione,rr,j-2)
ruota1=r
ruota2=rr
RAD30=True
Exit Function
End If
End If
Next
End If
Next
Next
RAD30=False
End Function
grazie |
| 2 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 03 dicembre 2023 : 07:10:44
Grazie, gentilissimo come sempre
Buona domenica |
| DjNomade |
Posted - 02 dicembre 2023 : 22:35:24
Prova cosi'
Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4,n5,n6
Dim am(10)
Dim ab(10)
Dim at(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim posto(5)
posto(2)=1.6
posto(3)=0.4
posta(1)=11
posta(2)=1
ini= 10000
For n=ini To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While RAD30(n,t,r1,r2,n1,n2,n3,n4,n5,n6)=True
Scrivi "**************************************************************"
ColoreTesto 2
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r1),3)&" "& StringaEstratti(n,r1)&" "&n1&" - "&n2,1
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r2),3)&" "& StringaEstratti(n,r2)&" "&n3,1
Scrivi
ColoreTesto 0
ruota(1)=r1
ruota(2)=r2
ruota(3)=12
am(1)=n4
am(2)=Diametrale(am(1))
ImpostaGiocata 1,am,ruota,posta,12,0
ab(1)=n1
'ab(2)=Diametrale(ab(1))
'ImpostaGiocata 2,ab,ruota,posta,9,2
at(1)=n2
'at(2)=Diametrale(at(1))
'at(3)=n1
'ImpostaGiocata 3,at,ruota,posta,9,2
at(1)=n4
'at(2)=Diametrale(at(1))
'at(3)=n2
'ImpostaGiocata 4,at,ruota,posta,9,2
at(1)=n5
at(2)=ab(2)
'at(3)=n3
' ImpostaGiocata 5,at,ruota,posta,9,2
For x=2 To 5
For xx=2 To 5
Next
Next
Gioca n
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function RAD30(estrazione,tentativo,byref ruota1,byref ruota2,byref numero1,byref numero2,byref numero3,byref numero4,byref numero5,byref numero6)
Dim trovati,r,i,j
trovati=0
For r= 1 To 12
If r=11 Then r=12
For i= 1 To 3
j=i+2
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
If Distanza(a,b)=30 Then
For rr=1 To 12
If rr=11 Then rr=12
c=Estratto(estrazione,rr,i+1)
If c=(Fuori90(a+30) And c<>b) Or c=(Fuori90(a+60) And c<>b) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=Estratto(estrazione,r,i)
numero2=Estratto(estrazione,r,j)
numero3=Estratto(estrazione,rr,i+1)
numero4=Estratto(estrazione,r,i+1)
numero5=Estratto(estrazione,rr,j)
numero6=Estratto(estrazione,rr,j-2)
ruota1=r
ruota2=rr
RAD30=True
Exit Function
End If
End If
Next
End If
Next
Next
RAD30=False
End Function |
|
|
