Vi chiedo x favore uno script( X Disaronno eo altri)

alex7878 · 31 Gennaio 2014

Buongiorno

vi chiedo per favore uno script che :

Mi chieda la quantita' di num da controllare gli esiti.
Tipo
Quanti num vuoi controllare? io mettero' per es 10 num
Inserisci i 10 num
Da quale estraz vuoi controllare gli esiti? qui vorrei inserire la data

L'output mi deve fornire a partire da quella data gli esiti di ambo,terno ecc con le rispettive date e non lID Estraz e a quale colpo e' avvenuto l'esito

In sostanza uno script per controllare gli esiti di num da me scelti

grazie

kamarina · 31 Gennaio 2014

ti allego un listato che potrebbe rispondere alle Tue esigenze e che ho in mezzo ai miei
ciao kamarina

Sub Main()
'EVIDENZIA NUMERI IN ROSSO
Dim Ru(1)
Dim Nn(26),spia(26) ': Nn(1) = 12 : Nn(2) = 13 : Nn(3) = 14 : Nn(4) = 21
QT = InputBox("Quanti Numeri","Numeri",5)
rr = InputBox("Quale Ruota","Ruota",1)
ge =InputBox("quante estrazione arretrate vuoi controllare",,200)
'sp = CInt(InputBox("Quale spia ",,58))
Ru(1) = rr
'spia(1) = sp
'spia(2) = 46
ScegliNumeri(Nn)
Ini = EstrazioneFin - ge
Fin = EstrazioneFin
Scrivi NomeRuota(rr),0,0
Scrivi "........ Da " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
Scrivi
Scrivi"------------------------------------------------------------"
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi"------------------------------------------------------------"
ColoreTesto 9
Scrivi "Numeri spia " & StringaNumeri(spia),1
ColoreTesto 0
Scrivi"------------------------------------------------------------"
For Es = Ini To Fin
Scrivi DataEstrazione(es) & " ",0,0
Scrivi "[" & Es & "] ",0,0
For P = 1 To 5
ColoreTesto 1
For x = 1 To Qt
If Estratto(Es,rr,P) = Nn(x) Then ColoreTesto 2
If Estratto(es,rr,p) = spia(x) Then ColoreTesto 7
Next
Scrivi Format2(Estratto(Es,rr,P)),1,0 'scrive i numeri della estrazione
ColoreTesto 0
Scrivi "",0,0
If P < 5 Then Scrivi ".",1,0
Next
terni = SerieFreq(Es,Es,Nn,Ru,3)
ambi = SerieFreq(Es,Es,Nn,Ru,2)
ambate = SerieFreq(Es,Es,Nn,Ru,1)
r3 = SerieRitardo(Ini,fin,Nn,Ru,3)
r2 = SerieRitardo(Ini,fin,Nn,Ru,2)
r1 = SerieRitardo(Ini,fin,Nn,Ru,1)
ColoreTesto 7
Scrivi " - Terni : " & terni & " - ambi : " & ambi & " - Ambate : " & Ambate,1
If ambi > 0 Then Totambi = Totambi + 1
If ambate > 0 Then Totambate = Totambate + 1
If terni > 0 Then Totterni = Totterni + 1
ColoreTesto 0
Next
Scrivi
Scrivi"--------------------------------------------------------------"
Scrivi " Tot terni :" & Totterni & " Tot ambi " & Totambi & " Tot ambate " & Totambate,1
ColoreTesto 1
Scrivi " Ritardo Terno :" & r3,0,0
Scrivi " Ritardo Ambo :" & r2,0,0
Scrivi " Ritardo Ambata :" & r1,1

End Sub

alex7878 · 31 Gennaio 2014

Ciao kamarina

diciamo che non va bene perche' il controllo lo fa a RITROSO mentre io lo voglio fare da una data da me inserita fino all'ultima estrazione

grazie lo stesso,gentilissima

Mike58 · 31 Gennaio 2014

Ciao Alex, prova questa soluzione la data la puoi cambiare dal listato.

