X Joe 91, come posso fare?

fillotto · 5 Novembre 2014

Sera Joe ,ho visto questo tuo script e vorrei adattarlo alla lotteria estera pensilvnia 30 num 5 estratti ogni giorno in parte ci sono riuscito ma i risultati sono sbagliati (vedi il 2° e 3° codice rispettivamente la mia soluzione (sbagliata) e relativo resoconto errato)
Come modificare il codice? ad esempio l riga " 0" dell'output dovrebbe dare tutti trattini successivamente ci sono altre estrazioni che visivamente sono ancora vergini x ambo che invece nell'output (mio) non segnala , mi daresti una mano?

Codice:

Sub Main()

'Tabellone Analitico delle Cinquine Sincrone e Isocrone By Cinzia. 
'T.A.C.S.I. V. 2.2 By Joe
'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per Ambo.
ColoreTesto 2
Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.2 By Joe  ",1,0 : ColoreTesto 0
Scrivi "( In Ritardo per AMBO)    ",0,0: ColoreTesto 1
Scrivi "     Script di Cinzia ",1,1
Scrivi
ColoreTesto 0
Dim ru(1)
CNTR = 300 '*
Scrivi "Rc.  ",1,0
For r = 1 To 12 : If R= 11 Then R= 12 
Scrivi FormatSpace(NomeRuota(r),16),1,0
Next
Scrivi
Fin = EstrazioneFin
Ini = fin - CNTR '*
For es = fin To ini Step - 1
	ColoreTesto(7) : Scrivi FormatSpace(cntr - es + ini,5),1,0: ColoreTesto(0) : Scrivi "",0,0
	AvanzamentoElab ini,fin,es
	For R = 1 To 12 :  If R = 11 Then R = 12 
	ru(1) = r
		n = StringaEstratti(es,r) : n = "0." & n : nr = Split(n,".") : 'OrdinaMatrice nr
		rc = SerieRitardo(ini,fin,nr,ru,2)
		If SerieFreq(es + 1,fin,nr,ru,2) > 0 Then
			ColoreTesto 2
			NAR = NAR + 1 : Scrivi "-- -- -- -- --" & Space (2),0,0
			ColoreTesto 0
		Else
			If SerieFreq(es + 1,fin,nr,ru,2) = 0 Then
				If Int(r/2) = r/2 And R <> 12 Then 'Cambia colore alla Colonna'
					 ColoreTesto(1)
				Else ColoreTesto(0)
				End If
			Scrivi StringaNumeri(nr) & Space (2),0,0
			End If
		End If
	Next
Scrivi
Next

End Sub

Codice:

Sub Main()

'Tabellone Analitico delle Cinquine Sincrone e Isocrone By Cinzia.
'T.A.C.S.I. V. 2.2 By Joe
'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per Ambo.

Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)


ColoreTesto 2
Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.2 By Joe  ",1,0 : ColoreTesto 0
Scrivi "( Vergini per la sorte di AMBO)    ",0,0: ColoreTesto 1
Scrivi "     Script di Cinzia ",1,1
Scrivi
ColoreTesto 0
'Dim ru(1)
CNTR = 50 '*
Scrivi "Rc.  ",1,0
'For r = 1 To 12 : If R = 11 Then R = 12
idEstr = EstrazioniArchivioFT
Scrivi FormatSpace(idEstr,16),1,0
Scrivi
fin = EstrazioniArchivioFT
Ini = fin - CNTR '*
For es = fin To Ini Step - 1
	ColoreTesto(7)
	Scrivi FormatSpace(cntr - es + Ini,5),1,0: ColoreTesto(0)
	 Scrivi "",0,0
	AvanzamentoElab Ini,fin,es
	'For R = 1 To 12 : If R = 11 Then R = 12
	'ru(1) = r
	ReDim anr(5)
		n = StringaEstrattiFT(es,",")
		 n = "0." & n
		 nr = Split(n,".") : 'OrdinaMatrice nr
		 a01 = anr(1)
		 a02 = anr(2)
		 a03 = anr(3)
