Terno D'Autore - Osvaldo Manara(e Romeo Torti)

« Older Newer »

sean69

Posted on 30/5/2011, 14:58

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

Salve,anche questa volta riesco a citare gli esecutori materiale di questo script,il loro nome e' nello script (maxma62-Florindi),e li ringrazio per aver creato questo splendido lavoro sul metodo di Manara " Terno D'Autore".La Tavola sotto e' stata realizzata dal'utente pigreKo73.Grazie davvero..spero di aver reso cosa utile..

TERNO D'AUTORE.. Osvaldo Manara..( e Romeo Torti)

All'uscita di uno degli Ambi Spia ,su una ruota,presenti nella Tavola sotto,giocare la previsione corrispondente.

AMBO SPIA --> PREVISIONE CORRISPONDENTE

20.50**AMBATA -> 55 / 55.23 / 55.23.60

50.80**AMBATA ->14 / 14.44 / 14.44.84

30.50**AMBATA -> 45 / 45.88 / 45.88.61

50.57**AMBATA ->86 / 86.52 / 86.52.55

44.49**AMBATA ->46 / 46.48 / 46.48.58

42.49**AMBATA ->74 / 74.83 / 74.83.90

26.28**AMBATA -> 89 / 89.13 / 89.13.55

40.60**AMBATA -> 10 / 10.70 / 10.70.90

27.37**AMBATA -> 18 / 18.20 / 18.20.30

12.55**AMBATA -> 67 / 67.88 / 67.88.90

Ecco il listato L8+:

CODICE

ColoreTesto 2 :Scrivi String(57,32)&" AMBO SPIA MANARA ",1
Scrivi
Scrivi String(58,32)&"List. by chilofa",1
ColoreTesto 0
Scrivi
Sub main()
Dim n(2),ruota(2),amb(6),nu1(6),nu2(6),nu3(6),pt(1),ruote(10),ptt(5),pt1(5),j(90)
pt(1)=1:ptt(2)=3:ptt(3)=1.50:ptt(4)=.40:ptt(5)=.10:pt1(3)=3:pt1(4)=1.50:pt1(5)=.50
clp=14
ini=EstrazioneFin-200' 3842 '05/01/1945
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 12
If r=11 Then r1=12
For p1=1 To 5
For p2=1 To 5

a=Estratto(es,r,p1) : b=Estratto(es,r,p2)
If p1<>p2 Then

'-------------------------------------------------------------------------------------
ok=0
If a=20 And b=50 Then amb(1)=55:amb(2)=23:amb(3)=60::ok=1
If a=80 And b=50 Then amb(1)=14:amb(2)=84:amb(3)=54::ok=1
If a=30 And b=50 Then amb(1)=45:amb(2)=88:amb(3)=61::ok=1
If a=57 And b=50 Then amb(1)=86:amb(2)=52:amb(3)=55::ok=1
If a=44 And b=49 Then amb(1)=46:amb(2)=48:amb(3)=58::ok=1
If a=42 And b=49 Then amb(1)=74:amb(2)=83:amb(3)=90::ok=1
If a=26 And b=28 Then amb(1)=89:amb(2)=13:amb(3)=55::ok=1
If a=40 And b=60 Then amb(1)=10:amb(2)=70:amb(3)=90::ok=1
If a=27 And b=37 Then amb(1)=18:amb(2)=20:amb(3)=30::ok=1
If a=12 And b=55 Then amb(1)=67:amb(2)=88:amb(3)=90::ok=1

If ok=1 Then

'---------------------------------------------------------------------------------------
co=co+1
Scrivi String(44,"=")&" AMBO SPIA TERNO D'AUTORE.. Osvaldo MANARA..( e Romeo Torti) "
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" SORTITO AMBO SPIA "&a&"-"&b&" "
'Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" AMBo "&a&" POS. "&p1&" "&b&" POS. "&p2

ColoreTesto 2

Scrivi String (75,"-")
ruota(1)=r:ruota(2)=r1:ruote(1)=11:cg=0
nu2(1)=amb(1)

cg=cg+1
ImpostaGiocata cg,nu2,ruota,pt,clp

nu1(1)=amb(1)
nu1(2)=amb(2)

cg=cg+1
ImpostaGiocata cg,nu1,ruota,ptt,clp

nu3(1)=amb(1):nu3(2)=amb(2)
nu3(3)=amb(3):
cg=cg+1
ImpostaGiocata cg,nu3,ruota,ptt,clp

nu3(1)=amb(1):nu3(2)=amb(2)
nu3(3)=amb(3)

cg=cg+1
ImpostaGiocata cg,nu3,ruote,pt1,clp

Gioca es

Gioca es
End If

End If
Next
Next

Next
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32)&" AMBO SPIA TERNO D'AUTORE.. Osvaldo MANARA..( e Romeo Torti)",1
Scrivi
Scrivi String(58,32)&"List.by Maxma62-Florindi",1
ColoreTesto 0
End Sub

Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!

clicca qui

Saluti,sean69!!

Edited by sean69 - 5/6/2011, 17:41

Web

paololotto

Posted on 30/5/2011, 15:32

Advanced Member

Group: Member

Posts: 1,942

Status: Offline

grazie

pigreko73**

Posted on 5/6/2011, 15:49

User deleted

ciao sean..
..anke questa volta devo dirti ke il procedimento messo è stato postato dal sottoskritto..!!! e probabilmente anke lo script non è attribuibile a questo signor " ki lo fà.."" te ne spiego il motivo..
la TAVOLA ke hai postato è soltanto una parte di quella ke io posseggo..infatti è stata postata kosì per un mio errore..ed anke il listato è stato realizzato kon lo stesso errore.. quindi ne deduko ke gli unici ke han potuto realizzare lo script sono solo due (essendo questo metodo messo solo da me) ovvero maxma.62 oppure il Florindi..