Novità

PER TUTTO IL FORUM

rabberto

Advanced Member
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.
 
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.:)
 
Non chiedere, posta :D
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
 
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) = 5:poste(2) = 5:post(2) = 4:post(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) = 5:poste(2) = 2
post(2) = 2.5:post(3) = 0.5
pos(2) = 4.4:pos(3) = 0.4:pos(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. "
 
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:);)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto