aiuto script

fata65 · 22 Aprile 2015

aiuto x script calcolare i pesi ad ogni estrazione

Mike58 · 22 Aprile 2015

Ciao fata, se per pesi intendi la somma degli estratti lo script è già pronto e semplice da sviluppare, se intendi invece altro, prova a spiegarti meglio.

ad ogni modo prova questo.

Codice:

Sub Main
	rt = InputBox("quale estrazione a ritroso dall'ultima",,10)
	sm = cint(InputBox("Quale somma > evivenzio",,300))
	Ini = EstrazioneFin - rt
	fin = EstrazioneFin
	For es = fin To Ini Step - 1
		'Scrivi
		Scrivi "Estrazione esaminata... " & DataEstrazione(es)
		Scrivi String(40,"-")
		For r = 1 To 12
		If r = 11 Then r = 12
		
		Scrivi DataEstrazione(es) & "  ",0,0
			Scrivi SiglaRuota(r) & "  " & StringaEstratti(es,r) & " - ",True,False,,1,3
			If SommaEstratti(es,r) > sm Then 
			Scrivi SommaEstratti(es,r),True,True,2,4,3
			Else 	
			Scrivi SommaEstratti(es,r),True,True,4,2,3
			End If
			
		Next
		Scrivi
	Next
End Sub

fata65 · 22 Aprile 2015

11166022_917553098308420_1739178992_n (1).jpg

estrazione del 6/12/2014 ma non riesco a capire come calcola i pesi spero che puoi aiutarmi ti ringrazio mike58 le immagini sono un po sfocate

Master · 23 Aprile 2015

Ciao fata,
Le foto si vedono male comunque dovrebbero essere le somme tra gli estratti con il fuori90 tra il (1° + 2°) (2° + 3°) (3° +4) (4° + 5°)

HTML:

Estrazione 08935 [146 - 06/12/2014]


16.04.83.43  BARI 

10.78.01.13  CAGLIARI  

39.52.76.21  FIRENZE 

etc....etc

Joe91 · 23 Aprile 2015

Ciao Fata,

Scusa se mi permetto, ma questo metodo è difficilotto da trattare con script,

se prima non viene descritto ... con dovizia di particolari.

Per il computo si prendono gli Estratti di ogni Ruota,

si calcolano le 5 figure di essi e le si sommano.

Se in due ruote consecutive ci sono Totali uguali allora si forma il pronostico.

Ad incominciare da questa Somma-Capogioco.

(Se ci sono, casi multipli, si decide arbitrariamente quale di questi si debba portare a pronostico.

Questa è la ragione per cui, lo script, avrebbe "difficoltà" a scegliere ... un pronostico).

In queste 2 Ruote ... si eseque la somma del 2° e del 3° Estratto.

Di queste 2 Somme, si esegue l'ulteriore Somma di queste somme intermedie (Tutto naturalmente col "Fuori90").

Le giocate per Ambo sono 3 formate a partire da questo Capogioco.

Considerando che si erano trovate 2 Ruote ed un Capogioco ...

Il primo Ambo è formato dal Capogioco e da questo nuovo abbinamento-doppia-somma.

Di questo primo abbinamento si calcola ancora, il suo doppio.

Con il capogioco e questo si forma un secondo Ambo.

In ultimo, come terzo abbinamento si calcola ... il Vertibile di questo secondo abbinamento.

Formando così: 3 Ambi per le 2 Ruote.

Naturalmente, mi è possibile fare lo script, ma non lo intendo fare/pubblicare ... sia perchè il metodo è di altri,

sia perchè ... credo poco, in questi generatori di numeri casuali.

In sintesi per l'immagine del 6 Dicembre 2014 dovesti arrivare a formare questo pronostico:

Bari e Cagliari

Capogioco: 21 Abbinamenti: 82 / 74 / 47

Cordiali saluti

fata65 · 23 Aprile 2015

grazie joe91