Codice:

Sub Main
	Dim anum(90),aruo(1),posta(5),nRetGuadagno,sorte
	r = InputBox("QUALE RUOTA ANALIZZO",,1)
	aruo(1) = r
	sorte = CInt(InputBox("QUALE SORTE MINIMA ANALIZZO",,1))
	posta(sorte) = 10
	ScegliNumeri(anum)
	Scrivi "SORTE ANALIZZATA.... " & NomeSorte(sorte) & " Sulla ruota di " & NomeRuota(r) & "  " & Chr(174) & " **** Script by Mike58 **** " & Chr(169),True,True,,1,4
	Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
	fin = EstrazioniArchivio
	Tot = fin - Ini
	Scrivi "Dalla data " & DataEstrazione(Ini) & " alla data " & DataEstrazione(fin),1
	ReDim AT(8)
	AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	AT(7) = " Rapporto Vincita "
	AT(8) = " Vincita $$$$$ "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsitoConGuadagno(anum,aruo,idEstr,sorte,1,,Esito,RetColpi,RetEstratti,RetIdEstr,,nRetGuadagno)
		c = c + 1
		If esito <> "" Then casi = casi + 1
		ReDim AV(8)
		AV(1) = StringaEstratti(idestr,r)
		AV(2) = StringaNumeri(anum)
		AV(3) = Esito
		AV(4) = c
		AV(5) = RetEstratti
		AV(7) = nRetGuadagno
		If Esito <> "" Then AV(8) = nRetGuadagno * posta(sorte)
		If Esito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		If esito = "Estratto" Then estr = estr + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		Call AddRigaTabella(AV,,,3)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	Scrivi
	Scrivi "Totali Estratto." & estr,1
	Scrivi "Totali Ambi....." & amb,1
	Scrivi "Totali Terni...." & ter,1
	Scrivi "Totali Quaterne." & qua,1
	Scrivi "Totali cinquine." & cin,1
End Sub

alex7878 · 31 Gennaio 2014

ciao Mike58
c'e' un errore te lo posto

Mike58 · 31 Gennaio 2014

Purtroppo!!! io creo gli script con tutti i codici attivi delle nuove versioni di spaziometria, la verifica esito con guadagno è uno degli ultimi codici attivo con le ultime versioni di spaziometria.

Ti consiglio di aggiornarlo o nel caso elimino quel codice!!! fammi sapere.

alex7878 · 31 Gennaio 2014

Ciao Mike58
capito.
Ma se clicco ok su aggiornamento non dovrei avere problemi dopo?
Te lo chiedo perche' per installare Spaziometria l'ultima volta sono impazzito
Quindi c'e' quel timore
Cmq prova a eliminare quel codice ,lo provo e poi vediamo

Mike58 · 31 Gennaio 2014

Io aggiorno da sempre e in tutte le volte ho avuto solo un problema che poi luigiB ha egregiamente risolto, quindi ti consiglio senza paura di aggiornare.
Altrimenti non ci sono problemi ad eliminare quel codice ma dovrei anche sapere la versione che usi !!!

ciao

Mike58 · 31 Gennaio 2014

questa sarebbe la versione senza guadagno le ultime 2 colonne non hanno valori di riferimento.

Giusto per provare lo script.

Codice:

