Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Cerco script per il 10 elotto serale tipo cruciverba
- Creatore Discussione armando59
- Data di inizio
armando59
Advanced Member >GOLD<
Buongiorno volevo sapere se é passibile creare uno script per il 10 e lotto serale,
partendo dall'ultima estrazione mensile usando in sequenza il primo numero di BA FI MI
il secondo numero di BA FI MI
il quinto numero di BA FI MI
per un totale di 9 numeri
che formano 8 terzine tipo come un cruciverba
che verifica anche l'uscita del numero oro
grazie e buona giornata
partendo dall'ultima estrazione mensile usando in sequenza il primo numero di BA FI MI
il secondo numero di BA FI MI
il quinto numero di BA FI MI
per un totale di 9 numeri
che formano 8 terzine tipo come un cruciverba
che verifica anche l'uscita del numero oro
grazie e buona giornata
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim T,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10
Dim K,larghezze
Dim Serie1(25),Serie2(25),Serie3(25),Serie4(25),Serie5(25)
Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13
Dim N14,N15,N16,N17,N18,N19,N20,N21
'
N1 = InputBox("Scrivi numero fisso 8")
N2 = NumeroCasuale(1,50)
N3 = NumeroCasuale(1,50)
N4 = NumeroCasuale(1,50)
N5 = NumeroCasuale(1,50)
N6 = NumeroCasuale(1,50)
N7 = NumeroCasuale(1,50)
N8 = NumeroCasuale(1,50)
N9 = NumeroCasuale(1,50)
N10 = NumeroCasuale(1,50)
N11 = NumeroCasuale(1,50)
N12 = NumeroCasuale(1,50)
N13 = NumeroCasuale(1,50)
N14 = NumeroCasuale(1,50)
N15 = NumeroCasuale(1,50)
N16 = NumeroCasuale(1,50)
N17 = NumeroCasuale(1,50)
N18 = NumeroCasuale(1,50)
N19 = NumeroCasuale(1,50)
N20 = NumeroCasuale(1,50)
N21 = NumeroCasuale(1,50)
'
T1 = Array(T1,Space(23),Space(23),Space(23),Space(23),Space(23))
Call InitTabella(T1)
'
T1 = Array(T1,N1,N2,N3,N4,N5)
larghezze = Array(T1,8,8,8,8,8)
Call AddRigaTabella(T1,Bianco_,"center",larghezze,Nero_,"Raavi")
Call SetColoreCella(1,RGB(255,85,89),RGB(0,0,0)) 'x
Call SetColoreCella(2,RGB(211,214,55),RGB(0,0,0))
Call SetColoreCella(3,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(4,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(5,RGB(9,204,140),RGB(0,0,0))
'-------------------------------
'------------------------------------------------
T2 = Array(T2,N6,N1,N7,N8,N9)
larghezze = Array(T2,8,8,8,8,8)
Call AddRigaTabella(T2,Bianco_,"center",larghezze,Nero_,"Raavi")
Call SetColoreCella(1,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,85,89),RGB(0,0,0)) ' x
Call SetColoreCella(3,RGB(211,214,55),RGB(0,0,0))
Call SetColoreCella(4,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(5,RGB(112,97,250),RGB(0,0,0))
'-------------------------------
'-------------------------------
T3 = Array(T3,N10,N11,N1,N12,N13)
larghezze = Array(T3,8,8,8,8,8)
Call AddRigaTabella(T3,Bianco_,"center",larghezze,Nero_,"Raavi")
Call SetColoreCella(1,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(2,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,85,89),RGB(0,0,0)) 'x
Call SetColoreCella(4,RGB(211,214,55),RGB(0,0,0))
Call SetColoreCella(5,RGB(9,204,140),RGB(0,0,0))
'-------------------------------
'-------------------------------
T4 = Array(T4,N14,N15,N16,N1,N17)
larghezze = Array(T4,8,8,8,8,8)
Call AddRigaTabella(T4,Bianco_,"center",larghezze,Nero_,"Raavi")
Call SetColoreCella(1,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(2,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(3,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,85,89),RGB(0,0,0)) ' x
Call SetColoreCella(5,RGB(211,214,55),RGB(0,0,0))
'-------------------------------
'-------------------------------
T5 = Array(T5,N18,N19,N20,N21,N1)
larghezze = Array(T5,8,8,8,8,8)
Call AddRigaTabella(T5,Bianco_,"center",larghezze,Nero_,"Raavi")
Call SetColoreCella(1,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(2,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(3,RGB(9,204,140),RGB(0,0,0))
Call SetColoreCella(4,RGB(112,97,250),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,85,89),RGB(0,0,0)) ' x
'Call SetTableWidth("19")
CreaTabella
'End If
Serie1(1) = Format2(N1)
Serie1(2) = Format2(N2)
Serie1(3) = Format2(N3)
Serie1(4) = Format2(N4)
Serie1(5) = Format2(N5)
Serie2(6) = Format2(N6)
Serie2(7) = Format2(N1)
Serie2(8) = Format2(N7)
Serie2(9) = Format2(N8)
Serie2(10) = Format2(N9)
Serie3(11) = Format2(N10)
Serie3(12) = Format2(N11)
Serie3(13) = Format2(N1)
Serie3(14) = Format2(N12)
Serie3(15) = Format2(N13)
Serie4(16) = Format2(N14)
Serie4(17) = Format2(N15)
Serie4(18) = Format2(N16)
Serie4(19) = Format2(N1)
Serie4(20) = Format2(N17)
Serie5(21) = Format2(N18)
Serie5(22) = Format2(N19)
Serie5(23) = Format2(N20)
Serie5(24) = Format2(N21)
Serie5(25) = Format2(N1)
Scrivi StringaNumeri(Serie1,"."),1,1,6,7,5
Scrivi StringaNumeri(Serie2,"."),1,1,3,7,5
Scrivi StringaNumeri(Serie3,"."),1,1,4,7,5
Scrivi StringaNumeri(Serie4,"."),1,1,5,7,5
Scrivi StringaNumeri(Serie5,"."),1,1,6,7,5
End Subciao, ho scritto questo cruciverba 5x5 per l'eurojackpot che sono 50 numeri,
ma si puo adattare anche al 10elotto serale, e a tutti gli altri giochi,
volevo chiedere ai programmatori capita a volte che i numeri casuali scrivono lo stesso numero
nella stessa riga o nella stessa colonna, si puo fare qualcosa per evitare questi numeri doppioni che scrivono
nel cruciverba..
Ultima modifica:
Certo
basta impostare le condizione adeguate che escludano la creazione dei doppioni :
crea i 5 numeri casuali della 1a riga e se in corso di creazione tramite confronto vi sono ripetuti ripeti numerocasuale
ripeti il tutto per le 5 righe ed avrai una tabella 5x5.
Adesso fai il controllo sulle singole 5 colonne ed avrai ottenuto il tuo cruciverba corretto.
Importante, se riesci, tutta la operazione descrittà andrebbe eseguita nella memoria del pc attraverso l'uso di array e matrice (dimensione cruciverba) e solo al termine si deve creare al tabella in output con colori e parametri a piacimento.
Saluti ( occhio che ho fatto delle correzioni )
Ultima modifica:
Zetrix
Advanced Premium Member
armando il messaggio che ho scritto non era riferito a te, ma a claudio,
purtroppo si creano sempre degli equivoci nel forum..
la richiesta che ai fatto purtroppo non posso scriverlo lo script per me e un po difficile
ma qua ci sono dei bravi programmatori che possono farlo lo script
il problema e che siamo in estate e molti saranno in vacanze al mare..
se ti interessa qualche script per il 10elotto serale ho diversi script
ma non tratto gli indici mensile..
purtroppo si creano sempre degli equivoci nel forum..
la richiesta che ai fatto purtroppo non posso scriverlo lo script per me e un po difficile
ma qua ci sono dei bravi programmatori che possono farlo lo script
il problema e che siamo in estate e molti saranno in vacanze al mare..
se ti interessa qualche script per il 10elotto serale ho diversi script
ma non tratto gli indici mensile..
Non importa, non te lo riscrivo perchè non so che lingua usare cont te .
Zetrix
Advanced Premium Member
a spiegato come e lo sviluppo del cruciverba ma non a scritto come si dovrà scrivere il codice script
per scartare il numero che si e ripetuto nella stessa riga o colonna..
comunque non importa non e un problema dei numeri che scrivono i doppioni basta non giocarli
e il problema si e risolto..
se no si deve usare un altro sistema per ogni riga si mettono i numeri casuali in questo modo..
es,
1riga (01,10)
2riga (11,20)
3riga(21,30)
4riga(31,40)
5riga(41,50)
in questo modo lo script non dovrebbe scrivere i numeri doppioni..
e il problema si e risolto..
anzi no mi sa che scrive lo stesso i doppioni sulla stessa riga..
per scartare il numero che si e ripetuto nella stessa riga o colonna..
comunque non importa non e un problema dei numeri che scrivono i doppioni basta non giocarli
e il problema si e risolto..
se no si deve usare un altro sistema per ogni riga si mettono i numeri casuali in questo modo..
es,
1riga (01,10)
2riga (11,20)
3riga(21,30)
4riga(31,40)
5riga(41,50)
in questo modo lo script non dovrebbe scrivere i numeri doppioni..
e il problema si e risolto..
anzi no mi sa che scrive lo stesso i doppioni sulla stessa riga..
Zetrix
Advanced Premium Member
invece io ho seguito un altra logica ho fatto il cruciverba a sistema sui numeri casuali
in modo che nessun numero casuale si riscrive di nuovo sulla stessa riga..o colonna..
in questo modo non ci dovrebbero essere numeri doppioni perche i numeri casuali sono generati
con algoritmi variabili e diversi su ogni riga e colonna..
Ultima modifica:
Zetrix
Advanced Premium Member
questa e la matrice sui numeri casuali , meglio di cosi non si puo fare..
disponendo la matrice in questo modo non ci devono essere doppioni sulla riga o colonna,
l'unico problema e la N1 che puo risultare doppione su qualche riga o colonna..
ma non dovrebbe essere un problema si puo ritentare di nuovo fare il cruciverba..
oppure si sostituisce il numero doppione con il suo vert..
il cruciverba gioca le cinquine su riga e le cinquine in colonna..
ovviamente il numero fisso la N1 e la base del cruciverba..
che puo essere scelto tramite inputbox oppure si puo far scegliere dal sistema un numero casuale da 1 a 50
Ultima modifica:
questi non sono numeri casuali, questi sono numeri "casual" per non dire a casaccio.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 19 luglio 2025Bari7037366801Cagliari5702643341Firenze1862090506Genova3610743742Milano3907582322Napoli1869283640Palermo7166726423Roma1964397710Torino8363710872Venezia5183265074Nazionale8981633203Estrazione Simbolotto
Nazionale
1632211903
