Novità

per mike58 o joe91

mastrogino

Advanced Premium Member
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
 
Ultima modifica:
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.

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21

Ultimi Messaggi

Indietro
Alto