a04 = anr(4)
a05 = anr(5)		

			num = Array(a00,a01,a02,03,04,05)

				rc = SerieRitardoFT(Ini,fin,num,2)
		If SerieFreqFT(es + 1,fin,num,2) > 0 Then 'se è uscito l'ambo
			ColoreTesto 2
			NAR = NAR + 1
			Scrivi "-- -- -- -- --" & Space(2),0,1
			ColoreTesto 0
		Else
			If SerieFreqFT(es + 1,fin,num,2) = 0 Then
				If Int(r/2) = r/2  Then 'Cambia colore alla Colonna'
					 ColoreTesto(1)
				Else ColoreTesto(0)
				End If
			Scrivi StringaEstrattiFT(es,",") & Space(2),0,1
			End If
		End If
	Next
Scrivi
End Sub

Codice:

Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.2 By Joe  ( Vergini per la sorte di AMBO)         Script di Cinzia 

Rc.  2737            
0    03,12,15,18,22  
1    09,10,13,17,22  
2    03,04,09,24,25  
3    -- -- -- -- --  
4    -- -- -- -- --  
5    -- -- -- -- --  
6    -- -- -- -- --  
7    -- -- -- -- --  
8    -- -- -- -- --  
9    -- -- -- -- --  
10   -- -- -- -- --  
11   -- -- -- -- --  
12   -- -- -- -- --  
13   -- -- -- -- --  
14   -- -- -- -- --  
15   -- -- -- -- --  
16   -- -- -- -- --  
17   -- -- -- -- --  
18   -- -- -- -- --  
19   -- -- -- -- --  
20   -- -- -- -- --  
21   -- -- -- -- --  
22   -- -- -- -- --  
23   -- -- -- -- --  
24   -- -- -- -- --  
25   -- -- -- -- --  
26   -- -- -- -- --  
27   -- -- -- -- --

Joe91 · 5 Novembre 2014

Ciao Filotto,

non saprei perchè non conosco quel gioco e non mi sono mai interessato ad esso.

Non sapevo neppure che esistesse.

Comunque sia ... non penso che lo script possa essere adattato ... così velocemente

anche perchè utilizza "SerieFreq" che è un istruzione concepita per il lotto.

Buona Serata.

fillotto · 6 Novembre 2014

Se ci provasse MIKE58?

Se ci provasse MIKE58?

ringrazio joe91 per l'idea a questo punto se Mike fosse nei paraggi..... considerando che si è già cimentato in qualcosa di simile se potesse darci uno sguardo

Mike58 · 6 Novembre 2014

Ciao Fillotto, Ho dato una occhiata rapida al tuo quesito e quello che posso correggere è il tuo array che comunque veniva richiamata male infatti le variabili non sono richiamate correttamente
hai queste variabili
a01 = anr(1)
a02 = anr(2)
a03 = anr(3)
a04 = anr(4)
a05 = anr(5)

e le richiami cosi
num = Array(a00,a01,a02,03,04,05)

poi sono anche inutili infatti i numeri nello script di joe sono già splittati in
nr = Split(n,".")

vedi se cosi è funzionante

Codice:

Sub Main()

'Tabellone Analitico delle Cinquine Sincrone e Isocrone By Cinzia.
'T.A.C.S.I. V. 2.2 By Joe
'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per Ambo.

Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)


ColoreTesto 2
Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.2 By Joe  ",1,0 : ColoreTesto 0
Scrivi "( Vergini per la sorte di AMBO)    ",0,0: ColoreTesto 1
Scrivi "     Script di Cinzia ",1,1
Scrivi
ColoreTesto 0
'Dim ru(1)
CNTR = 100 '*
Scrivi "Rc.  ",1,0
'For r = 1 To 12 : If R = 11 Then R = 12
idEstr = EstrazioniArchivioFT
Scrivi FormatSpace(idEstr,16),1,0
Scrivi
fin = EstrazioniArchivioFT
Ini = fin - CNTR '*
For es = fin To Ini Step - 1
	ColoreTesto(7)
	Scrivi FormatSpace(cntr - es + Ini,5),1,0: ColoreTesto(0)
	 Scrivi "",0,0
	AvanzamentoElab Ini,fin,es
	'For R = 1 To 12 : If R = 11 Then R = 12
	'ru(1) = r
	ReDim anr(5)
		n = StringaEstrattiFT(es,".")
		 n = "0." & n
		 nr = Split(n,".") 
				rc = SerieRitardoFT(Ini,fin,nr,2)
		If SerieFreqFT(es + 1,fin,nr,2) > 0 Then 'se è uscito l'ambo
			ColoreTesto 2
			NAR = NAR + 1
			Scrivi "-- -- -- -- --" & Space(2),0,1
			ColoreTesto 0
		Else
			If SerieFreqFT(es + 1,fin,nr,2) = 0 Then
				If Int(r/2) = r/2  Then 'Cambia colore alla Colonna'
					 ColoreTesto(1)
				Else ColoreTesto(0)
				End If
			Scrivi StringaEstrattiFT(es,",") & Space(2),0,1
			End If
		End If
	Next
