joe
Advanced Member >PLATINUM PLUS<
SpazioLight, ad ora, non l'ho mai usato.
Non ne so quasi nulla.
Per il resto, anche non so, penso di si.
Per me (che non ne ho interesse) non ha senso farlo.
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.
La Figura del TRIANGOLO per TRE TERZINE
- Creatore Discussione Imaging
- Data di inizio
SpazioLight, ad ora, non l'ho mai usato.
Non ne so quasi nulla.
Per il resto, anche non so, penso di si.
Per me (che non ne ho interesse) non ha senso farlo.
Alien.
Advanced Premium Member
Scusa mi da errore su spaziometria
Gioca es,1,,1
Zetrix
Banned
Alien a me lo script non da errore perche a te da errore lo script..
lo script mica lo ai incollato su SpazioLight perche non funziona su questo programma..
solo su SpazioMetria..
puo darsi che non lo ai copiato bene il listato riprova a copiarlo e vedrai che lo script e ok
lo script mica lo ai incollato su SpazioLight perche non funziona su questo programma..
solo su SpazioMetria..
puo darsi che non lo ai copiato bene il listato riprova a copiarlo e vedrai che lo script e ok
Ultima modifica:
Zetrix
Banned
Codice:
Sub Main
'
Dim ambata1(2),ambata2(2),ambata3(2),ambata4(2),calc(10),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim r1,r2,r3
'
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 6
For r2 = r1 + 2 To r2
For r3 = r2 + 2 To r3
'
p1 = 1
p2 = 3
p3 = 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
'
d = Estratto(es,r2,p1)
e = Estratto(es,r2,p3)
'
f = Estratto(es,r3,p1)
g = Estratto(es,r3,p2)
h = Estratto(es,r3,p3)
'---------------------
'
q1 = Fuori90(a + h)
q2 = Fuori90(d + e)
'
x = Fuori90(q1 - b)
y = Fuori90(q2 - c)
'
z = Fuori90(q1 - f)
w = Fuori90(q2 - g)
'
n1 = Distanza(a,b)
n2 = Distanza(b,c)
n3 = Distanza(a,d)
n4 = Distanza(c,e)
n5 = Distanza(d,x)
n6 = Distanza(f,g)
n7 = Distanza(e,h)
n8 = Distanza(g,h)
'
If q1 = q2 Then
'
ambata1(1) = y
ambata2(1) = z
'
ambo1(1) = x
ambo1(2) = y
'
ambo2(1) = z
ambo2(2) = w
'
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = 11
ruote(5) = 12
'
ReDim MatriceCaselleDaEvid(10,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r1 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p1 '
' 5
MatriceCaselleDaEvid(5,0) = r2 '
MatriceCaselleDaEvid(5,1) = p3 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p1 '
' 7
MatriceCaselleDaEvid(7,0) = r3 '
MatriceCaselleDaEvid(7,1) = p2 '
' 8
MatriceCaselleDaEvid(8,0) = r3 '
MatriceCaselleDaEvid(8,1) = p3 '
'---------------------------------------------
ReDim MatriceLegami(10,3)
' 1
MatriceLegami(1,0) = r1 '
MatriceLegami(1,1) = p1 '
MatriceLegami(1,2) = r1 '
MatriceLegami(1,3) = p3 '
' 2
MatriceLegami(2,0) = r1 '
MatriceLegami(2,1) = p1 '
MatriceLegami(2,2) = r3 '
MatriceLegami(2,3) = p1 '
' 3
MatriceLegami(3,0) = r3 '
MatriceLegami(3,1) = p1 '
MatriceLegami(3,2) = r3 '
MatriceLegami(3,3) = p3 '
' 4
MatriceLegami(4,0) = r1 '
MatriceLegami(4,1) = p2 '
MatriceLegami(4,2) = r3 '
MatriceLegami(4,3) = p2 '
' 5
MatriceLegami(5,0) = r1 '
MatriceLegami(5,1) = p3 '
MatriceLegami(5,2) = r3 '
MatriceLegami(5,3) = p3 '
' 6
MatriceLegami(6,0) = r2 '
MatriceLegami(6,1) = p1 '
MatriceLegami(6,2) = r2 '
MatriceLegami(6,3) = p3 '
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
'
Scrivi
Scrivi("" & Format2(a) & Space(2) & Format2(b) & Space(2) & Format2(c) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(d) & Space(3) & Space(3) & Format2(e) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(y) & Space(2) & Format2(x) & ""),0,0,2,3,6
Scrivi("" & Space(2) & Format2(h) & "") & "",0,0,1,3,6
Scrivi
'
Scrivi
Scrivi("" & Format2(a) & Space(2) & ""),0,0,1,3,6
Scrivi("" & Format2(w) & Space(2) & Format2(z) & "") & "",0,1,2,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(d) & Space(3) & Space(3) & Format2(e) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(f) & Space(2) & Format2(g) & Space(2) & Format2(h) & ""),0,1,1,3,6
Scrivi
'
ImpostaGiocata 1,ambata1,ruota,posta,k,0
ImpostaGiocata 2,ambata2,ruota,posta,k,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k,2
ImpostaGiocata 2,ambo2,ruote,poste,k,2
Gioca es,1,,1
Scrivi
End If
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 Subjoe
Advanced Member >PLATINUM PLUS<
Già !
joe
Advanced Member >PLATINUM PLUS<
Ho tolto parecchio del superfluo ...
velocemente e spero di non aver sbagliato nulla perché non ho letto come funziona lo script.
Se qualche attento programmatore, vorrà segnalare errori, li correggeremo.
Dovrebbe (secondo intenzioni) eseguirsi senza modifiche nei pronostici e nei risultati.
In sintesi mostrare risultati veri.
Quelli ottenuti quando non c'erano PC, Venus e spie delle giocate.
Ed anche quelli attualmente presenti.
E' accettabilmente lento ... considerando la mole di lavoro da elaborare.
velocemente e spero di non aver sbagliato nulla perché non ho letto come funziona lo script.
Se qualche attento programmatore, vorrà segnalare errori, li correggeremo.
Dovrebbe (secondo intenzioni) eseguirsi senza modifiche nei pronostici e nei risultati.
In sintesi mostrare risultati veri.
Quelli ottenuti quando non c'erano PC, Venus e spie delle giocate.
Ed anche quelli attualmente presenti.
E' accettabilmente lento ... considerando la mole di lavoro da elaborare.
Codice:
Sub Main()
'
Dim ambata1(2),ambata2(2),ambata3(2),ambata4(2),calc(10),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(4),ambo2(4),ambo3(4),ambo4(4),ambo5(4)
Dim r1,r2,r3
'
posta(1) = 1
poste(2) = 1
k = 3
For es = 3950 To EstrazioneFin
AvanzamentoElab 3950,EstrazioneFin,es
For r1 = 1 To 6
For r2 = r1 + 2 To r2
For r3 = r2 + 2 To r3
'
p1 = 1
p2 = 3
p3 = 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
'
d = Estratto(es,r2,p1)
e = Estratto(es,r2,p3)
'
f = Estratto(es,r3,p1)
g = Estratto(es,r3,p2)
h = Estratto(es,r3,p3)
'
q1 = Fuori90(a + h)
q2 = Fuori90(d + e)
'
x = Fuori90(q1 - b)
y = Fuori90(q2 - c)
'
z = Fuori90(q1 - f)
w = Fuori90(q2 - g)
'
n1 = Distanza(a,b)
n2 = Distanza(b,c)
n3 = Distanza(a,d)
n4 = Distanza(c,e)
n5 = Distanza(d,x)
n6 = Distanza(f,g)
n7 = Distanza(e,h)
n8 = Distanza(g,h)
'
If q1 = q2 Then
'
ambata1(1) = y
ambata2(1) = z
'
ambo1(1) = x
ambo1(2) = y
'
ambo2(1) = z
ambo2(2) = w
'
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = 11
ruote(5) = 12
'
ImpostaGiocata 1,ambata1,ruota,posta,k,0
ImpostaGiocata 2,ambata2,ruota,posta,k,0
ImpostaGiocata 3,ambo1,ruote,poste,k,0
ImpostaGiocata 4,ambo2,ruote,poste,k,0
Gioca es, 1,,1
Scrivi
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Sub
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Chiedo scusa a tutti e a Zetrix....... sono stato fuori sede ero assente ........perdonatemi. Zetrix ha ragione stiamo in discussioni per somme e distanze per migliorare il lavoro su disegni e cruciverba ma soprattutto per avere una previsione di gioco più attendibile......
quindi per migliorare il lavoro .......non serve il listato di joe secondo il mio parere elaborazione lenta e lunga ma senza migliorare il lavoro fatto in precedenza, risultato stesse previsione senza miglioramenti .......quindi inutile. Alien non mi funziona il listato dove trovo i listati ..... intervento non per aiutare ma per miglioramenti personali......secondo me questo che si sta facendo è per Tutti o no è inutile non funziona dove lo trovo questo dove lo trovo quello ecc. Vi ricordo siamo partiti con la figura del triangolo e giustamente Zetrix entra in campo per far capire che si può migliorare ancora ma di parecchio.........Mi rivolgo a TUTTI continuiamo LA Discussione o ci fermiamo Sia chiaro non è un rimprovero ma stare più attenti alle discussioni chiedo l'intervento di joe di rispondere e di non rimanere a guardare senza risposta come già è successo risposta.....nessuna Quindi senza rancore intervenite che di sicuro VOI e Altri farete di più molto di più e con certezza, superiore al sottoscritto. Con molta Stima ve lo dico, non vi offendete io ho molto rispetto di TUTTI VOI.
Sinceramente Vi dico quello che VOI Tutti.. sapete fare , sicuramente lo fate molto ma molto meglio di me. Siete Superiori. Imaging.
Ultima modifica:
Zetrix
Banned
Imaging ce troppa indifferenza in questo forum ieri ho fatto una richiesta
che volevo mettere un ambo a tempo e nessuno a risposto..
la richiesta adesso lo cancellata perche se uno non mi risponde non merita
nemmeno di leggere la mia richiesta..e tanto meno di vedere il cruciverba..
in ogni caso i listati li ho messo lo stesso nel forum ma questi sono listati miei
fatti per me non sono listati fatti su richiesta di qualcuno..
ma quanto vedi tutta questa indifferenza nel forum non vorresti mettere piu
i listati e i cruciverba nel forum..
che volevo mettere un ambo a tempo e nessuno a risposto..
la richiesta adesso lo cancellata perche se uno non mi risponde non merita
nemmeno di leggere la mia richiesta..e tanto meno di vedere il cruciverba..
in ogni caso i listati li ho messo lo stesso nel forum ma questi sono listati miei
fatti per me non sono listati fatti su richiesta di qualcuno..
ma quanto vedi tutta questa indifferenza nel forum non vorresti mettere piu
i listati e i cruciverba nel forum..
Ultima modifica:
joe
Advanced Member >PLATINUM PLUS<
IMAGING, VUOI RISPOSTE?
La prima è: Stare attenti alle riposte. E' Giusto. Utile.
"non serve il listato di joe secondo il mio parere elaborazione lenta e lunga ma senza migliorare il lavoro fatto in precedenza"
La seconda è : Il listato è di Zetrix NON è di Joe.
Terza: Avevo scritto che è lento perché analizza TUTTO L'ARCHIVIO (quello a 10 ruote).
Quarta: "Non serve" (Lo scrivi tu).
Serve invece a testare il metodo in esso contenuto in un grandissimo numero di Estrazioni.
Dunque: SERVE (Secondo me, Serve!)
NON è lento ... ma è MOLTO-MOLTO-MOLTO più veloce.
....
A latere:
-Lo script di Zetrix, è ben strutturato.
-Contiene la descrizione schematica e completa del metodo.
-Funziona.
Pertanto un programmatore ... lo sa leggere ... come ... lo sa leggere il PC.
Bastava mettere lo script e tutto era :
Ben descritto (in modo completo e preciso)
Ben rappresentato (lo script è ben strutturato)
Provabile (Lo script è funzionante)
Punto.
Per contro: vado, non vado, scrivo, non scrivo, distanze e/o/e differenze,
2 somme e/o non 3 somme, pubblico, ma poi cancello, altri metodi,
altri disegni, altri schemi.
E ... ci vuole un programmatore.
Ben venga!
In sintesi: 250 messaggi si potevano concentrare in "1"
Anche in altro avevo risposto:
Secondo me o si dimostra che dotando lo script,
del compito di disegnare estrazioni colorate ... MIGLIORA I RISULTATI ...
o i risultati sono i risultati anche se non vengano disegnati.
Considera che anch'io faccio domande senza ricevere risposta.
Aggiungo che se spesso non rispondo ... è perché è meglio che io non risponda.
Anche perché ... come ho avuto già modo di scrivere ...
è regola che si vogliono sempre risposte e non si risponde mai alle domande.
Non si leggono (o peggio non si capiscono) le risposte!
Faccio "media" anch'io!
Ci vuole pazienza!
La prima è: Stare attenti alle riposte. E' Giusto. Utile.
"non serve il listato di joe secondo il mio parere elaborazione lenta e lunga ma senza migliorare il lavoro fatto in precedenza"
La seconda è : Il listato è di Zetrix NON è di Joe.
Terza: Avevo scritto che è lento perché analizza TUTTO L'ARCHIVIO (quello a 10 ruote).
Quarta: "Non serve" (Lo scrivi tu).
Serve invece a testare il metodo in esso contenuto in un grandissimo numero di Estrazioni.
Dunque: SERVE (Secondo me, Serve!)
NON è lento ... ma è MOLTO-MOLTO-MOLTO più veloce.
....
A latere:
-Lo script di Zetrix, è ben strutturato.
-Contiene la descrizione schematica e completa del metodo.
-Funziona.
Pertanto un programmatore ... lo sa leggere ... come ... lo sa leggere il PC.
Bastava mettere lo script e tutto era :
Ben descritto (in modo completo e preciso)
Ben rappresentato (lo script è ben strutturato)
Provabile (Lo script è funzionante)
Punto.
Per contro: vado, non vado, scrivo, non scrivo, distanze e/o/e differenze,
2 somme e/o non 3 somme, pubblico, ma poi cancello, altri metodi,
altri disegni, altri schemi.
E ... ci vuole un programmatore.
Ben venga!
In sintesi: 250 messaggi si potevano concentrare in "1"
Anche in altro avevo risposto:
Secondo me o si dimostra che dotando lo script,
del compito di disegnare estrazioni colorate ... MIGLIORA I RISULTATI ...
o i risultati sono i risultati anche se non vengano disegnati.
Considera che anch'io faccio domande senza ricevere risposta.
Aggiungo che se spesso non rispondo ... è perché è meglio che io non risponda.
Anche perché ... come ho avuto già modo di scrivere ...
è regola che si vogliono sempre risposte e non si risponde mai alle domande.
Non si leggono (o peggio non si capiscono) le risposte!
Faccio "media" anch'io!
Ci vuole pazienza!
Ultima modifica:
Zetrix
Banned
Joe tralascio tutto lo scritto che ai scritto se no qua non la finiamo piu con le polemiche..
secondo me non a senso fare una elaborazione su tante estrazioni..
quello che conta e adesso e vedere come si puo impostare meglio la condizione di gioco
sui cruciverba perche come ho detto noi possiamo inserire qualsiasi numero nel cruciverba
e i risultati possono dare lo stesso ma conta piu la continuità dei risultati
su certe condizioni da mettere nel cruciverba..
sto facendo altre prove e cambiando le impostazioni nel cruciverba..
faccio un esempio sulle condizioni degli ambi uniti e isotopi ieri a dato se non mi sbaglio
due cruciverba che hanno vinto alla 1 estr..
ma ne a elaborati tanti cruciverba..però ho considerato soltanto l'ambo del cruciverba..
non ho messo la terzina in gioco..con il numero centrale del cruciverba..
secondo me non a senso fare una elaborazione su tante estrazioni..
quello che conta e adesso e vedere come si puo impostare meglio la condizione di gioco
sui cruciverba perche come ho detto noi possiamo inserire qualsiasi numero nel cruciverba
e i risultati possono dare lo stesso ma conta piu la continuità dei risultati
su certe condizioni da mettere nel cruciverba..
sto facendo altre prove e cambiando le impostazioni nel cruciverba..
faccio un esempio sulle condizioni degli ambi uniti e isotopi ieri a dato se non mi sbaglio
due cruciverba che hanno vinto alla 1 estr..
ma ne a elaborati tanti cruciverba..però ho considerato soltanto l'ambo del cruciverba..
non ho messo la terzina in gioco..con il numero centrale del cruciverba..
Ultima modifica:
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 p2
'
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
'
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
'----------------------------------
For r3 = r2 + 1 To 10
'
n5 = Estratto(es,r3,p1)
n6 = Estratto(es,r3,p2)
'-----------------------------------
'
'--------------------------------
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) = p1 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p2 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p1 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p2 '
'
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
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End SubJoe puoi vedere se riesci a sistemare gioco n.0
non conta le condizioni di gioco..
Imaging questo e il listato per il cruciverba vedi se e fatto bene..
Serpico90 mi aveva chiesto il listato per il cruciverba eccolo qua..
Ultima modifica:
joe
Advanced Member >PLATINUM PLUS<
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.
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.
Ultima modifica:
Zetrix
Banned
Joe per ogni cosa qua dobbiamo fare sempre polemiche per me e relativo conta le condizioni di
gioco anzi a dire la verità non lo mai scritta questa riga negli script avevo visto il listato di Ramco
e cosi provo a scrivere anche questa riga ma bisogna scriverla nella riga giusta
se no conta sempre 0 le condizioni di gioco..
volevo aggiungere questa riga per vedere quanto conta le condizioni di gioco
se non si mette la condizione con numeri isotopi..
comunque lasciamo stare..quanto si fanno sempre polemiche e meglio non scrivere piu..
gioco anzi a dire la verità non lo mai scritta questa riga negli script avevo visto il listato di Ramco
e cosi provo a scrivere anche questa riga ma bisogna scriverla nella riga giusta
se no conta sempre 0 le condizioni di gioco..
volevo aggiungere questa riga per vedere quanto conta le condizioni di gioco
se non si mette la condizione con numeri isotopi..
comunque lasciamo stare..quanto si fanno sempre polemiche e meglio non scrivere piu..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 25 gennaio 2025Bari1387021073Cagliari5540768250Firenze2351448472Genova4956194864Milano4027801347Napoli6737027581Palermo2528113140Roma2025591022Torino8202198984Venezia0659655361Nazionale4572807632Estrazione Simbolotto
Bari
1641081143
