x Mike58 ___aiuto per listato script

[Zetrix]

                                         Sub Main()
Dim rt(3),pt(2)
Dim n1(3),n2(2),n3(3)


Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su  Roma All' Ultima Estrazione Del Mese"
Scrivi : ColoreTesto 0
pt(2) = 1 ' <--  imposta per ambo
clp = 6 '<----  colpi di gioco
rt(1) = 8 '<----  ruota di gioco -  roma
y = 0 '  --> (1) interrompi per esito verificato   --> (0) interrotta per raggiunta durata
ini = EstrazioneFin - 120 ' <---- imposta estr. precedenti
fin = EstrazioneFin
co = 0
For es = ini To fin ' ->  imposta (n) per tutte le estr.
Messaggio(es)

'-------------------------------------------------------------------------------------------------

If IndiceMensile (es+1) = 1 Or (es) = EstrazioneFin Then  '<--- serve per visualizzare l ultima estraz
'If IndiceMensile(es + 1) = 1 Then '<---- ultima estr. del mese
Scrivi String(70,"-")
co = co + 1

'-------------------------------------------------- condizione  gioco
a = (Diametrale In Decina (Estratto(es,6,5))+ (Estratto(es,5,1)+9)) '  diam in dec 5°di napoli + 1° di mi + 9
b = Estratto(es,0,0)'  somma cifre 2° di palermo + 1° di palermo +51 

'----------------------------------------
n1(1) = (a)' <-- primo numero
n1(2) = (b)' <-- secondo numero 
'----------------------------------------
ImpostaGiocata 1,n1,rt,pt,clp,0 '<---- imposta 0 int per raggiunta durata


Gioca es ' ->  imposta (n) per tutte le estr.
End If
Next
Scrivi String(70,"-")

End Sub

Ciao Mike mi aiuti a completare questo listato mi sono un po impicciato con le cifre dei numeri
le condz sono scritte nel listato

 

[Mike58]

Ciao Zetrix, prova a vedere nel listato ci sono le indicazioni, sicuramente ci sarà bisogno di rivedere gli algoritmi.

Sub Main
Dim rt(3),pt(2)
Dim n1(3),n2(2),n3(3)
Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su  Roma All' Ultima Estrazione Del Mese"
Scrivi : ColoreTesto 0
pt(2) = 1 ' <--  imposta per ambo
clp = 6 '<----  colpi di gioco
rt(1) = 8 '<----  ruota di gioco -  roma
y = 0 '  --> (1) interrompi per esito verificato   --> (0) interrotta per raggiunta durata
ini = EstrazioneFin - 120 ' <---- imposta estr. precedenti
fin = EstrazioneFin
co = 0
For es = ini To fin ' ->  imposta (n) per tutte le estr.
	Messaggio(es)
	'-------------------------------------------------------------------------------------------------
	If IsUltimaDelMese(es) Then 
	k = k + 1 ' contatore condizioni trovate
	'If IndiceMensile(es + 1) = 1 Or(es) = EstrazioneFin Then '<--- serve per visualizzare l ultima estraz
		'If IndiceMensile(es + 1) = 1 Then '<---- ultima estr. del mese
		Scrivi String(130,"-") & " Caso N. " & k
		co = co + 1
		'-------------------------------------------------- condizione  gioco
		' diametrale del numero = Diametrale(es,ru,posiz)
		' diametrale in decina = DiametraleD(es,ru,posiz)
		a = Fuori90((DiametraleD(Estratto(es,6,5)) +(Estratto(es,5,1) + 9))+9) '  diam in dec 5°di napoli + 1° di mi + 9
		b = Fuori90(Cadenza(Estratto(es,PA_,5)) + Estratto(es,PA_,1)+51) 'cifra = cadenza
		'b = Fuori90(Decina(Estratto(es,PA_,5)) + Estratto(es,PA_,1)+51) 'cifra = decina

		'b = Estratto(es,0,0)'  somma cifre 2° di palermo + 1° di palermo +51
		'----------------------------------------
		n1(1) =(a)' <-- primo numero
		n1(2) =(b)' <-- secondo numero
		'----------------------------------------
		ImpostaGiocata 1,n1,rt,pt,clp,2 '<---- imposta 2 interrompi per raggiunta durata esito ambo
		Gioca es ' ->  imposta (n) per tutte le estr.
	End If
Next
Scrivi String(130,"-")
ScriviResoconto
End Sub

 

[Zetrix]

Ciao Mike ho trovato alcuni errori cosi nn va bene ce un 9 in piu e poi la somma delle cifre deve essere dec + cad _____ vedro di fare un esempio Mike 2 di pal (somma cifre)45 --=9 + 1 di pa 38=47+51=98
Mike gli algoritmi sono dentro il listato segui come scritto ___ dovrebbero essere giusti gli algoritmi nn mi sono sbagliato

 

[Zetrix]

                                  Sub Main
