X Luigi " Esito Cinquina "

[Mike58]

Ciao Luigi mi sono imbattutto in un errore sullo spazioScript con la ultima versione la cinquina la identifica come cinqina e nel conteggiare i casi non me la trovava se non rinominadola cinqina.

Ti posto un esempio visivo, sulla ultima estrazione di bari

Sub Main
	Dim anum(10),aruo(1)
	anum(1) = 49
	anum(2) = 69
	anum(3) = 79
	anum(4) = 58
	anum(5) = 23
	aruo(1) = 1
	'ScegliNumeri(anum)
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	ReDim AT(6)
	AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
		c = c + 1
		If retesito <> "" Then casi = casi + 1
		ReDim AV(6)
		AV(1) = StringaEstratti(idestr,5)
		AV(2) = StringaNumeri(anum)
		AV(3) = RetEsito
		AV(4) = c
		AV(5) = RetEstratti
		If RetEsito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		
		Call AddRigaTabella(AV,,,3)
		If retesito =  "Cinqina" Then Call SetColoreCella(3,3,1)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	If retEsito = "Cinqina" Then cinquina = cinquina + 1 ' riga non conforme
	Scrivi "Totali Cinquine...." & cinquina,1
End Sub

 

[LuigiB]

ok cun errore di ortografia .. lo correggero nella prossima versione ciao