Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Gio Mag 24, 2018 6:58 pm Da DjNomade

» Ultima del Mese BARI
Gio Mag 17, 2018 8:44 pm Da Mara*

» Da Ambo spia 09-90 a tutte
Mar Apr 03, 2018 6:22 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


aiuto x questo script

Andare in basso

aiuto x questo script

Messaggio Da roy62 il Mar Giu 03, 2014 12:58 pm

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

























































avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Marco il Mar Giu 03, 2014 3:47 pm

Ciao Roy,
ho provato a metterci le mani ma è troppo incasinato.
Secondo me,meglio farlo fare all'autore Joe91
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo dell'utente http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Sole il Mar Giu 03, 2014 5:33 pm

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

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da roy62 il Mar Giu 03, 2014 8:24 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da roy62 il Mar Giu 03, 2014 8:38 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Marco il Mer Giu 04, 2014 5:53 pm

Un caro amico ci ha messo lo zampino....
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
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo dell'utente http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Sole il Mer Giu 04, 2014 9:55 pm

anche a noi gira

Sole

Messaggi : 165
Data d'iscrizione : 06.05.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da roy62 il Gio Giu 05, 2014 7:31 am

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à
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da roy62 il Mar Giu 10, 2014 12:24 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Blackmore il Gio Giu 12, 2014 2:30 pm

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 Giu 14, 2014 9:42 am, modificato 1 volta

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da roy62 il Ven Giu 13, 2014 1:54 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da paololotto il Sab Giu 14, 2014 9:21 am

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à : 39
Località : vertova (bergamo)

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Blackmore il Sab Giu 14, 2014 9:43 am

Ho tolto lo spoiler

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: aiuto x questo script

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum