Posts written by zagort

Sub main()
Dim ruote(10),ruota(10)
Dim nu1(4)
Dim posta(2)

posta(1)=3

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi
Scrivi String(45," ")&"********* La DISTANZA 9 ******",1
Scrivi String(40," ")&"********* IN POSIZIONE ISOTOPA 2R ******",1
ColoreTesto 2
Scrivi
Scrivi String(55," ")&"Forum lottoced X pigi ",1
ColoreTesto 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 10
If r1=11 Then r1=12
For p1 = 1 To 5

a=Estratto(es,r1,p1)
For r2 =r1+ 1 To 12
If r2=11 Then r2=12


b=Estratto(es,r2,p1)
If Distanza(a,b)=9 Then



casi=casi+1:Scrivi String(60,"=")&" script by chiselasente",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(60,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:cg=0

nu1(1)=fuori90(90+Minimo(a,b)-9)
nu1(2)=fuori90(Massimo(a,b)+9)
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k,1





Gioca es

End If
Next
Next
Next
Next
Scrivi String(60,"=")&" script by chiselasente",1
ScriviResoconto
End Sub

Sub main()
Dim nu2(10),w(10),x(10)
Dim ruote(10)
Dim posta(5),poste(5)
poste(2)=1
posta(1)=1
re=6
fin=EstrazioneFin
ini=fin-500
For es=ini To fin
If Indicemensile(es+1)=1 Then

AvanzamentoElab ini,fin,es
For p1=1 To 5
w(p1)=Figura(Estratto(es,re,p1))
Next
c=Fuori90(w(1)+w(2)+w(3)+w(4)+w(5))
d=Figura(c)

x(1)=d:x(2)=Fuori9(d+1):x(3)=Fuori9(d+2):x(4)=Fuori9(d+3)


casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(re)& " "& StringaEstratti(es,re)&_
" Figure "&Format2(w(1))&"."&Format2(w(2))&"."&Format2(w(3))&"."&Format2(w(4))&"."&Format2(w(5))&" Somma < "&Format2(c)&_
" >Figura "&Format2(d)
ruote(1)=re::k=14:co=0
co=co+1

ImpostaGiocata co,x,ruote,posta,k
nu2(1)=x(1)
nu2(2)=x(2)
nu2(3)=x(3)
nu2(4)=x(4)
nu2(5)=40
nu2(6)=50
nu2(7)=60
nu2(8)=70

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k

Gioca es
End If

Next
ScriviResoconto
End Sub
Function Fuori9(nn)
If Nn-(9*Int(nn/9))=0 Then Fuori9=9 Else Fuori9=(Nn-(9*Int(nn/9)))
End Function

Sub main()

gr=CInt(InputBox("Quale giorno vuoi attivare?"& Chr(10)& riga & Chr(10)&" - Inserisci il numero 7 = Sabato",,7)) 'scelta giorno
tmp = CInt(InputBox("Quante estrazioni vuoi esaminare ?","ESTRAZIONI",80))
ruota = InputBox("quale ruota cerchi??","estratti",10)

ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To Fin
DE = Now
G = Mid (de,1,2)
DE1 = DataEstrazione(es,True)
G1 = Mid (DE1,1,3)
If ( Mese (es))= g-1 Then
If ( Mese (g))= 1 Then Mese (es)= 12

If WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es)))= gr Then
Messaggio(es)

Scrivi G1 &" "&DataEstrazione(es)&" "&SiglaRuota(ruota)&" - "&StringaEstratti(es,ruota)

Scrivi "==============================="
End If

End If
Next
Scrivi "le date sono riferite al Mese precedente "&( MeseNome(g-1))&""
Scrivi " mese attuale ="&( MeseNome(g))&""

End Sub