R
Roby
Guest
Gent. MauroV & lottocediani
dopo varie prove sul mio pc e non sapendo come usare le funzioni sulle tabelle analitiche, ho aggiustato il programma secondo quanto ho inteso sulle regole del lotto.
Please, testate il programma e comunicate eventuali errori.
Nota : anche se informatico sappiate chesono nato e cresciuto sui "mainframe" ( i famosi giurassici megacomputer ) dove i linguaggi di programmazione sono ancora quelli "giurassici".
Il mio credo : Legge di Murphy : "se qualcosa può andare male lo farà"
copiate da sotto fino alla fine sul magnifico programma di LuigiB
'-------------------------------
Sub Main()
Dim nu1(90)
Dim nu2(90)
Dim nu3(90)
Dim ru(1)
' nuove tabelle e variabili --------------------------
Dim testra(200,6) ' nuova tabella analitica generata
Dim Kestra(200,6) ' tabella analitica generata per calcolo ritardo posizione
Dim y,x,n,limite,ruo,ides,Loop1,maxlim,ktutto,kritardo
' fine -----------------------------------------------
ru(1) = InputBox("Inserisci la Ruota",,6)
ruo = ru(1)
u = 0.700 'il valore minimo di Ic (Indice di convenienza)
es = EstrazioneFin
ColoreTesto(2)
Scrivi "Tabellone Analitico in Verticale ( modified by WAMBO )"
Scrivi DataEstrazione(es) & " " & es
Scrivi
Scrivi FormatSpace("Ruota",8) & FormatSpace("Posizione",15) & FormatSpace("Formazione",25) & _
FormatSpace("Ritardo Attuale",25) & FormatSpace("RPV",15) & FormatSpace("RPV/RC",10)
Scrivi String(95,"-")
'
' generazione info analitiche
GeneraAnalitico es
Scrivi TabelloneAnalitico(0,0,0) & " max ritardo tutte"
Scrivi TabelloneAnalitico(0,ruo,0) & " max ritardo ruota selezionata"
Scrivi String(95,"-")
' --------------------------------------------------------------------------
' generazione tabella analitica - fase carica estrazioni fino al max ritardo
' --------------------------------------------------------------------------
limite = TabelloneAnalitico(0,ruo,0) ' max ritardo ruota
maxlim = EstrazioneFin - limite ' puntatore archivio lotto, posizione = ultima - max ritardo
' -----------------------------
Loop1 = 1
kritardo = 0
For n = EstrazioneFin To maxlim Step - 1
For k = 1 To 5
testra(Loop1,k) = Estratto(n,ruo,k)
Next
testra(Loop1,6) = kritardo
Loop1 = Loop1 + 1
kritardo = kritardo + 1
Next
' azzera posizione dopo max ritardo ( fine dati )
For k = 1 To 5
testra(Loop1,k) = 0
Next
' -----------------------------
' generazione tabella analitica - fase elimina estratto precedentemente
For ktutto = 1 To limite
For colonna = 1 To 5
numero = testra(ktutto,colonna)
For y = ktutto + 1 To limite + 1
For n = 1 To 5
If testra(y,n) = numero Then
testra(y,n) = 0
End If
Next
Next
Next
Next
' fine generazione tabella analitica ritardi di una singola ruota
' ----------------------------------------------------------------------------
' CICLO per calcolo colonne ritardi
For pos = 1 To 5
rpv = 0
ic = 0
For rit = 1 To limite + 2
If testra(rit,pos) > 0 Then
k = k + 1
nu1(k) = testra(rit,pos)
flag = 1
End If
If testra(rit,pos) = 0 And flag = 1 Then
rr = SerieRitardo(EstrazioneIni,EstrazioneFin,nu1,ru,1,0) ' calcola ritardo gruppo numeri
'
' ---------------
For q = 1 To rr
' ---- generazione tabella analitica per singola estrazione indietro nel tempo fino --
Loop1 = 1
kritardo = 0
For n = EstrazioneFin - q To maxlim Step - 1
For k = 1 To 5
Kestra(Loop1,k) = Estratto(n,ruo,k)
Next
Kestra(Loop1,6) = kritardo
Loop1 = Loop1 + 1
kritardo = kritardo + 1
Next
' azzera posizione dopo max ritardo ( fine dati )
For k = 1 To 5
Kestra(Loop1,k) = 0
Next
' -----------------------------
' generazione tabella analitica per singola estrazione - fase elimina estratto precedentemente
For ktutto = 1 To limite - q
For colonna = 1 To 5
numero = Kestra(ktutto,colonna)
dopo varie prove sul mio pc e non sapendo come usare le funzioni sulle tabelle analitiche, ho aggiustato il programma secondo quanto ho inteso sulle regole del lotto.
Please, testate il programma e comunicate eventuali errori.
Nota : anche se informatico sappiate chesono nato e cresciuto sui "mainframe" ( i famosi giurassici megacomputer ) dove i linguaggi di programmazione sono ancora quelli "giurassici".
Il mio credo : Legge di Murphy : "se qualcosa può andare male lo farà"
copiate da sotto fino alla fine sul magnifico programma di LuigiB
'-------------------------------
Sub Main()
Dim nu1(90)
Dim nu2(90)
Dim nu3(90)
Dim ru(1)
' nuove tabelle e variabili --------------------------
Dim testra(200,6) ' nuova tabella analitica generata
Dim Kestra(200,6) ' tabella analitica generata per calcolo ritardo posizione
Dim y,x,n,limite,ruo,ides,Loop1,maxlim,ktutto,kritardo
' fine -----------------------------------------------
ru(1) = InputBox("Inserisci la Ruota",,6)
ruo = ru(1)
u = 0.700 'il valore minimo di Ic (Indice di convenienza)
es = EstrazioneFin
ColoreTesto(2)
Scrivi "Tabellone Analitico in Verticale ( modified by WAMBO )"
Scrivi DataEstrazione(es) & " " & es
Scrivi
Scrivi FormatSpace("Ruota",8) & FormatSpace("Posizione",15) & FormatSpace("Formazione",25) & _
FormatSpace("Ritardo Attuale",25) & FormatSpace("RPV",15) & FormatSpace("RPV/RC",10)
Scrivi String(95,"-")
'
' generazione info analitiche
GeneraAnalitico es
Scrivi TabelloneAnalitico(0,0,0) & " max ritardo tutte"
Scrivi TabelloneAnalitico(0,ruo,0) & " max ritardo ruota selezionata"
Scrivi String(95,"-")
' --------------------------------------------------------------------------
' generazione tabella analitica - fase carica estrazioni fino al max ritardo
' --------------------------------------------------------------------------
limite = TabelloneAnalitico(0,ruo,0) ' max ritardo ruota
maxlim = EstrazioneFin - limite ' puntatore archivio lotto, posizione = ultima - max ritardo
' -----------------------------
Loop1 = 1
kritardo = 0
For n = EstrazioneFin To maxlim Step - 1
For k = 1 To 5
testra(Loop1,k) = Estratto(n,ruo,k)
Next
testra(Loop1,6) = kritardo
Loop1 = Loop1 + 1
kritardo = kritardo + 1
Next
' azzera posizione dopo max ritardo ( fine dati )
For k = 1 To 5
testra(Loop1,k) = 0
Next
' -----------------------------
' generazione tabella analitica - fase elimina estratto precedentemente
For ktutto = 1 To limite
For colonna = 1 To 5
numero = testra(ktutto,colonna)
For y = ktutto + 1 To limite + 1
For n = 1 To 5
If testra(y,n) = numero Then
testra(y,n) = 0
End If
Next
Next
Next
Next
' fine generazione tabella analitica ritardi di una singola ruota
' ----------------------------------------------------------------------------
' CICLO per calcolo colonne ritardi
For pos = 1 To 5
rpv = 0
ic = 0
For rit = 1 To limite + 2
If testra(rit,pos) > 0 Then
k = k + 1
nu1(k) = testra(rit,pos)
flag = 1
End If
If testra(rit,pos) = 0 And flag = 1 Then
rr = SerieRitardo(EstrazioneIni,EstrazioneFin,nu1,ru,1,0) ' calcola ritardo gruppo numeri
'
' ---------------
For q = 1 To rr
' ---- generazione tabella analitica per singola estrazione indietro nel tempo fino --
Loop1 = 1
kritardo = 0
For n = EstrazioneFin - q To maxlim Step - 1
For k = 1 To 5
Kestra(Loop1,k) = Estratto(n,ruo,k)
Next
Kestra(Loop1,6) = kritardo
Loop1 = Loop1 + 1
kritardo = kritardo + 1
Next
' azzera posizione dopo max ritardo ( fine dati )
For k = 1 To 5
Kestra(Loop1,k) = 0
Next
' -----------------------------
' generazione tabella analitica per singola estrazione - fase elimina estratto precedentemente
For ktutto = 1 To limite - q
For colonna = 1 To 5
numero = Kestra(ktutto,colonna)
