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.
xSalvo50
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
Ciao Salvo50,
so che non e facile spiegare le condizioni forse e meglio che scrivo un esempio sulle estr..
stavo vedendo che nome dare allo script visto che qua trattiamo la ciclometria e aggiunta la geometria
il titolo dello script ci scriviamo ciclogeom.
intanto ti scrivo queste formule geometriche, ricordati che la geometria si occupa dei segni : e x
1)dist 4
4x6=24<---
4x7=28 --->(dist. diag.)
4x8=32 --->(dist .max.)
--------------------
2)dist 6
6x4=24<---
6x5=30 --->(dist.diag.)
6x6=36 --->(dist.max.)
-------------------
3)dist 8
8x3=24 <---
8x4=32 --->(dist.diag.)
8x5=40 --> dist.max.)
------------------
come vedi da questo prospetto la dist comune che scrive in tutte e tre le tabelle
e la dist 24 ..(la dist minima),questa e la prima condizione del gioco, dobbiamo avere un ambo con la dist 24,
dopo ti scrivo un esempio sulle estr..
so che non e facile spiegare le condizioni forse e meglio che scrivo un esempio sulle estr..
stavo vedendo che nome dare allo script visto che qua trattiamo la ciclometria e aggiunta la geometria
il titolo dello script ci scriviamo ciclogeom.
intanto ti scrivo queste formule geometriche, ricordati che la geometria si occupa dei segni : e x
1)dist 4
4x6=24<---
4x7=28 --->(dist. diag.)
4x8=32 --->(dist .max.)
--------------------
2)dist 6
6x4=24<---
6x5=30 --->(dist.diag.)
6x6=36 --->(dist.max.)
-------------------
3)dist 8
8x3=24 <---
8x4=32 --->(dist.diag.)
8x5=40 --> dist.max.)
------------------
come vedi da questo prospetto la dist comune che scrive in tutte e tre le tabelle
e la dist 24 ..(la dist minima),questa e la prima condizione del gioco, dobbiamo avere un ambo con la dist 24,
dopo ti scrivo un esempio sulle estr..
Ultima modifica:
Zetrix
Advanced Premium Member
allora Salvo50 vediamo di rendere lo script piu facile seguimi con attenzione
alle cose che scrivo
allora vediamo questo esempio su palermo e torino
1) condizione la dist 6 in colonna (49,55) su due ruote qualsiasi,
la dist 6 scrive
6x4=24<---(dist.ambo.(79,55))
6x5=30 --->(dist.obliq.(49,79))
6x6=36 --->(dist.max.(?,49))
adesso questa condizione la dobbiamo ridefinire con la formula geometrica
la dist. max e 36
49+36=85
il numero 85 si gioca su palermo e torino
x ambo si gioca 49 85 su tutte
in teoria dobbiamo avere sempre un ambo con la dist 24 su una ruota e una dist 4, or 6 or 8 in colonna, su due ruote,
adesso per non rendere difficile lo script si puo iniziare con la dist 6 perche se rintracciamo una dist 4 or una dist 8
cambia la formula geometrica
la dist max e 4x8=32
la condizione ideale e la dist 6 che genera la dist 30 in obliqua e questa e la condizione migliore..
in seguito si possono aggiungere le altre dist 4 e 8 in colonna..se aggiungiamo queste dist dopo si devono fare
delle variazioni del calcolo del numero e questo rende piu difficile lo script..
x non sbagliare si puo fare un altro calcolo piu facile visto e considerato che i due ambi devono avere la stessa somma
si puo fare
79+55=134-49=85
la stessa somma fa in modo che le due dist in colonna e le due dist in obliqua sono equilibrate..
in questo modo sono corrisposte le formule geometriche e devono essere esatte..
infatti la dist max e 6x6=36
85,49) dist 36
2) condizione ,rilevare un ambo con la dist 24,(79,55) TO, su una ruota qualsiasi..
se ci sono altre variazioni da fare le vedremo in seguito questo e quanto descritto da questa condizione di gioco..
nota : la disposizione dei numeri deve essere come da disegno nella tabella e non viceversa..
PA ? _ 49
TO 79_55
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
lo script è fatto con le ultime spiegazioni del post 6
sperando di non aver fatto errori
sperando di non aver fatto errori
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,Caso,Casi
Dim DistAB,DistAC,DistBC
Dim Amba(1),Ambo(2),Ruo1(2),RuoT(1)
Dim Po1(1),Po2(5)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10701))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo CicloGeometrico di Zetrx - Script Salvo50" & Space(18),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = 1 To 12
If R1 = 11 Then R1 = 12
If R1 <> R2 Then
For P2 = 1 To 4
For P3 = P2 + 1 To 5
If P1 = P2 Or P1 = P3 Then
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
If A > 0 And C > 0 And A <> B And A <> C Then
DistAB = Distanza(A,B) : DistAC = Distanza(A,C) : DistBC = Distanza(B,C)
If DistBC = 24 Then
If((DistAB = 6) And(P1 = P2))Or((DistAC = 6) And(P1 = P3))Then
Amba(1) = Fuori90(A + 36)
Ambo(1) = A : Ambo(2) = Amba(1)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2 : RuoT(1) = TT_
ImpostaGiocata 1,Amba,Ruo1,Po1,Clp,1
ImpostaGiocata 2,Ambo,RuoT,Po2,Clp,2
Gioca Es
End If
End If
End If
End If
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubZetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P5,Caso,Casi
Dim DistAB,DistAC,DistBC,X
Dim Amba(1),Ambo(2),Ruo1(2),RuoT(2)
Dim Po1(1),Po2(2),DT1,DT2,DT3,DT4
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,2620))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo CicloGeom di Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 2 To 5
For P5 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = 1 To 4
For P3 = P2 + 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
X = Estratto(Es,R1,P5)
If Distanza(B,C) = 24 Then
If P5 = P2 Then
If Distanza(A,C) = 4 And(P1 = P3) And Distanza(A,B) = 28 _
Or Distanza(A,C) = 6 And(P1 = P3) And Distanza(A,B) = 30 _
Or Distanza(A,C) = 8 And(P1 = P3) And Distanza(A,B) = 32 Then
DT1 = DiametraleD(X) : DT2 = Diametrale(DT1) : DT3 = DiametraleD(DT2)
DT4 = Diametrale(X)
Amba(1) = Fuori90(B + C - A)
Ambo1(1) = Amba(1)
Ambo1(2) = DT1
Ambo2(1) = Amba(1)
Ambo2(2) = DT2
Ambo3(1) = Amba(1)
Ambo3(2) = DT3
Ambo4(1) = Amba(1)
Ambo4(2) = DT4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
RuoT(1) = TT_ : RuoT(2) = NZ_
ImpostaGiocata 1,Amba,Ruo1,Po1,9,1
Gioca Es,1,,1
Scrivi String(55,"-"),0,1
Scrivi
ImpostaGiocata 1,Ambo1,RuoT,Po2,10,2
ImpostaGiocata 2,Ambo2,RuoT,Po2,10,2
ImpostaGiocata 3,Ambo3,RuoT,Po2,10,2
ImpostaGiocata 4,Ambo4,RuoT,Po2,10,2
Gioca Es,1,,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
'ScriviResoconto
End SubxSalvo50
grazie dello script,
ho fatto delle variazioni nello script alcune condizioni non erano esatte nello script..
vedi se e giusto lo script..
alcune righe le ho tolte es , quanti colpi vuoi giocare..per me non a senso scrivere questa riga..
negli script non si devono scrivere troppe domande..
ho cambiato gli abb per ambo..
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Zetrix il metodo è tuo sei tu che decidi come modificarlo, io l'ho fatto secondo le poche indicazioni che mi hai dato
Riguardo agli inputbox a me piace metterli, chi lo decide se è un bene o un male, ognuno di noi ha uno stile proprio
e fa gli script come meglio crede, l'hai tolto inputbox, hai fatto bene se a te non piacciono.
Riguardo agli inputbox a me piace metterli, chi lo decide se è un bene o un male, ognuno di noi ha uno stile proprio
e fa gli script come meglio crede, l'hai tolto inputbox, hai fatto bene se a te non piacciono.
Zetrix
Advanced Premium Member
certo ognuno a il proprio stile di scrivere gli script ho fatto delle correzioni perche alcune condizioni erano sbagliate..
considera che non sono esperto come te a scrivere gli script ci sono alcune righe degli script
che non li so scrivere riguardo agli inputbox secondo me meno si mettono gli input box e meglio e
se ne metti troppo input box e come fare un processo es quanti colpi vuoi giocare ?
quale pos vuoi giocare ? che numero vuoi giocare ? ecc...
se uno deve rispondere a tutte queste domande degli input box li passa la voglia di continuare lo script..
ecco perche ho tolto quel input box sui colpi di gioco secondo me sono inutile perche si possono scrivere sulle indicazioni
imposta giocata..
considera che non sono esperto come te a scrivere gli script ci sono alcune righe degli script
che non li so scrivere riguardo agli inputbox secondo me meno si mettono gli input box e meglio e
se ne metti troppo input box e come fare un processo es quanti colpi vuoi giocare ?
quale pos vuoi giocare ? che numero vuoi giocare ? ecc...
se uno deve rispondere a tutte queste domande degli input box li passa la voglia di continuare lo script..
ecco perche ho tolto quel input box sui colpi di gioco secondo me sono inutile perche si possono scrivere sulle indicazioni
imposta giocata..
Ultima modifica:
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,2620))
Scrivere un input box è solo un modo per poter effettuare una scelta o confermarne una già impostata ( in questo caso 2620) e dare la possibilta a chi li usa ( escludendo il creatore ) di usarlo senza dover leggere il costrutto.
Se la scelta viene fatta a priori da chi vuole evitare le tante domande che lo script gli pone, è sufficente per ogni INPUTBOX remmare la domanda e si fa così
Scrivere un input box è solo un modo per poter effettuare una scelta o confermarne una già impostata ( in questo caso 2620) e dare la possibilta a chi li usa ( escludendo il creatore ) di usarlo senza dover leggere il costrutto.
Se la scelta viene fatta a priori da chi vuole evitare le tante domande che lo script gli pone, è sufficente per ogni INPUTBOX remmare la domanda e si fa così
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Io quando faccio script per me, non ne metto InputBox, perché io sono in grado di modificare
lo script dove serve. Ma quando faccio gli script per altri utenti li metto ed anche abbondanti
perché mi metto nei panni di chi non è capace di modificare lo script, mi si potrebbe dire ma
tu sai che chi ti ha chiesto lo script è in grado di modificarlo, ma io quando mi viene chiesto
uno script, non lo faccio solo per chi mi ha chiesto lo script, ma per tutti.
Praticamente ho detto quello che ha scritto Cladio in 2 righe, ma purtroppo sono scarso
in italiano e quindi per farmi capire devo scrivere molte parole
Per Zetrix
Scusa Zetrix, ma se a me non interessa quello che hai scritto a i post 11, 12 e 13
mi sembra scortese dirtelo, quindi non ho risposto.
Io quando faccio script per me, non ne metto InputBox, perché io sono in grado di modificare
lo script dove serve. Ma quando faccio gli script per altri utenti li metto ed anche abbondanti
perché mi metto nei panni di chi non è capace di modificare lo script, mi si potrebbe dire ma
tu sai che chi ti ha chiesto lo script è in grado di modificarlo, ma io quando mi viene chiesto
uno script, non lo faccio solo per chi mi ha chiesto lo script, ma per tutti.
Praticamente ho detto quello che ha scritto Cladio in 2 righe, ma purtroppo sono scarso
in italiano e quindi per farmi capire devo scrivere molte parole
Per Zetrix
Scusa Zetrix, ma se a me non interessa quello che hai scritto a i post 11, 12 e 13
mi sembra scortese dirtelo, quindi non ho risposto.
Zetrix
Advanced Premium Member
xclaudio8,
lo so che si possono remmare le righe ma le cose che non servono le cancello non a senso scrivere un input box
quanti colpi vuoi giocare ce gente che non sa nemmeno rispondere a questa domanda che fai scrivi 5 colpi
no scrivi 7 colpi..lasciamo stare..
lo so che si possono remmare le righe ma le cose che non servono le cancello non a senso scrivere un input box
quanti colpi vuoi giocare ce gente che non sa nemmeno rispondere a questa domanda che fai scrivi 5 colpi
no scrivi 7 colpi..lasciamo stare..
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P5,Caso,Casi
Dim DistAB,DistAC,DistBC,X
Dim Amba(1),Ambo(2),Ruo1(2),RuoT(2)
Dim Po1(1),Po2(2),DT1,DT2,DT3,DT4
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,2620))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo CicloGeom di Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
For P5 = 1 To 5
A = Estratto(Es,R1,P1)
For P2 = 1 To 5
For P3 = 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
X = Estratto(Es,R1,P5)
If Distanza(B,C) = 24 Or Distanza(B,C) = 16 Then
If P5 = P2 Then
If Distanza(A,C) = 4 And(P1 = P3) And Distanza(A,B) = 28 _
Or Distanza(A,C) = 28 And(P1 = P3) And Distanza(A,B) = 4 _
Or Distanza(A,C) = 6 And(P1 = P3) And Distanza(A,B) = 30 _
Or Distanza(A,C) = 30 And(P1 = P3) And Distanza(A,B) = 6 _
Or Distanza(A,C) = 8 And(P1 = P3) And Distanza(A,B) = 32 _
Or Distanza(A,C) = 32 And(P1 = P3) And Distanza(A,B) = 8 _
Or Distanza(A,C) = 8 And(P1 = P3) And Distanza(A,B) = 24 _
Or Distanza(A,C) = 24 And(P1 = P3) And Distanza(A,B) = 8 Then
DT1 = DiametraleD(X) : DT2 = Diametrale(DT1) : DT3 = DiametraleD(DT2)
DT4 = Diametrale(X)
Amba(1) = Fuori90(B + C - A)
Ambo1(1) = Amba(1)
Ambo1(2) = DT1
Ambo2(1) = Amba(1)
Ambo2(2) = DT2
Ambo3(1) = Amba(1)
Ambo3(2) = DT3
Ambo4(1) = Amba(1)
Ambo4(2) = DT4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R2
MatriceCaselleDaEvid(2,1) = P2
MatriceCaselleDaEvid(3,0) = R2
MatriceCaselleDaEvid(3,1) = P3
ReDim MatriceLegami(6,3)
'
MatriceLegami(1,0) = R1
MatriceLegami(1,1) = P1
If R2 = 12 Then MatriceLegami(1,2) = R2 - 1 Else MatriceLegami(1,2) = R2
MatriceLegami(1,3) = P2
If R2 = 12 Then MatriceLegami(2,0) = R2 - 1 Else MatriceLegami(2,0) = R2
MatriceLegami(2,1) = P2
If R2 = 12 Then MatriceLegami(2,2) = R2 - 1 Else MatriceLegami(2,2) = R2
MatriceLegami(2,3) = P3
MatriceLegami(3,0) = R1
MatriceLegami(3,1) = P1
If R2 = 12 Then MatriceLegami(3,2) = R2 - 1 Else MatriceLegami(3,2) = R2
MatriceLegami(3,3) = P3
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid,MatriceLegami)
'
Scrivi
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
RuoT(1) = TT_ : RuoT(2) = NZ_
ImpostaGiocata 1,Amba,Ruo1,Po1,9,1
Gioca Es,1,,1
Scrivi String(55,"-"),0,1
Scrivi
ImpostaGiocata 1,Ambo1,RuoT,Po2,10,2
ImpostaGiocata 2,Ambo2,RuoT,Po2,10,2
ImpostaGiocata 3,Ambo3,RuoT,Po2,10,2
ImpostaGiocata 4,Ambo4,RuoT,Po2,10,2
Gioca Es,1,,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
'ScriviResoconto
End Subquesto e lo script modificato da me e fatte alcune correzioni ma lo script e un po lento perche scrive troppi for next
nonostante non e stato messo il disegno del cerchio ciclometrico se no lo script sarebbe ancora piu lento..
quanto si scrivono 8 estr..
xclaudio8 vedi te se si possono eliminare un po di for next ..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 30 ottobre 2025Bari5307127721Cagliari1774246944Firenze0847258333Genova0268294367Milano8490754572Napoli4906091220Palermo1365348607Roma1502101383Torino5967803526Venezia7304067427Nazionale6279383648Estrazione Simbolotto
0701281233