Dim rt(3),pt(2)
Dim n1(3),n2(2),n3(3)
Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su  Roma All' Ultima Estrazione Del Mese"
Scrivi : ColoreTesto 0
pt(2) = 1 ' <--  imposta per ambo
clp = 6 '<----  colpi di gioco
rt(1) = 8 '<----  ruota di gioco -  roma
y = 0 '  --> (1) interrompi per esito verificato   --> (0) interrotta per raggiunta durata
ini = EstrazioneFin - 120 ' <---- imposta estr. precedenti
fin = EstrazioneFin
co = 0
For es = ini To fin ' ->  imposta (n) per tutte le estr.
	Messaggio(es)
	'-------------------------------------------------------------------------------------------------
	If IsUltimaDelMese(es) Then 
	k = k + 1 ' contatore condizioni trovate
	'If IndiceMensile(es + 1) = 1 Or(es) = EstrazioneFin Then '<--- serve per visualizzare l ultima estraz
		'If IndiceMensile(es + 1) = 1 Then '<---- ultima estr. del mese
		Scrivi String(130,"-") & " Caso N. " & k
		co = co + 1
		'-------------------------------------------------- condizione  gioco
		' diametrale del numero = Diametrale(es,ru,posiz)
		' diametrale in decina = DiametraleD(es,ru,posiz)
		a = Fuori90((DiametraleD(Estratto(es,6,5)) +(Estratto(es,5,1)))+9) '  diam in dec 5°di napoli + 1° di mi + 9
		b = Fuori90(Decina(Estratto(es,PA_,2)) + Fuori90(Cadenza(Estratto(es,PA_,2)))+ (Estratto(es,PA_,1)+51)) 'cifra = cadenza
		'b = Fuori90(Decina(Estratto(es,PA_,5)) + Estratto(es,PA_,1)+51) 'cifra = decina

		'b = Estratto(es,0,0)'  somma cifre 2° di palermo + 1° di palermo +51
		'----------------------------------------
		n1(1) =(a)' <-- primo numero
		n1(2) =(b)' <-- secondo numero
		'----------------------------------------
		ImpostaGiocata 1,n1,rt,pt,clp,2 '<---- imposta 2 interrompi per raggiunta durata esito ambo
		Gioca es ' ->  imposta (n) per tutte le estr.
	End If
Next
Scrivi String(130,"-")
ScriviResoconto
End Sub

Mike sono riuscito a sistemare grazie anche del tuo aiuto adesso va benissimo lo script
questo e il risultato esatto adesso ho imparato qualcosa e su questo listato posso modificare gli algoritmi
grazie di tutto Mike per la tua disponibilita e professionalita

 

[Mike58]

Ciao Zetrix, non dicevo di rivedere i tuoi algoritmi, ma che probabilmente il mio iter potesse essere non corretto e che comunque potevi da solo ricorreggere i calcoli

Comunque fai un esempio con estrazioni reali e vedi anche se ci arrivi da solo.

Sub Main
Dim rt(3),pt(2)
Dim n1(3),n2(2),n3(3)
Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su  Roma All' Ultima Estrazione Del Mese"
Scrivi : ColoreTesto 0
pt(2) = 1 ' <--  imposta per ambo
clp = 6 '<----  colpi di gioco
rt(1) = 8 '<----  ruota di gioco -  roma
y = 0 '  --> (1) interrompi per esito verificato   --> (0) interrotta per raggiunta durata
ini = EstrazioneFin - 120 ' <---- imposta estr. precedenti
fin = EstrazioneFin
co = 0
For es = ini To fin ' ->  imposta (n) per tutte le estr.
	Messaggio(es)
	'-------------------------------------------------------------------------------------------------
	If IsUltimaDelMese(es) Then 
	k = k + 1 ' contatore condizioni trovate
	'If IndiceMensile(es + 1) = 1 Or(es) = EstrazioneFin Then '<--- serve per visualizzare l ultima estraz
		'If IndiceMensile(es + 1) = 1 Then '<---- ultima estr. del mese
		Scrivi String(130,"-") & " Caso N. " & k
		co = co + 1
		'-------------------------------------------------- condizione  gioco
		' diametrale del numero = Diametrale(es,ru,posiz)
		' diametrale in decina = DiametraleD(es,ru,posiz)
		aa1 = Decina(Estratto(es,PA_,5))
		aa2 = Cadenza(Estratto(es,PA_,5))
		a3 = aa1+aa2 ' sommacifra
		a = Fuori90((DiametraleD(Estratto(es,6,5)) +(Estratto(es,5,1) + 9))+9) '  diam in dec 5°di napoli + 1° di mi + 9
		b = Fuori90(a3 + Estratto(es,PA_,1)+51) 'cifra = cadenza
		'b = Fuori90(Decina(Estratto(es,PA_,5)) + Estratto(es,PA_,1)+51) 'cifra = decina

		'b = Estratto(es,0,0)'  somma cifre 2° di palermo + 1° di palermo +51
		'----------------------------------------
		n1(1) =(a)' <-- primo numero
		n1(2) =(b)' <-- secondo numero
		'----------------------------------------
		ImpostaGiocata 1,n1,rt,pt,clp,2 '<---- imposta 2 interrompi per raggiunta durata esito ambo
		Gioca es ' ->  imposta (n) per tutte le estr.
	End If
Next
Scrivi String(130,"-")
ScriviResoconto
End Sub

 

[Zetrix]

Adesso e tutto a posto Mike il listato va benissimo mi impicciavo un po con le cifre del numero e con le parentesi che ne mettevo a chi di piu e a chi meno e mi dava sempre errore diciamo che nel complesso e un po difficile da impostare uno script uno che e alle prime armi si trova subito in difficolta ma comincio ad imparare qualcosa_____grazie di tutto Mike

 

[Mike58]

Tranquillo, vedrai che un passo per volta e con la dovuta curiosità si impara tutto.

Ciao