per il gentilissimo Cipisto,

[Roby]

Ciao Cipisto,

questa volta non mi faccio riprendere scrivendo maiuscolo che
equivale " ad alta voce " , questa citazione è per farti ricordare
che abbiamo avuto già contatti per tecniche da listare.Come mai non
ti leggo più,speriamo che sia dipeso soltanto dalla mancanza ditempo
ciò significa che per il resto va tutto bene o quasi. Ti voglio
sottoporre una tecnica caruccia che ho trovato nelle mie memorie :
" nel quadro estrazionale estrapolare un ambo vertibile, trovatolo,
cercare su un' altra ruota ed in posizione isotopa, uno dei due
addenti che formano il vertibile. A questo punto bisogna sommare
il fisso 2 (due) al numero più grande e,sottrarre il fisso 8 otto
a quello più piccolo". L' ambo così ottenuto va giocato sulle due
ruote di rilevamento ed a piacere su tutte. Spero di leggerti al
più presto ed in attesa mi è gradito salutarti cordialmente

lola

livia

 

[maxma62]

Ciao non sono un esperto di listati, ma me la cavo un po' con il taglia/copia/incolla. Ho modificato un mio listato e con l' aiuto di danilo ho fatto questo:

Sub main()
Dim ruote(5)
Dim ruota(5)
Dim posta(5)
Dim post(5)
Dim num(10)

post(1)=1
post(2)=2
posta(2)=2

fin=EstrazioneFin
ini=fin-250
For es=ini To fin

For rr = 1 To 9
For x=1 To 4
For y=x+1 To 5
n1=Estratto(es,rr,x)
n2=Estratto(es,rr,y)
If n1=Vert(n2) Then

If rr<>r Then
For r=rr+1 To 10
n3=Estratto(es,r,X)
n4=Estratto(es,r,Y)
If n3=n1 Or n3=n2 Or n4=n1 Or n4=n2 Then

If Estratto(es,R,x)=n1 Then bb=n3 End If
If Estratto(es,R,x)=n1 Then bb=n3 End If
If Estratto(es,R,x)=n2 Then bb=n3 End If
If Estratto(es,R,x)=n2 Then bb=n3 End If
If Estratto(es,R,y)=n1 Then bb=n4 End If
If Estratto(es,R,y)=n1 Then bb=n4 End If
If Estratto(es,R,y)=n2 Then bb=n4 End If
If Estratto(es,R,y)=n2 Then bb=n4 End If

ColoreTesto 2 : Scrivi String(65,"•"),1
ColoreTesto 0 : Scrivi DataEstrazione((es),1) &" [ "& SiglaRuota(rr) &" "&_
StringaEstratti(es,rr)&" ] [ ambo vert. = "& Format2(n1) &" / "& Format2(n2)&" ]"
Scrivi DataEstrazione((es),1) &" [ "& SiglaRuota(r) &" "&_
StringaEstratti(es,r)&" ] [ num. trovato = "& Format2(bb) &" ]" : Scrivi String(65,"-"),1

ruote(2)=r
ruote(1)=rr
ruota(1)=11

If n1>n2 Then
num(1)=Fuori90(n1+2)
num(2)=Fuori90((n2-8)+90)
If n1=0 Then n1=90
Else
num(1)=Fuori90((n1-8)+90)
num(2)=Fuori90(n2+2)
End If

ImpostaGiocata 1,num,ruote,post,13,2
ImpostaGiocata 2,num,ruota,posta,13,2
Gioca es
Scrivi

End If
Next
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Sicuramente qualcuno saprà fare di meglio, ma vedo (almeno mi sembra)
che funziona.
Ciao, max

 

[lola]

Ciao Maxma62,
non so come ringraziarti se non facendoti i miei complimenti
vivissimi per la tua bravura. Ancora grazie e scusami per il
ritardo perchè assente per lavoro ciao

lola




livia