per mike58 o joe91

[mastrogino]

Ciao ragazzi e da un po che non vi disturbo , sicuramente e una cosa da niente
ma non riesco a completare questo script ...............quelo che non mi da e il responso dell'ambo principale
e quello che gli voglio inserire e il calcolo su di una estrazione particolare es: l'ultima del mese o l a1° o la 7°
vi inserisco lo script ..........ho dovuto modificarlo peer la versione 1.3.94. la versione nuova e nel mio pc
personale



Sub Main()
Scrivi: ColoreTesto 1: Scrivi "** SOMMA E DIFFERENZA IN SESTINA PER SCHIRO ** FORUM LOTTOCED ** BY MIKE58 ** "
Dim ruota(1),ruote(1)
Dim ambata(2),quartina(4) ',a2(2)
'Dim b5(2),c5(2)
Dim posta(2)
Dim poste(4)

posta(1) = 1 : posta(2) = 1 : poste(2) = 1 : poste(3) = .5 : poste(4) = .5


r2 = InputBox("Es: Napoli = 6","RUOTA ?",6)
ruota(1) = r2 : ruote(1) = 11

ini = InputBox("Es: " & DataEstrazione(8737) & " = " & "8737","DA QUALE ESTRAZIONE VUOI PARTIRE? ",8737)
fin = EstrazioneFin

kk = InputBox("Es: 18","COLPI DI GIOCO ?",18)
'Co = 0 ' non usato
Casi = 0
'---------------------------------------------------------------------------------------
ff = InputBox("Separati da un punto ES: 50.51.26.16.76.23","INSERISCI 6 NUMERI","50.51.26.16.76.23")
h = Split("0." & ff,".")

'a2(1) = CInt(h(1)) : a2(2) = CInt(h(2)) ' istruzioni e variabili eliminabili
'b5(1) = CInt(h(3)) : b5(2) = CInt(h(4)) ' idem
'c5(1) = CInt(h(5)) : c5(2) = CInt(h(6)) ' idem

For Ub = 1 To UBound(h) : h(ub) = CInt(h(ub)) : Next 'trasforma in numero

'---------- calcolo somma ----------------
aa1 = Fuori90(h(1) + h(2))
aa2 = Fuori90(h(3) + h(4))' abbinamento
aa3 = Fuori90(h(5) + h(6))
bb1 = Fuori90(aa1 + aa2)
bb2 = Fuori90(aa2 + aa3)
cc1 = Fuori90(bb1 + bb2)' ambata
'--------- differenze-----------------------
aaa1 = Differenza(h(1),h(2))
aaa2 = Differenza(h(3),h(4))' abbinamento
aaa3 = Differenza(h(5),h(6))
bbb1 = Differenza(aaa1,aaa2)
bbb2 = Differenza(aaa2,aaa3)
ccc1 = Differenza(bbb1,bbb2)' amabata
'-------------------------------------------
ambata(1) = cc1
ambata(2) = ccc1
quartina(1) = cc1
quartina(2) = ccc1
quartina(3) = aa2
quartina(4) = aaa2
ColoreTesto 1 : Scrivi String(90,"*") & " Rev. 1.0 By Joe",1 : ColoreTesto 0 : Scrivi
Scrivi "1° calcolo " & h(1) & " + " & h(2) & " = " & aa1 & " **** " & "1° calcolo " & h(1) & " - " & h(2) & " = " & aaa1
Scrivi "2° calcolo " & h(3) & " + " & h(4) & " = " & aa2 & " **** " & "2° calcolo " & h(3) & " - " & h(4) & " = " & aaa2
Scrivi "3° calcolo " & h(5) & " + " & h(6) & " = " & aa3 & " **** " & "3° calcolo " & h(5) & " - " & h(6) & " = " & aaa3
Scrivi "4° calcolo " & aa1 & " + " & aa2 & " = " & bb1 & " **** " & "4° calcolo " & aaa1 & " - " & aaa2 & " = " & bbb1
Scrivi "5° calcolo " & aa2 & " + " & aa3 & " = " & bb2 & " **** " & "5° calcolo " & aaa2 & " - " & aaa3 & " = " & bbb2
Scrivi "6° calcolo " & bb1 & " + " & bb2 & " = " & cc1 & " **** " & "6° calcolo " & bbb1 & " - " & bbb2 & " = " & ccc1
Scrivi

For es = ini To fin Step kk
casi = casi + 1
Scrivi String(95,"*") & " Caso n°" & FormatSpace(casi,3,1),1
'------------------------------------
ImpostaGiocata 1,ambata,ruota,posta,kk,1
ImpostaGiocata 2,quartina,ruote,poste,kk,2
Gioca es,1
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub





il 21/09/2013 sulla ruota di napoli quindi tt e sortito l'ambo
principale 17.13.
invece ha dato questo



Estrazione generatrice del pronostico 08737 [105 - 31/08/2013]
G 0001
Numeri in gioco : 17.13 su PA per Estratto,Ambo
V N. [17.13 ] [PA] [.. .. .. .. 13] C. 3 Estratto 08740 [108 - 07/09/2013]
Interrotta per esito verificato