mastrogino · 23 Aprile 2015

Ciao se posso vi inserisco questo script del mitico Luigi .........utilissimo

Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
Dim idEstr,Inizio,Fine
ReDim aT(13)
ReDim aFont(13)
ReDim aColori(13)
ReDim aForeColor(13)
ReDim aClrEvid(3)
Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
Inizio = EstrazioneIni
Fine = EstrazioneFin
For idEstr = Inizio To Fine
Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Call AvanzamentoElab(Inizio,Fine,idEstr)
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
Dim k,i,r
ColoreFixedCol = RGB(143,143,143)
ForeColorFixedCol = vbWhite
ColoreColSomma = RGB(192,192,192)
For k = 1 To 13
aFont(k) = "Lucida console"
aColori(k) = vbCyan
aForeColor(k) = vbBlack
Next
aFont(1) = "Courier new"
aColori(1) = ColoreFixedCol
aColori(2) = ColoreColSomma
aForeColor(1) = ForeColorFixedCol
aT(1) = "Ruota"
aT(2) = "Somma"
i = 2
For r = 3 To 14
If r - 2 <> 11 Then
i = i + 1
aT(i) = " " & SiglaRuota(r - 2) & " "
End If
Next
aClrEvid(1) = vbRed
aClrEvid(2) = RGB(255,128,0)
aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Dim r,s,i,k,idRit
ReDim aV(13)
ReDim aRitPerRuota(121,3)
idRit = 0
Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
For r = 1 To 12
If r <> 11 Then
s = Fuori90(SommaEstratti(idEstr,r))
i = 2
aV(1) = NomeRuota(r)
aV(2) = s
For k = 1 To 12
If k <> 11 Then
i = i + 1
aV(i) = RitardoEstratto(s,idEstr,k)
idRit = idRit + 1
aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
End If
Next
Call ModificaColori(aV,aColori,aClrEvid)
Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
End If
Next
Call Scrivi(String(100,"_"))
Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
Call Scrivi(String(100,"_"))
Call Scrivi
Call CreaTabella
ReDim aTT(3)
aTT(1) = "Somma"
aTT(2) = "Ruota"
aTT(3) = "Ritardo"
Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
Call OrdinaMatrice(aRitPerRuota,- 1,2)
For k = 1 To 5
'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
aTT(1) = aRitPerRuota(k,1)
aTT(2) = SiglaRuota(aRitPerRuota(k,3))
aTT(3) = aRitPerRuota(k,2)
Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
Next
Call Scrivi("Primi 5 più in ritardo")
Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
Dim k,j
ReDim aRit(11)
For k = 3 To 13
aRit(k - 2) = aT(k)
Next
Call OrdinaMatrice(aRit,- 1)
For k = 3 To 13
aColori(k) = vbCyan
Next
For k = 1 To UBound(aClrEvid)
For j = 3 To 13
If aT(j) = aRit(k) Then
aColori(j) = aClrEvid(k)
End If
Next
Next
End Sub

fata65 · 23 Aprile 2015

schiro gioacchino mi da errore script linea 18 colonna56

Joe91 · 23 Aprile 2015

Buona Sera a tutte/i.

Ringrazio ...

Sperando di fare cosa gradita ed utile reinserisco lo script di Luigi e Gioacchino ...

provato e reso funzionante.