Sub Main
	Dim anum(90),aruo(1),posta(5),nRetGuadagno,sorte
	r = InputBox("QUALE RUOTA ANALIZZO",,1)
	aruo(1) = r
	sorte = CInt(InputBox("QUALE SORTE MINIMA ANALIZZO",,1))
	posta(sorte) = 10
	ScegliNumeri(anum)
	Scrivi "SORTE ANALIZZATA.... " & NomeSorte(sorte) & " Sulla ruota di " & NomeRuota(r) & "  " & Chr(174) & " **** Script by Mike58 **** " & Chr(169),True,True,,1,4
	Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
	fin = EstrazioniArchivio
	Tot = fin - Ini
	Scrivi "Dalla data " & DataEstrazione(Ini) & " alla data " & DataEstrazione(fin),1
	ReDim AT(8)
	AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	AT(7) = " Rapporto Vincita "
	AT(8) = " Vincita $$$$$ "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsito(anum,aruo,idEstr,sorte,1,,Esito,RetColpi,RetEstratti,RetIdEstr)
		c = c + 1
		If esito <> "" Then casi = casi + 1
		ReDim AV(8)
		AV(1) = StringaEstratti(idestr,r)
		AV(2) = StringaNumeri(anum)
		AV(3) = Esito
		AV(4) = c
		AV(5) = RetEstratti
		AV(7) = nRetGuadagno
		If Esito <> "" Then AV(8) = nRetGuadagno * posta(sorte)
		If Esito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		If esito = "Estratto" Then estr = estr + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		Call AddRigaTabella(AV,,,3)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	Scrivi
	Scrivi "Totali Estratto." & estr,1
	Scrivi "Totali Ambi....." & amb,1
	Scrivi "Totali Terni...." & ter,1
	Scrivi "Totali Quaterne." & qua,1
	Scrivi "Totali cinquine." & cin,1
End Sub

alex7878 · 1 Febbraio 2014

Ciao Miky58

ancora non va allego immagine

in pratica: non mi chiede da che data devo fare il controllo
non mi visualizza nessun rapporto di esiti (ambo,terno ecc e i colpi)

Mike58 · 1 Febbraio 2014

Ciao Alex,Mattiniero e quindi poco reattivo, la domanda giusta sarebbe dovuta essere " lo script verifica l'esito a Tutte ? "
La risposta è NO.
Per questo Uso si deve ricreare una routine ad ok e verificarne l'esito di sorte minima, ma l'uso deve essere solo ed esclusivamente per le ruote tutte.
Se è questo che ti interessa lo posso anche scriptare ma resta inteso che l'uso debba essere solo per quella ricerca.
Mentre invece se lo usi per le ruote singole va benissimo lo script già postato.

La Data come ti dicevo va cambiata da codice script perché se messa in input box non la vede e come ti avevo detto sopra va cambiata dalla riga
Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
fin = EstrazioniArchivio

basta cambiare la data dalla riga in rosso.

ciao

alex7878 · 1 Febbraio 2014

Ciao Mike58

esatto a me interessa solo esiti a Tutte

Mike58 · 1 Febbraio 2014

Ciao ti posto lo script con l'esito a tutte, lasciando il corpo script sporco con le righe pronte per essere riattivate nel caso decidi di aggiornare alle versione corrente di spaziometria.

Mi auguro anche che hai capito come aggiornare la data di inizio.

Ciao

Codice:

Sub Main
	Dim anum(90),aruo(1),posta(5),nRetGuadagno,sorte,ruote(10)
	'r = InputBox("QUALE RUOTA ANALIZZO",,1)
	aruo(1) = r
	sorte = CInt(InputBox("QUALE SORTE MINIMA ANALIZZO",,2))
	posta(sorte) = 10
	For rr = 1 To 10
	ruote(rr) = rr
	Next
	ScegliNumeri(anum)
	Scrivi "SORTE MINIMA ANALIZZATA.... " & NomeSorte(sorte) & " Sulla ruota di " & NomeRuota(11) & "  " & Chr(174) & " **** Script by Mike58 **** " & Chr(169),True,True,,1,4
	Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
	fin = EstrazioniArchivio
	Tot = fin - Ini
	Scrivi "Dalla data " & DataEstrazione(Ini) & " alla data " & DataEstrazione(fin),1
	ReDim AT(8)
	'AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	'AT(7) = " Rapporto Vincita "
	'AT(8) = " Vincita $$$$$ "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsito(anum,ruote,idEstr,sorte,1,,Esito,RetColpi,RetEstratti,RetIdEstr)
		c = c + 1
		If esito <> "" Then casi = casi + 1
		ReDim AV(8)
		'AV(1) = StringaEstratti(idestr,r)
		AV(2) = StringaNumeri(anum)
		AV(3) = Esito
		AV(4) = c
		AV(5) = RetEstratti
		'AV(7) = nRetGuadagno
		'If Esito <> "" Then AV(8) = nRetGuadagno * posta(sorte)
		If Esito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		If esito = "Estratto" Then estr = estr + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		Call AddRigaTabella(AV,,,3)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	Scrivi
	Scrivi "Totali Estratto." & estr,1
	Scrivi "Totali Ambi....." & amb,1
	Scrivi "Totali Terni...." & ter,1
	Scrivi "Totali Quaterne." & qua,1
	Scrivi "Totali cinquine." & cin,1
