| R E V I S I O N E D E L L A D I S C U S S I O N E |
| lele67 |
Posted - 04 novembre 2008 : 23:47:20
premetto non è farina del mio sacco siccome oramai la rete pullula di personaggi strani che si accaparrano i meriti di altri lo pubblico specificando che è corretto del grande maestro florindi un mostro per i listati
Sub main()
Dim ruote(1)
Dim ruota(1)
Dim posta(2)
Dim poste(2)
Dim nn(2),nr1(2),nr2(2),nr3(2)
'Rif. LottoPatrik.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-25
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 10
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 a>b Then k1="-"
If df2>45 And c>d Then k2="+"
If df2=<45 And c>d Then k2="-"
If df3>45 And nn(1)>nn(2) Then k3="+"
If df3=<45 And nn(1)>nn(2) Then K3="-"
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
Scrivi "-------------------------------------------------------------------------"
Scrivi "Estrazione "& DataEstrazione(es-5),1
Scrivi NomeRuota (r) &" "& Format2 (a)&"."& Format2 (b)& " [Pos. "&p1&"/"&p2&"] Do1. "& Format2 (do1) &" Dv1. "& Format2 (dv1) ,1
Scrivi NomeRuota (rr)&" "& Format2 (c)&"."& Format2 (d)& " [Pos. "&p3&"/"&p4&"] Do2. "& Format2 (do2) &" Dv2. "& Format2 (dv2) ,1
ColoreTesto 1
Scrivi
Scrivi "Ambi Derivati: "& StringaNumeri(nr1)&" / " & StringaNumeri(nr2)&" / "& StringaNumeri(nr3)
ColoreTesto 0
ColoreTesto 2
Scrivi "Ambo trovato su "& NomeRuota (r2)&" il "& DataEstrazione(ex)&" Colpo "&co&"° "& StringaNumeri (nn)& " [Pos. "&p5& "/"&p6&"]",1
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,12,1
ImpostaGiocata 2,nn,ruote,poste,12,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 |
| 8 U L T I M E R E P L I C H E (Newest First) |
| gibon |
Posted - 05 novembre 2008 : 14:48:56
GRAZIE PICO ...  ORA MI FUNZIONA |
| pico2005 |
Posted - 05 novembre 2008 : 14:17:25
Questa è la versione corretta e funzionante.
Sub main()
Dim ruote(1)
Dim ruota(1)
Dim posta(2)
Dim poste(2)
Dim nn(2),nr1(2),nr2(2),nr3(2)
'Rif. LottoPatrik.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-25
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 10
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 a>b Then k1="-"
If df2>45 And c>d Then k2="+"
If df2=<45 And c>d Then k2="-"
If df3>45 And nn(1)>nn(2) Then k3="+"
If df3=<45 And nn(1)>nn(2) Then K3="-"
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
Scrivi "-------------------------------------------------------------------------"
Scrivi "Estrazione "& DataEstrazione(es-5),1
Scrivi NomeRuota (r) &" "& Format2 (a)&"."& Format2 (b)& " [Pos. "&p1&"/"&p2&"] Do1. "& Format2 (do1) &" Dv1. "& Format2 (dv1) ,1
Scrivi NomeRuota (rr)&" "& Format2 (c)&"."& Format2 (d)& " [Pos. "&p3&"/"&p4&"] Do2. "& Format2 (do2) &" Dv2. "& Format2 (dv2) ,1
ColoreTesto 1
Scrivi
Scrivi "Ambi Derivati: "& StringaNumeri(nr1)&" / " & StringaNumeri(nr2)&" / "& StringaNumeri(nr3)
ColoreTesto 0
ColoreTesto 2
Scrivi "Ambo trovato su "& NomeRuota (r2)&" il "& DataEstrazione(ex)&" Colpo "&co&"° "& StringaNumeri (nn)& " [Pos. "&p5& "/"&p6&"]",1
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,12,1
ImpostaGiocata 2,nn,ruote,poste,12,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
|
| n/a |
Posted - 05 novembre 2008 : 14:07:00
fate il quote a lele e ricopiatelo dalla finestra!! |
| n/a |
Posted - 05 novembre 2008 : 14:05:58
e' un problema del server nn funzia nemmeno l'anteprima |
| n/a |
Posted - 05 novembre 2008 : 13:15:40
Non ho avuto problemi
forse è dovuto alla versione di L8 |
| pico2005 |
Posted - 05 novembre 2008 : 12:35:26
Sicuramente gli If a seguire contengono errori od omissioni in quanto vi sono IF annidati ( quel aIF che stà per a IF) con evidenti omissioni......
infatti non esistono neanche come variabili definite ? ? ? ?
Forse un difetto di copia ed incolla Lele? Per te ci sono stati problemi? |
| gibon |
Posted - 05 novembre 2008 : 11:06:38
a me da ERRORE RIGA 57 MANCA "THEN"
If df1>45 And aIf df1=<45 And a>b Then k1="-"
|
| pesciolina |
Posted - 05 novembre 2008 : 07:03:10
Grazie Lele per i listati.....sapessi come mi sono utili!!! 
Per una come me che L8+ ce l'ha da pochissimo tutti questi listati (che io non so fare) sono veramente la manna dal cielo.
|
|
|