Codice:

Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
	Dim idEstr,Inizio,Fine
	ReDim aT(13)
	ReDim aFont(13)
	ReDim aColori(13)
	ReDim aForeColor(13)
	ReDim aClrEvid(3)
	Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	For idEstr = Inizio To Fine
		Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
	Dim k,i,r
	ColoreFixedCol = RGB(143,143,143)
	ForeColorFixedCol = vbWhite
	ColoreColSomma = RGB(192,192,192)
	For k = 1 To 13
		aFont(k) = "Lucida console"
		aColori(k) = vbCyan
		aForeColor(k) = vbBlack
	Next
	aFont(1) = "Courier new"
	aColori(1) = ColoreFixedCol
	aColori(2) = ColoreColSomma
	aForeColor(1) = ForeColorFixedCol
	aT(1) = "Ruota"
	aT(2) = "Somma"
	i = 2
	For r = 3 To 14
		If r - 2 <> 11 Then
			i = i + 1
			aT(i) = " " & SiglaRuota(r - 2) & " "
		End If
	Next
	aClrEvid(1) = vbRed
	aClrEvid(2) = RGB(255,128,0)
	aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
	Dim r,s,i,k,idRit
	ReDim aV(13)
	ReDim aRitPerRuota(121,3)
	idRit = 0
	Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
	For r = 1 To 12
		If r <> 11 Then
			s = Fuori90(SommaEstratti(idEstr,r))
			i = 2
			aV(1) = NomeRuota(r)
			aV(2) = s
			For k = 1 To 12
				If k <> 11 Then
					i = i + 1
					aV(i) = RitardoEstratto(s,idEstr,k)
					idRit = idRit + 1
					aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
					aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
					aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
				End If
			Next
			Call ModificaColori(aV,aColori,aClrEvid)
			Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
		End If
	Next
	Call Scrivi(String(100,"_"))
	Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
	Call Scrivi(String(100,"_"))
	Call Scrivi
	Call CreaTabella
	ReDim aTT(3)
	aTT(1) = "Somma"
	aTT(2) = "Ruota"
	aTT(3) = "Ritardo"
	Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
	Call OrdinaMatrice(aRitPerRuota,- 1,2)
	For k = 1 To 5
		'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
		aTT(1) = aRitPerRuota(k,1)
		aTT(2) = SiglaRuota(aRitPerRuota(k,3))
		aTT(3) = aRitPerRuota(k,2)
		Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
	Next
	Call Scrivi("Primi 5 più in ritardo")
	Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
	Dim k,j
	ReDim aRit(11)
	For k = 3 To 13
		aRit(k - 2) = aT(k)
	Next
	Call OrdinaMatrice(aRit,- 1)
	For k = 3 To 13
		aColori(k) = vbCyan
	Next
	For k = 1 To UBound(aClrEvid)
		For j = 3 To 13
			If aT(j) = aRit(k) Then
				aColori(j) = aClrEvid(k)
			End If
		Next
	Next
End Sub

Tuttavia ... pur funzionando, questo, calcola cose totalmente differenti.

Cordiali saluti.

fata65 · 24 Aprile 2015

grazie joe91

Joe91 · 28 Aprile 2015

Ciao Fata65.

Lo script che proporrò successivamente produce questo output che

mi è necessario, per darti informazioni sul come interpretarlo.

Esso svolge tutti i calcoli utili alla formazione del pronostico.

Codice:

[8995] 27.04.2015
BA 90.15.32.55.02 9+6+5+1+2 = 23  15+32 = 47+24 = 71 52 25
CA 70.63.51.43.58 7+9+6+7+4 = 33  63+51 = 24+62 = 86 82 28
FI 64.35.27.50.46 1+8+9+5+1 = 24  35+27 = 62+03 = 65 40 04
GE 14.87.06.64.43 5+6+6+1+7 = 25  87+06 = 03+61 = 64 38 83
MI 48.18.43.21.25 3+9+7+3+7 = 29  18+43 = 61+44 = 15 30 03
NA 18.75.59.07.40 9+3+5+7+4 = 28  75+59 = 44+10 = 54 18 81
PA 71.47.53.74.88 8+2+8+2+7 = 27  47+53 = 10+19 = 29 58 85
RO 85.33.76.11.29 4+6+4+2+2 = 18  33+76 = 19+48 = 67 44 49
TO 15.02.46.16.65 6+2+1+7+2 = 18  02+46 = 48+78 = 36 72 27
VE 20.78.90.23.67 2+6+9+5+4 = 26  78+90 = 78+47 = 35 70 07

Quindi di ogni Ruota propone gli Estratti / le Figure dei 5 Lottroni / la Somma di queste 5 Figure.

Tra queste somme, come evidente, a Roma e Torino, esse sono uguali a 18.

18 è un Capogioco Valido per il pronostico di questo metodo (in queste 2 Ruote).

ATTENZIONE: IL PRONOSTICO UTILE E VALIDO, E' QUELLO SULLA PRIMA (delle 2) RUOTE.

La somma del 2° e 3° Estratto a Roma è 19 (ovvero: il Fuori90 di (33 + 76) )

La somma del 2° e 3° Estratto a Torino è 48 (ovvero: 02 + 46)

19 + 48 = 67 è il I° Abbinamento

il "doppio" di 67, col Fuori90 è 44, ... che è il II° Abbinamento.

Il vertibile di 44 è comunemente inteso essere 49 ... che è il III° Abbinamento.

Riassumento si prende per Roma e Torino il Capogioco 18

e sulla linea della PRIMA RUOTA (per esigenze di script) si prendono gli abbinamenti per Ambo: 67 44 49

fata65 · 28 Aprile 2015

grazie joe91

Master · 28 Aprile 2015

Ciao joe91 e ciao fata65
Una domanda.. ma il metodo state parlando è quello che si trova in rete

grazie

Joe91 · 28 Aprile 2015

Ciao.

Volevo chiederti, se hai qualche previsione di questo metodo ...

così, da poter controllare che sia stato interpretato correttamente.

Grazie.

Master · 28 Aprile 2015

Ho lo script.. se si può postare lo metto volentieri

Joe91 · 28 Aprile 2015

Ciao Master.

Non so.

Per quanto, mi riguarda sono calcoli capaci di clonare tabelle (stile xsl).

Tuttavia, quello che hai inserito, potrebbe essere un titolo ... più che idoneo.

Master · 28 Aprile 2015

Cosa intendi?

Tuttavia, quello che hai inserito, potrebbe essere un titolo ... più che idoneo

Joe91 · 28 Aprile 2015

Ciao Master.

Visto e letto velocemente ... mi sembra la stessa cosa.

Appena riesco faccio coincidere i calcoli del mio script alle date degli esempi,

per verificare se le previsioni si allineano.

Joe91 · 28 Aprile 2015

Si confermo che il calcolo che ho descritto è per il metodo in oggetto.

Codice:

============================================================
01.02.2014 [8803]
RU   ESTRATTI      FIGURE     CG  2°+3°  Ru1 Ru2  1° 2° 3°
BA 87.27.05.84.18 6+9+5+3+9 = 32  27+05 = 32+51 = 83 76 67
CA 29.34.17.10.83 2+7+8+1+2 = 20  34+17 = 51+64 = 25 50 05
FI 88.80.74.20.38 7+8+2+2+2 = 21  80+74 = 64+63 = 37 74 47
GE 06.11.52.02.29 6+2+7+2+2 = 19  11+52 = 63+25 = 88 86 68
MI 20.82.33.34.75 2+1+6+7+3 = 19  82+33 = 25+38 = 63 36 63
NA 35.13.25.74.39 8+4+7+2+3 = 24  13+25 = 38+44 = 82 74 47
PA 60.43.01.27.46 6+7+1+9+1 = 24  43+01 = 44+56 = 10 20 02
RO 02.52.04.34.76 2+7+4+7+4 = 24  52+04 = 56+40 = 06 12 21
TO 67.08.32.11.41 4+8+5+2+5 = 24  08+32 = 40+23 = 63 36 63
VE 25.44.69.80.67 7+8+6+8+4 = 33  44+69 = 23+32 = 55 20 02

Dunque anche i risultati sono quelli che nell'ultimo anno ... sono buoni.

Master · 28 Aprile 2015

quindi se hai descritto il metodo si può mettere lo script oppure no?

aiuto script

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<