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.
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 Function
Perdonami Zetrix dove trovo lo script per aggiornare, grazie.
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...
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.
![]()
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".
![]()
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.....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....
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,88
Lo script secondo la mia ignoranza è buono ........ambi di somma uguali ......Imaging ho messo il listato del cruciverba sino adesso nessuno a messo un like..
allora lo script non e fatto bene oppure no..
a scusa ringrazio Serpico90 che a messo un like...
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à.
![]()
Appunto è stata fatta una richiesta a chi è più esperto.....questa la domanda:qua si scrive si scrive e non si fanno i fatti sono solo chiacchiere e distintivo..
Sono con te quindi con la script o il listato si raggiunge alla previsione di gioco.....ma questo non riguarda al sistema del cruciverba...Vedi l'allegato 2240198
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..
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 Sub
Si, forse è meglio se pubblichi quello con poche previsioni.....credo più alla portata di gioco.....e di tasca che ne pensi?![]()