x mike58

[sospetto]

Per lo script " 3 AMBATE SOMMATIVE " si puo' modificare per il superenalotto?
Io Non ci sono riuscito.
Grazie.

 

[Mike58]

Ciao sospetto , purtroppo in questo periodo non ho tempo di star dietro agli script ( Impegni personali importanti ), non saprei a quale script ti riferisci anche se una idea posso averla.
Nello script che penso, basta sostituire i codici con il suffisso SE e i codici di inizio e fine con i codici appositi SE per il superenalotto.

Ripeto non avrei molto tempo ma le correzioni sarebbero semplici da fare.

se non riesci riposta lo script che gli do un occhio.

Ciao e scusatemi per l'assenza di questo periodo ( passerà )

 

[Mike58]

Forse guardando nei miei archivi ti riferivi a questo

eccoti la correzione

Sub Main()
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "  SCRIPT DI MIKE58 ",1
	Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
	Dim cin(10),ruote(10)
	casi = 0
	Scrivi Space(10) & "******* Costruttore Sommativo ****** SUPERENALOTTO ******* ",1,1,,1,5,,1
	Scrivi
	x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	'r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
	visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

	ruote(1) = r
	fin = EstrazioniArchivioSE
	Ini = fin - 140
	fine = EstrazioniArchivioSE
	ReDim atitoli(11)
	atitoli(1) = " ESTRATTO "
	atitoli(2) = " SOMMATIVO "
	atitoli(3) = " PRESENZA SU CASI "
	atitoli(4) = " NUMERO IN GIOCO "
	atitoli(5) = " ESITO "
	atitoli(6) = " RET_ESTRATTI "
	atitoli(7) = " DATA ESTRAZIONE "
	atitoli(8) = " COLPO ESITO "
	atitoli(9) = " NUM. 1 "
	atitoli(10) = " NUM. 2 "
	atitoli(11) = " NUM. 3 "
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini To Fin
		If IndiceMensileSE(es) = x Then 'DA CAMBIARE A PIACIMENTO
			idd = GetInfoEstrazioneSE(es)
			Call Messaggio("Costruttore Sommativo per Ambi      " & " casi trovati...." & casi)
			Call AvanzamentoElab(Ini,fin,es)
			Inco = fine - es
			casi = casi + 1
			co = 0
			es1 = es + 1
			es2 = es1 + colpi
			e = EstrattoSE(es,pos)
			For s1 = 1 To 88
				For s2 = s1 + 1 To 89
					For s3 = s2 + 1 To 90
						co = co + 1
						cin(1) = Fuori90(e + s1)
						cin(2) = Fuori90(e + s2)
						cin(3) = Fuori90(e + s3)
						ea = SerieFreqSE(es1,es2,cin,2)
						num(co,1) = s1
						num(co,2) = s2
						num(co,3) = s3
						num(co,4) = num(co,4)
						If ea > 0 Then
							num(co,4) = num(co,4) + 1
						End If
					Next
				Next
			Next
		End If
	Next
	Scrivi : ColoreTesto 0: Scrivi,1
	Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
	Scrivi "Combinazioni analizzate: " & co,1
	Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
	Scrivi " -> Colpo in corso..." & Inco,1
	Scrivi
	ColoreTesto 0
	For i = 1 To visual
		Call OrdinaMatrice(num,- 1,4)
		If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
			ColoreTesto 0
			aa(1) = Fuori90(cin(1) + num(i,1) + 2)
			aa(2) = Fuori90(cin(2) + num(i,2) + 1)
			aa(3) = Fuori90(cin(3) + num(i,3))
			Call VerificaEsitoSE(aa,es1,2,Inco,retesito,retcolpi,retestratti,id)
			n1(1) = aa(1)
			n2(1) = aa(2)
			n3(1) = aa(3)
			
			ReDim avalori(11)
			avalori(1) = pos & "°" & " di " & " = " & e
			avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
			avalori(3) = Format2(num(i,4)) & "  su  " & casi & "  Casi "
			avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
			avalori(5) = retesito
			avalori(6) = Retestratti
			If retesito = "Ambo" Or retesito = "Terno" Then
				avalori(7) = DataEstrazioneSE(id)
			Else
				avalori(7) = " In corso "
			End If
			If retesito = "Ambo" Or retesito = "Terno" Then
				avalori(8) = retcolpi & "°"
			Else
				avalori(8) = Inco & "° in corso "
			End If
			sf11 = SerieFreqSE(fine - inco,fine,n1,1)
			sf12 = SerieFreqSE(fine - inco,fine,n2,1)
			sf13 = SerieFreqSE(fine - inco,fine,n3,1)
			If sf11 > 0 Then
				avalori(9) = n1(1)
			Else
				avalori(9) = ""
			End If
			If sf12 > 0 Then
				avalori(10) = n2(1)
			Else
				avalori(10) = ""
			End If
			If sf13 > 0 Then
				avalori(11) = n3(1)
			Else
				avalori(11) = ""
			End If
			'End If
			Call AddRigaTabella(avalori,,,3)
		End If
		Call SetColoreCella(2,,1)
		Call SetColoreCella(4,,2)
		Call SetColoreCella(6,,7)
		If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
		If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
		If avalori(7) = DataEstrazioneSE(id) Then Call SetColoreCella(7,,2)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella()
	

End Sub

 

[sospetto]

Si E' Propio questo, grazie mike.