Scrivi
End Sub

Ciao

Mike58 · 6 Novembre 2014

Avrei anche modificato ad oc una ricerca in tabella delle cinquine sincrone per esito voluto.
prova anche questo.

Codice:

Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)

	Dim ru(1)
	'qe = InputBox("Quante estrazioni analizzi",,300)
	'righe = InputBox("Quante righe vuoi visualizzare",,qe)
	'r = InputBox("Quale Ruota vuoi verificare ","RUOTA",1)
	sorte = CInt(InputBox("Quale sorte analizzi","SORTE",2))
	t = Timer
	ReDim at(11)
	at(1) = " Data Estrazione "
	at(2) = " N.Caso "
	at(3) = " Cinquina "
	at(4) = " Esito "
	at(5) = " Colpo "
	at(6) = " Estratti "
	at(7) = " data estratti "
	at(8) = " Ritardo Att. "
	at(9) = " Ritardo Max "
	at(10) = " Frequenza "
	at(11) = " Somma Estratti "
	Call InitTabella(at,266,,3,4)
	fin = EstrazioniArchivioFT
	ini = EstrazioneIni
	Scrivi "Cinquine uscite con verifica Esito per sorte Minima di..." & NomeSorte(sorte) & " nei colpi successivi **** Tabella Listed By Mike58 **** ",1,- 1,3
	Scrivi
	For es = fin To Ini Step - 1
	k = k + 1
		Call Messaggio("elaboro estrazioni..... " & es & " ***** Script By Mike58 ***** ")
		Call AvanzamentoElab(ini,fin,es)
		co = 0
		ru(1) = r
		n = StringaEstrattiFT(es,".")
		n = "0." & n
		nr = Split(n,".")
		Call VerificaEsitoFT(nr,(es + 1),sorte,100,esito,colpi,estratti,id)
		Call StatisticaFormazioneFT(nr,sorte,rit,max,,fre,Ini,fin)
		co = co + 1
		ReDim av(11)
		av(1) = DataEstrazioneFT(es)
		av(2) = k'SiglaRuota(r)
		av(3) = StringaNumeri(nr)
		av(4) = esito
		If esito = "" Then av(5) = colpi & "° in corso "
		If esito <> "" Then av(5) = colpi & "°"
		av(6) = estratti
		If esito = "" Then av(7) = " Esito non verificato "
		If esito <> "" Then av(7) = DataEstrazioneFT(id)
		av(8) = rit
		av(9) = max
		av(10) = fre
		av(11) = SommaEstrattiFT(es)
		Call AddRigaTabella(av,,,3)
		If av(7) = " Esito non verificato " Then Call SetColoreCella(7,,2)
		Call SetColoreCella(6,,7)
		Call SetColoreCella(3,,1)
		If esito = "Ambo" Then Call SetColoreCella(4,2,4)
		If esito = "Terno" Then Call SetColoreCella(4,3,1)
		If av(8) = av(9) Then Call SetColoreCella(8,2,4)
		If av(8) = av(9) Then Call SetColoreCella(9,2,4)
		If esito = "" Then Tot = Tot + 1
		'End If
		'End If
		'Next
	Next
	Call SetTableWidth("100%")
	Call CreaTabella()
	tt =(Timer - t)
	Scrivi "Tempo di Elaborazione..." & Int(tt) & " Secondi",1
	Scrivi "Esiti non sfaldati... " & Tot,1
End Sub

fillotto · 6 Novembre 2014

" Troppa Grazia Sant'Anto' !!!!" si dice così dalle mie parti Grazie Mike tutto OK!!!

Cerca

Cerca

X Joe 91, come posso fare?

fillotto

Advanced Member >PLATINUM<

Joe91

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi