Cerca
ESTRAZIONI LOTTO
Ultimi argomenti attivi
aiuto x questo script
5 partecipanti
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
aiuto x questo script
Da roy62 Mar 3 Giu - 14:58:29
CIAO A TUTTI,PREMETTO CHE IO DI SCRIPT NON Sò GRANCHè....STò CERCANDO DI CAPIRCI QUALCOSA INIZIANDO CON I VARI COPIA E INCOLLA
HO ASSEMBLATO CON QUALCHE COPIA INCOLLA UNO SCRIPT DA ME RICHIESTO E INIZIATO DA JOE91 SU LOTTOCED
MA NON RIESCO A FARLO APRIRE
...CHIEDO A QUALCHE BUON VOLENTEROSO DI AGGIUSTARMELO E FARMI CAPIRE L'ERRORE
RINGRAZIO ANTICIPATAMENTE CHI VORRà DEDICARSI
Sub Main
Dim am2(3),am3(3),am4(3),am5(3),am6(3),am7(3),am8(3),am9(3),am10(3),am11(3)
Dim ruote(2)
ruote(1) = R1
ruote(2) = R2
Dim posta3(3) ' x terzine
posta3(2) = 1
posta3(3) = 1
'colpi = 7
casi = 0
'Dc = CInt(InputBox("Es 21 ","Distanza Ciclometrica",21))
'scelta colpi di gioco
Co = CInt(InputBox("Colpi ?","Periodo di Verifica",9))
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
P1 = CInt(InputBox("Posizione ?","Prima Ruota",1))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
For Es = 8820 To EstrazioneFin : Messaggio Es
'If IndiceMensile(es) = IM Then
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
'If Dc = D Then
Scrivi DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
'End If
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
casi = casi + 1
Scrivi "---------------------------------------------- caso n°" & casi,1,,4
Scrivi "Condizione: " & Left(NomeRuota(r),2) & " " & CInt(a) & " in DataEstrazione(es),1,,4
Scrivi "Pronostico: " & Format2(A1) & "." & Format2(E1) & "." & Format2(90 -(E2)),1 = am2
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(DiametraleD(E1)) & "." & Format2(Vert(E2))= am3
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(Vert(E1)) & "." & Format2(DiametraleD(E2)),1 = am4
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(E2) & "." & Format2(90 -(E1)),1 = am5
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(Diametrale(E1)) & "." & Format2(Diametrale(E2)),1 = am6
Scrivi "Pronostico: " & Format2(Vert(A1)) & "." & Format2(E1) & "." & Format2(90 -(E2)),1 = am7
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(DiametraleD(E1)) & "." & Format2(Vert(E2)),1 = am8
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(Vert(E1)) & "." & Format2(DiametraleD(E2)),1 = am9
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(E2) & "." & Format2(90 -(E1)),1 = am10
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(Diametrale(E1)) & "." & Format2(Diametrale(E2)),1 = am11
'''
am2(2) = ambo
am2(3) = terno
ImpostaGiocata 1,am2,ruote,posta3,colpi,0
'''
am3(2) = ambo
am3(3) = terno
ImpostaGiocata 2,am3,ruote,posta3,colpi,0
'''
am4(2) = ambo
am4(3) = terno
ImpostaGiocata 3,am4,ruote,posta3,colpi,0
'''
am5(2) = ambo
am5(3) = terno
ImpostaGiocata 4,am5,ruote,posta3,colpi,0
'''
am6(2) = ambo
am6(3) = terno
ImpostaGiocata 5,am6,ruote,posta3,colpi,0
'''
am7(2) = ambo
am7(3) = terno
ImpostaGiocata 6,am7,ruote,posta3,colpi,0
'''
am8(2) = ambo
am8(3) = terno
ImpostaGiocata 7,am8,ruote,posta3,colpi,0
'''
am9(2) = ambo
am9(3) = terno
ImpostaGiocata 8,am9,ruote,posta3,colpi,0
'''
am10(2) = ambo
am10(3) = terno
ImpostaGiocata 9,am10,ruote,posta3,colpi,0
'''
am11(2) = ambo
am11(3) = terno
ImpostaGiocata 10,am11,ruote,posta3,colpi,0
Gioca es,True,,2
End If
'Next
'Next
'Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub
HO ASSEMBLATO CON QUALCHE COPIA INCOLLA UNO SCRIPT DA ME RICHIESTO E INIZIATO DA JOE91 SU LOTTOCED
MA NON RIESCO A FARLO APRIRE
...CHIEDO A QUALCHE BUON VOLENTEROSO DI AGGIUSTARMELO E FARMI CAPIRE L'ERRORE
RINGRAZIO ANTICIPATAMENTE CHI VORRà DEDICARSI
Sub Main
Dim am2(3),am3(3),am4(3),am5(3),am6(3),am7(3),am8(3),am9(3),am10(3),am11(3)
Dim ruote(2)
ruote(1) = R1
ruote(2) = R2
Dim posta3(3) ' x terzine
posta3(2) = 1
posta3(3) = 1
'colpi = 7
casi = 0
'Dc = CInt(InputBox("Es 21 ","Distanza Ciclometrica",21))
'scelta colpi di gioco
Co = CInt(InputBox("Colpi ?","Periodo di Verifica",9))
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
P1 = CInt(InputBox("Posizione ?","Prima Ruota",1))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
For Es = 8820 To EstrazioneFin : Messaggio Es
'If IndiceMensile(es) = IM Then
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
'If Dc = D Then
Scrivi DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
'End If
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
casi = casi + 1
Scrivi "---------------------------------------------- caso n°" & casi,1,,4
Scrivi "Condizione: " & Left(NomeRuota(r),2) & " " & CInt(a) & " in DataEstrazione(es),1,,4
Scrivi "Pronostico: " & Format2(A1) & "." & Format2(E1) & "." & Format2(90 -(E2)),1 = am2
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(DiametraleD(E1)) & "." & Format2(Vert(E2))= am3
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(Vert(E1)) & "." & Format2(DiametraleD(E2)),1 = am4
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(E2) & "." & Format2(90 -(E1)),1 = am5
Scrivi "PRONOSTICO: " & Format2(A1) & "." & Format2(Diametrale(E1)) & "." & Format2(Diametrale(E2)),1 = am6
Scrivi "Pronostico: " & Format2(Vert(A1)) & "." & Format2(E1) & "." & Format2(90 -(E2)),1 = am7
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(DiametraleD(E1)) & "." & Format2(Vert(E2)),1 = am8
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(Vert(E1)) & "." & Format2(DiametraleD(E2)),1 = am9
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(E2) & "." & Format2(90 -(E1)),1 = am10
Scrivi "PRONOSTICO: " & Format2(Vert(A1)) & "." & Format2(Diametrale(E1)) & "." & Format2(Diametrale(E2)),1 = am11
'''
am2(2) = ambo
am2(3) = terno
ImpostaGiocata 1,am2,ruote,posta3,colpi,0
'''
am3(2) = ambo
am3(3) = terno
ImpostaGiocata 2,am3,ruote,posta3,colpi,0
'''
am4(2) = ambo
am4(3) = terno
ImpostaGiocata 3,am4,ruote,posta3,colpi,0
'''
am5(2) = ambo
am5(3) = terno
ImpostaGiocata 4,am5,ruote,posta3,colpi,0
'''
am6(2) = ambo
am6(3) = terno
ImpostaGiocata 5,am6,ruote,posta3,colpi,0
'''
am7(2) = ambo
am7(3) = terno
ImpostaGiocata 6,am7,ruote,posta3,colpi,0
'''
am8(2) = ambo
am8(3) = terno
ImpostaGiocata 7,am8,ruote,posta3,colpi,0
'''
am9(2) = ambo
am9(3) = terno
ImpostaGiocata 8,am9,ruote,posta3,colpi,0
'''
am10(2) = ambo
am10(3) = terno
ImpostaGiocata 9,am10,ruote,posta3,colpi,0
'''
am11(2) = ambo
am11(3) = terno
ImpostaGiocata 10,am11,ruote,posta3,colpi,0
Gioca es,True,,2
End If
'Next
'Next
'Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da Marco Mar 3 Giu - 17:47:02
Ciao Roy,
ho provato a metterci le mani ma è troppo incasinato.
Secondo me,meglio farlo fare all'autore Joe91
ho provato a metterci le mani ma è troppo incasinato.
Secondo me,meglio farlo fare all'autore Joe91
Marco- amministratore
- Messaggi : 843
Data d'iscrizione : 26.12.13 -
Re: aiuto x questo script
Da Sole Mar 3 Giu - 19:33:11
provo a farlo vedere a mio marito che un po' ci capisce, quando ha tempo ... poi ti dico
Sole- Messaggi : 165
Data d'iscrizione : 06.05.14
Re: aiuto x questo script
Da roy62 Mar 3 Giu - 22:24:46
GRAZIE MARCO E PAVIGHE X L'INTERESSAMENTO,PROBABILMENTE JOE AVRà IN QUESTO PERIODO POCO TEMPO DA DEDICARE AGLI SCRIPT
...VI METTO LO SCRIPT INIZIATO DA JOE
Sub Main
Dim NU(3)
'indicazione estrazione da esaminare (oppure annullare)
Dc = CInt(InputBox("Es 21 ","Distanza Ciclometrica",21))
'scelta colpi di gioco
'Co = CInt(InputBox("Colpi ?","Periodo di Verifica",9))
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
P1 = CInt(InputBox("Posizione ?","Prima Ruota",5))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
For Es = 8000 To EstrazioneFin : Messaggio Es
'If IndiceMensile(es) = IM Then
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
If Dc = D Then
Scrivi DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
End If
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
Scrivi "Pronostico: " & Format2(E2) & "." & Format2(Vert(E2)) & "." & Format2(Vert(A1)),1
Scrivi
End If
Next
End Sub
MAGARI è + CHIARO
GRAZIE X LA PAZIENZA CIAOO
...VI METTO LO SCRIPT INIZIATO DA JOE
Sub Main
Dim NU(3)
'indicazione estrazione da esaminare (oppure annullare)
Dc = CInt(InputBox("Es 21 ","Distanza Ciclometrica",21))
'scelta colpi di gioco
'Co = CInt(InputBox("Colpi ?","Periodo di Verifica",9))
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
P1 = CInt(InputBox("Posizione ?","Prima Ruota",5))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
For Es = 8000 To EstrazioneFin : Messaggio Es
'If IndiceMensile(es) = IM Then
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
If Dc = D Then
Scrivi DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
End If
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
Scrivi "Pronostico: " & Format2(E2) & "." & Format2(Vert(E2)) & "." & Format2(Vert(A1)),1
Scrivi
End If
Next
End Sub
MAGARI è + CHIARO
GRAZIE X LA PAZIENZA CIAOO
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da roy62 Mar 3 Giu - 22:38:50
CIAO,QUESTO è QUELLO CHE CERCAVO
METODO CICLOMETRICO
PRENDERE IN CONSIDERAZIONE 2 ESTRATTI DI RUOTA SINGOLA O RUOTE CONSECUTIVE.....FACCIO UN ESEMPIO
data 08\02
ruote ca-fi
pos estratto 1 ruota= 5 ..numero 68
pos estratto 2 ruota=1....89
distanza tra 68 e 89=21....in questo caso il 2 secondo numero è maggiore del 1 quindi si somma ...89+21=110-fuori 90=20 e vertibile 2 saranno le ambate con gli abbinamenti
........68------distanza 21------89-----distanza 21------20 e 2.....ambate su ruota di partenza
esempio 2
data 11\02
ruote ca-fi
pos estratto 1 ruota=5...64
pos estratto 2 ruota=1...30
distanza tra 64 e 30=34...in questo caso il 2 numero è minore del primo,quindi si sottrae......90+30=120 - 34=86 con il vertibile 68 saranno le ambate con gli abbinamenti da giocare su ruota
.............64----- distanza 34 ----30------distanza 34------86 e 68 ambate su ruote di partenza
x abbinamenti
data 08\02\2014
ca 5 estr=68
fi 1 estr=89
abbiamo detto distanza 21 ambata 20 vert 2 ....ambate base......... da usare come capogiochi...
20= 1 capogioco......................a
2 = 2 capogioco.......................a1.....vertibile (20)
1 abb = 68 1 numero base...........b
2 abb = 89 2 numero base...........c
3 abb = 86 vert 1 numero base....d
4 abb = 88 vert 2 numero base....e
5 abb = 22 complemento al 90 del 1 estratto base (68)......f
6 abb = 23 diametrale del 1 estratto base o +45 (68)........g
7 abb = 63 diametrale in decina del 1 estratto base o +\- 5 (68).......h
8 abb = 1 complemento al 90 del 2 estratto base (89)...............i
9 abb = 44 diametrale del 2 estratto base o + 45 (89)..............l
10 abb = 84 diametrale in decina del 2 estratto base o +\- 5 (89)............m
giocarli in terzina
a1 - d - m ........a - d - m
a1 - e - h .........a - e - h
a1 - b - i...........a - b - i
a1 - c - f...........a - c -f
a1 - g - l...........a - g - l
LO SCRIPT SE POSSIBILE
IMPUTBOX
scelta colpi di gioco
1 scelta 1 ruota
1 scelta posizione estratto 1 ruota
2 scelta 2 ruota
2 scelta posizione estratto 2 ruota
scelta se ricerca consecutiva o scelta ricerca distanza o annulla
scelta operazione tra i 2 estratti (tutte le operazioni o annulla)
....**.scelta....se possibile alle operazioni - (differenza) tra i numeri base aggiungere la stessa o sottrarla al numero base 2 ruota ....scelta se sottrarre (se il numero 2 ruota è inferiore al 1 numero ..si sottrae o addizionare al numero base 2 ruota. se fosse maggiore...
faccio diversi esempi reali tutti in 5 pos la 1 ruota e 1 pos la 2 ruota
data 08\02= ca-fi 68-89= distanza 21= 20 2 ...ambate.....con gli abbinamenti.... 63-84-22-1-44-23-86-88-68-89 x 7 estrazioni
1 fi=2
3 fi=84-68
4 ca=22-63-88
7 ca=2-23
sintetizzo le uscite
11\02 ca-fi= 64-30 distanza 34 = 86-68......ambate con abbinamenti
6 ca= 86-26
13\02 ca- fi 68-30 distanza 38 = 82-28......ambate con abbinamenti
1 ca =28-22
2 ca =22-63
15\02 fi-ca= 28-37 distanza 9...........46-64.......ambate con abbinamenti
4 fi = 46-23
15\02 fi-ge= 76-75 distanza 1..........74-47........ambate con abbinamenti
2 ge = 70-67
18\02 fi-ge= 61-64 distanza 3..........67-76........ambate con abbinamenti
1 ge =67-29
7 fi = 67-76-29
METODO CHE GIRANO DIVERSE AMBATE E TANTI ABBINAMENTI X QUESTO MOTIVO CHIEDO GENTILMENTE ..SE POSSIBILE INSERIRE ACCANTO AD EVENTUALI SFALDAMENTI O AL RESOCONTO UN SIMBOLO X DISTINGUERLI IN MODO DA CAPIRE COSA STIA GIRANDO X RESTRINGERE LA GIOCATA,
in attesa di una risposta ringrazio anticipatamente a chi si dedicherà ciao
METODO CICLOMETRICO
PRENDERE IN CONSIDERAZIONE 2 ESTRATTI DI RUOTA SINGOLA O RUOTE CONSECUTIVE.....FACCIO UN ESEMPIO
data 08\02
ruote ca-fi
pos estratto 1 ruota= 5 ..numero 68
pos estratto 2 ruota=1....89
distanza tra 68 e 89=21....in questo caso il 2 secondo numero è maggiore del 1 quindi si somma ...89+21=110-fuori 90=20 e vertibile 2 saranno le ambate con gli abbinamenti
........68------distanza 21------89-----distanza 21------20 e 2.....ambate su ruota di partenza
esempio 2
data 11\02
ruote ca-fi
pos estratto 1 ruota=5...64
pos estratto 2 ruota=1...30
distanza tra 64 e 30=34...in questo caso il 2 numero è minore del primo,quindi si sottrae......90+30=120 - 34=86 con il vertibile 68 saranno le ambate con gli abbinamenti da giocare su ruota
.............64----- distanza 34 ----30------distanza 34------86 e 68 ambate su ruote di partenza
x abbinamenti
data 08\02\2014
ca 5 estr=68
fi 1 estr=89
abbiamo detto distanza 21 ambata 20 vert 2 ....ambate base......... da usare come capogiochi...
20= 1 capogioco......................a
2 = 2 capogioco.......................a1.....vertibile (20)
1 abb = 68 1 numero base...........b
2 abb = 89 2 numero base...........c
3 abb = 86 vert 1 numero base....d
4 abb = 88 vert 2 numero base....e
5 abb = 22 complemento al 90 del 1 estratto base (68)......f
6 abb = 23 diametrale del 1 estratto base o +45 (68)........g
7 abb = 63 diametrale in decina del 1 estratto base o +\- 5 (68).......h
8 abb = 1 complemento al 90 del 2 estratto base (89)...............i
9 abb = 44 diametrale del 2 estratto base o + 45 (89)..............l
10 abb = 84 diametrale in decina del 2 estratto base o +\- 5 (89)............m
giocarli in terzina
a1 - d - m ........a - d - m
a1 - e - h .........a - e - h
a1 - b - i...........a - b - i
a1 - c - f...........a - c -f
a1 - g - l...........a - g - l
LO SCRIPT SE POSSIBILE
IMPUTBOX
scelta colpi di gioco
1 scelta 1 ruota
1 scelta posizione estratto 1 ruota
2 scelta 2 ruota
2 scelta posizione estratto 2 ruota
scelta se ricerca consecutiva o scelta ricerca distanza o annulla
scelta operazione tra i 2 estratti (tutte le operazioni o annulla)
....**.scelta....se possibile alle operazioni - (differenza) tra i numeri base aggiungere la stessa o sottrarla al numero base 2 ruota ....scelta se sottrarre (se il numero 2 ruota è inferiore al 1 numero ..si sottrae o addizionare al numero base 2 ruota. se fosse maggiore...
faccio diversi esempi reali tutti in 5 pos la 1 ruota e 1 pos la 2 ruota
data 08\02= ca-fi 68-89= distanza 21= 20 2 ...ambate.....con gli abbinamenti.... 63-84-22-1-44-23-86-88-68-89 x 7 estrazioni
1 fi=2
3 fi=84-68
4 ca=22-63-88
7 ca=2-23
sintetizzo le uscite
11\02 ca-fi= 64-30 distanza 34 = 86-68......ambate con abbinamenti
6 ca= 86-26
13\02 ca- fi 68-30 distanza 38 = 82-28......ambate con abbinamenti
1 ca =28-22
2 ca =22-63
15\02 fi-ca= 28-37 distanza 9...........46-64.......ambate con abbinamenti
4 fi = 46-23
15\02 fi-ge= 76-75 distanza 1..........74-47........ambate con abbinamenti
2 ge = 70-67
18\02 fi-ge= 61-64 distanza 3..........67-76........ambate con abbinamenti
1 ge =67-29
7 fi = 67-76-29
METODO CHE GIRANO DIVERSE AMBATE E TANTI ABBINAMENTI X QUESTO MOTIVO CHIEDO GENTILMENTE ..SE POSSIBILE INSERIRE ACCANTO AD EVENTUALI SFALDAMENTI O AL RESOCONTO UN SIMBOLO X DISTINGUERLI IN MODO DA CAPIRE COSA STIA GIRANDO X RESTRINGERE LA GIOCATA,
in attesa di una risposta ringrazio anticipatamente a chi si dedicherà ciao
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da Marco Mer 4 Giu - 19:53:07
Un caro amico ci ha messo lo zampino....
avendo il cerchio ciclometrico,gira solo su Spaziometria
avendo il cerchio ciclometrico,gira solo su Spaziometria
- Codice:
Sub Main
Dim NU(3),ambata(2),ruote(10),posta(1),poste(3)
Dim terzina1(3),terzina2(3),terzina3(3),terzina4(3),terzina5(3)
Dim terzina1a(3),terzina2a(3),terzina3a(3),terzina4a(3),terzina5a(3)
posta(1) = 1
poste(2) = 1
poste(3) = 0.5
'indicazione estrazione da esaminare (oppure annullare)
Dc = CInt(InputBox("Es 21 ","Distanza Ciclometrica",21))' scegli una distanza a piacimento
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
P1 = CInt(InputBox("Posizione ?","Prima Ruota",5))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
colpi = CInt(InputBox("Colpi",,10))
For Es = 8000 To EstrazioneFin : Messaggio DataEstrazione(es)&" RUOTE ESAMINATE: "& SiglaRuota(r1)&" "& SiglaRuota(r2)
AvanzamentoElab 1,10,100
'If IndiceMensile(es) = IM Then
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
If Dc = D Then
cs=cs+1:Scrivi String(100,"*")&" N°"& Format2(cs),1
Scrivi DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " " & StringaEstratti(es,r1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " " & StringaEstratti(es,r2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
End If
ruote(1) = r1 : ruote(2) = r2
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
'Scrivi "Pronostico: " & Format2(E2) & "." & Format2(Vert(E2)) & "." & Format2(Vert(A1)),1
Scrivi
'''''''''''''' AMBATE ''''''''''''''
ambata(1) = a1
ambata(2) = Vert(a1)
ImpostaGiocata 1,ambata,ruote,posta,colpi
'''''''''''''' 5 TERZINE CON LA 1° AMBATA ''''''''''''''
terzina1(1) = ambata(1)
terzina1(2) = Vert(e1)
terzina1(3) = DiametraleD(e2)
ImpostaGiocata 2,terzina1,ruote,poste,colpi
terzina2(1) = ambata(1)
terzina2(2) = Vert(e2)
terzina2(3) = DiametraleD(e1)
ImpostaGiocata 3,terzina2,ruote,poste,colpi
terzina3(1) = ambata(1)
terzina3(2) = e1
terzina3(3) = Diametrale(e2)
ImpostaGiocata 4,terzina3,ruote,poste,colpi
terzina4(1) = ambata(1)
terzina4(2) = e2
terzina4(3) = 90 - e1
ImpostaGiocata 5,terzina4,ruote,poste,colpi
terzina5(1) = ambata(1)
terzina5(2) = Diametrale(e1)
terzina5(3) = Diametrale(e2)
ImpostaGiocata 6,terzina5,ruote,poste,colpi
'''''''''''''' 5 TERZINE CON LA 2° AMBATA ''''''''''''''
terzina1a(1) = ambata(2)
terzina1a(2) = Vert(e1)
terzina1a(3) = DiametraleD(e2)
ImpostaGiocata 7,terzina1a,ruote,poste,colpi
terzina2a(1) = ambata(2)
terzina2a(2) = Vert(e2)
terzina2a(3) = DiametraleD(e1)
ImpostaGiocata 8,terzina2a,ruote,poste,colpi
terzina3a(1) = ambata(2)
terzina3a(2) = e1
terzina3a(3) = Diametrale(e2)
ImpostaGiocata 9,terzina3a,ruote,poste,colpi
terzina4a(1) = ambata(2)
terzina4a(2) = e2
terzina4a(3) = 90 - e1
ImpostaGiocata 10,terzina4a,ruote,poste,colpi
terzina5a(1) = ambata(2)
terzina5a(2) = Diametrale(e1)
terzina5a(3) = Diametrale(e2)
ImpostaGiocata 11,terzina5a,ruote,poste,colpi
Gioca es,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
ScriviResoconto
End Sub
Marco- amministratore
- Messaggi : 843
Data d'iscrizione : 26.12.13 -
Sole- Messaggi : 165
Data d'iscrizione : 06.05.14
Re: aiuto x questo script
Da roy62 Gio 5 Giu - 9:31:06
GRAZIEEEEE
MARCO.,VORREI UNA MODIFICA RIGUARDO LA RICERCA,LA VORREI NON FATTA SULLA DISTANZA MA AD OGNI ESTRAZIONE
IO NEL MIO PICCOLO HO PROVATO AD ELIMINARE IMPUTBOX DELLA DISTANZA 'IF DEL DC' E END IF,MA MI SALTA QUALCHE ESTRAZIONE
QUESTO è UN METODO(PENSO COME TANTI ALTRI)BALLERINO(FUNZIONA UN'ARCO DI 7-8 ESTRAZIONI POI SI FERMA SU QUELLE RUOTE E INIZIA SU ALTRE E DIVERSE POSIZIONI DI ESTRATTI (DIFFICOLTOSO FARLO CARTA E PENNA)
è CHIARO CHE GLI ABBINAMENTI SONO TANTI MA SE POSSIBILE DA PARTE MIA INDIVIDUARE QUELLI GIUSTI TRAMITE CONVERGENZE E ALTRO
è POSSIBILE UNA LUNGHETTA FINALE? MAGARI ELIMINANDO QUALCHE NUMERO? I DIAMETRALI? (X RIUSCIRE A CAPIRE LE ACCOPPIATE VINCENTI X TERNO-VISTO CHE SUCCEDE SPESSO)
GRAZIE TANTE MARCO X LA TUA DISPONIBILITà
MARCO.,VORREI UNA MODIFICA RIGUARDO LA RICERCA,LA VORREI NON FATTA SULLA DISTANZA MA AD OGNI ESTRAZIONE
IO NEL MIO PICCOLO HO PROVATO AD ELIMINARE IMPUTBOX DELLA DISTANZA 'IF DEL DC' E END IF,MA MI SALTA QUALCHE ESTRAZIONE
QUESTO è UN METODO(PENSO COME TANTI ALTRI)BALLERINO(FUNZIONA UN'ARCO DI 7-8 ESTRAZIONI POI SI FERMA SU QUELLE RUOTE E INIZIA SU ALTRE E DIVERSE POSIZIONI DI ESTRATTI (DIFFICOLTOSO FARLO CARTA E PENNA)
è CHIARO CHE GLI ABBINAMENTI SONO TANTI MA SE POSSIBILE DA PARTE MIA INDIVIDUARE QUELLI GIUSTI TRAMITE CONVERGENZE E ALTRO
è POSSIBILE UNA LUNGHETTA FINALE? MAGARI ELIMINANDO QUALCHE NUMERO? I DIAMETRALI? (X RIUSCIRE A CAPIRE LE ACCOPPIATE VINCENTI X TERNO-VISTO CHE SUCCEDE SPESSO)
GRAZIE TANTE MARCO X LA TUA DISPONIBILITà
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da roy62 Mar 10 Giu - 14:24:59
roy62 ha scritto:GRAZIEEEEE
MARCO.,VORREI UNA MODIFICA RIGUARDO LA RICERCA,LA VORREI NON FATTA SULLA DISTANZA MA AD OGNI ESTRAZIONE
IO NEL MIO PICCOLO HO PROVATO AD ELIMINARE IMPUTBOX DELLA DISTANZA 'IF DEL DC' E END IF,MA MI SALTA QUALCHE ESTRAZIONE
QUESTO è UN METODO(PENSO COME TANTI ALTRI)BALLERINO(FUNZIONA UN'ARCO DI 7-8 ESTRAZIONI POI SI FERMA SU QUELLE RUOTE E INIZIA SU ALTRE E DIVERSE POSIZIONI DI ESTRATTI (DIFFICOLTOSO FARLO CARTA E PENNA)
è CHIARO CHE GLI ABBINAMENTI SONO TANTI MA SE POSSIBILE DA PARTE MIA INDIVIDUARE QUELLI GIUSTI TRAMITE CONVERGENZE E ALTRO
è POSSIBILE UNA LUNGHETTA FINALE? MAGARI ELIMINANDO QUALCHE NUMERO? I DIAMETRALI? (X RIUSCIRE A CAPIRE LE ACCOPPIATE VINCENTI X TERNO-VISTO CHE SUCCEDE SPESSO)
GRAZIE TANTE MARCO X LA TUA DISPONIBILITà
ciao MARCO eheheh pasticciando sono riuscito ad inserire la lunghetta finale
....ma non sono riuscito a capire xchè mi saltano le estrazioni ciaooooo
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da Blackmore Gio 12 Giu - 16:30:04
Prova così
- Codice:
Sub Main
Dim NU(3),ambata(2),ruote(10),posta(1),poste(3),postel(5)
Dim terzina1(3),terzina2(3),terzina3(3),terzina4(3),terzina5(3)
Dim terzina1a(3),terzina2a(3),terzina3a(3),terzina4a(3),terzina5a(3),lunghetta(10)
posta(1) = 1
poste(2) = 1
poste(3) = 0.5
postel(2) = 1
postel(3) = 1
postel(4) = 0.4
'1 scelta 1 ruota '1 scelta posizione estratto 1 ruota
Ini = InputBox("ricerca a partire dall'estrazione n°",,8750)
P1 = CInt(InputBox("Posizione ?","Prima Ruota",5))
R1 = CInt(InputBox("Es. 2 = Cagliari","Prima Ruota",2))
'2 scelta 2 ruota '2 scelta posizione estratto 2 ruota
P2 = CInt(InputBox("Posizione ?","Seconda Ruota",1))
R2 = CInt(InputBox("Es. 3 = Firenze ","Seconda Ruota",3))
colpi = CInt(InputBox("Colpi",,10))
For Es = Ini To EstrazioneFin : Messaggio DataEstrazione(es) & " RUOTE: " & SiglaRuota(r1) & " " & SiglaRuota(r2) & " --> [PREMI STOP X FERMARE LO SCRIPT]"
AvanzamentoElab 1,10,100
E1 = Estratto(Es,R1,P1) : E2 = Estratto(Es,R2,P2)
D = Distanza(E1,E2)
cs = cs + 1:Scrivi String(100,"*") & " N°" & Format2(cs),1
Scrivi "DATA: " & DataEstrazione(Es),1
Scrivi P1 & "° " & SiglaRuota(R1) & " " & StringaEstratti(es,r1) & " = " & Format2(E1)
Scrivi P2 & "° " & SiglaRuota(R2) & " " & StringaEstratti(es,r2) & " = " & Format2(E2)
If Fuori90(E1 + D) = E2 Then
A1 = Fuori90(E2 + D)
Else
A1 = Fuori90(E2 - D)
End If
ruote(1) = r1 : ruote(2) = r2
Scrivi "D = " & DC & " ==>> " & Format2(A1) & "." & Format2(Vert(A1))
NU(1) = A1 : NU(2) = E1 : NU(3) = E2
DisegnaCerchioCiclometrico NU,True
'Scrivi "Pronostico: " & Format2(E2) & "." & Format2(Vert(E2)) & "." & Format2(Vert(A1)),1
Scrivi
'''''''''''''' AMBATE ''''''''''''''
ambata(1) = a1
ambata(2) = Vert(a1)
ImpostaGiocata 1,ambata,ruote,posta,colpi
'''''''''''''' 5 TERZINE CON LA 1° AMBATA ''''''''''''''
terzina1(1) = ambata(1)
terzina1(2) = Vert(e1)
terzina1(3) = DiametraleD(e2)
ImpostaGiocata 2,terzina1,ruote,poste,colpi
terzina2(1) = ambata(1)
terzina2(2) = Vert(e2)
terzina2(3) = DiametraleD(e1)
ImpostaGiocata 3,terzina2,ruote,poste,colpi
terzina3(1) = ambata(1)
terzina3(2) = e1
terzina3(3) = Diametrale(e2)
ImpostaGiocata 4,terzina3,ruote,poste,colpi
terzina4(1) = ambata(1)
terzina4(2) = e2
terzina4(3) = 90 - e1
ImpostaGiocata 5,terzina4,ruote,poste,colpi
terzina5(1) = ambata(1)
terzina5(2) = Diametrale(e1)
terzina5(3) = Diametrale(e2)
ImpostaGiocata 6,terzina5,ruote,poste,colpi
'''''''''''''' 5 TERZINE CON LA 2° AMBATA ''''''''''''''
terzina1a(1) = ambata(2)
terzina1a(2) = Vert(e1)
terzina1a(3) = DiametraleD(e2)
ImpostaGiocata 7,terzina1a,ruote,poste,colpi
terzina2a(1) = ambata(2)
terzina2a(2) = Vert(e2)
terzina2a(3) = DiametraleD(e1)
ImpostaGiocata 8,terzina2a,ruote,poste,colpi
terzina3a(1) = ambata(2)
terzina3a(2) = e1
terzina3a(3) = Diametrale(e2)
ImpostaGiocata 9,terzina3a,ruote,poste,colpi
terzina4a(1) = ambata(2)
terzina4a(2) = e2
terzina4a(3) = 90 - e1
ImpostaGiocata 10,terzina4a,ruote,poste,colpi
terzina5a(1) = ambata(2)
terzina5a(2) = Diametrale(e1)
terzina5a(3) = Diametrale(e2)
ImpostaGiocata 11,terzina5a,ruote,poste,colpi
lunghetta(1) = ambata(1)
lunghetta(2) = ambata(2)
lunghetta(3) = e1
lunghetta(4) = e2
lunghetta(5) = Vert(e1)
lunghetta(6) = Vert(e2)
lunghetta(7) = 90 - e1
EliminaRipetuti lunghetta
ImpostaGiocata 12,lunghetta,ruote,postel,colpi
Gioca es,1
If ScriptInterrotto Then Exit For
Next
Scrivi
ScriviResoconto,False
End Sub
Ultima modifica di Blackmore il Sab 14 Giu - 11:42:44 - modificato 1 volta.
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Re: aiuto x questo script
Da roy62 Ven 13 Giu - 15:54:53
GRAZIEEEEE và alla GRANDE BLAKMORE.......da parte mio è da poco che mi stò cimentando con gli script.......e tra un copia incolla di quelli che ho in archivio (tra l'altro anche dei tuoi),....qualche casotto,.....qualcosina di semplice riesco a farlo.......grazieee ciao
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: aiuto x questo script
Da paololotto Sab 14 Giu - 11:21:50
perché non vedo il listato di blackmore??? ma vedo solo la parola script ( anche cliccandoci sopra non si apre niente)
paololotto- Messaggi : 51
Data d'iscrizione : 27.12.13
Età : 45
Località : vertova (bergamo)
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Argomenti simili» un aiuto,grazie
» DOVE SBAGLIO? piccolo aiuto
» Richista script
» SCRIPT X SPAZIOMETRIA
» Script Statistico
» DOVE SBAGLIO? piccolo aiuto
» Richista script
» SCRIPT X SPAZIOMETRIA
» Script Statistico
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
» Ultima del Mese BARI
» N°Spia 50 R.S. Genova R.G. Torino
» il forum si è trasferito
» il forum si è trasferito
» il forum si è trasferito
» N°Spia 50 R.S. Genova R.G. Torino
» Ho aperto un nuovo sito
» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi