La Figura del TRIANGOLO per TRE TERZINE

[Zetrix]

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...

 

[Zetrix]

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

Alien 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]

Perdonami Zetrix dove trovo lo script per aggiornare, grazie.

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.]

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...

Ma 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....

 

[Imaging]

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.

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 ........?

 

[Imaging]

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".

Avevo già indicato che io personalmente che gli script non li so fare......

 

[Zetrix]

Ma 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....

Alien non e per niente complicato se ti dico che e facile aggiornare l'archivio e cosi
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...

 

[Zetrix]

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...

 

[Zetrix]

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

questi 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]

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...

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]

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à.

 

[Imaging]

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à.

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 .........

 

[Zetrix]

qua si scrive si scrive e non si fanno i fatti sono solo chiacchiere e distintivo..

 

[Zetrix]

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..

 

[Imaging]

qua si scrive si scrive e non si fanno i fatti sono solo chiacchiere e distintivo..

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]

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..

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]

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..

 

[Imaging]

Si, forse è meglio se pubblichi quello con poche previsioni.....credo più alla portata di gioco.....e di tasca che ne pensi?

 

[Zetrix]

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

questo listato calcola tutte le combinazioni e sono tantissime..

 

[Zetrix]

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..