per gli"SCRIPTER"

[Roby]

il metodo lo trovare qui


http://forum.lottoced.com/topic.asp?TOPIC_ID=130593
volevo apportare una piccola modifica nel gioco dell'ambata
determinata
If Pari(n1)=True Then posta(7)=1osta(9)=1
If Pari(n1)=false Then posta(6)=1osta(8)=1 osta(10)=10
come si puo notare non funziona,in realta doveva fare questo
se la somma dei due numeri è pari mi doveva giocare le ambate
a 2° e 4° posto,se la somma è dipsari le ambate doveva giocarle
al 1° e 3° e 5°,qual'è l'arcano che non la fa funzionare?
Ringrazio anticipatamente chi risolve il"mistero"
'________________________________

Sub main()
Dim nu1(2),ruote(2),ruota(1),nu2(5),posta(10),poste(10)
casi=0
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",100)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "numeretto + numero di cifra uguale(script by chilofa)",1
Scrivi String(70,"="),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 12
If r1=11 Then r1=12
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2= 1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p1)
If ((a)<10 And(b)>9 And Figura(a)=Figura(b)) Then
If r2<>r1 Then
n1=Fuori90(a+b)
casi=casi+1:Scrivi String(60,"=")&" script by chilofa",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] numeretto [ "&Format2(a)&"]. "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] numero [ "&Format2(b)&"]. "&(p1)&"^ pos."
Scrivi String(61,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:
oste(2)=3oste(3)=1:co=0
If Pari(n1)=True Then posta(7)=1osta(9)=1 End if
If Pari(n1)=false Then posta(6)=1osta(8)=1 osta(10)=10 End if


nu1(1)=n1:nu1(2)=Vert(n1)
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k 'tutte


nu2(1)=n1:nu2(2)=Vert(n1)
:nu2(3)=a:nu2(4)=b
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k

Gioca es

End If

End If
Next:Next

next:Next
Scrivi String(60,"=")&" script by chilofa",1
ScriviResoconto
Scrivi "numeretto + numero di cifra uguale (script by chilofa)",1
End Sub

 

[LuigiB]

ciao Vedi se cosi va bene ..

Sub Main()
	Dim nu1(2),ruote(2),ruota(1),nu2(5),poste(10)
	casi = 0
	ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",100)
	k = InputBox("per quanti colpi?","colpi di gioco",14)
	ini = EstrazioneFin - ce
	fin = EstrazioneFin
	Scrivi "numeretto + numero di cifra uguale(script by chilofa)",1
	Scrivi String(70,"="),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 12
			If r1 = 11 Then r1 = 12
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				For r2 = 1 To 12
					If r2 = 11 Then r2 = 12
					b = Estratto(es,r2,p1)
					If((a) < 10 And(b) > 9 And Figura(a) = Figura(b)) Then
						If r2 <> r1 Then
							n1 = Fuori90(a + b)
							casi = casi + 1
							Scrivi String(60,"=") & " script by chilofa",1
							Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
							" ] numeretto [ " & Format2(a) & "]. " &(p1) & "^ pos."
							Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
							" ] numero [ " & Format2(b) & "]. " &(p1) & "^ pos."
							Scrivi String(61,"-") & " caso n° " &(casi)
							ruote(1) = r1
							ruote(2) = r2
							ruota(1) = 11
							poste(2) = 3
							poste(3) = 1
							ReDim posta(10)
							co = 0
							If pari(n1) = True Then
								posta(7) = 1
								posta(9) = 1
							Else
								posta(6) = 1
								posta(8) = 1
								posta(10) = 10
							End If
							nu1(1) = n1
							nu1(2) = Vert(n1)
							co = co + 1
							ImpostaGiocata co,nu1,ruote,posta,k
							co = co + 1
							ImpostaGiocata co,nu1,ruota,poste,k 'tutte
							nu2(1) = n1
							nu2(2) = Vert(n1)
							nu2(3) = a
							nu2(4) = b
							co = co + 1
							ImpostaGiocata co,nu2,ruote,poste,k
							co = co + 1
							ImpostaGiocata co,nu2,ruota,poste,k
							Gioca es
						End If
					End If
				Next
			Next
		Next
	Next
	Scrivi String(60,"=") & " script by chilofa",1
	ScriviResoconto
	Scrivi "numeretto + numero di cifra uguale (script by chilofa)",1
End Sub

 

[oruam]

grazie Luigi avevo tentato anche questa strada ,ma senza
ReDim posta(10),le giocate erano sempre errate.

 

[LuigiB]

ciao , e si perche con redim l'array viene pulito prima di settare i nuovi valori , invece prima succedeva che rimanevano settati i vecchi pur aggiungendo i nuovi.