Modifica script

[rossduca]

Salve a tutti
questo listato gira perfettamente su l'8+ ma su spaziometria non riesco a farlo andare .
A voi funzia
1 saluto
rossduca

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

 

[Joe91]

Salve a tutti
questo listato gira perfettamente su l'8+ ma su spaziometria non riesco a farlo andare .
A voi funzia
1 saluto
rossduca

Hai scritto bene, il listato è per L8.

Comunque sia, l'ho corretto e così "gira" anche su Spaziometria.

Controlla, per favore, che abbia gli stessi risultati perchè,

ho solo corretto le poche istruzioni "non compatibili",

senza controllare null'altro.

Cordiali saluti.

Sub Main()
 ReDim 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
  ReDim poste (4)
  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) : ReDim nu (90,4) : rig1 = "" : rig2 = "" : rig3 = "" : rig4 = ""
 Next
 ScriviResoconto 
 End Sub

 

[rossduca]

Grazie Joe91
mi scuso x il ritardo, il listato è ok
1 saluto.