End Sub

alex7878 · 1 Febbraio 2014

Ok Mike58 adesso lo provo e ti faccio sapere

p.s per la data ,rileggo sopra e provo anche quella

alex7878 · 1 Febbraio 2014

Ciao Mike58
ok ci sono ,adesso va bene ,inoltre riesco a cambiare la data di inizio come da te spiegatomi.

Ti chiedo solo un'ultima piccola modifica.
Nel report finale,alla voce ESTRATTI,potresti far si che i num che compongono gli ambi siano di colore rosso e le sigle delle ruote Blue?
grazie

Mike58 · 1 Febbraio 2014

Ciao Alex,per la colonna Estratti viene riportato il codice RetEstratti, e quindi viene scritta in quel modo non c'è possibilità di diversificare i colori, si può per proprio scopo colorare la colonna con un codice suo chiamato setcolorecella(5,7,5) dove 5 e la colonna,7 colore di fondo Magenta, 5 colore scrittura.
Per arrivare a fare qualcosa di diverso tutto si può fare ma non è questo il caso.

Codice:

Sub Main
	Dim anum(90),aruo(1),posta(5),nRetGuadagno,sorte,ruote(10)
	'r = InputBox("QUALE RUOTA ANALIZZO",,1)
	aruo(1) = r
	sorte = CInt(InputBox("QUALE SORTE MINIMA ANALIZZO",,2))
	posta(sorte) = 10
	For rr = 1 To 10
	ruote(rr) = rr
	Next
	ScegliNumeri(anum)
	Scrivi "SORTE MINIMA ANALIZZATA.... " & NomeSorte(sorte) & " Sulla ruota di " & NomeRuota(11) & "  " & Chr(174) & " **** Script by Mike58 **** " & Chr(169),True,True,,1,4
	Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
	fin = EstrazioniArchivio
	Tot = fin - Ini
	Scrivi "Dalla data " & DataEstrazione(Ini) & " alla data " & DataEstrazione(fin),1
	ReDim AT(8)
	'AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	'AT(7) = " Rapporto Vincita "
	'AT(8) = " Vincita $$$$$ "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsito(anum,ruote,idEstr,sorte,1,,Esito,RetColpi,RetEstratti,RetIdEstr)
		c = c + 1
		If esito <> "" Then casi = casi + 1
		ReDim AV(8)
		'AV(1) = StringaEstratti(idestr,r)
		AV(2) = StringaNumeri(anum)
		AV(3) = Esito
		AV(4) = c
		AV(5) = RetEstratti
		'AV(7) = nRetGuadagno
		'If Esito <> "" Then AV(8) = nRetGuadagno * posta(sorte)
		If Esito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		If esito = "Estratto" Then estr = estr + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		Call AddRigaTabella(AV,,,3)
		Call SetColoreCella(5,7,5)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	Scrivi
	Scrivi "Totali Estratto." & estr,1
	Scrivi "Totali Ambi....." & amb,1
	Scrivi "Totali Terni...." & ter,1
	Scrivi "Totali Quaterne." & qua,1
	Scrivi "Totali cinquine." & cin,1
End Sub

alex7878 · 2 Febbraio 2014

Ciao Mike58

non importa per me va benone lo stesso
Ti ringrazio per la cortesia
sei sempre altruista

