Richiesta listato frequenza ambo in decina

[rosce14]

ciao joe91 io tra i tanti listati ho trovato questo fatto dal grande luigib,fa le stesse cose che vorrei facessi per la ricerca degli ambi però si limita a fare statistica per l'intera decina
se ti può aiutare eccolo:

Optionexplicit
submain
dimruota
dimncicli
diminizio,fine
dimidestr
dimiddecina
dimserr
dimntotale
redimanum(10)
redimaruote(1)
ruota=scegliruota
ncicli=int(inputbox("inserire il numero dei cicli da 18",,18))
inizio=(estrazionefin-(ncicli* 18)) + 1
fine=estrazionefin- 17
ifncicli> 0 andinizio> 0 andruota> 0 then
aruote(1) =ruota
foriddecina= 1 to 9
ntotale= 0
callalimentanumeri(iddecina,anum)
redimatitoli(2)
atitoli(1) = " range "
atitoli(2) = " frequenza "
callinittabella(atitoli)
foridestr=iniziotofinestep 18
redimavalori(2)
avalori(1) =cstr(idestr) & " - " &cstr(idestr+ 17)
avalori(2) =seriefreq(idestr,idestr+ 17,anum,aruote,1)
ntotale=ntotale+clng(avalori(2))
calladdrigatabella(avalori)
next
redimavalori(2)
avalori(1) = "totale"
avalori(2) =ntotale
calladdrigatabella(avalori,vbyellow)
callscrivi(" meglio elaborare dal 01 1945 in cicli da 18 estrazioni tot. 249 cicli meglio un totale altissimo...purchè abbia freq alta ultimi 2 cicli ")
callscrivi("ruota in gioco " &nomeruota(ruota))
callscrivi("decina analizzata " &stringanumeri(anum))
callscrivi
callcreatabella
next
else
ifncicli<= 0 then
serr= "numero di cicli non valido"
endif
ifinizio<= 0 then
serr= "troppi cicli rispetto alle estrazioni del range"
endif
ifiddecina<= 0 then
serr= "nessuna decina selezionata"
endif
ifruota<= 0 then
serr= "nessuna ruota selezionata"
endif
msgboxserr,vbcritical
endif
endsub
functionsceglidecina()
redimavoci(8)
dimk,i
fork= 1 to 81 step 10
avoci(i) = "decina " &k& " - " &k+ 9
i=i+ 1
next
sceglidecina=scegliopzionemenu(avoci,0,"selezione decina") + 1
endfunction
subalimentanumeri(iddecina,anum)
dimi,k,y
i=((iddecina- 1) * 10) + 1
fork=ito(i- 1) + 10
y=y+ 1
anum(y) =k
next
endsub
　

ciao, non riesco ad aprirlo in spaziometria,mi da errore perche'?

Grazie.

 

[Antonin]

Option Explicit
Sub Main
Dim ruota
Dim ncicli
Dim inizio,fine
Dim idestr
Dim iddecina
Dim serr
Dim ntotale
ReDim anum(10)
ReDim aruote(1)
ruota=ScegliRuota
ncicli=Int(InputBox("inserire il numero dei cicli da 18",,18))
inizio=(EstrazioneFin-(ncicli* 18)) + 1
fine=EstrazioneFin- 17
If ncicli> 0 And inizio> 0 And ruota> 0 Then
aruote(1) =ruota
For iddecina= 1 To 9
ntotale= 0
Call alimentanumeri(iddecina,anum)
ReDim atitoli(2)
atitoli(1) = " range "
atitoli(2) = " frequenza "
Call InitTabella(atitoli)
For idestr=inizio To fine Step 18
ReDim avalori(2)
avalori(1) =CStr(idestr) & " - " &CStr(idestr+ 17)
avalori(2) =SerieFreq(idestr,idestr+ 17,anum,aruote,1)
ntotale=ntotale+CLng(avalori(2))
Call AddRigaTabella(avalori)
Next
ReDim avalori(2)
avalori(1) = "totale"
avalori(2) =ntotale
Call AddRigaTabella(avalori,vbYellow)
Call Scrivi(" meglio elaborare dal 01 1945 in cicli da 18 estrazioni tot. 249 cicli meglio un totale altissimo...purchè abbia freq alta ultimi 2 cicli ")
Call Scrivi("ruota in gioco " &NomeRuota(ruota))
Call Scrivi("decina analizzata " &StringaNumeri(anum))
Call Scrivi
Call CreaTabella
Next
Else
If ncicli<= 0 Then
serr= "numero di cicli non valido"
End If
If inizio<= 0 Then
serr= "troppi cicli rispetto alle estrazioni del range"
End If
If iddecina<= 0 Then
serr= "nessuna decina selezionata"
End If
If ruota<= 0 Then
serr= "nessuna ruota selezionata"
End If
MsgBox serr,vbCritical
End If
End Sub
Function sceglidecina()
ReDim avoci(8)
Dim k,i
For k= 1 To 81 Step 10
avoci(i) = "decina " &k& " - " &k+ 9
i=i+ 1
Next
sceglidecina=ScegliOpzioneMenu(avoci,0,"selezione decina") + 1
End Function
Sub alimentanumeri(iddecina,anum)
Dim i,k,y
i=((iddecina- 1) * 10) + 1
For k=i To(i- 1) + 10
y=y+ 1
anum =k
Next
End Sub

Ciao non funziona perche'le voci sono tutte collegate,io non so formattare ma prova a incollare in note- pad quello che ti ho messo,e poi lo copi in spaziometria.

 

[Moro_80]

Ciao, prova ad eseguirlo formattato cosi', vedrai che andrà :

Option Explicit

Sub Main

Dim ruota
Dim ncicli
Dim inizio,fine
Dim idestr
Dim iddecina
Dim serr
Dim ntotale
ReDim anum(10)
ReDim aruote(1)
ruota = ScegliRuota
ncicli = Int(InputBox("inserire il numero dei cicli da 18",,18))
inizio = (EstrazioneFin - (ncicli* 18)) + 1
fine = EstrazioneFin- 17
If ncicli> 0 And inizio> 0 And ruota> 0 Then
aruote(1) =ruota
For iddecina= 1 To 9
ntotale= 0
Call alimentanumeri(iddecina,anum)
ReDim atitoli(2)
atitoli(1) = " range "
atitoli(2) = " frequenza "
Call InitTabella(atitoli)
For idestr=inizio To fine Step 18
ReDim avalori(2)
avalori(1) = CStr(idestr) & " - " &CStr(idestr+ 17)
avalori(2) = SerieFreq(idestr,idestr+ 17,anum,aruote,1)
ntotale = ntotale + CLng(avalori(2))
Call AddRigaTabella(avalori)
Next
ReDim avalori(2)
avalori(1) = "totale"
avalori(2) = ntotale
Call AddRigaTabella(avalori,vbYellow)
Call Scrivi(" meglio elaborare dal 01 1945 in cicli da 18 estrazioni tot. 249 cicli meglio un totale altissimo...purchè abbia freq alta ultimi 2 cicli ")
Call Scrivi("ruota in gioco " & NomeRuota(ruota))
Call Scrivi("decina analizzata " & StringaNumeri(anum))
Call Scrivi
Call CreaTabella
Next
Else
If ncicli <= 0 Then
serr = "numero di cicli non valido"
End If
If inizio <= 0 Then
serr = "troppi cicli rispetto alle estrazioni del range"
End If
If iddecina <= 0 Then
serr = "nessuna decina selezionata"
End If
If ruota <= 0 Then
serr = "nessuna ruota selezionata"
End If
MsgBox serr,vbCritical
End If
End Sub
Function sceglidecina()
ReDim avoci(8)
Dim k,i
For k = 1 To 81 Step 10
avoci(i) = "decina " & k & " - " & k + 9
i =  i+ 1
Next
sceglidecina = ScegliOpzioneMenu(avoci,0,"selezione decina") + 1
End Function
Sub alimentanumeri(iddecina,anum)
Dim i,k,y
i = ((iddecina- 1) * 10) + 1
For k = i To(i- 1) + 10
y = y+ 1
anum(y) = k
Next
End Sub