Autore |
Discussione  |
|
lele67
Utente Fedelissimo
   
947 invii |
Spedito - 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 |
  |
Modificato da - lele67 su 05 novembre 2008 16:34:54 |
|
pesciolina
Utente Sfegatato
    
Italy
5958 invii |
Spedito - 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.
  
|
 |
 |
|
gibon
Utente Sfegatato
    
Italy
2515 invii |
Spedito - 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="-"
|
  VENTO IN POPPA  |
Modificato da - gibon su 05 novembre 2008 11:09:31 |
 |
|
pico2005
Utente Sfegatato
    
Italy
1653 invii |
Spedito - 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? |
Migliaia di fili d'erba tengon fermo un elefante. |
 |
|
n/a
deleted
    
2504 invii |
Spedito - 05 novembre 2008 : 13:15:40
|
Non ho avuto problemi
forse è dovuto alla versione di L8 |
   
Beato chi non si aspetta gratitudine...........non resterà deluso
|
 |
|
n/a
deleted
    
1108 invii |
Spedito - 05 novembre 2008 : 14:05:58
|
e' un problema del server nn funzia nemmeno l'anteprima |
  |
 |
|
n/a
deleted
    
1108 invii |
Spedito - 05 novembre 2008 : 14:07:00
|
fate il quote a lele e ricopiatelo dalla finestra!! |
  |
 |
|
pico2005
Utente Sfegatato
    
Italy
1653 invii |
Spedito - 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
     |
Migliaia di fili d'erba tengon fermo un elefante. |
 |
|
gibon
Utente Sfegatato
    
Italy
2515 invii |
Spedito - 05 novembre 2008 : 14:48:56
|
GRAZIE PICO ...  ORA MI FUNZIONA  |
  VENTO IN POPPA  |
 |
|
|
Discussione  |
|
|
|