aiuto per piccolamodifica

[giungla]

Sub Main()
Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",Florindi,0))
If ee = "" Then Exit Sub
'cl = CInt(InputBox("Quanti colpi ?",Florindi,18))
'If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",Florindi,1))
If r1 = "" Then Exit Sub
es = EstrazioneFin - ee
For nn = 1 To 10
g = 0
For i = 0 To 3000
If Posizione(es - i,r1,nn) > 0 Then g = g + 1:ex(g) = es - i
If g = 27 Then Exit For
Next
es2 = ex(27)
Erase nu : Erase nr
ru1(1) = r1:h = 0
de = DecinaNaturale(nn)
For j = 1 To 10
nu(j) = CInt(de & j)
If j = 10 Then nu(j) = CInt((de + 1) & "0")
Next
For i = 1 To 10
nm = nu(i):k = 0:sf(i) = 0
For z = 27 To 1 Step - 1
ok = 0
For y = 1 To 100
If SerieFreq((ex(z) + y),(ex(z) + y),nu,ru1,1) > 0 Then ok = 1:es1 = ex(z) + y
If ok = 1 Then Exit For
Next
If Posizione(es1,r1,nm) > 0 Then k = k + 1
Next
sf(i) = sf(i) + k
Next
w = 0
For x = 1 To 10
If sf(x)=>0 Then w=1 : amb(1)=nu(x)
Next
If w = 1 Then 'Cerca le 10 presenze

ColoreTesto 0
Scrivi :Scrivi
Scrivi" Dal " & DataEstrazione(es2) & "(" & es2 & ") al " & DataEstrazione(es) & " (" & es & ")" & Chr(10)
Scrivi "Spia : " &(nn) & " N° Presenze su Ruota di ---->" & NomeRuota(r1),1
Scrivi

For i = 1 To 10


Format2(nu(i)) & " "
Next
Scrivi
Scrivi "Num Freq" & Num & Freq

For i = 1 To 10
If(sf(i)) > 6 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(nu(i)) & " " & Format2(sf(i))
Next
Scrivi

End If
Next
Scrivi
ColoreTesto 0
Scrivi String(50,"=") & Chr(10)
Scrivi "°°°Enplein°°°",1


riprendo un listato, quello sopra, perchè volevo inserire due mofiche
la prima riguarda la possibilità di scegliere la posizione della spia
la seconda di far fare la ricerca per tutte le decine (oppure a scelta) indiferrentemente dalla decina della spia ,cosi comè fa solamente infatti la ricerca per la decina di appartenenza

 

[The Wolf]

Sub Main()
Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",Florindi,0))
If ee = "" Then Exit Sub
'cl = CInt(InputBox("Quanti colpi ?",Florindi,18))
'If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",Florindi,1))
If r1 = "" Then Exit Sub
es = EstrazioneFin - ee
For nn = 1 To 10
g = 0
For i = 0 To 3000
If Posizione(es - i,r1,nn) > 0 Then g = g + 1:ex(g) = es - i
If g = 27 Then Exit For
Next
es2 = ex(27)
Erase nu : Erase nr
ru1(1) = r1:h = 0
de = DecinaNaturale(nn)
For j = 1 To 10
nu(j) = CInt(de & j)
If j = 10 Then nu(j) = CInt((de + 1) & "0")
Next
For i = 1 To 10
nm = nu(i):k = 0:sf(i) = 0
For z = 27 To 1 Step - 1
ok = 0
For y = 1 To 100
If SerieFreq((ex(z) + y),(ex(z) + y),nu,ru1,1) > 0 Then ok = 1:es1 = ex(z) + y
If ok = 1 Then Exit For
Next
If Posizione(es1,r1,nm) > 0 Then k = k + 1
Next
sf(i) = sf(i) + k
Next
w = 0
For x = 1 To 10
If sf(x)=>0 Then w=1 : amb(1)=nu(x)
Next
If w = 1 Then 'Cerca le 10 presenze

ColoreTesto 0
Scrivi :Scrivi
Scrivi" Dal " & DataEstrazione(es2) & "(" & es2 & ") al " & DataEstrazione(es) & " (" & es & ")" & Chr(10)
Scrivi "Spia : " &(nn) & " N° Presenze su Ruota di ---->" & NomeRuota(r1),1
Scrivi

For i = 1 To 10


Format2(nu(i)) & " "
Next
Scrivi
Scrivi "Num Freq" & Num & Freq

For i = 1 To 10
If(sf(i)) > 6 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(nu(i)) & " " & Format2(sf(i))
Next
Scrivi

End If
Next
Scrivi
ColoreTesto 0
Scrivi String(50,"=") & Chr(10)
Scrivi "°°°Enplein°°°",1


riprendo un listato, quello sopra, perchè volevo inserire due mofiche
la prima riguarda la possibilità di scegliere la posizione della spia
la seconda di far fare la ricerca per tutte le decine (oppure a scelta) indiferrentemente dalla decina della spia ,cosi comè fa solamente infatti la ricerca per la decina di appartenenza

MODIFICHE APPORTATE !!!!!!!!!


Sub Main()
Scrivi "Spia - Con 27 presenze trova l'ambata con il numero piu frequente" & Chr(10)

Dim ru1(1), nr(10), nu(10), ex(27), sf(10), amb(1), posta(1)
posta(1) = 1

' Gestione Input
Dim sInput
sInput = InputBox("Quante estrazioni a ritroso vuoi esaminare dal termine?", "Florindi", 100)
If sInput = "" Then Exit Sub
ee = CInt(sInput)

sInput = InputBox("Quale Ruota? (1 Bari, 2 Cagliari, ecc.)", "Florindi", 1)
If sInput = "" Then Exit Sub
r1 = CInt(sInput)

' Scelta Posizione Spia
sInput = InputBox("Scegli la posizione della spia:" & Chr(10) & "0 = Qualsiasi posizione (1-5)" & Chr(10) & "1, 2, 3, 4, 5 = Solo una specifica posizione", "Scelta Posizione", 0)
If sInput = "" Then Exit Sub
ScegliPos = CInt(sInput)

' Scelta della Decina
sInput = InputBox("Quale decina vuoi analizzare?" & Chr(10) & "-1 = Tutte le decine" & Chr(10) & "-2 = Solo la decina naturale della spia" & Chr(10) & "Da 0 a 8 = Una decina specifica (Es: 0 per 1-10, 1 per 11-20, ecc.)", "Scelta Decina", -2)
If sInput = "" Then Exit Sub
SceltaDecina = CInt(sInput)

' Definizione range estrazionale
es = EstrazioneFin - ee
ru1(1) = r1

' Ciclo per tutti i 90 numeri Spia
For nn = 1 To 90
g = 0
' Cerca le ultime 27 estrazioni in cui è uscito il numero spia (nn)
For i = 0 To 5000
' Controllo della posizione in base alla scelta dell'utente
Passa = False
If ScegliPos = 0 Then
If Posizione(es - i, r1, nn) > 0 Then Passa = True
Else
If Posizione(es - i, r1, nn) = ScegliPos Then Passa = True
End If

If Passa Then
g = g + 1
ex(g) = es - i
End If
If g = 27 Then Exit For
Next ' <-- CORRETTO: Sostituito il vecchio "Loop" errato con "Next"

If g = 27 Then
es2 = ex(27) ' L'estrazione più vecchia delle 27 trovate

' Impostiamo il ciclo delle decine
Dim DecinaInizio, DecinaFine
If SceltaDecina = - 2 Then
DecinaInizio = DecinaNaturale(nn)
DecinaFine = DecinaNaturale(nn)
ElseIf SceltaDecina = - 1 Then
DecinaInizio = 0
DecinaFine = 8
Else
DecinaInizio = SceltaDecina
DecinaFine = SceltaDecina
End If

' Intestazione per la spia trovata
ColoreTesto 0
Scrivi String(75, "=")
Scrivi " SPIA ANALIZZATA: " & Format2(nn) & " su " & NomeRuota(r1), 1
If ScegliPos = 0 Then
Scrivi " Posizione spia: Qualsiasi (1° - 5°)", 1
Else
Scrivi " Posizione spia richiesta: " & ScegliPos & "° estratto", 1
End If
Scrivi " Periodo di rilevamento spie: dal " & DataEstrazione(es2) & " (" & es2 & ") al " & DataEstrazione(es) & " (" & es & ")"
Scrivi String(75, "-")

' Ciclo che attraversa le decine stabilite
For d = DecinaInizio To DecinaFine

' Carica i numeri della decina corrente
For j = 1 To 10
nu(j) = (d * 10) + j
Next

' Azzera il vettore delle frequenze
For i = 1 To 10
sf(i) = 0
Next

' Calcola le frequenze nei 18 colpi successivi
For z = 1 To 27
InizioColpi = ex(z) + 1
FineColpi = ex(z) + 18
If FineColpi > EstrazioneFin Then FineColpi = EstrazioneFin

For i = 1 To 10
fr = EstrattoFrequenza(r1, nu(i), InizioColpi, FineColpi)
sf(i) = sf(i) + fr
Next
Next

' Trova il numero più frequente nella decina corrente
MaxFreq = - 1
NumeroMax = 0
For x = 1 To 10
If sf(x) > MaxFreq Then
MaxFreq = sf(x)
NumeroMax = nu(x)
End If
Next

' Stampa i risultati della decina corrente
ColoreTesto 1
Scrivi " --> ANALISI DECINA: " &(d * 10) + 1 & " - " &(d * 10) + 10, 1
ColoreTesto 0

' Elenco dei 10 numeri della decina con le relative frequenze
Dim RigaNumeri, RigaFreq
RigaNumeri = " Num: "
RigaFreq = " Freq: "
For i = 1 To 10
RigaNumeri = RigaNumeri & Format2(nu(i)) & " "
RigaFreq = RigaFreq & Format2(sf(i)) & " "
Next
Scrivi RigaNumeri
Scrivi RigaFreq

ColoreTesto 2
Scrivi " Miglior Ambata per questa decina: " & Format2(NumeroMax) & " (Freq. " & MaxFreq & ")"
Scrivi String(50, ".")
ColoreTesto 0

Next ' Fine ciclo decine
Scrivi
End If
Next ' Fine ciclo 90 spie

ColoreTesto 0
Scrivi String(75, "=") & Chr(10)
Scrivi "°°°Enplein & Fixes°°°", 1
End Sub