R
Roby
Guest
Ciao Enplein , scusa se ti disturbo io ho questo listato che verifica una presenza minima di 3 numeri su 6 estrazioni consecutive.
Ora il mio problema è questo : Se volessi verificare la frequenza minima su più estrazioni consecutive (Mettiamo 18) cosa dovrei modificare.
Un grazie anticipato se vorrai rispondermi
Buona giornata
Mauro
Sub main()
Dim vet(30),ru(1),stat(),m(2),post1(1),post2(2)
f=3'<==frequenza minima desiderata
k=10 ' colpi di gioco
post1(1)=1
post2(2)=1
Scrivi Chr(10)& " RICERCA RIPETUTI CON FREQ MINIMA = "& f & " SU 6 ESTRAZIONI CONSECUTIVE ",1
Scrivi
For es=EstrazioneFin-25 To EstrazioneFin
For r= 1 To 10
Messaggio es
ru(1)=r :n=0 : Redim stat(0,0)
iniA=es-5
finA=es
'-------------------------------------------------- carico il vettore con gli estratti
For esp=iniA To finA
For p= 1 To 5
n=n+1 : vet
=Estratto(esp,r,p)
Next
Next
'-------------------------------------------------- cerco i ripetuti
OrdinaMatrice vet
Redim stat(2,0) 'dimensiono la matrice stat a 2 righe e 0 colonne
For i= 1 To 30
If vet(i)> vet(i-1) Then
co=co+1
Redim preserve stat(2,co)
stat(1,co)=vet(i)
stat(2,co)=1
For y= i+1 To 30
If vet(i)=vet
Then stat(2,co)=stat(2,co)+1
Next
End If
Next
'---------------------- verifico se vi sono casi con fre desiderata
cu=0 : Redim nu(0)
For i= 1 To co
If stat(2,i)=> f Then
cu=cu+1 : Redim preserve nu(cu)
nu(cu) = stat(1,i)
End If
Next
'-------------------------------- se ne trova scrive, e gioca
If cu>0 Then
'If cu=1 Then '<== se vuoi solo i casi in cui c'è 1 solo numero a fre 3
Scrivi Chr(10)&String(60,"-")
For esp=iniA To finA
ColoreTesto 0
Scrivi DataEstrazione(esp)& " ",0,0:
For p=1 To 5
For h= 1 To cu
ColoreTesto 0
If Estratto(esp,r,p)=nu(h) Then
ColoreTesto 2
Exit For
End If
Next
Scrivi Format2(Estratto(esp,r,p))& " ",0,0
If p=5 Then Scrivi Chr(13)
Next
Next
ColoreTesto 0
Scrivi Chr(10)& NomeRuota(r) & " ==> ",1,0:
ColoreTesto 1: Scrivi Space(2)& StringaNumeri(nu)&chr(10),1,1 : ColoreTesto 0
For ng=1 To cu
m(1)=nu(ng)
ImpostaGiocata 1,m,ru,post1,k,1 '<== interrompe alla sortita dell'ambata
m(2)=91-m(1)
ImpostaGiocata 2,m,ru,post2,k,2 '<== interrompe alla sortita dell'ambo
Erase m
Gioca es
Next
End If
Next
Next
ScriviResoconto
End Sub
Kant
"L’importante è partecipare": un concetto che si apprezza soprattutto dopo che si è vinto.
Ora il mio problema è questo : Se volessi verificare la frequenza minima su più estrazioni consecutive (Mettiamo 18) cosa dovrei modificare.
Un grazie anticipato se vorrai rispondermi
Buona giornata
Mauro
Sub main()
Dim vet(30),ru(1),stat(),m(2),post1(1),post2(2)
f=3'<==frequenza minima desiderata
k=10 ' colpi di gioco
post1(1)=1
post2(2)=1
Scrivi Chr(10)& " RICERCA RIPETUTI CON FREQ MINIMA = "& f & " SU 6 ESTRAZIONI CONSECUTIVE ",1
Scrivi
For es=EstrazioneFin-25 To EstrazioneFin
For r= 1 To 10
Messaggio es
ru(1)=r :n=0 : Redim stat(0,0)
iniA=es-5
finA=es
'-------------------------------------------------- carico il vettore con gli estratti
For esp=iniA To finA
For p= 1 To 5
n=n+1 : vet
=Estratto(esp,r,p)Next
Next
'-------------------------------------------------- cerco i ripetuti
OrdinaMatrice vet
Redim stat(2,0) 'dimensiono la matrice stat a 2 righe e 0 colonne
For i= 1 To 30
If vet(i)> vet(i-1) Then
co=co+1
Redim preserve stat(2,co)
stat(1,co)=vet(i)
stat(2,co)=1
For y= i+1 To 30
If vet(i)=vet
Then stat(2,co)=stat(2,co)+1 Next
End If
Next
'---------------------- verifico se vi sono casi con fre desiderata
cu=0 : Redim nu(0)
For i= 1 To co
If stat(2,i)=> f Then
cu=cu+1 : Redim preserve nu(cu)
nu(cu) = stat(1,i)
End If
Next
'-------------------------------- se ne trova scrive, e gioca
If cu>0 Then
'If cu=1 Then '<== se vuoi solo i casi in cui c'è 1 solo numero a fre 3
Scrivi Chr(10)&String(60,"-")
For esp=iniA To finA
ColoreTesto 0
Scrivi DataEstrazione(esp)& " ",0,0:
For p=1 To 5
For h= 1 To cu
ColoreTesto 0
If Estratto(esp,r,p)=nu(h) Then
ColoreTesto 2
Exit For
End If
Next
Scrivi Format2(Estratto(esp,r,p))& " ",0,0
If p=5 Then Scrivi Chr(13)
Next
Next
ColoreTesto 0
Scrivi Chr(10)& NomeRuota(r) & " ==> ",1,0:
ColoreTesto 1: Scrivi Space(2)& StringaNumeri(nu)&chr(10),1,1 : ColoreTesto 0
For ng=1 To cu
m(1)=nu(ng)
ImpostaGiocata 1,m,ru,post1,k,1 '<== interrompe alla sortita dell'ambata
m(2)=91-m(1)
ImpostaGiocata 2,m,ru,post2,k,2 '<== interrompe alla sortita dell'ambo
Erase m
Gioca es
Next
End If
Next
Next
ScriviResoconto
End Sub
Kant
"L’importante è partecipare": un concetto che si apprezza soprattutto dopo che si è vinto.
