| Autore |
 Discussione  |
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
 Spedito - 09 giugno 2013 : 18:24:06
|
CIAO LANCI VISTO CHE TU HAI CONOSCIUTO MANARA AVRAI CERTAMENTE TUTTI I SUOI METODI. TI VOLEVO CHIEDERE L'AMBO RELATIVO DI MANARA IO NON L'HO MAI CAPITO TUTTI QUEI SEGNI DISTANZIALI +-+-+-+-+-+ CHE CAVOLO VOGLIONO DIRE????
 |
 |
Modificato da - pesciolina su 11 giugno 2013 21:39:20 |
|
|
lancillotto.61
Utente Sfegatato
4829 invii |
Spedito - 19 giugno 2013 : 20:29:41
|
|
hhaaahh isa e' un po' complesso dovrei farti degli esempi ed e' lunga come cosa anche perché non tutti i segni sono validi quindi e ' troppo lunga la cosa, io c'e' lo ho su floppy datomi da OSVALDO ma non se puo' duplicare, e poi aspetta cio' na cosa su l8 fammi cerca aspe.... |
l8 |
 |
|
|
lancillotto.61
Utente Sfegatato
4829 invii |
Spedito - 19 giugno 2013 : 20:31:39
|
eccolo vedi se funziona.
ciao
l8
ambo relativo
Sub main()
Dim ruote(2)
Dim ruota(1)
Dim posta(2)
Dim poste(2)
Dim nn(2),nr1(2),nr2(2),nr3(2)
'Ambo relativo.di O. Manara & modificato da Florindi.
posta(1)=1
posta(2)=1
poste(2)=1
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** L'AMBO RELATIVO CON I SEGNI DISTANZIALI ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=")&"Listato da Patrik e Franco Florindi ",1
ColoreTesto 0
fin=EstrazioneFin
ini=fin-20
t=0
For es = ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9 : For p1 = 1 To 5 : p2=p1+1
If p2=6 Then p2=1
a = Estratto (es-5,r,p1) : b = Estratto (es-5,r,p2)
do1 = Distanza(a,b)
For rr=r+1 To 10 : For p3=1 To 5 : p4=p3+1
If p4=6 Then p4=1
c = Estratto (es-5,rr,p3) : d = Estratto (es-5,rr,p4)
do2 = Distanza(c,d)
If do1=do2 Then
'Distanza Verticale
dv1=Distanza (a,c) : dv2= Distanza (b,d)
If dv1<>dv2 Then
nr1(1)=Diametrale (dv1): nr1(2)=Diametrale (dv2)
nr2(1)=Diametrale (a) : nr2(2)=Diametrale (c)
nr3(1)=Diametrale (b) : nr3(2)=Diametrale (d)
'Cerca gli ambi derivati entro 5 colpi.
ok=0:co=0
For ex=es-4 To es
For r2=1 To 12
For p5=1 To 5 : p6=p5+1
If p6=6 Then p6=1
x1 = Estratto (ex,r2,p5) : x2 = Estratto (ex,r2,p6)
If ((x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1))) Or ((x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1))) Or ((x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)))Then
If (x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1)) Then nn(1)=x1 : nn(2)=x2
If (x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1)) Then nn(1)=x1 : nn(2)=x2
If (x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)) Then nn(1)=x1 : nn(2)=x2
'Controlla i segni distanziali
df1=Abs (a-b) : df2=Abs (c-d) : df3=Abs (nn(1)-nn(2))
If df1>45 And a>b Then k1="+"
If df1>45 And aIf df1=<45 And a>b Then k1="-"
If df1=<45 And aIf df2>45 And c>d Then k2="+"
If df2>45 And cIf df2=<45 And c>d Then k2="-"
If df2=<45 And cIf df3>45 And nn(1)>nn(2) Then k3="+"
If df3>45 And nn(1)If df3=<45 And nn(1)>nn(2) Then K3="-"
If df3=<45 And nn(1)If k1="-" And K2="-" And K3="+" Or k1="-" And K2="+" And K3="+" Or k1="+" And K2="-" And K3="-" Or k1="+" And K2="+" And K3="-" Then
t=t+1 : ok=1 : co=co+1
ruota(1)=r2
ruote(1)=11
ruote(2)=12
Scrivi "-------------------------------------------------------------------------"
Scrivi "Estrazione "& DataEstrazione(es-5),1
ColoreTesto 1
Scrivi
Scrivi "Ambi Derivati: "& StringaNumeri(nr1)&" / " & StringaNumeri(nr2)&" / "& StringaNumeri(nr3)
ColoreTesto 0
ColoreTesto 2
ColoreTesto 0
Scrivi
Scrivi "Ambi sortiti per determinare i segni distanziali: "&" "& Format2 (a)&"."& Format2 (b)&_
" / "& Format2 (c)&"."& Format2 (d)& " / "& Format2 (nn(1))&"."& Format2 (nn(2)),1
Scrivi "Segni Distanziali : "& K1&"/"&K2&"/"&K3,1
Scrivi "----------------------------------------------------------------Giocata n°"&t
ImpostaGiocata 1,nn,ruota,posta,18,1
ImpostaGiocata 2,nn,ruote,poste,18,2
Gioca ex
End If
End If : Next : Next
co=co+1
If ok=1 Then Exit For
Next
End If
End If : Next : Next : Next : Next : Next
ScriviResoconto
End Sub
|
l8 |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 19 giugno 2013 : 20:34:14
|
HEI....SEI UN FULMINE....TI HO FATTO LA DOMANDA DUE SECONDI FA.....
CMQ GRAZIE MILLE ORA VEDO SE RIESCO A FARLO FUNZIONARE PERCHE' IO DI SCRIPT CI CAPISCO POCO....ANZI NO....NON CI CAPISCO NULLA.AHAHAHAHAH |
|
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 19 giugno 2013 : 20:40:23
|
ECCO...COME VOLEVASI DIMOSTRARE MI DA ERRORE
errore1017: Previsto 'Then' (riga55)
Anche con altri script che ho copiato mi fa la stessa cosa forse il mio programma non è a posto....boh.
Cmq grazie della gentilezza.
|
|
|
|
|
lancillotto.61
Utente Sfegatato
4829 invii |
Spedito - 20 giugno 2013 : 13:59:34
|
prego ci ho provato, e ti ripeto la spiegazione e' un po lunghina e con sto' caldo la rimandiamo a periodi piu' freschi.....CHE POI MI CHIEDO MA CHI TE LO FA' FARE DEVI FARE TUTTA STA PROCEDURA DI CALCOLO PER PIA' AL MASSIMO UN'AMBATA PERCHE L'AMBO RELATIVO E' LA RIPETIZIONE DI UN AMBO GIA SORTITO.... MA CHI TE LO FA' FARE....... E POI L'AMBO RELATIVO DI MANARA..... NON E' DI MANARA .....OSVALDO COMPERO' I DIRITTI DA PEZZELLA E TT E DUE VENDEVANO STO' AMBO RELATIVO SOLO CHE MANARA SFRUTTAVA MEGLIO LA SUA POPOLARITA ECCO PERCHE PEZZELLA GLI HA CONCESSO L'AMBO RELATIVO
CIAO ISA E BUON CALDO
by lanci |
l8 |
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 20 giugno 2013 : 15:17:09
|
ciao ragazzi
lanci non lo cancellare che appena mi aggiustano il pc , me lo copio su L8.
buon pomeriggio |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 20 giugno 2013 : 15:20:21
|
|
Franca poi fammi sapere se a te funziona perché a me dà errore. |
|
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 21 giugno 2013 : 07:05:09
|
|
ciao pesciolina si senz'altro |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 24 giugno 2013 : 07:05:22
|
ciao pesciolina
ho riattivato L8 , ma dà errore ;
visto che il listato lo ha fatto enplein gli chiedo di guardarlo
chissà che possa correggerlo , Lui è un maestro
buona giornata |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 24 giugno 2013 : 15:29:39
|
citazione:
Inviato in origine da franca46
ciao pesciolina
ho riattivato L8 , ma dà errore ;
visto che il listato lo ha fatto enplein gli chiedo di guardarlo
chissà che possa correggerlo , Lui è un maestro
buona giornata
ciao ragazzi enplein alias franco florindi ve lo ha aggiustato .
ecco il listato corretto
Sub main()
Dim ruote(2)
Dim ruota(1)
Dim posta(2)
Dim poste(2)
Dim nn(2),nr1(2),nr2(2),nr3(2)
'Ambo relativo.di O. Manara & modificato da Florindi.
posta(1)=1
posta(2)=1
poste(2)=1
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** L'AMBO RELATIVO CON I SEGNI DISTANZIALI ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=")&"Listato da Patrik e Franco Florindi ",1
ColoreTesto 0
fin=EstrazioneFin
ini=fin-20
t=0
For es = ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9 : For p1 = 1 To 5 : p2=p1+1
If p2=6 Then p2=1
a = Estratto (es-5,r,p1) : b = Estratto (es-5,r,p2)
do1 = Distanza(a,b)
For rr=r+1 To 10 : For p3=1 To 5 : p4=p3+1
If p4=6 Then p4=1
c = Estratto (es-5,rr,p3) : d = Estratto (es-5,rr,p4)
do2 = Distanza(c,d)
If do1=do2 Then
'Distanza Verticale
dv1=Distanza (a,c) : dv2= Distanza (b,d)
If dv1<>dv2 Then
nr1(1)=Diametrale (dv1): nr1(2)=Diametrale (dv2)
nr2(1)=Diametrale (a) : nr2(2)=Diametrale (c)
nr3(1)=Diametrale (b) : nr3(2)=Diametrale (d)
'Cerca gli ambi derivati entro 5 colpi.
ok=0:co=0
For ex=es-4 To es
For r2=1 To 12
For p5=1 To 5 : p6=p5+1
If p6=6 Then p6=1
x1 = Estratto (ex,r2,p5) : x2 = Estratto (ex,r2,p6)
If ((x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1))) Or ((x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1))) Or ((x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)))Then
If (x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1)) Then nn(1)=x1 : nn(2)=x2
If (x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1)) Then nn(1)=x1 : nn(2)=x2
If (x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)) Then nn(1)=x1 : nn(2)=x2
'Controlla i segni distanziali
df1=Abs (a-b) : df2=Abs (c-d) : df3=Abs (nn(1)-nn(2))
If df1>45 And a>b Then k1="+"
If df1>45 And ab Then k1="-"
If df1=<45 And a45 And c>d Then k2="+"
If df2>45 And cd Then k2="-"
If df2=<45 And c45 And nn(1)>nn(2) Then k3="+"
If df3>45 And nn(1)nn(2) Then K3="-"
If df3=<45 And nn(1)
provatelo
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 24 giugno 2013 : 15:42:49
|
|
NO A ME NON FUNZIONA MI DA LO STESSO ERRORE 1017 SOLO CHE ORA LA RIGA NON è 55 MA 57. |
|
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 24 giugno 2013 : 16:10:20
|
ciao pesciolina ,
ascolta io ho un pc di emergenza con un mouse ballerino.
potrei anche averlo copiato male ma da me funziona ( ho un L8 di emergenza),
prova a prelevarlo tu , qui: http://ambolotto.forumfree.it/?t=66269511
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 24 giugno 2013 : 16:12:10
|
io non conosco il metodo e non so interpretare il listato
ti metto le ultime previsioni che mi dà.
se ti ci raccapezzi.....
Ambi sortiti per determinare i segni distanziali: 06.35 / 90.61 / 71.51
Segni Distanziali : +/-/-
----------------------------------------------------------------Giocata n°22
mar 04.06.2013 [8699]
G 1: MA 71.51 Mi 6/18
M 71 su Mi 6° colpo [8705/18.06.2013]
I6
G 2: A 71.51 8/18
M 51 su Tu (Ro) 1° colpo [8700/06.06.2013]
M 51 su Tu (Na) 4° colpo [8703/13.06.2013]
M 51 su Tu (Ba) 5° colpo [8704/15.06.2013]
M 51 su Tu (Ge) 5° colpo [8704/15.06.2013]
M 71 su Tu (Mi) 6° colpo [8705/18.06.2013]
M 71 su Tu (Fi) 7° colpo [8706/20.06.2013]
M 51 su Tu (Ba) 8° colpo [8707/22.06.2013]
in corso (8° su 18)
-------------------------------------------------------------------------
Estrazione 30.05.2013
Ambi Derivati: 60.48 / 68.53 / 14.17
Ambi sortiti per determinare i segni distanziali: 23.59 / 08.62 / 68.53
Segni Distanziali : +/-/-
----------------------------------------------------------------Giocata n°23
mar 11.06.2013 [8702]
G 1: MA 68.53 Ve 5/18
in corso (5° su 18)
G 2: A 68.53 5/18
M 68 su Nz 1° colpo [8703/13.06.2013]
M 53 su Tu (Pa) 1° colpo [8703/13.06.2013]
M 68 su Tu (To) 1° colpo [8703/13.06.2013]
M 53 su Tu (Mi) 2° colpo [8704/15.06.2013]
M 68 su Tu (Na) 2° colpo [8704/15.06.2013]
D2 68 su Tu (Na) 2° colpo [8704/15.06.2013]
D2 59 su Tu (Pa) 2° colpo [8704/15.06.2013]
D2 08 su Tu (Ro) 2° colpo [8704/15.06.2013]
D2 78 su Tu (To) 2° colpo [8704/15.06.2013]
D2 84 su Tu (Ve) 2° colpo [8704/15.06.2013]
M 53 su Tu (Ca) 3° colpo [8705/18.06.2013]
D2 53 su Tu (Ca) 3° colpo [8705/18.06.2013]
D2 06 su Tu (Fi) 3° colpo [8705/18.06.2013]
D2 30 su Tu (Ge) 3° colpo [8705/18.06.2013]
D2 02 su Tu (Mi) 3° colpo [8705/18.06.2013]
D2 29 su Tu (Na) 3° colpo [8705/18.06.2013]
D2 76 su Tu (Pa) 3° colpo [8705/18.06.2013]
D2 39 su Tu (Ro) 3° colpo [8705/18.06.2013]
D2 04 su Tu (To) 3° colpo [8705/18.06.2013]
D2 23 su Tu (Ve) 3° colpo [8705/18.06.2013]
M 53 su Tu (Fi) 5° colpo [8707/22.06.2013]
in corso (5° su 18)
-------------------------------------------------------------------------
Estrazione 01.06.2013
Ambi Derivati: 89.69 / 82.38 / 72.48
Ambi sortiti per determinare i segni distanziali: 37.27 / 83.03 / 69.89
Segni Distanziali : -/+/+
----------------------------------------------------------------Giocata n°24
sab 08.06.2013 [8701]
G 1: MA 69.89 Ve 6/18
in corso (6° su 18)
G 2: A 69.89 6/18
M 69 su Tu (Fi) 1° colpo [8702/11.06.2013]
M 69 su Tu (Mi) 1° colpo [8702/11.06.2013]
D2 69 su Tu (Mi) 1° colpo [8702/11.06.2013]
D2 87 su Tu (Na) 1° colpo [8702/11.06.2013]
M 69 su Tu (Pa) 1° colpo [8702/11.06.2013]
D2 69 su Tu (Pa) 1° colpo [8702/11.06.2013]
D2 14 su Tu (Ro) 1° colpo [8702/11.06.2013]
D2 05 su Tu (To) 1° colpo [8702/11.06.2013]
D2 87 su Tu (Ve) 1° colpo [8702/11.06.2013]
M 69 su Tu (Fi) 2° colpo [8703/13.06.2013]
M 69 su Tu (To) 2° colpo [8703/13.06.2013]
M 89 su Tu (Ca) 3° colpo [8704/15.06.2013]
M 89 su Tu (Pa) 3° colpo [8704/15.06.2013]
M 89 su Tu (To) 4° colpo [8705/18.06.2013]
M 89 su Tu (Ge) 5° colpo [8706/20.06.2013]
M 89 su Tu (Ro) 6° colpo [8707/22.06.2013]
in corso (6° su 18)
-------------------------------------------------------------------------
Estrazione 01.06.2013
Ambi Derivati: 86.54 / 42.83 / 22.13
Ambi sortiti per determinare i segni distanziali: 87.67 / 38.58 / 13.22
Segni Distanziali : -/+/+
----------------------------------------------------------------Giocata n°25
gio 06.06.2013 [8700]
G 1: MA 13.22 Ca 7/18
in corso (7° su 18)
G 2: A 13.22 7/18
M 13 su Tu (Fi) 1° colpo [8701/08.06.2013]
M 22 su Tu (Na) 1° colpo [8701/08.06.2013]
M 13 su Nz 2° colpo [8702/11.06.2013]
M 13 su Tu (Pa) 2° colpo [8702/11.06.2013]
M 13 su Tu (Ve) 3° colpo [8703/13.06.2013]
D2 13 su Tu (Ve) 3° colpo [8703/13.06.2013]
M 13 su Tu (Na) 4° colpo [8704/15.06.2013]
M 13 su Tu (Ve) 4° colpo [8704/15.06.2013]
M 22 su Tu (Na) 5° colpo [8705/18.06.2013]
in corso (7° su 18)
-------------------------------------------------------------------------
Estrazione 06.06.2013
Ambi Derivati: 83.57 / 56.18 / 31.43
Ambi sortiti per determinare i segni distanziali: 11.76 / 63.88 / 31.43
Segni Distanziali : -/+/+
----------------------------------------------------------------Giocata n°26
sab 15.06.2013 [8704]
G 1: MA 31.43 To 2/18
M 43 su To 2° colpo [8706/20.06.2013]
I2
G 2: A 31.43 3/18
M 43 su Tu (To) 2° colpo [8706/20.06.2013]
M 43 su Nz 3° colpo [8707/22.06.2013]
M 31 su Tu (Ge) 3° colpo [8707/22.06.2013]
M 43 su Tu (Na) 3° colpo [8707/22.06.2013]
in corso (3° su 18)
-------------------------------------------------------------------------
Estrazione 08.06.2013
Ambi Derivati: 72.78 / 11.74 / 71.14
Ambi sortiti per determinare i segni distanziali: 56.26 / 29.59 / 71.14
Segni Distanziali : -/+/+
----------------------------------------------------------------Giocata n°27
mar 18.06.2013 [8705]
G 1: MA 71.14 Mi 2/18
in corso (2° su 18)
G 2: A 71.14 2/18
M 71 su Tu (Fi) 1° colpo [8706/20.06.2013]
M 14 su Tu (Pa) 2° colpo [8707/22.06.2013]
in corso (2° su 18)
-------------------------------------------------------------------------
Estrazione 08.06.2013
Ambi Derivati: 72.78 / 11.74 / 71.14
Ambi sortiti per determinare i segni distanziali: 56.26 / 29.59 / 71.14
Segni Distanziali : -/+/+
----------------------------------------------------------------Giocata n°28
mar 18.06.2013 [8705]
G 1: MA 71.14 Mi 2/18
in corso (2° su 18)
G 2: A 71.14 2/18
M 71 su Tu (Fi) 1° colpo [8706/20.06.2013]
M 14 su Tu (Pa) 2° colpo [8707/22.06.2013]
in corso (2° su 18)
-------------------------------------------------------------------------
Estrazione 08.06.2013
Ambi Derivati: 83.57 / 15.67 / 47.35
Ambi sortiti per determinare i segni distanziali: 60.02 / 22.80 / 15.67
Segni Distanziali : +/-/-
----------------------------------------------------------------Giocata n°29
gio 20.06.2013 [8706]
G 1: MA 15.67 Mi 1/18
in corso (1° su 18)
G 2: A 15.67 1/18
in corso (1° su 18)
-------------------------------------------------------------------------
Estrazione 11.06.2013
Ambi Derivati: 89.61 / 71.25 / 11.85
Ambi sortiti per determinare i segni distanziali: 26.56 / 70.40 / 11.85
Segni Distanziali : +/-/-
----------------------------------------------------------------Giocata n°30
sab 15.06.2013 [8704]
G 1: MA 11.85 Pa 3/18
in corso (3° su 18)
G 2: A 11.85 3/18
M 11 su Tu (Fi) 3° colpo [8707/22.06.2013]
in corso (3° su 18)
non riesco a fare di +
buon pomeriggio |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 24 giugno 2013 : 20:16:39
|
|
Grazie Franca.....l'ho preso dal sito che mi hai consigliato....ora è ok funziona. |
|
|
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 25 giugno 2013 : 07:59:35
|
ciao pesciolina
ottimo !!! buon studio |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
| |
Discussione |
|
PER LANCILLOTTO
