R
Roby
Guest
Gentilmente quacuno del forum sa indicarmi la strada x questo metodo
grezie.
mario2008
grezie.
mario2008
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
=================================================================
mar 04.03.2008 [ Pa 32.01.78.54.40 ] [ 78 x 2 = 66 ]
mar 04.03.2008 [ Ro 64.53.33.23.72 ] [ 33 x 2 = 66 ]
distanza tra 78 e 33 = 45
-----------------------------------------------------------------
mar 04.03.2008 [7877]
G 1: M 66.69 Pa Ro 1/13
M 69 su Pa 1° colpo [7878/06.03.2008]
I1
=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali
[b]Casi esaminati: 63
in corso: 0
casi finali: 63
positivi: 60
negativi: 3 [/b]
Pronostici generati: 126
Pronostici vincenti: 61 (48,4 %)
Estrazioni di gioco: 260
Tentativi (scontrini giocati): 520
Vincite (scontrini vincenti): 61 (11,73 %)
Attesa media: 3,67
Sub main
Dim ruota(10),posta(1),n(2)
posta(1)=5
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",158) '158 = 1 anno circa
k=InputBox ("Per quanti colpi?","colpi di gioco",13)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For p=1 To 5
For r1=1 To 9
a=Estratto(es,r1,p)
r2=r1+1
b=Estratto(es,r2,p)
If Distanza(a,b)=45 And a<>45 And a<>90 And b<>45 And b<>90 Then
ruota(1)=r1:ruota(2)=r2
n1=Fuori90(a*2):n2=Fuori90(b*2):n3=Vert(n2)
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&" x 2 = "&format2(n1)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" "&StringaEstratti(es,r2)&" ] [ "&_
Format2(b)&" x 2 = "&format2(n2)&" ]"
Scrivi "distanza"&" tra "&Format2(a)&" e "&format2(b)& " = "&""&format2(d)
Scrivi String(65,"-")
n(1)=n1:n(2)=n3
ImpostaGiocata 1,n,ruota,posta,k,1
Gioca es
End If
Next:Next:Next
ScriviResoconto
End Sub