ciao e buona domenica

LuigiB · 2 Febbraio 2014

con la versione 1.4.66 del programma e con una piccola modifica allo script di mike è possibile ottenere i colori richiesti

http://www.mediafire.com/download/3cplq143dcl69i4/SetupSpaziometria_1_4_66.rar

Codice:

Sub Main
	Dim aruo(1),posta(5),nRetGuadagno,sorte,ruote(10)
	ReDim anum(0)
	'r = InputBox("QUALE RUOTA ANALIZZO",,1)
	aruo(1) = r
	sorte = CInt(InputBox("QUALE SORTE MINIMA ANALIZZO",,2))
	posta(sorte) = 10
	For rr = 1 To 10
		ruote(rr) = rr
	Next
	Call ScegliNumeri(anum)
	Scrivi "SORTE MINIMA ANALIZZATA.... " & NomeSorte(sorte) & " Sulla ruota di " & NomeRuota(11) & "  " & Chr(174) & " **** Script by Mike58 **** " & Chr(169),True,True,,1,4
	Ini = DataEstrToIdEstr(31,12,2013)' data estrazione di partenza
	fin = EstrazioniArchivio
	Tot = fin - Ini
	Scrivi "Dalla data " & DataEstrazione(Ini) & " alla data " & DataEstrazione(fin),1
	ReDim AT(8)
	'AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	'AT(7) = " Rapporto Vincita "
	'AT(8) = " Vincita $$$$$ "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsito(anum,ruote,idEstr,sorte,1,,Esito,RetColpi,RetEstratti,RetIdEstr)
		c = c + 1
		If esito <> "" Then casi = casi + 1
		ReDim AV(8)
		'AV(1) = StringaEstratti(idestr,r)
		AV(2) = StringaNumeri(anum)
		AV(3) = Esito 
		AV(4) = c
		AV(5) = FormattaConColori(RetEstratti,Blu_,Rosso_)
		'AV(7) = nRetGuadagno
		'If Esito <> "" Then AV(8) = nRetGuadagno * posta(sorte)
		If Esito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		If esito = "Estratto" Then estr = estr + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		Call AddRigaTabella(AV,,,3)
		'Call SetColoreCella(5,7,5)
	Next
	SetTableWidth("100%")
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	Scrivi
	Scrivi "Totali Estratto." & estr,1
	Scrivi "Totali Ambi....." & amb,1
	Scrivi "Totali Terni...." & ter,1
	Scrivi "Totali Quaterne." & qua,1
	Scrivi "Totali cinquine." & cin,1
End Sub
Function FormattaConColori(sEstratti,ColoreSiglaRuota,ColoreNumeri)
	ReDim aV(0)
	Dim k
	Dim sRuota,sNumeri
	Dim sTestoDaScrivere
	Dim sEsitoTmp
	sTestoDaScrivere = ""
	If sEstratti <> "" Then
		Call SplitByChar(sEstratti,"-",aV)
		For k = 0 To UBound(aV)
			sEsitoTmp = Trim(aV(k))
			sRuota = Left(sEsitoTmp,2)
			sNumeri = Mid(sEsitoTmp,3)
			
			sTestoDaScrivere = sTestoDaScrivere & GetTestoHtml(sRuota,,ColoreSiglaRuota )
			sTestoDaScrivere = sTestoDaScrivere & " "
			sTestoDaScrivere = sTestoDaScrivere & GetTestoHtml(sNumeri,,ColoreNumeri) & " "
			
		Next
	End If
	FormattaConColori = sTestoDaScrivere
End Function

Mike58 · 2 Febbraio 2014

Grazie Luigi, sempre attento alle migliorie,lo devo però un attimino studiare.

alex7878 · 2 Febbraio 2014

Grazie Luigi

ma per installare la nuova vers,devo per forza disinstallare la vecchia?

Vi chiedo x favore uno script( X Disaronno eo altri)

Member

Junior Member

Member

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Member

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Member