MSG x Max ultima mensile

[Roby]

Ciao Max,
ho assemblato questo listatino che gira perfettamente, però
la previsione deve essere rilevata solo quando si verifica
all' ultima del mese cosa che non riesco a modificare. Grazie

lola


Sub main()
Dim ruote(1)
Dim nu1(10)
Dim posta(2)



posta(2)=1

casi=0
t=0

sp=CInt(InputBox("Qual' è il Numero Spia?",,37))
po=CInt(InputBox("Posizione Estratto Spia?",,1))
r=CInt(InputBox("Ruota di ricerca?",,1))
ruote(1)=CInt(InputBox("Su che ruota vuoi giocare?",,1))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?",,13))
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",2000)

ini=EstrazioneFin -rs '<<<--- solo ultima del Mese
fin=EstrazioneFin
For es =ini To fin

a=Estratto(es,r,po)
If a=sp Then
co=co+1

t=t+1

Scrivi : ColoreTesto 0 : Scrivi String(68,"o")
Scrivi Space(3)&"< sistema spia < "& Format2(a)&" > su "& NomeRuota(r)&" in "&(po)&_
"° posizione gioca su "&nomeRuota(r)&" >",1
Scrivi String(68,"-")
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&_
" ] uscita spia in 3^ posizione! "& Format2(a) &" ",1:coloretesto 0
ColoreTesto 0 : Scrivi "gioca da " &" " &DataEstrazione(es+1,1),1
Scrivi String(57,"-")&" caso n° "&t
'-------------------------------------------------------------------------------

a = Estratto (es,1,1)
a1= Fuori90 (a + 10)

b = 1
b1= 11
b2= 22
b3= 33
b4= 44
b5= 55
b6= 66
b7= 77



nu1(1)=a1
nu1(2)=b
ImpostaGiocata 1,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b1
ImpostaGiocata 2,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b2
ImpostaGiocata 3,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b3
ImpostaGiocata 4,nu1,ruote,posta,k


nu1(1)=a1
nu1(2)=b4
ImpostaGiocata 5,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b5
ImpostaGiocata 6,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b6
ImpostaGiocata 7,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b7
ImpostaGiocata 8,nu1,ruote,posta,k



'---------------------------------------------------------------------------------
If es<fin-k Then '<<<---- per esito ancora in corso
Gioca es
Else
Gioca es
End If '<<<---- per esito ancora in corso
'---------------------------------------------------------------------------------
neg=0
For i= 1 To 3
If Esito(i)=0 Then neg=neg+1
Next
pos=0
For ii= 1 To 3 'le giocate
If Esito(ii)=>1 Then pos=pos+1
Next
Scrivi
If neg=3 And es<fin-(k-1) Then Scrivi DataEstrazione(es,1)&" ["& es &"] Esito negativo!",1 End If 'colpi giocate -1
If neg=3 And es>fin-k Then Scrivi "Esito in corso!",1 End If 'colpi giocate totali
If pos=>1 Then Scrivi " Esito positivo!" ,1 End If
'---------------------------------------------------------------------------------

Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
End Sub





livia

 

[maxma62]

Un'aggiustatina

Sub main()
Dim ruote(1)
Dim nu1(10)
Dim posta(2)

posta(2)=1

casi=0
t=0

sp=CInt(InputBox("Qual' è il Numero Spia?",,37))
po=CInt(InputBox("Posizione Estratto Spia?",,1))
r=CInt(InputBox("Ruota di ricerca?",,1))
ruote(1)=CInt(InputBox("Su che ruota vuoi giocare?",,1))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?",,13))
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",7792)

ini=EstrazioneFin -rs 
fin=EstrazioneFin
For es =ini To fin

If IndiceMensile(es+1)=1  Then '<<<--- x ultima estr. mens. (+ 1 end if alla fine del listato)
'If IndiceMensile(es)=1  Then '<<<--- x prima estr. mens. (+ 1 end if alla fine del listato)
'If IndiceMensile(es)=2  Then '<<<--- x seconda estr. mens. (+ 1 end if alla fine del listato) ecc....

a=Estratto(es,r,po)
If a=sp Then
co=co+1

t=t+1

Scrivi : ColoreTesto 0 : Scrivi String(68,"o")
Scrivi Space(3)&"< sistema spia < "& Format2(a)&" > su "& NomeRuota(r)&" in "&(po)&_
"° posizione gioca su "&nomeRuota(r)&" >",1
Scrivi String(68,"-")
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&_
" ] uscita spia in 3^ posizione! "& Format2(a) &" ",1:coloretesto 0
ColoreTesto 0 : Scrivi "gioca da " &" " &DataEstrazione(es+1,1),1
Scrivi String(57,"-")&" caso n° "&t
'-------------------------------------------------------------------------------

a = Estratto (es,1,1)
a1= Fuori90 (a + 10)

b = 1
b1= 11
b2= 22
b3= 33
b4= 44
b5= 55
b6= 66
b7= 77

nu1(1)=a1
nu1(2)=b
ImpostaGiocata 1,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b1
ImpostaGiocata 2,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b2
ImpostaGiocata 3,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b3
ImpostaGiocata 4,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b4
ImpostaGiocata 5,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b5
ImpostaGiocata 6,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b6
ImpostaGiocata 7,nu1,ruote,posta,k

nu1(1)=a1
nu1(2)=b7
ImpostaGiocata 8,nu1,ruote,posta,k

'---------------------------------------------------------------------------------
If es<fin-k Then 

Gioca es,True '<<<--- questo ti visualizza solo le giocate posit.
'Gioca es '<<<--- questo ti visualizza tutte le giocate posit.-negat.

Else
Gioca es
End If 
'---------------------------------------------------------------------------------
neg=0
For i= 1 To 8 '<<<--- il numero deve corrispondere alle giocate effettive
If Esito(i)=0 Then neg=neg+1
Next
pos=0
For ii= 1 To 8 '<<<--- il numero deve corrispondere alle giocate effettive
If Esito(ii)=>1 Then pos=pos+1
Next
Scrivi
'il numero deve corrispondere alle giocate effettive
If neg=8 And es<fin-(k-1) Then Scrivi DataEstrazione(es,1)&" ["& es &"] Esito negativo!",1 End If 
If neg=8 And es>fin-k Then Scrivi "Esito in corso!",1 End If 
If pos=>1 Then Scrivi " Esito positivo!" ,1 End If
'---------------------------------------------------------------------------------

Gioca es
End If

End If '<<<--- x ultima estr. mens. 

Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
End Sub

ciao, max

 

[lola]

Ciao Max,
grazie dell' aggiustatina, va bene così, anzi benissimo ciao

lola

livia