G 0002
Numeri in gioco : 17.13.01.67 su TT per Ambo,Terno,Quaterna
V N. [17.13.01.67 ] [TT] [PA][.. 67 .. .. 13] C. 3 Ambo 08740 [108 - 07/09/2013]
Interrotta per esito verificato

 

[Mike58]

Ciao Schirò, per l'estrazione che hai citato non saprei probabilmente avrai modificato qualche calcolo e cosi dallo script postato non si può risalire ad un perchè.
Invece per mettere un indice mensile di partenza è semplice dopo il ciclo delle estrazioni metti in if-then e magari togli lo step di 18 estrazioni del ciclo for.

Sub Main()
	Scrivi: ColoreTesto 1: Scrivi "** SOMMA E DIFFERENZA IN SESTINA PER SCHIRO ** FORUM LOTTOCED ** BY MIKE58 ** "
	Dim ruota(1),ruote(1)
	Dim ambata(2),quartina(4) ',a2(2)
	'Dim b5(2),c5(2)
	Dim posta(2)
	Dim poste(4)
	posta(1) = 1 : posta(2) = 1 : poste(2) = 1 : poste(3) = .5 : poste(4) = .5
	r2 = InputBox("Es: Napoli = 6","RUOTA ?",6)
	ruota(1) = r2 : ruote(1) = 11
	ini = InputBox("Es: " & DataEstrazione(8737) & " = " & "8737","DA QUALE ESTRAZIONE VUOI PARTIRE? ",8737)
	fin = EstrazioneFin
	'kk = InputBox("Es: 18","COLPI DI GIOCO ?",18)
	'Co = 0 ' non usato
	Casi = 0
	'---------------------------------------------------------------------------------------
	ff = InputBox("Separati da un punto ES: 50.51.26.16.76.23","INSERISCI 6 NUMERI","50.51.26.16.76.23")
	h = Split("0." & ff,".")
	'a2(1) = CInt(h(1)) : a2(2) = CInt(h(2)) ' istruzioni e variabili eliminabili
	'b5(1) = CInt(h(3)) : b5(2) = CInt(h(4)) ' idem
	'c5(1) = CInt(h(5)) : c5(2) = CInt(h(6)) ' idem
	For Ub = 1 To UBound(h) : h(ub) = CInt(h(ub)) : Next 'trasforma in numero
	'---------- calcolo somma ----------------
	aa1 = Fuori90(h(1) + h(2))
	aa2 = Fuori90(h(3) + h(4))' abbinamento
	aa3 = Fuori90(h(5) + h(6))
	bb1 = Fuori90(aa1 + aa2)
	bb2 = Fuori90(aa2 + aa3)
	cc1 = Fuori90(bb1 + bb2)' ambata
	'--------- differenze-----------------------
	aaa1 = Differenza(h(1),h(2))
	aaa2 = Differenza(h(3),h(4))' abbinamento
	aaa3 = Differenza(h(5),h(6))
	bbb1 = Differenza(aaa1,aaa2)
	bbb2 = Differenza(aaa2,aaa3)
	ccc1 = Differenza(bbb1,bbb2)' amabata
	'-------------------------------------------
	ambata(1) = cc1
	ambata(2) = ccc1
	quartina(1) = cc1
	quartina(2) = ccc1
	quartina(3) = aa2
	quartina(4) = aaa2
	ColoreTesto 1 : Scrivi String(90,"*") & " Rev. 1.0 By Joe",1 : ColoreTesto 0 : Scrivi
	Scrivi "1° calcolo " & h(1) & " + " & h(2) & " = " & aa1 & " **** " & "1° calcolo " & h(1) & " - " & h(2) & " = " & aaa1
	Scrivi "2° calcolo " & h(3) & " + " & h(4) & " = " & aa2 & " **** " & "2° calcolo " & h(3) & " - " & h(4) & " = " & aaa2
	Scrivi "3° calcolo " & h(5) & " + " & h(6) & " = " & aa3 & " **** " & "3° calcolo " & h(5) & " - " & h(6) & " = " & aaa3
	Scrivi "4° calcolo " & aa1 & " + " & aa2 & " = " & bb1 & " **** " & "4° calcolo " & aaa1 & " - " & aaa2 & " = " & bbb1
	Scrivi "5° calcolo " & aa2 & " + " & aa3 & " = " & bb2 & " **** " & "5° calcolo " & aaa2 & " - " & aaa3 & " = " & bbb2
	Scrivi "6° calcolo " & bb1 & " + " & bb2 & " = " & cc1 & " **** " & "6° calcolo " & bbb1 & " - " & bbb2 & " = " & ccc1
	Scrivi
	For es = ini To fin 'Step kk
		If IndiceMensile(es) = 1 Then ' indice mensile
			casi = casi + 1
			Scrivi String(95,"*") & " Caso n°" & FormatSpace(casi,3,1),1
			'------------------------------------
			ImpostaGiocata 1,ambata,ruota,posta,kk,1
			ImpostaGiocata 2,quartina,ruote,poste,kk,2
			Gioca es,1
		End If 'fine indice mensile
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub