Aiuto per listato

[Roby]

Ciao, a tutti, vorrei chiedere agli esperti per listati un piccolo aiuto.


Ho trovato su un giornale del settore due metodi che a detta della rivista risulta molto interessante.
Per valutare meglio la statistica di tali metodi vorrei un listato in .


Posto i due metodi:


1) all'uscita di un numeretto su stessa ruota in 1° e 5° pos. fare la somma dei due + 45 il risultato e il suo vertibile sono le ambate da giocare per max 9 colpi sulla ruota di ricerca.

Tale ricerca si può fare anche all'uscita di due numeretti sempre su stessa ruota all'uscita in 1° e 2°; 2° e 3°; 3° e 4°; 4° e 5° pos. sempre con il procedimento descritto sopra.


2) Si ricerca due numeri di distanza due, una volta rivelati si cerca nell'estrazione indietro se è presente 1 o tutti 2 i numeri trovati, sodisfatto ciò si gioca il numero mancante nella distanza per ambata e ambata determinata nelle pos. mancanti nella ricerca.
mi spiego con un'esempio se trovo in una qualsiasi ruota i seguenti numeri: 50-52 e nell'estrazione precedente sempre nella medesima ruota trovo o il 50 o il 52 o entrambi gioco il 51 x 9 colpi. Per l'ambata determinata gioco le pos non ricoperte dal 50 e 52 nelle due estrazioni di ricerca.


Grazie per l'attenzione.

Miki.

 

[maxma62]

listato per il 1° metodo, controlla se va bene.
(puoi cambiare le posizioni dei numeri)

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)
poste(1)=1
poste(2)=2
casi=0

p1=CInt(InputBox("1a posizione?","1a posizione" ,1))
p2=CInt(InputBox("2a posizione?","2a posizione" ,5))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",250)

ini=EstrazioneFin -rs
fin=EstrazioneFin
For es =ini To fin
For r=1 To 10
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
If a=<9 And b=<9 Then
Messaggio DataEstrazione (es)
ruote(1)=r

Scrivi : Scrivi "==============================================================="
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "& NomeRuota(r)&" "& StringaEstratti(es,r)&" ]"
Scrivi "< numero [ "&(a)&" ] in "&(p1)&"a pos. / numero [ "&(b)&" ] in "&(p2)&"a pos. >"' su ruota " & NomeRuota(r)&" >"
ColoreTesto 2 : Scrivi "----------------------------------------------------------------"

c=Fuori90(a+b+45)
d=Vert(c)
numeri1(1)=c
numeri1(2)=d
ImpostaGiocata 1,numeri1,ruote,poste,k

Gioca es
casi=casi+1
End If
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub

per il 2° metodo vedrò più avanti.
Ciao, max

 

[miki67]

E' perfetto grazie.

Aspetto il secondo, grazie per l'aiuto.

Miki.

 

[maxma62]

Con l' aiuto di danilo ( un mago degli script) ecco il listato per il secondo metodo:

Sub main()
Dim ruota(10)
Dim ruote(10)
Dim posta(10)
Dim poste(5)
Dim numeri(10)
poste(1)=1
posta(2)=1
posta(1)=1
di=2

fin=EstrazioneFin
ini=7100
For es = ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
For p=1 To 4
For p2=p+1 To 5
a = Estratto (es,r,p)
b = Estratto (es,r,p2)
If Distanza(a,b)=di Then
For p3=1 To 5
c=Estratto(es-1,r,p3)
If c=a Or c=b Then

Scrivi : Scrivi "***********************************************************************"
Scrivi " < distanza "&(di)&" tra "&(p)&"° estratto e "&(p2)&"° estratto di "&NomeRuota(r)&" >",1
Scrivi "-----------------------------------------------------------------------"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r)&" "&stringaestratti(es,r)&" ]"
Scrivi "dist. tra [ "&format2(a)&" ] "&(p)&"a pos. e [ "&format2(b)&" ] "&(p2)&"a pos. = "&(di)
Scrivi "estr. prec. "&DataEstrazione(es-1,1)&" [ "&siglaRuota(r)&" "&stringaestratti(es-1,r)&" ] numero trovato = [ "&(c)&" ]"
Scrivi "-----------------------------------------------------------------------"

ruota(1)=r
If a>b Then
e=Fuori90(b+1)
Else
e=Fuori90(a+1)
End If
numeri(1)=e
For i=1 To 5
If p<>i And p2<>i And p3<>i Then
posta(5+i)=1
End If
Next
ImpostaGiocata 1,numeri,ruota,poste,9,1
ImpostaGiocata 2,numeri,ruota,posta,9,1
Gioca es
End If
Next
End If
Erase posta
Next
Next
Next
Next
ScriviResoconto
End Sub

spero vada bene.
Ciao, max