PER TUTTO IL FORUM

[rabberto]

Ragazzi in giro ho trovato gli script del grande Osvaldo Manara , se a qualcuno interessano me lo puo' dire che li pubblico qui.
Spero di fare cosa gradita ,grazie , ciao.

 

[marco6474]

Ciao io li studierei .....non se sa mai......
Marco

 

[esselotto]

quote:Originally posted by rabberto

Ragazzi in giro ho trovato gli script del grande Osvaldo Manara , se a qualcuno interessano me lo puo' dire che li pubblico qui.
Spero di fare cosa gradita ,grazie , ciao.

non capisco perche chiedi consenso. Sei sull'area download,
area giusta per gli script.

 

[Roby]

Non chiedere, posta
Se vuoi farlo nel Topic "Mega raccolta script" sono ben accetti
Ne ho anch'io un paio di Manara ma non funzionano più, ambo fulmine, lottofacile etc etc

Blackmore

 

[rabberto]

OK RAGAZZI LI METTO , PERO VOGLIO DIRVI CHE NON E FARINA DEL MIO SACCO IO NON LI SO FARE LI POSSO SOLO METTERE :

LOTTO FACILE 1
Sub Main()
Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
Dim posta(1),poste(2),post(3)
posta(1) = 5oste(2) = 5ost(2) = 4ost(3) = 1
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi "Lotto Facile 1 di Osvaldo Manara ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
a1 = Fuori90(a + b)
For r2 = r1 + 1 To 10
If Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = r1 - 11 Then 'lasciare per solo diametr. consec e gemm
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
If p3 = p1 And p4 = p2 Then 'ambi isotopi
a2 = Fuori90(c + d)
If(a1) =(a2) Then
n1 = Abs(a - d) 'diff matem diag
n2 = Abs(b - c) 'diff matem diag
n3 = Abs(a - c) 'diff matem vert
n4 = Abs(b - d) 'diff matem vert
If n1 = n2 And n3 = n4 Then 'se le diff sono uguali
n5 = Abs(n2 - n4)
n6 = Fuori90(a2 + n5) 'ambata
n7 = 90 - a2 '1^ abb
If n7 = 0 Then n7 = 90
n8 = Vert(n7) '2^ abb
casi = casi + 1:Scrivi String(64,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] ambo somma [ " & Format2(a) & "." & Format2(b) & " ] " &(p1) & "^/" &(p2) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] ambo somma [ " & Format2(c) & "." & Format2(d) & " ] " &(p3) & "^/" &(p4) & "^ pos."
ColoreTesto 0:Scrivi String(64,"-") & " caso n° " & casi
ruote(1) = r1:ruote(2) = r2:ruota(1) = 11:co = 0
nu1(1) = n6
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1) = n6:nu2(2) = n7
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(2) = n8
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1) = n6:nu3(2) = n7:nu3(3) = n8
co = co + 1
ImpostaGiocata co,nu3,ruote,post,k
co = co + 1
ImpostaGiocata co,nu3,ruota,post,k
Gioca es

End If
End If
End If 'ambi isotopi
Next:Next
End If 'lasciare per solo diametr. e consec
Next:Next:Next:Next:Next
ScriviResoconto
End Sub

LOTTO FACILE 2
Sub Main()
Dim numeri1(2),numeri2(2),numeri3(3),numeri4(4)
Dim ruote(2),ruot(1)
Dim posta(1),poste(2),post(3),pos(4)
posta(1) = 5oste(2) = 2
post(2) = 2.5ost(3) = 0.5
pos(2) = 4.4os(3) = 0.4os(4) = 0.2
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8080)
k = InputBox("Per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi "Lotto Facile 2 di Osvaldo Manara ",1
Scrivi String(76,"=")
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1):b = Estratto(es,r1,p2)
dis1 = Distanza(a,b)
If dis1 = 45 Then
For r2 = r1 + 1 To 10 'solo ruote cons / diam / simm (gemm)
If r2 <> r1 And Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = 11 - r1 Then 'solo ruote cons / diam / simm (gemm)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3):d = Estratto(es,r2,p4)
dis2 = Distanza(c,d)
'If p1=p3 And p2=p4 Then 'isotopi
If dis2 = 45 Then
s1 = Fuori90(a + b) 'somma in orr
s2 = Fuori90(c + d) 'somma in orr
n3 = Fuori90(s1 + s2)'numero base 2^ bb
n4 = Diametrale(n3)'ambata
d1 = Fuori90(90 +(a - c)) 'diff in vert 1^ abb
d2 = Fuori90(90 +(b - d)) 'diff in vert 1^ abb
If d1 = d2 Then
n5 = d '3^ abb
casi = casi + 1:Scrivi String(64,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & "." & Format2(b) & " ] in " &(p1) & "^/" &(p2) & "^ pos. dist. "

 

[esselotto]

GRAZIE rabberto abbiamo gradito.
Potevi usare però ogni risposta uno script.
cosi dividi uno script dall'altro.

Iniziando da
SUB MAIN ()
----codice
End Sub

risultato più comprensibile.
per chi non capisce di script. E sa fare solo il copia incolla.

Comunque grazie da parte mia, gli altri ringrazierano da soli.
esselotto

 

[pfca]

Grazie rabberto


Francesco

 

[nikko]

grazie x la divulgazione

 

[arcor]

grazie rabberto x averli postati
ciaoo

 

[Roby]

GRAZIEEE !!!!![][][][]

SUERTE !!!!

 

[rabberto]

Prego ragazzi di niente , a buon rendere , ciao.