Salve a tutti
questo listato gira perfettamente su l'8+ ma su spaziometria non riesco a farlo andare .
A voi funzia
1 saluto
rossduca
questo listato gira perfettamente su l'8+ ma su spaziometria non riesco a farlo andare .
A voi funzia
1 saluto
rossduca
Codice:
Sub Main()
Dim nu(90,4),nx(1),poste(4)
Dim ru(),nr()
txt = "Da quale estrazione inizio la ricerca ???"
ini = InputBox(txt,,EstrazioneFin - 10)
If ini = "" Then Exit Sub
txt = "A quale estrazione termino la ricerca ???"
fin = InputBox(txt,,EstrazioneFin)
If fin = "" Then Exit Sub
txt = "Quali ruote esaminare ???" & Chr(10) & Chr(10) & _
"Inserire i numeri ruote separati da un punto"
ruo = InputBox(txt,,"1.2.3")
If ruo = "" Then Exit Sub
ruo = "0." & ruo : tmp = Split(ruo,".")
ReDim ru(UBound(tmp))
For x = 1 To UBound(tmp) : ru(x) = tmp(x) : Next
OrdinaMatrice ru,1
txt = "Di quante estrazioni è il periodo per i frequenti ???"
periodo = InputBox(txt,,18)
If periodo = "" Then Exit Sub
periodo = CInt(periodo - 1)
txt = "In quante estrazioni, precedenti il ciclo di frequenza," & Chr(10) & _
"i numeri impostati non devono essere sortiti ???"
zero = InputBox(txt,,20)
If zero = "" Then Exit Sub
zero = CInt(zero)
txt = "Quale ritardo massimo possono" & Chr(10) & _
"avere i numeri ???"
ritr = InputBox(txt,,40)
If ritr = "" Then Exit Sub
ritr = CInt(ritr)
txt = "Per quanti colpi porto la giocata ???"
colpi = InputBox(txt,,12)
If colpi = "" Then Exit Sub
colpi = CInt(colpi)
For es = ini To fin
Messaggio es
For x = 1 To 90
nx(1) = x
nu(x,1) = x
nu(x,2) = SerieFreq(es - periodo,es,nx,ru,1)
nu(x,3) = SerieFreq(es - periodo - zero,es - periodo,nx,ru,1)
nu(x,4) = SerieRitardo(es - ritr,es,nx,ru,1)
Next
OrdinaMatrice nu,- 1,2
co = 0
For x = 1 To 90
If nu(x,3) = 0 And nu(x,4) <= ritr Then
co = co + 1
If co > 10 Then Exit For
ReDim Preserve nr(co)
nr(co) = nu(x,1)
rig1 = rig1 + Format2(nu(x,1)) & " "
rig2 = rig2 + Format2(nu(x,2)) & " "
rig3 = rig3 + Format2(nu(x,3)) & " "
rig4 = rig4 + Format2(nu(x,4)) & " "
End If
Next
Scrivi "Dalla " & es - periodo & " alla " & es & " Num: " & rig1,1
Scrivi Space(20) & "Pres: " & rig2 & " nelle " & periodo + 1 & " precedenti" & Chr(10) & _
Space(20) & "Pres: " & rig3 & " nelle " & zero & " prima le " & periodo + 1 & Chr(10) & _
Space(20) & "Rit : " & rig4 & " ritardo max = " & ritr
Erase poste
If co > 0 Then
For x = 1 To co
If x > 4 Then Exit For
poste(x) = 1
Next
ImpostaGiocata 1,nr,ru,poste,colpi
Gioca es
End If
Scrivi Chr(10) : Erase nu : rig1 = "" : rig2 = "" : rig3 = "" : rig4 = ""
Next : ScriviResoconto : End Sub
Cordiali saluti.
