richiesta scrip

[armando59]

per cortesia a chi se la sente di farmi uno script

su tutte le estrazioni
bari 1' 3' 5' estratto trasformarli in figure
cagliari 1' 3' 5' estratto
quindi una sestina da mettere in gioco su genova e palermo,

questo scrip mi servirebbe x fare anche altre ricerche

lo so che siete in gamba un grazie è d'obbligo
ciao

 

[claudio8]

Sub Main()
	Dim n(6)
	Dim ambo2(2)
	Dim ruote(2)
	Dim posta(10)
	For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
		r1 = 1
		r2 = 2
		n(1) = Figura(Estratto(es,r1,1))
		n(2) = Figura(Estratto(es,r1,3))
		n(3) = Figura(Estratto(es,r1,5))
		n(4) = Figura(Estratto(es,r2,1))
		n(5) = Figura(Estratto(es,r2,3))
		n(6) = Figura(Estratto(es,r2,5))
		ColoreTesto 1
		Scrivi "----- da ruote Ba e CA figure per gioco su GE e PA -------"
		ColoreTesto 0
		Scrivi DataEstrazione(es) & " -- " & FormatSpace(NomeRuota(r1),15) & " Numeri:  " & n(1) & "." & n(2) & "." & n(3),1
		Scrivi DataEstrazione(es) & " -- " & FormatSpace(NomeRuota(r2),15) & " Numeri:  " & n(4) & "." & n(5) & "." & n(6),1

		Scrivi
		c = 10 '<------------ qui metti al posto di 10 il numero di colpi che vuoi
		posta(2) = 1 '<------ qui  se vuoi cambiare l'importo della posta x ambo
		posta(3) = 1 '<------ qui se vuoi cambiare l'importo della posta x terno
		ruote(1) = GE_ 'ruote di gioco
		ruote(2) = PA_
		ImpostaGiocata 1,n,ruote,posta,c,2
		Gioca es
		ColoreTesto 2
		Scrivi "*************************************************************"
	Next
	ScriviResoconto
End Sub

 

[claudio8]

Sub Main()
	Dim n(6)
	Dim ruote(2)
	Dim posta(10)
	For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
		r1 = 1
		r2 = 2
		n(1) = Figura(Estratto(es,r1,1))
		n(2) = Figura(Estratto(es,r1,3))
		n(3) = Figura(Estratto(es,r1,5))
		n(4) = Figura(Estratto(es,r2,1))
		n(5) = Figura(Estratto(es,r2,3))
		n(6) = Figura(Estratto(es,r2,5))
		ColoreTesto 1
		Scrivi "----- da ruote Ba e CA figure per gioco su GE e PA -------"
		ColoreTesto 0
		Scrivi DataEstrazione(es) & " -- " & FormatSpace(NomeRuota(r1),15) & StringaEstratti(es,r1)& " Numeri:  " & n(1) & "." & n(2) & "." & n(3),1
		Scrivi DataEstrazione(es) & " -- " & FormatSpace(NomeRuota(r2),15) & StringaEstratti(es,r2)&" Numeri:  " & n(4) & "." & n(5) & "." & n(6),1

		Scrivi
		c = 10 '<------------ qui metti al posto di 10 il numero di colpi che vuoi
		posta(2) = 1 '<------ qui  se vuoi cambiare l'importo della posta x ambo
		posta(3) = 1 '<------ qui se vuoi cambiare l'importo della posta x terno
		ruote(1) = GE_ 'ruote di gioco
		ruote(2) = PA_
		ImpostaGiocata 1,n,ruote,posta,c,2
		Gioca es
		ColoreTesto 2
		Scrivi "*************************************************************"
	Next
	ScriviResoconto
End Sub

 

[armando59]

grazie claudio8 sei stato molto gentile

se riesco a elaborare qualcosa di buono ti farò sapere ciao.

 

[claudio8]

 

[beppe401]

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS AMBATA-AMBO-TERNO SU BARI CAGLIARI ALLA 10^ ESTRAZIONE MENSILE - COLPI 4",1
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim ambata(1): Dim ambo1(2) : Dim terno(3) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
ruote(1) = 1
ruote(2) = 2
klp = 4
ini = 8700
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 10 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS AMBATA-AMBO-TERNO SU BARI - CAGLIARI ALLA 10^ ESTRAZIONE MENSILE - COLPI 4",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
ambo1(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,3) + 05)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
terno(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
terno(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,3) + 05)
terno(3) = Fuori90(Estratto(es,FI_,4) + Estratto(es,VE_,2) + 64)
ImpostaGiocata 3,terno,ruote,postee,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub