Avrei bisogno di una tabella che descrivo e posto alla fine di un breve listatino da cui vengono rilevati;;
' LO SCRIPT HA BISOGNO DI AGGIUSTAMENTI FORMALI MA FUNZIONA PER QUELLO che vorrei fare
' IMPOSTAZIONI
' analizzate 3 SETTIMANE DA da 4 estrazioni cad. per 4 colpi:
' IMPOSTARE RANGE DA 12 ESTRAZIONI PER FACILITARE LA RICERCA VISIVA DEGLI ESITI AD OGNI ELABORAZIONE
' IMPOSTARE LA POS DELL'ESTRATTO DA 1 A 5
' PER OGNI POSIZIONE LO SCRIPT AGGIUNGE IL SOMMATIVO DA 1 A 90 ESEGUE LA GIOCATA E INDICA IL, RISULTATO
' SPIEGAZIONI PER LA TABELLA
' A NOI INTERESSA PRENDERE NOTA DEI SOMMATORI" NX " CHE HANNO DATO ESITI POSITIVI (TRE O PIU )IN TUTTE LE TRE SETTIMANE ,IN UNO O PIU' 'COLPI DI GIOCO.
' E QUEI SOMMATORI CHE HANNO VINTO SOLO NELLE ULTIME DUE SETTIMANE PRECEDENTI L'ESTRAZIONE DI LANCIO SCRIPT.ALLEGO SOTTO UNA 'PARTE DI TABELLA FATTA A MANO
' L'ESEMPIO SOTTO RIPORTATO LAVORA NAPOLI...SPERO CHE AIUTI A TROVARE I SOMMATORI GIUSTI,; E' CHIARO CHE NON E' PER NIENTE SICURO CHE 'SEGUITERANNO 'A FUNZINONARE NEL BREVE.
' DOPO LA SCELTA I SOMMATORI VENGONO IMMESSI IN UN'ALTRO SEMPLICE LISTATO PER IL GIOCO DI UNA SESTINA VALIDA SOLO QUATTRO COLPI
' A VOLTE SEGUENDO CON COSTANZA CERTOSINA GLI EVENTI ,QUACOSA ARRIVA .
' LA TABELLA AUTOMATICA SERVE PER VELOCIZZARE LA SCELTA.
Sub Main()
Dim rx(10)
Dim poste(5)
Dim ald(10)
poste(1) = 1
PX = CInt(InputBox("INSERIRE POS ESTRATTO ",,1))
'Rx = CInt(InputBox("INSERIRE LA RUOTA DA ESAMINARE DA 1 A 12 ",,1))
RANGE = 12'InputBox("Quante estrazioni controllo?",,12)
clp = 4'InputBox("Per quanti colpi?",,9)
rx(1) = 6
For NX = 1 To 90
fin = EstrazioneFin
ini = 10469 - RANGE
For ex = ini To fin
If Left(DataEstrazione(ex,1),3) = "mar" Then 'Questa linea e' ststa fornita ,in questo forum, dal grande e generoso joe
Scrivi " POS ESTRATTO " & CInt(PX) & " FISSO " & CInt(NX)
Scrivi CInt(NX)
Messaggio CStr(EstrazioneFin - ex)
ald(1) = Fuori90((Estratto(ex,6,PX) + NX))' INSERIRE RUOTA IN POS 2
ImpostaGiocata 1,ald,rx,poste,4,3
Gioca ex,True
End If
Next
Next
End Sub
'TABELLA FATTA A FATTA A MANO ,UN ESEMPIO DI COME LA VORREI
' i sommatori che non hanno vinto non vengono stampati
' VINCITE DEL SOMMATIVO DA 1 A 90-------NAPOLI EX DEL MARTEDI 9-7-24
'LISTA CON INDICAZIONI "V" DELLE VINCITE CONSEGUITE NELLE 12 GIOCATE PREGRESSE NELLE RELATIVE POSIZIONI ESTRATTIVE
'
'POS 1° 6 32 84 89
'1 SETT
'1° CLP
'2° CLP V
'3° CLP
'4° CLP V
'2 SETT
'1° CLP
'2° CLP V
'3° CLP V V
'4° CLP V
'3 SETT
'1° CLP V
'2° CLP V
'3° CLP V V
'4° CLP
'POS 2° 2 7 31
'1 SETT
'1° CLP
'2° CLP V
'3° CLP
'4° CLP V
'2 SETT
'1° CLP
'2° CLP V
'3° CLP V V
'4° CLP V
'3 SETT
'1° CLP V
'2'° CLP V
'3° CLP V V
'4° CLP
'POS 3° to be ultimated
'POS 4° to be ultimated
'POS 5° 35 56 68 75
'To be ultimated
' LO SCRIPT HA BISOGNO DI AGGIUSTAMENTI FORMALI MA FUNZIONA PER QUELLO che vorrei fare
' IMPOSTAZIONI
' analizzate 3 SETTIMANE DA da 4 estrazioni cad. per 4 colpi:
' IMPOSTARE RANGE DA 12 ESTRAZIONI PER FACILITARE LA RICERCA VISIVA DEGLI ESITI AD OGNI ELABORAZIONE
' IMPOSTARE LA POS DELL'ESTRATTO DA 1 A 5
' PER OGNI POSIZIONE LO SCRIPT AGGIUNGE IL SOMMATIVO DA 1 A 90 ESEGUE LA GIOCATA E INDICA IL, RISULTATO
' SPIEGAZIONI PER LA TABELLA
' A NOI INTERESSA PRENDERE NOTA DEI SOMMATORI" NX " CHE HANNO DATO ESITI POSITIVI (TRE O PIU )IN TUTTE LE TRE SETTIMANE ,IN UNO O PIU' 'COLPI DI GIOCO.
' E QUEI SOMMATORI CHE HANNO VINTO SOLO NELLE ULTIME DUE SETTIMANE PRECEDENTI L'ESTRAZIONE DI LANCIO SCRIPT.ALLEGO SOTTO UNA 'PARTE DI TABELLA FATTA A MANO
' L'ESEMPIO SOTTO RIPORTATO LAVORA NAPOLI...SPERO CHE AIUTI A TROVARE I SOMMATORI GIUSTI,; E' CHIARO CHE NON E' PER NIENTE SICURO CHE 'SEGUITERANNO 'A FUNZINONARE NEL BREVE.
' DOPO LA SCELTA I SOMMATORI VENGONO IMMESSI IN UN'ALTRO SEMPLICE LISTATO PER IL GIOCO DI UNA SESTINA VALIDA SOLO QUATTRO COLPI
' A VOLTE SEGUENDO CON COSTANZA CERTOSINA GLI EVENTI ,QUACOSA ARRIVA .
' LA TABELLA AUTOMATICA SERVE PER VELOCIZZARE LA SCELTA.
Sub Main()
Dim rx(10)
Dim poste(5)
Dim ald(10)
poste(1) = 1
PX = CInt(InputBox("INSERIRE POS ESTRATTO ",,1))
'Rx = CInt(InputBox("INSERIRE LA RUOTA DA ESAMINARE DA 1 A 12 ",,1))
RANGE = 12'InputBox("Quante estrazioni controllo?",,12)
clp = 4'InputBox("Per quanti colpi?",,9)
rx(1) = 6
For NX = 1 To 90
fin = EstrazioneFin
ini = 10469 - RANGE
For ex = ini To fin
If Left(DataEstrazione(ex,1),3) = "mar" Then 'Questa linea e' ststa fornita ,in questo forum, dal grande e generoso joe
Scrivi " POS ESTRATTO " & CInt(PX) & " FISSO " & CInt(NX)
Scrivi CInt(NX)
Messaggio CStr(EstrazioneFin - ex)
ald(1) = Fuori90((Estratto(ex,6,PX) + NX))' INSERIRE RUOTA IN POS 2
ImpostaGiocata 1,ald,rx,poste,4,3
Gioca ex,True
End If
Next
Next
End Sub
'TABELLA FATTA A FATTA A MANO ,UN ESEMPIO DI COME LA VORREI
' i sommatori che non hanno vinto non vengono stampati
' VINCITE DEL SOMMATIVO DA 1 A 90-------NAPOLI EX DEL MARTEDI 9-7-24
'LISTA CON INDICAZIONI "V" DELLE VINCITE CONSEGUITE NELLE 12 GIOCATE PREGRESSE NELLE RELATIVE POSIZIONI ESTRATTIVE
'
'POS 1° 6 32 84 89
'1 SETT
'1° CLP
'2° CLP V
'3° CLP
'4° CLP V
'2 SETT
'1° CLP
'2° CLP V
'3° CLP V V
'4° CLP V
'3 SETT
'1° CLP V
'2° CLP V
'3° CLP V V
'4° CLP
'POS 2° 2 7 31
'1 SETT
'1° CLP
'2° CLP V
'3° CLP
'4° CLP V
'2 SETT
'1° CLP
'2° CLP V
'3° CLP V V
'4° CLP V
'3 SETT
'1° CLP V
'2'° CLP V
'3° CLP V V
'4° CLP
'POS 3° to be ultimated
'POS 4° to be ultimated
'POS 5° 35 56 68 75
'To be ultimated