La Figura del TRIANGOLO per TRE TERZINE
- Creatore Discussione Imaging
- Data di inizio
Zetrix
Banned
Codice:
Option Explicit
Sub Main
Dim nEstrInizio,nEstrFine
Dim DataIni,DataFin
Dim sFile
Dim sChrSep
Dim sDirDest
'MsgBox "Sostituisci nello script la directory dove verrà creato il file csv" & vbCrLf & "Poi elimina questo messaggio",vbInformation
sDirDest = "C:\Users\nome computer \Desktop\SpazioLight " '<==== modificare questa riga con il percorso della cartella archivio sul vostro pc
' sDirDest = GetDirectoryAppData
If DirectoryEsistente(sDirDest) Then
sChrSep = ";"
sFile = AddSlash(sDirDest) & "Lotto.csv"
If EliminaFile(sFile) Then
nEstrInizio = 1
nEstrFine = EstrazioniArchivio
Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
End If
Else
MsgBox "Directory non trovata" & vbCrLf & sDirDest
End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
Dim k,f,idEstr
Dim sRecord
Dim nProgr
Dim sDataCorr
Dim r,e
For k = nEstrInizio To nEstrFine
Call Messaggio("Estrazione : " & k)
idEstr = k
ReDim aNum(0)
If GetEstrazioneCompleta(idEstr,aNum) Then
nProgr = nProgr + 1
sDataCorr = Replace(DataEstrazione(idEstr),".","/")
sRecord = FormatSpace(nProgr,9,True) & sChrSep
sRecord = sRecord & FormatSpace(IndiceAnnuale(idEstr),3,True) & sChrSep
sRecord = sRecord & sDataCorr & sChrSep
For r = 1 To 11
For e = 1 To 5
sRecord = sRecord & Format2(aNum(r,e)) & sChrSep
Next
Next
sRecord = RimuoviLastChr(sRecord,sChrSep)
Call ScriviFile(sFile,sRecord,False,True)
Else
Exit For
End If
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
Next
Call CloseFileHandle(sFile)
' Call LanciaFile(sFile)
Scrivi "Esportato file " & sFile
MsgBox "Fine",vbInformation
End Sub
Function AddSlash(s)
If Right(s,1) <> "\" Then
AddSlash = s & "\"
Else
AddSlash = s
End If
End FunctionAlien questo e lo script per aggiornare l'archivio di SpazioLight..
lo esegui su SpazioMetria e ti da un archivio in formato csv
poi sostituisci nella cartella archivio con quello nuovo..
Zetrix
Banned
Alien scusami ma non avevo letto questo messaggio perche si era girata la pagina
di solito rispondo a tutti..a modo mio ma rispondo quasi a tutti..
comunque non e difficile aggiornare l'archivio di SpazioLight..
Alien.
Advanced Premium Member
Ma vuoi scherzare come si fa ad arrabbiarsi con la tua disponibilità a 360 ° ?Alien ce l'ai con me perche non ho risposto alla tua richiesta..
l'ai trovato lo script per aggiornare l'archivio di SpazioLight..
bel film il buono il brutto e cattivo..
io ho conosciuto piu cattivi che buoni..
comunque Scarface e il migliore film che ho visto con AL PACINO...
Il film riferito a voi due che state a discutere per cose futili.....
🤣🤣🤣ma li si parlava di $$$$$$$ veri nei sacchi.Grazie per il listato lo trovo un pò complicato sostituire la cartella su light ma ci provo....
Imaging
Advanced Member >PLATINUM<
Quindi anche se non di interesse un consiglio per chi è più preparato come TE è sempre buono......Secondo Te è meglio con le somme la ricerca o con le distanze ........?La maggior parte degli script ... COMPLESSI ...
espone in genere SOLO il primo e/o l'ultimo dei casi trovati e/o presenti.
Qui, con terne di ruote (165) e combinazioni di posizioni (10 x 10 x 10)
si generano migliaia e migliaia di schemi per ogni estrazione.
Se poi le si completano "+/- a gusto" in alcuni modi differenti
analizzandoli ... graficamente ... li si moltiplica per altrettanti modi.
NON è polemica è Matematica.
Coincide con la semplice voglia di NON impazzirci.
Dunque ho declinato l'invito, scrivendo sinteticamente che non è di mio interesse.
Imaging
Advanced Member >PLATINUM<
Avevo già indicato che io personalmente che gli script non li so fare......Nello specifico hai scritto 2 volte: gioca
Lo avevo già corretto!
Dunque ... è del tutto ... inutile scrivere ciò che gli altri non "vogliono" leggere.
Lo hai scritto tu stesso che intendi "tralasciare".
Zetrix
Banned
Alien non e per niente complicato se ti dico che e facile aggiornare l'archivio e cosiMa vuoi scherzare come si fa ad arrabbiarsi con la tua disponibilità a 360 ° ?
Il film riferito a voi due che state a discutere per cose futili.....
Grazie per il listato lo trovo un pò complicato sostituire la cartella su light ma ci provo....
se no ti avrei detto e difficile aggiornare l'archivio..
allora quanto esegui il listato su SpazioMetria ti da un archivio in formato csv sul desktop
lo copi e lo incolli nella cartella archivio di SpazioLight..
a volte si fanno polemiche per cose futili quanto invece si dovrebbe discutere a come fare
il 6 al SuperEnalotto...
ai mai vinto al SuperEnalotto...io ho provato anche con i cruciverba ma sono riuscito
a fare soltanto 4 e difficilissimo fare un 5 o addirittura il 6...
Ultima modifica:
Zetrix
Banned
Codice:
1,2,3,5,7,9,12,13,16,17,20,21,25,26,28,32,35,39,40,42,43,44,49,57,59,62,65,66,67,71,72,73,74,76,77,79,81,82,84,86,87,88questi sono i numeri estratti di questa estr..ho esclusa la nazionale perche e na rompicogliona..
sto vedendo se si puo calcolare un ambo a tutte..da giocare per sabato...
Imaging
Advanced Member >PLATINUM<
Lo script secondo la mia ignoranza è buono ........ambi di somma uguali ......
RINGRAZIO MOLTO joe per le risposte date e quelle non date essere liberi avvolte non e partecipazione
joe
Advanced Member >PLATINUM PLUS<
Imaging mi chiedi:
Somma ?
Somma con Fuori90 ?
Distanza ciclometrica ?
Differenza matematica ?
... Quale è meglio?
RISPONDO: Nessuna domanda è migliore e può portare ad una soluzione migliore.
Perché suggerisce esplicitamente risposte sbagliate.
È come se io chiedessi a te:
Per andare sulla luna, è meglio una scala o una barca ?
Oppure, se al lotto invece che Estratti venissero elencati dei nomi di fiori.
Io ti chiedessi:
Quali sono le distanze tra la margherita, la viola, la rosa, il geranio ed il fiore di rosmarino ?
Cosa mi rispondi ?
L'unica risposta "logica" è quella di Bob Dylan:
Risposta non c'è
o forse chi lo sa,
caduta nel vento sarà.
Somma ?
Somma con Fuori90 ?
Distanza ciclometrica ?
Differenza matematica ?
... Quale è meglio?
RISPONDO: Nessuna domanda è migliore e può portare ad una soluzione migliore.
Perché suggerisce esplicitamente risposte sbagliate.
È come se io chiedessi a te:
Per andare sulla luna, è meglio una scala o una barca ?
Oppure, se al lotto invece che Estratti venissero elencati dei nomi di fiori.
Io ti chiedessi:
Quali sono le distanze tra la margherita, la viola, la rosa, il geranio ed il fiore di rosmarino ?
Cosa mi rispondi ?
L'unica risposta "logica" è quella di Bob Dylan:
Risposta non c'è
o forse chi lo sa,
caduta nel vento sarà.
Imaging
Advanced Member >PLATINUM<
Quindi in un linguaggio più semplice per capire tutti ...... è inutile fare metodi è inutile fare ricerche perchè il passato è passato.....Con molta stima ti ringrazio ma se sbaglio correggimi .........Imaging mi chiedi:
Somma ?
Somma con Fuori90 ?
Distanza ciclometrica ?
Differenza matematica ?
... Quale è meglio?
RISPONDO: Nessuna domanda è migliore e può portare ad una soluzione migliore.
Perché suggerisce esplicitamente risposte sbagliate.
È come se io chiedessi a te:
Per andare sulla luna, è meglio una scala o una barca ?
Oppure, se al lotto invece che Estratti venissero elencati dei nomi di fiori.
Io ti chiedessi:
Quali sono le distanze tra la margherita, la viola, la rosa, il geranio ed il fiore di rosmarino ?
Cosa mi rispondi ?
L'unica risposta "logica" è quella di Bob Dylan:
Risposta non c'è
o forse chi lo sa,
caduta nel vento sarà.
Zetrix
Banned
Imaging questa e la ruota di BA i numeri sono ordinati in sequenza..
calcolate tutte le sequenze di combinazioni e scrivete i numeri mancantI..
vi scrivo una mia combinazione..
25<-------+17---------->42<-----------+17----------->59<----------+17------------>76
questi sono i fatti altro che chiacchiere e distintivo..
adesso provate voi un altra combinazione in sequenza..
o vi devo scrivere tutte le combinazioni su tutte e 10 le ruote..
questo e un algoritmo semplice di 1 livello poi ci sono gli algoritmi piu complessi
di 2 livello e 3 livello...e con carta e penna nessuno li puo fare..
invece l'algoritmo di 1 livello si puo fare anche con carta e penna..
25___76|11___84
42___59|11___28
____________________________________
67___45|22___22
la somma comune e 11
Spaziometria fa anche le quadrature somme..distanze..e..differenze..
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Appunto è stata fatta una richiesta a chi è più esperto.....questa la domanda:
Joe puoi vedere se riesci a sistemare gioco n.0
non conta le condizioni di gioco..
Siamo in attesa di una soluzione.......Imaging
Imaging
Advanced Member >PLATINUM<
Sono con te quindi con la script o il listato si raggiunge alla previsione di gioco.....ma questo non riguarda al sistema del cruciverba...
Zetrix
Banned
Imaging vi posso mettere il listato del cruciverba che calcola tutte le combinazioni
ma sono tante le combinazioni di gioco se volete lo allego il listato..
si l'altro esempio che vi ho messo non c entra con i cruciverba ma comunque tratta
sempre come un cruciverba e solo che calcola una combinazione di numeri su ruota..
ma sono tante le combinazioni di gioco se volete lo allego il listato..
si l'altro esempio che vi ho messo non c entra con i cruciverba ma comunque tratta
sempre come un cruciverba e solo che calcola una combinazione di numeri su ruota..
Zetrix
Banned
Codice:
Sub Main()
Dim ruota(5),ruote(5)
Dim posta(5),poste(5)
Dim r1,r2,r3
Dim ambo1(2),ambo2(2),terzina(3)
Dim caso
'
posta(2) = 1
poste(2) = 1
poste(3) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
'
caso = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r1 = 1 To 8
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
'----------------------------------
For r3 = r2 + 1 To 10
For p5 = 1 To 4
For p6 = p5 + 1 To 5
n5 = Estratto(es,r3,p5)
n6 = Estratto(es,r3,p6)
'-----------------------------------
'
'--------------------------------
b1 = Fuori90(n1 + n5)
b2 = Fuori90(n4 + n6)
'
b3 = Fuori90(n2 + n6)
b4 = Fuori90(n3 + n5)
'
b5 = Fuori90(n3 + n5)
b6 = Fuori90(n2 + n4)
'
b7 = Fuori90(n1 + n3)
b8 = Fuori90(n4 + n6)
'
'--------------------------
n7 = Fuori90(b1 - n2)
n8 = Fuori90(b1 - n3)
n9 = Fuori90(b3 - n1)
n10 = Fuori90(b3 - n4)
'-------------------------
n11 = Fuori90(b5 - n1)
n12 = Fuori90(b5 - n6)
n13 = Fuori90(b7 - n2)
n14 = Fuori90(b7 - n5)
'-------------------------
'
If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
'
'
n15 = Fuori90(b1/2)
n16 = Fuori90(b3/2)
n17 = Fuori90(b5/2)
n18 = Fuori90(b7/2)
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = Fuori90(b1 - n2)
ambo1(2) = Fuori90(b1 - n3)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = Fuori90(b3 - n1)
ambo1(2) = Fuori90(b3 - n4)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = Fuori90(b5 - n1)
ambo1(2) = Fuori90(b5 - n6)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = Fuori90(b7 - n2)
ambo1(2) = Fuori90(b7 - n5)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
Scrivi String(99,"-") & " gioco n. " & caso
'---------------------------------
'
ReDim MatriceCaselleDaEvid(6,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p4 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p5 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p6 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If b1 = b2 Then
Scrivi "" & n1 & "+" & n5 & Space(0) & " = " & b1 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,3,7,4
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,3,7,4
Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
End If
'-------------------------------------------------------------------
Scrivi
If b1 = b2 Then
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n8) & "____" & Format2(n7) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'-------------------------------------------
If b3 = b4 Then
Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n10) & "____" & Format2(n9) & "____" & Format2(n6) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'--------------------------------------------------------------------
Scrivi
If b5 = b6 Then
Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n12) & "____" & Format2(n11) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'-------------------------------------------------------------------
If b7 = b8 Then
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n14) & "____" & Format2(n13) & "____" & Format2(n3) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
Scrivi
ImpostaGiocata 1,ambo1,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Subquesto listato calcola tutte le combinazioni e sono tantissime..
Zetrix
Banned
Si, forse è meglio se pubblichi quello con poche previsioni.....credo più alla portata di gioco.....e di tasca che ne pensi?
Imaging mica si devono giocare tutti i cruciverba si deve scegliere un cruciverba e giocare
per qualche estr..
si deve giocare la terzina per ambo e terno solo su ruota..
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 29 giugno 2024Bari8365111667Cagliari5930858239Firenze4679291425Genova3261247006Milano4107097016Napoli7007632239Palermo2004236907Roma7478122377Torino5208747015Venezia0432506738Nazionale0161604248Estrazione Simbolotto
Napoli
2843243213
