| Autore |
 Discussione  |
|
vinci
Utente Sfegatato
Italy
1364 invii |
 Spedito - 23 settembre 2011 : 20:27:21
|
Per chi può interessare ecco alcuni script
presi un po qua e la (non sono i miei).
Se volete potete aggiungerne altri, è cosa gradita.
CINQUINA SU BARI
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"ALLA 5° DEL MESE UNA CINQUINA X AMBO A BARI X 10 COLPI _ By Blackmore _",1
Scrivi
Scrivi : ColoreTesto 1 : Scrivi"-----------List DjNomade",1
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(2),pt(3)
Dim n1(5)
pt(2) = 10
'pt(3)=0.50
clp = 10 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
'rt(2)=10 '2a ruota di gioco
ini = EstrazioneFin - 130
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 5 Then '5° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
ba1 = Estratto(es,1,1)
ba2 = Estratto(es,1,2)
ba3 = Estratto(es,1,3)
ba4 = Estratto(es,1,4)
ba5 = Estratto(es,1,5)
na1 = Estratto(es,6,1)
na2 = Estratto(es,6,2)
na3 = Estratto(es,6,3)
na4 = Estratto(es,6,4)
na5 = Estratto(es,6,5)
'------------------------------ Cinquina
n1(1) = Abs(ba1 - na1)
n1(2) = Abs(ba2 - na2)
n1(3) = Abs(ba3 - na3)
n1(4) = Abs(ba4 - na4)
n1(5) = Abs(ba5 - na5)
'--------------------------
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
ScriviResoconto
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
End Sub
|
Roberto Vinci |
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 23 settembre 2011 : 20:28:21
|
ALTRA CINQUINA SU BARI
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi "All'ultima del mese 1 Cinquina Su Bari ____________________ Metodo By FedePa (Abbinamenti by Blackmore)"
Scrivi : ColoreTesto 0 : Scrivi
Dim pt(4),rt(1),nn(5),pta(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
pta(2) = 1
pta(3) = 0.40
pta(4) = 0.10
clp = 13 'colpi di gioco
rt(1) = 1 '1a ruota di gioco >>>>>> Bari
ini = EstrazioneFin - 160
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es + 1) = 1 Then 'Ultima estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a = Estratto(es,5,2)'>>>>>>> 2° di Milano
b = Estratto(es,1,5)'>>>>>>> 5° di Bari
c = Estratto(es,2,5)'>>>>>>> 5° di Cagliari
'------------------------------ Cinquina
nn(1) = Fuori90(a + 23)
nn(2) = Fuori90(a + 81)
nn(3) = Fuori90(a + 83)
nn(4) = Fuori90(b)
nn(5) = Fuori90(c)
ImpostaGiocata 1,nn,rt,pt,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati" & CInt(co)
ScriviResoconto
End Sub
|
Roberto Vinci |
 |
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 23 settembre 2011 : 20:30:33
|
CINQUINA SU GENOVA
Sub Main()
ColoreTesto 1 :Scrivi "LISTATO BY DJ NOMADE - METODO BY BLACKMORE"
ColoreTesto 1 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO GEMELLO SU GENOVA"
ColoreTesto 1 :Scrivi "INIZIO RICERCA: 02-02-1985 _ FINE RICERCA: 17-05-2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(5)
ptt(2) = 1:pt1(2) = 3:pt1(3) = 1:pt1(4) = 0.9:pt1(5) = 0.1
clp = 8
ini = EstrazioneFin - 2458
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 4
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,4,p) : b = Estratto(es,4,p1)
'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,2) + 12):amb(2) = Fuori90(Estratto(es,4,2) + 24):amb(3) = Fuori90(Estratto(es,4,2) + 29):amb(4) = Fuori90(Estratto(es,4,2) + 32)::amb(5) = Fuori90(Estratto(es,4,2) + 35):ok = 1
If a = 11 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 05):amb(3) = Fuori90(Estratto(es,4,2) + 13):amb(4) = Fuori90(Estratto(es,4,2) + 21)::amb(5) = Fuori90(Estratto(es,4,2) + 73):ok = 1
If a = 11 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 02):amb(3) = Fuori90(Estratto(es,4,5) + 22):amb(4) = Fuori90(Estratto(es,4,5) + 45)::amb(5) = Fuori90(Estratto(es,4,5) + 66):ok = 1
If a = 11 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 02):amb(3) = Fuori90(Estratto(es,4,4) + 03):amb(4) = Fuori90(Estratto(es,4,4) + 52)::amb(5) = Fuori90(Estratto(es,4,4) + 82):ok = 1
If a = 11 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,5) + 09):amb(2) = Fuori90(Estratto(es,4,5) + 11):amb(3) = Fuori90(Estratto(es,4,5) + 46):amb(4) = Fuori90(Estratto(es,4,5) + 68)::amb(5) = Fuori90(Estratto(es,4,5) + 77):ok = 1
If a = 11 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 03):amb(4) = Fuori90(Estratto(es,4,1) + 44)::amb(5) = Fuori90(Estratto(es,4,1) + 87):ok = 1
If a = 11 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 32):amb(3) = Fuori90(Estratto(es,4,4) + 67):amb(4) = Fuori90(Estratto(es,4,4) + 72)::amb(5) = Fuori90(Estratto(es,4,4) + 87):ok = 1
If a = 22 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 04):amb(3) = Fuori90(Estratto(es,4,4) + 45):amb(4) = Fuori90(Estratto(es,4,4) + 57)::amb(5) = Fuori90(Estratto(es,4,4) + 72):ok = 1
If a = 22 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 30):amb(4) = Fuori90(Estratto(es,4,2) + 48)::amb(5) = Fuori90(Estratto(es,4,2) + 89):ok = 1
If a = 22 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,1) + 02):amb(2) = Fuori90(Estratto(es,4,1) + 26):amb(3) = Fuori90(Estratto(es,4,1) + 64):amb(4) = Fuori90(Estratto(es,4,1) + 81)::amb(5) = Fuori90(Estratto(es,4,1) + 82):ok = 1
If a = 22 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,4) + 06):amb(2) = Fuori90(Estratto(es,4,4) + 35):amb(3) = Fuori90(Estratto(es,4,4) + 48):amb(4) = Fuori90(Estratto(es,4,4) + 70)::amb(5) = Fuori90(Estratto(es,4,4) + 81):ok = 1
If a = 22 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 03):amb(3) = Fuori90(Estratto(es,4,5) + 48):amb(4) = Fuori90(Estratto(es,4,5) + 50)::amb(5) = Fuori90(Estratto(es,4,5) + 54):ok = 1
If a = 22 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 32):amb(4) = Fuori90(Estratto(es,4,1) + 33)::amb(5) = Fuori90(Estratto(es,4,1) + 79):ok = 1
If a = 33 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,1) + 19):amb(2) = Fuori90(Estratto(es,4,1) + 21):amb(3) = Fuori90(Estratto(es,4,1) + 28):amb(4) = Fuori90(Estratto(es,4,1) + 78)::amb(5) = Fuori90(Estratto(es,4,1) + 85):ok = 1
If a = 33 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 29):amb(4) = Fuori90(Estratto(es,4,1) + 43)::amb(5) = Fuori90(Estratto(es,4,1) + 47):ok = 1
If a = 33 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,3) + 02):amb(2) = Fuori90(Estratto(es,4,3) + 04):amb(3) = Fuori90(Estratto(es,4,3) + 35):amb(4) = Fuori90(Estratto(es,4,3) + 56)::amb(5) = Fuori90(Estratto(es,4,3) + 65):ok = 1
If a = 33 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,2) + 46):amb(2) = Fuori90(Estratto(es,4,2) + 50):amb(3) = Fuori90(Estratto(es,4,2) + 65):amb(4) = Fuori90(Estratto(es,4,2) + 68)::amb(5) = Fuori90(Estratto(es,4,2) + 75):ok = 1
If a = 33 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 06):amb(2) = Fuori90(Estratto(es,4,1) + 27):amb(3) = Fuori90(Estratto(es,4,1) + 31):amb(4) = Fuori90(Estratto(es,4,1) + 46)::amb(5) = Fuori90(Estratto(es,4,1) + 70):ok = 1
If a = 44 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 18):amb(4) = Fuori90(Estratto(es,4,2) + 48)::amb(5) = Fuori90(Estratto(es,4,2) + 69):ok = 1
If a = 44 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,3) + 01):amb(2) = Fuori90(Estratto(es,4,3) + 02):amb(3) = Fuori90(Estratto(es,4,3) + 07):amb(4) = Fuori90(Estratto(es,4,3) + 26)::amb(5) = Fuori90(Estratto(es,4,3) + 37):ok = 1
If a = 44 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 07):amb(3) = Fuori90(Estratto(es,4,1) + 68):amb(4) = Fuori90(Estratto(es,4,1) + 75)::amb(5) = Fuori90(Estratto(es,4,1) + 84):ok = 1
If a = 44 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 24):amb(4) = Fuori90(Estratto(es,4,1) + 50)::amb(5) = Fuori90(Estratto(es,4,1) + 68):ok = 1
If a = 55 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,3) + 01):amb(2) = Fuori90(Estratto(es,4,3) + 08):amb(3) = Fuori90(Estratto(es,4,3) + 25):amb(4) = Fuori90(Estratto(es,4,3) + 41)::amb(5) = Fuori90(Estratto(es,4,3) + 83):ok = 1
If a = 55 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 03):amb(4) = Fuori90(Estratto(es,4,2) + 36)::amb(5) = Fuori90(Estratto(es,4,2) + 58):ok = 1
If a = 55 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 03):amb(4) = Fuori90(Estratto(es,4,1) + 26)::amb(5) = Fuori90(Estratto(es,4,1) + 68):ok = 1
If a = 66 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,3) + 28):amb(2) = Fuori90(Estratto(es,4,3) + 32):amb(3) = Fuori90(Estratto(es,4,3) + 44):amb(4) = Fuori90(Estratto(es,4,3) + 61)::amb(5) = Fuori90(Estratto(es,4,3) + 86):ok = 1
If a = 66 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 24):amb(4) = Fuori90(Estratto(es,4,1) + 53)::amb(5) = Fuori90(Estratto(es,4,1) + 61):ok = 1
If a = 77 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 04):amb(2) = Fuori90(Estratto(es,4,1) + 45):amb(3) = Fuori90(Estratto(es,4,1) + 65):amb(4) = Fuori90(Estratto(es,4,1) + 73)::amb(5) = Fuori90(Estratto(es,4,1) + 87):ok = 1
If a = 22 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,2) + 12):amb(2) = Fuori90(Estratto(es,4,2) + 24):amb(3) = Fuori90(Estratto(es,4,2) + 29):amb(4) = Fuori90(Estratto(es,4,2) + 32)::amb(5) = Fuori90(Estratto(es,4,2) + 35):ok = 1
If a = 33 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 05):amb(3) = Fuori90(Estratto(es,4,2) + 13):amb(4) = Fuori90(Estratto(es,4,2) + 21)::amb(5) = Fuori90(Estratto(es,4,2) + 73):ok = 1
If a = 44 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 02):amb(3) = Fuori90(Estratto(es,4,5) + 22):amb(4) = Fuori90(Estratto(es,4,5) + 45)::amb(5) = Fuori90(Estratto(es,4,5) + 66):ok = 1
If a = 55 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 02):amb(3) = Fuori90(Estratto(es,4,4) + 03):amb(4) = Fuori90(Estratto(es,4,4) + 52)::amb(5) = Fuori90(Estratto(es,4,4) + 82):ok = 1
If a = 66 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,5) + 09):amb(2) = Fuori90(Estratto(es,4,5) + 11):amb(3) = Fuori90(Estratto(es,4,5) + 46):amb(4) = Fuori90(Estratto(es,4,5) + 68)::amb(5) = Fuori90(Estratto(es,4,5) + 77):ok = 1
If a = 77 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 03):amb(4) = Fuori90(Estratto(es,4,1) + 44)::amb(5) = Fuori90(Estratto(es,4,1) + 87):ok = 1
If a = 88 And b = 11 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 32):amb(3) = Fuori90(Estratto(es,4,4) + 67):amb(4) = Fuori90(Estratto(es,4,4) + 72)::amb(5) = Fuori90(Estratto(es,4,4) + 87):ok = 1
If a = 33 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 04):amb(3) = Fuori90(Estratto(es,4,4) + 45):amb(4) = Fuori90(Estratto(es,4,4) + 57)::amb(5) = Fuori90(Estratto(es,4,4) + 72):ok = 1
If a = 44 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 30):amb(4) = Fuori90(Estratto(es,4,2) + 48)::amb(5) = Fuori90(Estratto(es,4,2) + 89):ok = 1
If a = 55 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,1) + 02):amb(2) = Fuori90(Estratto(es,4,1) + 26):amb(3) = Fuori90(Estratto(es,4,1) + 64):amb(4) = Fuori90(Estratto(es,4,1) + 81)::amb(5) = Fuori90(Estratto(es,4,1) + 82):ok = 1
If a = 66 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,4) + 06):amb(2) = Fuori90(Estratto(es,4,4) + 35):amb(3) = Fuori90(Estratto(es,4,4) + 48):amb(4) = Fuori90(Estratto(es,4,4) + 70)::amb(5) = Fuori90(Estratto(es,4,4) + 81):ok = 1
If a = 77 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 03):amb(3) = Fuori90(Estratto(es,4,5) + 48):amb(4) = Fuori90(Estratto(es,4,5) + 50)::amb(5) = Fuori90(Estratto(es,4,5) + 54):ok = 1
If a = 88 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 32):amb(4) = Fuori90(Estratto(es,4,1) + 33)::amb(5) = Fuori90(Estratto(es,4,1) + 79):ok = 1
If a = 44 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,1) + 19):amb(2) = Fuori90(Estratto(es,4,1) + 21):amb(3) = Fuori90(Estratto(es,4,1) + 28):amb(4) = Fuori90(Estratto(es,4,1) + 78)::amb(5) = Fuori90(Estratto(es,4,1) + 85):ok = 1
If a = 55 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 29):amb(4) = Fuori90(Estratto(es,4,1) + 43)::amb(5) = Fuori90(Estratto(es,4,1) + 47):ok = 1
If a = 66 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,3) + 02):amb(2) = Fuori90(Estratto(es,4,3) + 04):amb(3) = Fuori90(Estratto(es,4,3) + 35):amb(4) = Fuori90(Estratto(es,4,3) + 56)::amb(5) = Fuori90(Estratto(es,4,3) + 65):ok = 1
If a = 77 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,2) + 46):amb(2) = Fuori90(Estratto(es,4,2) + 50):amb(3) = Fuori90(Estratto(es,4,2) + 65):amb(4) = Fuori90(Estratto(es,4,2) + 68)::amb(5) = Fuori90(Estratto(es,4,2) + 75):ok = 1
If a = 88 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,1) + 06):amb(2) = Fuori90(Estratto(es,4,1) + 27):amb(3) = Fuori90(Estratto(es,4,1) + 31):amb(4) = Fuori90(Estratto(es,4,1) + 46)::amb(5) = Fuori90(Estratto(es,4,1) + 70):ok = 1
If a = 55 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 18):amb(4) = Fuori90(Estratto(es,4,2) + 48)::amb(5) = Fuori90(Estratto(es,4,2) + 69):ok = 1
If a = 66 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,3) + 01):amb(2) = Fuori90(Estratto(es,4,3) + 02):amb(3) = Fuori90(Estratto(es,4,3) + 07):amb(4) = Fuori90(Estratto(es,4,3) + 26)::amb(5) = Fuori90(Estratto(es,4,3) + 37):ok = 1
If a = 77 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 07):amb(3) = Fuori90(Estratto(es,4,1) + 68):amb(4) = Fuori90(Estratto(es,4,1) + 75)::amb(5) = Fuori90(Estratto(es,4,1) + 84):ok = 1
If a = 88 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 24):amb(4) = Fuori90(Estratto(es,4,1) + 50)::amb(5) = Fuori90(Estratto(es,4,1) + 68):ok = 1
If a = 66 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,3) + 01):amb(2) = Fuori90(Estratto(es,4,3) + 08):amb(3) = Fuori90(Estratto(es,4,3) + 25):amb(4) = Fuori90(Estratto(es,4,3) + 41)::amb(5) = Fuori90(Estratto(es,4,3) + 83):ok = 1
If a = 77 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 03):amb(4) = Fuori90(Estratto(es,4,2) + 36)::amb(5) = Fuori90(Estratto(es,4,2) + 58):ok = 1
If a = 88 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 03):amb(4) = Fuori90(Estratto(es,4,1) + 26)::amb(5) = Fuori90(Estratto(es,4,1) + 68):ok = 1
If a = 77 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,3) + 28):amb(2) = Fuori90(Estratto(es,4,3) + 32):amb(3) = Fuori90(Estratto(es,4,3) + 44):amb(4) = Fuori90(Estratto(es,4,3) + 61)::amb(5) = Fuori90(Estratto(es,4,3) + 86):ok = 1
If a = 88 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 24):amb(4) = Fuori90(Estratto(es,4,1) + 53)::amb(5) = Fuori90(Estratto(es,4,1) + 61):ok = 1
If a = 88 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,1) + 04):amb(2) = Fuori90(Estratto(es,4,1) + 45):amb(3) = Fuori90(Estratto(es,4,1) + 65):amb(4) = Fuori90(Estratto(es,4,1) + 73)::amb(5) = Fuori90(Estratto(es,4,1) + 87):ok = 1
'-------------------------------------------------------------------
If ok = 1 Then
co = co + 1
Scrivi String(44,"=") & " AMBO GEMELLO",1
Scrivi String(65,"=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(4) & " " & StringaEstratti(es,4) & " AMBO GEMELLO " & a & " - " & b
Scrivi String(75,"-")
ruota(1) = 1:cg = 0
nu3(1) = amb(1):nu3(2) = amb(2)
nu3(2) = amb(2):nu3(4) = amb(4)
nu3(3) = amb(3):nu3(5) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt1,clp,2
Gioca es
End If
Next:Next:Next':Next
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 23 settembre 2011 : 20:31:59
|
QUARTINE FI-RO-VE
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1.5
poste(3) = 0.45
poste(4) = 0.05
k = 9
y = 2
For n = 7086 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
ruote(1) = 3
numeri1(1) = Fuori90(Estratto(n,3,1) + Estratto(n,6,3) + 78)
numeri1(2) = Fuori90(Estratto(n,5,3) + Estratto(n,7,3) + 34)
numeri1(3) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 14)
numeri1(4) = Fuori90(Estratto(n,7,2) + Estratto(n,8,1) + 26)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1) = 8
numeri1(1) = Fuori90(Estratto(n,6,3) + Estratto(n,9,5) + 31)
numeri1(2) = Fuori90(Estratto(n,3,4) + Estratto(n,4,2) + 87)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,7,3) + Estratto(n,8,5) + 39)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1) = 10
numeri1(1) = Fuori90(Estratto(n,5,2) + Estratto(n,8,3) + 8)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,5,3) + 88)
numeri1(3) = Fuori90(Estratto(n,3,2) + Estratto(n,9,4) + 54)
numeri1(4) = Fuori90(Estratto(n,4,1) + Estratto(n,7,1) + 72)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 23 settembre 2011 : 20:33:29
|
QUARTINA SU BARI
Sub Main()
Dim rt(1),pt(4),n1(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 140
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then '12 Estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,12,5)
'------------------------------Quartina
n1(1) = Fuori90(a + 9)
n1(2) = Fuori90(a + 17)
n1(3) = Fuori90(a + 18)
n1(4) = Fuori90(a + 25)
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
pina
Utente Sfegatato
Italy
9014 invii |
Spedito - 23 settembre 2011 : 20:33:50
|
Grazie Vinci per tutto questo lavoro; io non m' intendo di
script ma, sicuramente, altri lo useranno. |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 23 settembre 2011 : 20:34:44
|
QUARTINA SU FIRENZE
Sub Main
' metodo per script '
Dim ruota(10)
Dim posta(1),poste(4)
Dim n(10),n1(10)
poste(2) = 1
r = InputBox("Su quale ruota ricavi i numeri?",,3)
ruota(1) = InputBox("Quale ruota di gioco?",,3)
k = InputBox("Per quanti colpi?",,10)
Scrivi " Resoconto dal.. " & DataEstrazione(8000) & " alla data di " & DataEstrazione(EstrazioneFin),1
Scrivi""
For es = 8000 To EstrazioneFin
If IndiceMensile(es) = 2 Then
Scrivi " metodo della quartina ideato da Vinci -- by Mike58 --",1,- 1,6
ColoreTesto 1
:Scrivi String(100,"-")
Scrivi "Estratti estr.[" & es - 1 & "] di " & NomeRuota(r) & " " & StringaEstratti(es,r),1
Scrivi:ColoreTesto 0
n1(1) = Estratto(es,r,4)
n1(2) = Estratto(es,r,3)
n1(3) = Estratto(es,r,2)
a = Abs(n1(1) - n1(2))
b = Abs(n1(1) - n1(3))
c = Fuori90(a + b) + 37
d = Fuori90(c + 27)
n(1) = a
n(2) = b
n(3) = c
n(4) = d
ImpostaGiocata 1,n,ruota,poste,k,2
Gioca es
End If
Next
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 24 settembre 2011 : 02:03:41
|
Bravo VINCI ....ci voleva in questo forum .... ben fatto.
wicore fornisce il suo contributo con uno script in Ultimo-dos che andava per la maggiore negli anni 2002 ... eccolo
(puo' essere facilmente trascritto in L8)
file
dbase 3
estrazione dal 01-01-01 al 31-12-01
'imposta la somma dei tre numeri:
ss=6 'non superare il valore 180
'imposta le distanze volute tra i numeri ( devono essere precise ):
d1=1 'distanza n1-n2
d2=2 'distanza n1-n3
d3=1 'distanza n2-n3
'imposta i numeri da giocare:
s1=74 ' qui imposta il valore della ambata
s2=10 ' abbinamento
s3=1 ' abbinamento
r1 = 1
20:
p1 = 1
30:
n1 = POS(p1, r1, est)
r2=r1+1
35:
p2 = 1
40:
n2 = POS(p2, r2, est)
r3 = r2+1
50:
p3=1
60:
n3 = POS(p3, r3, est)
se n1+n2+n3=ss | n1+n2+n3=(ss+90) allora
se Dist(n1,n2)=d1 & Dist(n1,n3)=d2 & Dist(n2,n3)=d3 allora
scrivi "....................................................................."
scrivi
SCRIVI data();" ";ruota(r1);" ";n1;" ";ruota(r2);" ";n2;" ";ruota(r3);" ";n3
scrivi
gioco
sulle ruote r1, r2, r3
ambata s1
per 9 settimane
fine gioco
gioco
sulle ruote r1, r2 ,r3
ambo s1,s2,s3
per 9 settimane
fine gioco
gioco
sulle ruote tutte
ambo s1,s2
ambo s1,s3
per 9 settimane
fine gioco
fine se 'attiva con se Dist(n1,n2)=d1 ecc. ecc.
fine se
pp3:
p3=p3+1
se p3<=5 allora vaia 60
pr3:
r3 = r3 + 1
SE r3 <= 10 ALLORA VAIA 50
pp2:
p2 = p2 + 1
SE p2 <= 5 ALLORA VAIA 40
pr2:
r2 = r2 + 1
SE r2 <= 9 ALLORA VAIA 35
pp1:
p1 = p1 + 1
SE p1 <= 4 ALLORA VAIA 30
pr1:
r1 = r1 + 1
SE r1 <= 8 ALLORA VAIA 20
prossima
riepilogo
|
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 24 settembre 2011 : 13:18:44
|
Eccone un altro in Ultimo-Dos (facile da travasare per L8)
RICERCA DI UNA TERNA IN FIGURA IN DUE RUOTE
file
dbase 3
estrazione dal 01-05-03 al 11-10-03
' prima ruota
r1 = 1
' ambo prima ruota n1-n2
r1:
p1 = 1
p1:
n1 = POS(p1, r1, est)
p2 = p1 + 1
p2:
n2 = POS(p2, r1, est)
d1=DIST(n1,n2)
se d>45 allora d=90-d
se d1<>9 allora vaia pp2
se n1>27 | n2>27 allora vaia pp2
' seconda ruota
r2 = 1
r2:
se r2=r1 allora r2=r1+1
se r2>10 allora vaia pp2
p3=1
p3:
' numero seconda ruota n3
n3 = POS(p3, r2, est)
se uguale (n1,n2,n3) allora vaia pr2
se n3<73 allora vaia pp3
d2=dist(n1,n3)
se d2>45 allora d2=90-d2
d3=dist(n2,n3)
se d3>45 allora d3=90-d3
se ( d2=18 & d3=27 ) | ( d2=27 & d3=18 ) allora
ka=(n1+n2+n3): fuori 90
kk=(ka+45): fuori 90
se kk=90 allora kk=45
se kk=45 allora kk=45
scrivi "....................................................................."
scrivi
SCRIVI data();" ";ruota(r1);" - ";n1;n2;" posti ";p1;" ";p2
scrivi" ";ruota(r2);" - ";n3;" posto ";p3
scrivi
scrivi " Distanze: "; d1;d2;d3;" ambata ";kk
scrivi
gioco
sulle ruote r1, r2
ambata kk
ambo kk,n1,n2,n3
' sulle ruote tutte
' ambo kk,n1
' ambo kk,n2
' ambo kk,n3
per 14 settimane
fine gioco
fine se
pp3:
p3=p3 + 1
se p3<=5 allora vaia p3
pr2:
r2 = r2 + 1
SE r2 <= 10 ALLORA VAIA r2
pp2:
p2 = p2 + 1
SE p2 <= 5 ALLORA VAIA p2
pp1:
p1 = p1 + 1
SE p1 <= 4 ALLORA VAIA p1
pr1:
r1 = r1 + 1
SE r1 <= 10 ALLORA VAIA r1
prossima
riepilogo |
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 25 settembre 2011 : 04:52:40
|
RICERCA DI UN AMB0
file
dbase 3
estrazione dal 01-01-04 al 11-05-04
'PRIMO METODO TISU
' prima ruota
r1 = 1
' ambo prima ruota n1-n2
r1:
p1 = 1
p1:
n1 = POS(p1, r1, est)
p2 = p1 + 1
p2:
n2 = POS(p2, r1, est)
d1=DIST(n1,n2)
se d1>45 allora d1=90-d1
' seconda ruota
r2 = r1+1
r2:
' ambo seconda ruota n3,n4
q1=1
q1:
n3 = POS(q1, r2, est)
q2=q1+1
q2:
n4 = POS(q2, r2, est)
d2=DIST(n3,n4)
se d2>45 allora d2=90-d2
se d1<>d2 allora vaia pq2
se uguale ( n1,n2,n3,n4) allora vaia pq2
ss=n1+n2: fuori 90
' SECONDO METODO TRIANGOLO
' seconda ruota
' numero seconda ruota n5
q3=1
q3:
se q3=q1 allora vaia pq3
se q3=q2 allora vaia pq3
n5 = POS(q3, r2, est)
se uguale ( n1,n2,n3,n4,n5) allora vaia pq3
d4=DIST(n5,n1)
se d4>45 allora d4=90-d4
d5=DIST(n5,n2)
se d5>45 allora d5=90-d5
se d4=d1 | d5=d1 allora
kk=ss
scrivi "....................................................................."
SCRIVI data();" ";ruota(r1);" - ";ruota(r2);" - Ambata ";kk
gioco
sulle ruote r1, r2
ambata kk
ambo n1,n2,n3,n4,n5
per 9 settimane
fine gioco
fine se
pq3:
q3 = q3 + 1
SE q3 <= 5 ALLORA VAIA q3
pq2:
q2 = q2 + 1
SE q2 <= 5 ALLORA VAIA q2
pq1:
q1 = q1 + 1
SE q1 <= 4 ALLORA VAIA q1
' prossima seconda ruota
pr2:
r2 = r2 + 1
SE r2 <= 10 ALLORA VAIA r2
pp2:
p2 = p2 + 1
SE p2 <= 5 ALLORA VAIA p2
pp1:
p1 = p1 + 1
SE p1 <= 4 ALLORA VAIA p1
pr1:
r1 = r1 + 1
SE r1 <= 9 ALLORA VAIA r1
prossima
riepilogo |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 30 settembre 2011 : 21:43:32
|
Metodo Vinci
si calcola dopo l'uscita del 43 su FIRENZE o su ROMA
ruote di gioco Firenze e Roma
ColoreTesto 2
Scrivi"============Se esce spia 43 su FIRENZE-o-ROMA....by VINCI============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0
ColoreTesto 0
Scrivi
Scrivi
Sub main()
Dim numero(10),numero1(10)
Dim posta(5),poste(5),poste1(5),ruote(10),ruota(10)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
fin=EstrazioneFin
ini=8164'fin-300
For es=ini To fin
AvanzamentoElab ini,fin,es-1
For r=3 To 8
For p1=1 To 5
'For p2=p1+1 To 5
a=Estratto (es,r,p1)
If a=43 And(r=3 Or r=8) Then
Scrivi String(65,"-")
If r=3 Then Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)
If r=8 Then Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)
ruota(1)=3
ruota(2)=8
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
ImpostaGiocata 1,numero,ruota,posta,10
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,3,3)-Estratto(es,5,2))
ImpostaGiocata 2,numero,ruota,poste,10
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,1,5)-Estratto(es,1,1))
ImpostaGiocata 3,numero,ruota,poste,10
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Fuori90(Estratto(es,2,5)*18)
ImpostaGiocata 4,numero,ruota,poste,10
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,6,1)-Estratto(es,4,5))
ImpostaGiocata 5,numero,ruota,poste,10
numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Fuori90(Estratto(es,1,1)+Estratto(es,4,3))
ImpostaGiocata 6,numero,ruota,poste,10
numero1(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero1(2)=Abs(Estratto(es,3,3)-Estratto(es,5,2))
numero1(3)=Abs(Estratto(es,1,5)-Estratto(es,1,1))
numero1(4)=Fuori90(Estratto(es,2,5)*18)
numero1(5)=Abs(Estratto(es,6,1)-Estratto(es,4,5))
numero1(6)=Fuori90(Estratto(es,1,1)+Estratto(es,4,3))
ImpostaGiocata 7,numero1,ruota,poste1,10
Gioca es
End If
Next
Next
Next
'Next
'Next
ScriviResoconto
ColoreTesto 2
Scrivi"============Se esce spia 43 su FIRENZE-o-ROMA....by VINCI============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0
End Sub
(il metodo è un idea mia, lo script è stato gentilmente elaborato in altro forum) |
Roberto Vinci |
Modificato da - vinci su 30 settembre 2011 21:49:04 |
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 01 ottobre 2011 : 11:14:00
|
RICERCA DI UN AMB0 A DISTANZA 30, DEL MANCATE IN ALTRA RUOTA
file
dbase 3
estrazione dal 01-01-47 al 20-12-01
' prima ruota
r1 = 1
' ambo prima ruota n1-n2
20:
p1 = 1
30:
n1 = POS(p1, r1, est)
p2 = p1 + 1
40:
n2 = POS(p2, r1, est)
d1=Dist(n1,n2) 'calcola distanza ambo
se d1>45 allora d1=90-d1
se d1<>30 allora vaia pp2 'condizione di ambi a distanza
' seconda ruota
r2 = r1+1
50:
' numero seconda ruota n3
n3 = POS(p1, r2, est)
d6=Dist (n1,n3)
se d6>45 allora d6=90-d6
se d6<>30 allora vaia altro ' condizione di ambi a distanza
se n3<>n1 & n3<>n2 allora
n4=POS(p2,r2,est)
scrivi "....................................................................."
scrivi
SCRIVI data();" ";ruota(r1);" ambo distanza ";d1;" - ";n1;n2;" posti ";p1;" ";p2
scrivi" ";ruota(r2);" numero distanza ";d6;" - ";n3;" posto ";p1;" altro ";n4
'PAUSA
k1=n4+45: fuori 90
azdop k1,n1,n2,n3,n4
gioco
sulle ruote r1, r2
ambata k1
ambo k1,n1,n2,n3,n4
per 3 settimane
fine gioco
fine se
altro:
n3 = POS(p2, r2, est)
d6=Dist (n2,n3)
se d6>45 allora d6=90-d6
se d6<>30 allora vaia pr2 ' condizione di ambi a distanza
se n3<>n1 & n3<>n2 allora
n4=POS(p1,r2,est)
scrivi "....................................................................."
scrivi
SCRIVI data();" ";ruota(r1);" ambo distanza ";d1;" - ";n1;n2;" posti ";p1;" ";p2
scrivi" ";ruota(r2);" numero distanza ";d6;" - ";n3;" posto ";p2;" altro ";n4
k1=n4+45: fuori 90
azdop k1,n1,n2,n3,n4
gioco
sulle ruote r1, r2
ambata k1
ambo k1,n1,n2,n3,n4
per 10 settimane
fine gioco
fine se
' prossima seconda ruota
pr2:
r2 = r2 + 1
SE r2 <= 10 ALLORA VAIA 50
pp2:
p2 = p2 + 1
SE p2 <= 5 ALLORA VAIA 40
pp1:
p1 = p1 + 1
SE p1 <= 4 ALLORA VAIA 30
pr1:
r1 = r1 + 1
SE r1 <= 9 ALLORA VAIA 20
prossima
riepilogo |
|
|
|
Xeno
Utente Nuovo
Italy
18 invii |
Spedito - 02 ottobre 2011 : 10:04:24
|
Scrivi " "
Scrivi " Metodo:Tutte, si vince"
Scrivi " prima del MESE x 9 colpi"
Scrivi " by Marvin"
Scrivi " listato by Kriminal"
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2)=3
posta(3)=1.5
posta(4)=0.5
k=13 'n° colpi
y=0
For n=8300 To EstrazioneFin
If IndiceMensile(n)=2 Then
ng=0
'ruote(1)=2
'ruote(2)=10
ruote(3)=11
numeri1(1)=Fuori90(Estratto(n,1,1)+ 06)
numeri1(2)=8
numeri1(3)=17
numeri1(4)=19
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub
|
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 04 ottobre 2011 : 04:10:41
|
'========================
' Metodo Distanza 45
'========================
'questo metodo cerca due ambi di distanza 45 su due ruote.
'Le somme verticali dei numeri trovati devono essere pari.
'Perche' questo sia vero basta che una delle due lo sia.
'si giocano per ambata le somme verticali divise per due, per 9 estrazioni
'il gioco viene interrotto al primo successo
'Il codice puo' essere ulteriormente modificato.
'Aggiungere ulteriori giocate e abbinamenti e' semplice, l'importante e' incrementare
'l'indice di giocata (ng) prima di ogni istruzione impostagiocata.
'NOTA BENE 1
'l'istruzione gioca va posta, per ogni metodo, una volta sola al termine del ciclo delle
'estrazioni. Sul Forum mi e' parso di notare un uso diverso di tale istruzione.
'NOTA BENE 2
'l'istruzione resettagiocate e' necessaria per eliminare le impostazioni dopo la giocata
'infatti essendo la giocata sottoposta a una ricerca particolare di condizioni
'possono esistere estrazioni prive di pronostico e soprattutto le estrazioni possono
'generare un numero differente di pronostici.
Sub main()
Dim ruote(10)
Dim numeri(10)
Dim poste(5)
Dim capogioco1,capogioco2,ng
'la posta viene qui impostata fuori dal ciclo, perche' resta immutata per tutti i casi
'se si desidera avere poste differenti per le varie giocate e' opportuno impostare i valori
'di poste() prima di ogni impostagiocata
poste(1)=1000
'inzio ciclo sulle estrazioni (in questo caso considera le ultime 500)
For n= EstrazioneFin-500 To EstrazioneFin
AvanzamentoElab EstrazioneFin-500,EstrazioneFin,n 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione
ng=0
For r= 1 To 9 'ciclo sulle ruote
For i= 1 To 4 'ciclo sugli estratti
For j= i+1 To 5 'ciclo sugli estratti a considerare tutti gli ambi sulla ruota r
If Abs(Estratto(n,r,i)-Estratto(n,r,j))=45 Then 'verifica che ci sia distanza 45
'se c'e' distanza 45 considera una seconda ruota, se no passa ad un altro ambo
For m= r+1 To 10 'seconda ruota
For h= 1 To 5 'numeri seconda ruota
For k= h+1 To 5 'numeri seconda ruota
If Abs(Estratto(n,m,h)-Estratto(n,m,k))=45 Then 'verifica dist. 45 sul secondo ambo
'anche il secondo ambo ha distanza 45
If Pari(Estratto(n,r,i)+Estratto(n,m,h)) Then 'verifica se somma vert. e' pari
' si puo' procedere a calcolare il pronostico
capogioco1=(Estratto(n,r,i)+Estratto(n,m,h))/2
capogioco2=(Estratto(n,r,j)+Estratto(n,m,k))/2
ng=ng+1 'aumenta numero di giocata per questa estrazione
numeri(1)=capogioco1 'imposta numero
ruote(1)=r 'imposta ruote
ruote(2)=m
Impostagiocata ng,numeri,ruote,poste,9,1 'imposta giocata
'gioca anche il secondo capogioco per ambata
ng=ng+1
numeri(1)=capogioco2
Impostagiocata ng,numeri,ruote,poste,9,1
End If
End if
Next
Next
Next
End If
Next
Next
Next
'gioca gli eventuali pronostici. Se non se n'e' trovato alcuno allora ng=0 e gioca
'non fa nulla.
Gioca n
ResettaGiocate 'vedere commenti a inizio listato
Next
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate
'in casi come questo, in cui il numero di giocate cambia ad ogni estrazione e' opportuno
'far calcolare un resoconto totale, non un resoconto di una singola giocata
End Sub |
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 06 ottobre 2011 : 06:42:29
|
Sub main()
Dim ruote(1)
Dim numeri(6)
Dim numeri1(6)
Dim poste(5)
poste(1)=0
poste(2)=1000
poste(3)=800
poste(4)=200
r=CA_
ruote(1)=r
k=9
For n=EstrazioneFin-130 To EstrazioneFin
If IndiceMensile(n)=1 Then
numeri(1)=Fuori90(Estratto(n,GE_,3)+Estratto(n,PA_,1)+38)
numeri(2)=0
numeri(3)=0
numeri(4)=0
ImpostaGiocata 21,numeri,ruote,poste,k,1
numeri(2)=Fuori90(Estratto(n,BA_,2)+Estratto(n,CA_,4)+72)
numeri(3)=Fuori90(Estratto(n,BA_,2)+Estratto(n,CA_,3)+21)
numeri(4)=Fuori90(Estratto(n,BA_,3)+Estratto(n,GE_,1)+18)
EliminaRipetuti numeri
ImpostaGiocata 1,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,FI_,1)+Estratto(n,PA_,3)+75)
numeri(3)=Fuori90(Estratto(n,CA_,4)+Estratto(n,FI_,3)+59)
numeri(4)=Fuori90(Estratto(n,CA_,5)+Estratto(n,FI_,3)+35)
EliminaRipetuti numeri
ImpostaGiocata 2,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,CA_,4)+Estratto(n,MI_,3)+8)
numeri(3)=Fuori90(Estratto(n,CA_,4)+Estratto(n,NA_,4)+80)
numeri(4)=Fuori90(Estratto(n,CA_,5)+Estratto(n,NA_,1)+90)
EliminaRipetuti numeri
ImpostaGiocata 3,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,FI_,1)+Estratto(n,FI_,3)+59)
numeri(3)=Fuori90(Estratto(n,FI_,4)+Estratto(n,MI_,1)+17)
numeri(4)=Fuori90(Estratto(n,FI_,1)+Estratto(n,PA_,3)+75)
EliminaRipetuti numeri
ImpostaGiocata 4,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,FI_,2)+Estratto(n,PA_,3)+80)
numeri(3)=Fuori90(Estratto(n,FI_,1)+Estratto(n,TO_,2)+41)
numeri(4)=Fuori90(Estratto(n,FI_,3)+Estratto(n,TO_,1)+65)
EliminaRipetuti numeri
ImpostaGiocata 5,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,GE_,1)+Estratto(n,GE_,3)+20)
numeri(3)=Fuori90(Estratto(n,GE_,5)+Estratto(n,NA_,2)+1)
numeri(4)=Fuori90(Estratto(n,GE_,4)+Estratto(n,PA_,4)+56)
EliminaRipetuti numeri
ImpostaGiocata 6,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,MI_,5)+Estratto(n,NA_,4)+77)
numeri(3)=Fuori90(Estratto(n,NA_,3)+Estratto(n,VE_,1)+66)
numeri(4)=Fuori90(Estratto(n,PA_,1)+Estratto(n,VE_,3)+2)
EliminaRipetuti numeri
ImpostaGiocata 7,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,PA_,5)+Estratto(n,VE_,3)+33)
numeri(3)=Fuori90(Estratto(n,RO_,1)+Estratto(n,RO_,4)+43)
numeri(4)=Fuori90(Estratto(n,RO_,4)+Estratto(n,TO_,1)+48)
EliminaRipetuti numeri
ImpostaGiocata 8,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,CA_,5)+Estratto(n,FI_,3)+35)
numeri(3)=Fuori90(Estratto(n,BA_,3)+Estratto(n,GE_,1)+18)
numeri(4)=Fuori90(Estratto(n,PA_,5)+Estratto(n,VE_,3)+33)
EliminaRipetuti numeri
ImpostaGiocata 9,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,CA_,5)+Estratto(n,FI_,3)+35)
numeri(3)=Fuori90(Estratto(n,FI_,1)+Estratto(n,PA_,3)+75)
numeri(4)=Fuori90(Estratto(n,FI_,1)+Estratto(n,TO_,2)+41)
EliminaRipetuti numeri
ImpostaGiocata 10,numeri,ruote,poste,k,2
ImpostaInterruzioni 1,21,1
ImpostaInterruzioni 2,21,1
ImpostaInterruzioni 3,21,1
ImpostaInterruzioni 4,21,1
ImpostaInterruzioni 5,21,1
ImpostaInterruzioni 6,21,1
ImpostaInterruzioni 7,21,1
ImpostaInterruzioni 8,21,1
ImpostaInterruzioni 9,21,1
ImpostaInterruzioni 10,21,1
Gioca n
ResettaGiocate
End If
Next
ScriviResoconto
End Sub |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 08 ottobre 2011 : 20:16:36
|
CLASSIFICA SPETTABILITA' PER RITARDO
Option Explicit
Sub Main
Dim r,n,Rit,Asp
Dim nEstrAnalisi
nEstrAnalisi = EstrazioneFin
ReDim aTitoli(5)
aTitoli(1) = "Ruota"
aTitoli(2) = "Numero"
aTitoli(3) = "Ritardo"
aTitoli(4) = "Aspettabilità"
aTitoli(5) = "EsitoColpi"
Call InitTabella(aTitoli)
For r = 1 To 10
Call Messaggio(NomeRuota(r))
ReDim aRitardi(90)
For n = 1 To 90
Rit = RitardoEstratto(n,nEstrAnalisi,r)
aRitardi(n) = Rit
Next
For n = 1 To 90
Rit = aRitardi(n)
Asp = CalcolaAspettabilita(Rit,QuantitaNumeriAlRit(Rit,aRitardi))
ReDim aColonne(5)
aColonne(1) = NomeRuota(r)
aColonne(2) = n
aColonne(3) = Rit
aColonne(4) = Asp
aColonne(5) = GetEsitoColpi(n,r,nEstrAnalisi)
Call AddRigaTabella(aColonne)
Call AvanzamentoElab(1,90,n)
Next
Next
Call AvanzamentoElab(1,90,1)
Call Messaggio("Ordinamento in corso")
Call CreaTabella(4,,,50)
End Sub
Function GetEsitoColpi(n,r,idEstr)
Dim retColpi
ReDim aNum(1)
ReDim aRuote(1)
aNum(1) = n
aRuote(1) = r
If VerificaEsito(aNum,aRuote,idEstr,1,,,,retColpi) Then
GetEsitoColpi = retColpi
Else
GetEsitoColpi = "-"
End If
End Function
Function QuantitaNumeriAlRit(Rit,aRitardi)
Dim k,q
For k = 1 To 90
If aRitardi(k) >= Rit Then
q = q + 1
End If
Next
QuantitaNumeriAlRit = q
End Function
Function CalcolaAspettabilita(Rit,QNumeriAlRit)
Dim ValTeorico
ValTeorico = Round(90 * Exp(-(Rit - 1)/17.4952),4)
CalcolaAspettabilita = Round(ValTeorico /(ValTeorico + QNumeriAlRit),4)
End Function
|
Roberto Vinci |
|
|
|
wicore
Utente Fedelissimo
541 invii |
Spedito - 09 ottobre 2011 : 10:06:12
|
Sub main()
Dim ruote(1)
Dim numeri(2)
Dim numeri1(5)
Dim numeri2(5)
Dim poste(5)
Dim posta(1)
posta(1)=10000
poste(2)=3000
poste(3)=1500
poste(4)=400
poste(5)=100
r=BA_
ruote(1)=r
k=8
For n=EstrazioneFin-230 To EstrazioneFin
If IndiceMensile(n)=4 Then
numeri(1)=Fuori90(Estratto(n,BA_,1)+Estratto(n,FI_,2)+46)
numeri(2)=Fuori90(Estratto(n,NA_,2)+Estratto(n,VE_,1)+3)
ImpostaGiocata 1,numeri,ruote,posta,k,1
numeri1(1)=Fuori90(Estratto(n,BA_,1)+Estratto(n,FI_,2)+46)
numeri1(2)=Fuori90(Estratto(n,NA_,2)+Estratto(n,VE_,1)+3)
numeri1(3)=Fuori90(Estratto(n,MI_,5)+Estratto(n,PA_,3)+9)
numeri1(4)=Fuori90(Estratto(n,MI_,1)+Estratto(n,RO_,5)+85)
numeri1(5)=Fuori90(Estratto(n,MI_,4)+Estratto(n,RO_,5)+56)
EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,poste,k,2
numeri2(1)=Fuori90(Estratto(n,BA_,1)+Estratto(n,FI_,2)+46)
numeri2(2)=Fuori90(Estratto(n,NA_,2)+Estratto(n,VE_,1)+3)
numeri2(3)=Fuori90(Estratto(n,FI_,2)+Estratto(n,PA_,1)+89)
numeri2(4)=Fuori90(Estratto(n,FI_,1)+Estratto(n,TO_,2)+18)
numeri2(5)=Fuori90(Estratto(n,FI_,2)+Estratto(n,TO_,5)+6)
EliminaRipetuti numeri2
ImpostaGiocata 3,numeri2,ruote,poste,k,2
Gioca n
ResettaGiocate
End If
Next
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto
End Sub
|
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 15 ottobre 2011 : 23:33:24
|
VENEZIA una cinquina
Sub Main()
Dim ruote(1)
Dim numeri1(2)
Dim numeri3(5)
Dim posta(1)
Dim poste(5)
poste(2) = 0.90
poste(3) = 0.40
poste(4) = 0.15
poste(5) = 0.05
ruote(1) = 10
k = 9
Scrivi "Elaborato dal " + DataEstrazione(6773) + " ad oggi"
For n = 6773 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri3(1) = Fuori90(Estratto(n,1,2) + Estratto(n,9,2) + 90)
numeri3(2) = Fuori90(Estratto(n,4,5) + Estratto(n,9,2) + 70)
numeri3(3) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 76)
numeri3(4) = Fuori90(Estratto(n,6,5) + Estratto(n,7,5) + 10)
numeri3(5) = Fuori90(Estratto(n,1,2) + Estratto(n,2,3) + 53)
ImpostaGiocata 1,numeri3,ruote,poste,k,2
Gioca n
End If
Next
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 19 ottobre 2011 : 10:36:13
|
Ringrazio wicore che è stato l'unico ad avere partecipato
all' incremento di questa raccolta.
Se ci fossero altri sarebbe cosa gradita
grazie |
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 27 ottobre 2011 : 22:57:18
|
ROMA
Sub main()
Dim ruote(1)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)
Dim prog(5,100)
prog(1,1)=3
prog(1,2)=6
prog(1,3)=9
prog(1,4)=12
prog(1,5)=21
prog(1,6)=39
prog(1,7)=66
prog(1,8)=120
posta(1)=1
poste(2)=2
poste(3)=1.5
poste(4)=0.4
poste(5)=0.1
ruote(1)=8
k=8
y=2
For n=6570 To EstrazioneFin
If IndiceMensile (n+1)=1 Then
numeri1(1)=Fuori90(Estratto(n,7,1)+Estratto(n,10,4)+24)
numeri1(2)=Fuori90(Estratto(n,5,5)+Estratto(n,10,4)+68)
numeri1(3)=Fuori90(Estratto(n,3,1)+Estratto(n,3,5)+60)
numeri1(4)=Fuori90(Estratto(n,3,2)+Estratto(n,4,3)+72)
numeri1(5)=Fuori90(Estratto(n,5,4)+Estratto(n,6,2)+13)
numeri1(6)=Fuori90(Estratto(n,4,2)+Estratto(n,5,1)+82)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,2,5)+Estratto(n,3,5)+39)
numeri1(2)=Fuori90(Estratto(n,8,5)+Estratto(n,9,1)+41)
numeri1(3)=Fuori90(Estratto(n,2,2)+Estratto(n,7,4)+39)
numeri1(4)=Fuori90(Estratto(n,6,4)+Estratto(n,7,5)+18)
numeri1(5)=Fuori90(Estratto(n,6,4)+Estratto(n,9,4)+13)
numeri1(6)=Fuori90(Estratto(n,7,2)+Estratto(n,7,5)+75)
EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,10,2)+Estratto(n,10,5)+23)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,3,2)+55)
numeri1(3)=Fuori90(Estratto(n,2,2)+Estratto(n,6,4)+64)
numeri1(4)=Fuori90(Estratto(n,2,2)+Estratto(n,8,5)+40)
numeri1(5)=Fuori90(Estratto(n,2,4)+Estratto(n,10,1)+68)
numeri1(6)=Fuori90(Estratto(n,6,1)+Estratto(n,10,3)+20)
EliminaRipetuti numeri1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri2(1)=Fuori90(Estratto(n,10,2)+Estratto(n,10,5)+23)
numeri2(2)=Fuori90(Estratto(n,7,1)+Estratto(n,10,4)+24)
numeri2(3)=Fuori90(Estratto(n,2,5)+Estratto(n,3,5)+39)
EliminaRipetuti numeri2
ImpostaGiocata 4,numeri2,ruote,posta,8,1
ImpostaProgressione 4,prog
For a=1 To 3
For b=1 To 3
ImpostaInterruzioni a,b,y
ImpostaInterruzioni a,4,1
ImpostaInterruzioni 4,a,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
|
franca46
Amministratore
Italy
24542 invii |
Spedito - 28 ottobre 2011 : 08:14:21
|
citazione:
Inviato in origine da vinci
Ringrazio wicore che è stato l'unico ad avere partecipato
all' incremento di questa raccolta.
Se ci fossero altri sarebbe cosa gradita
grazie
ciao Vinci
questa raccolta si può incrementare sicuramente ,
con qualsiasi tipo di listato o con particolari condizioni di gioco??
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
Discussione |
|
|
|
RACCOLTA SCRIPT
