si potrebbe realizzare uno script tabellare come di seguito?

[i legend]

Ciao a tutti
l'ultimo pezzo che mi mancava, erano i numeri che negli ultimi 11 casi sono sortiti prima delle due ambate.
(31.56)->60 presenti
(27.29)->54 non presenti

Ipoteticamente, il 60 diventa capogioco principale, posizione ristretta 2°
Personalmente più che l'ambata preferisco giocare ambo e terno in sestina.

Cordiali saluti

I Legend

 

[claudio8]

Grazie I Legend

 

[i legend]

Buon giorno a tutti, studiando e utilizzando gli svariati codici che mi sono stati postati,Sto Provando quantomeno a fare l'intestazioneLe funzioni devo ancora capirle, appena fatto posto il resto.GrazieCordiali salutiI Legend

 

[i legend]

Ciao a tutti un pezzettino di codice.

 Option Explicit Sub Main  	Dim TipoScelta ' variabile che memorizza la scelta fatta 	Dim Inizio,fine ' variabili inizio fine 	Dim sSestina 	' valorizzo la variabile con il risultato della funzione che 	' consente all'utente di fare una scelta 	TipoScelta = GetTipoScelta 	fine = EstrazioneFin 	 	' valuto la scelta fatta 	Select Case TipoScelta 	 	Case 1 		Inizio = 1   '1871 	Case 2 		Inizio = 3575 '08/07/1939 inizio archivio 10 ruote 	Case 3 		Inizio = 6583 '2° Estrazione Settimanale Mercoledì sabato 	Case 4 		Inizio = 7440 ' Ruota Nazionale  	Case 5 		Inizio = 7454 ' 3 estrazioni settimanali martedi giovedi sabato 	Case 6 		Inizio = "Data da Verificare"  'Veneus 	Case 7 		Inizio = EstrazioneFin - CInt(InputBox("Scegli quante Estrazioni analizzare","Inizio Ricerca")) 	Case Else 		Scrivi "Nessuan scelta" 	End Select  	Call Scrivi("inizio Ricerca Estrazione num :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	Call Scrivi(Inizio,1,1,,,3)  	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate 	Dim k 	 Call Scrivi("Ruote di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0 						' vuol dire che sono state selezionate N ruote 	 		' leggo l'array che ora contiene la selezione dell'utente 		 		For k = 1 To UBound(aRuote) 			 			If aRuote(k) > 0 Then 								Call Scrivi(NomeRuota(aRuote(k)),1,1) 			End If 		Next 	End If 	sSestina = CStr(InputBox("Inserisci i numeri formattati,00, separati da una virgola","Inserisci i numeri di ricerca")) Call Scrivi("Sestina di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	 Call Scrivi(sSestina,1,1)	  			 	ReDim at(44) 	 	at(1) = "ID" 		'id Num 	at(2) = "Num" 		'Estratto 	at(3) = "Ru" 		'Ruote di verifica 	at(4) = "C.T" 		'Ciclo Teorico 	at(5) = "F.T" 		' Frequenza Teorica 	at(6) = "F.R "		' frequenza Reale 	at(7) = "F.M" 		' Frequenza Media 	at(8) = "F.R-F.T"		' Frequenza Reale - Frequenza Media 	at(9) = "F.R/F.T" 	' Frequenza Reale / Frequenza Media 	at(10) = "R.T " 	' Ritardo teorico 	at(11) = "R.A " 		'Ritardo Attuale 	at(12) = "R.S "		'Ritardo Storico 	at(13) = "I.R.S" 'Incremento Ritardo cronologico  max 	at(14) = "R.A/R.S "	'Rit.Att/Rit.Sto 	at(15) = "R.M"		'Rit.Medio 	at(16) = "D.S"		'Deviazione Standard 	at(17) = "P.M.S" 		'presenze Mese selezionato 	at(18) = "2NPR"		' 2 Numeri che precedono l'uscita nei 10 casi precedenti del numero verificato  	at(19) = "F.p1"		'Frequenza in posizione 1 	at(20) = "F.p2" 	at(21) = "F.p3" 	at(22) = "F.p4" 	at(23) = "F.p5" 	at(24)= "M.Fp"		'Frequenza massima Posizione 	at(25)= "R.p1"		'Rit. posizione 1 	at(26)= "R.p2" 	at(27)= "R.p3" 	at(28)= "R.p4" 	at(29)= "R.p5" 	at(30)= "M.Rp"		'Rit.Massimo di pos 	at(31) = "R.S.p1"		'max Rit pos 1 	at(32) = "R.S.p2" 	at(33) = "R.S.p3" 	at(34) = "R.S.p4" 	at(35) = "R.S.p5" 	at(36) = "M.S.Rp"		'Max Rit.su tutte le pos 	at(37) = "Rp1" 	at(38) = "Rp2" 	at(39) = "Rp3" 	at(40) = "Int.Med" 	' intervallo medio =RitardoMedio+Deviazione Standars 	at(41) = "Proi.75%" 	' Proi.75% = RitardoMedio + 2*Deviazione Standars 	at(42) = "Proi.88" 	' Proi.88% = RitardoMedio + 3*Deviazione Standars 	at(43) = "Proi.93" 	' Proi.93% = RitardoMedio + 5*Deviazione Standars 	at(44) = "Punteggio" 			Call InitTabella(at,RGB(221,236,255),1,3,RGB(219,0,0),"Times new Roman",2,1) 		CreaTabella  					  End Sub     Function GetTipoScelta 	 	' questa funzione propone un menu a tendina per eseguire una scelta 	' le voci del meu si preparano tramite un vettore che puo 	' essere alimentato coem si vuole in questo caso 3 elementi 	ReDim aVoci(7) 	aVoci(1) = "1871 Archivio Completo" 	aVoci(2) = "08 Luglio 1939(Archivio a 10 Ruote)" 	aVoci(3) = "08 Maggio 1997(2estr.Mercoledì,Sabato)" 	aVoci(4) = "04 Giugno 2005(Ruota Nazionale)" 	aVoci(5) = "21 Giugno 2005(3estr.Martedì,Giovedì,Sabato)" 	aVoci(6) = "2009 Inizio Venus per tutte le ruote" 	aVoci(7) = "Scelta Libera"  	 	' mostro la finestra col menu a tendina , mi ritorna un indice da 1 a 6 	' che indica la scelta fatta 	GetTipoScelta = ScegliOpzioneMenu(aVoci,1,"Scegli Data Inizio Ricerca") 	 End Function

Cordiali saluti I Legend

 

[claudio8]

tutto criptato..... CStr(InputBox("Inserisci i 6 numeri formattati,00, separati da una virgola","Inserisci i numeri di ricerca"))

meglio usare
ScegliNumeri

ScegliNumeri(vetNumeri, Optional tipogioco As Integer = 0) As Integer
Note:
Consente di far apparire una finestra per scegliere i numeri direttamente dallo script.

Valore di ritorno:
Torna la quantità di numeri selezionati

 

[LuigiB]

tutto criptato..... CStr(InputBox("Inserisci i 6 numeri formattati,00, separati da una virgola","Inserisci i numeri di ricerca"))

meglio usare
ScegliNumeri

ScegliNumeri(vetNumeri, Optional tipogioco As Integer = 0) As Integer
Note:
Consente di far apparire una finestra per scegliere i numeri direttamente dallo script.

Valore di ritorno:
Torna la quantità di numeri selezionati

heheh mi compiaccio ... non a caso il primo della classe

 

[i legend]

  Option Explicit Sub Main  	Dim TipoScelta ' variabile che memorizza la scelta fatta 	Dim Inizio,fine ' variabili inizio fine 	Dim sSestina 	' valorizzo la variabile con il risultato della funzione che 	' consente all'utente di fare una scelta 	TipoScelta = GetTipoScelta 	fine = EstrazioneFin 	 	' valuto la scelta fatta 	Select Case TipoScelta 	 	Case 1 		Inizio = 1   '1871 	Case 2 		Inizio = 3575 '08/07/1939 inizio archivio 10 ruote 	Case 3 		Inizio = 6583 '2° Estrazione Settimanale Mercoledì sabato 	Case 4 		Inizio = 7440 ' Ruota Nazionale  	Case 5 		Inizio = 7454 ' 3 estrazioni settimanali martedi giovedi sabato 	Case 6 		Inizio = "Data da Verificare"  'Veneus 	Case 7 		Inizio = EstrazioneFin - CInt(InputBox("Scegli quante Estrazioni analizzare","Inizio Ricerca")) 	Case Else 		Scrivi "Nessuan scelta" 	End Select  	Call Scrivi("inizio Ricerca Estrazione num :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	Call Scrivi(Inizio,1,1,,,3)  	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate 	Dim k 	 Call Scrivi("Ruote di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0 						' vuol dire che sono state selezionate N ruote 	 		' leggo l'array che ora contiene la selezione dell'utente 		 		For k = 1 To UBound(aRuote) 			 			If aRuote(k) > 0 Then 								Call Scrivi(NomeRuota(aRuote(k)),1,1) 			End If 		Next 	End If 	sSestina = CStr(InputBox("Inserisci i numeri formattati,00, separati da una virgola","Inserisci i numeri di ricerca")) Call Scrivi("Sestina di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	 Call Scrivi(sSestina,1,1)	  			 	ReDim at(44) 	 	at(1) = "ID" 		'id Num 	at(2) = "Num" 		'Estratto 	at(3) = "Ru" 		'Ruote di verifica 	at(4) = "C.T" 		'Ciclo Teorico 	at(5) = "F.T" 		' Frequenza Teorica 	at(6) = "F.R "		' frequenza Reale 	at(7) = "F.M" 		' Frequenza Media 	at(8) = "F.R-F.T"		' Frequenza Reale - Frequenza Media 	at(9) = "F.R/F.T" 	' Frequenza Reale / Frequenza Media 	at(10) = "R.T " 	' Ritardo teorico 	at(11) = "R.A " 		'Ritardo Attuale 	at(12) = "R.S "		'Ritardo Storico 	at(13) = "I.R.S" 'Incremento Ritardo cronologico  max 	at(14) = "R.A/R.S "	'Rit.Att/Rit.Sto 	at(15) = "R.M"		'Rit.Medio 	at(16) = "D.S"		'Deviazione Standard 	at(17) = "P.M.S" 		'presenze Mese selezionato 	at(18) = "2NPR"		' 2 Numeri che precedono l'uscita nei 10 casi precedenti del numero verificato  	at(19) = "F.p1"		'Frequenza in posizione 1 	at(20) = "F.p2" 	at(21) = "F.p3" 	at(22) = "F.p4" 	at(23) = "F.p5" 	at(24)= "M.Fp"		'Frequenza massima Posizione 	at(25)= "R.p1"		'Rit. posizione 1 	at(26)= "R.p2" 	at(27)= "R.p3" 	at(28)= "R.p4" 	at(29)= "R.p5" 	at(30)= "M.Rp"		'Rit.Massimo di pos 	at(31) = "R.S.p1"		'max Rit pos 1 	at(32) = "R.S.p2" 	at(33) = "R.S.p3" 	at(34) = "R.S.p4" 	at(35) = "R.S.p5" 	at(36) = "M.S.Rp"		'Max Rit.su tutte le pos 	at(37) = "Rp1" 	at(38) = "Rp2" 	at(39) = "Rp3" 	at(40) = "Int.Med" 	' intervallo medio =RitardoMedio+Deviazione Standars 	at(41) = "Proi.75%" 	' Proi.75% = RitardoMedio + 2*Deviazione Standars 	at(42) = "Proi.88" 	' Proi.88% = RitardoMedio + 3*Deviazione Standars 	at(43) = "Proi.93" 	' Proi.93% = RitardoMedio + 5*Deviazione Standars 	at(44) = "Punteggio" 			Call InitTabella(at,RGB(221,236,255),1,3,RGB(219,0,0),"Times new Roman",2,1) 		CreaTabella  					  End Sub     Function GetTipoScelta 	 	' questa funzione propone un menu a tendina per eseguire una scelta 	' le voci del meu si preparano tramite un vettore che puo 	' essere alimentato coem si vuole in questo caso 3 elementi 	ReDim aVoci(7) 	aVoci(1) = "1871 Archivio Completo" 	aVoci(2) = "08 Luglio 1939(Archivio a 10 Ruote)" 	aVoci(3) = "08 Maggio 1997(2estr.Mercoledì,Sabato)" 	aVoci(4) = "04 Giugno 2005(Ruota Nazionale)" 	aVoci(5) = "21 Giugno 2005(3estr.Martedì,Giovedì,Sabato)" 	aVoci(6) = "2009 Inizio Venus per tutte le ruote" 	aVoci(7) = "Scelta Libera"  	 	' mostro la finestra col menu a tendina , mi ritorna un indice da 1 a 6 	' che indica la scelta fatta 	GetTipoScelta = ScegliOpzioneMenu(aVoci,1,"Scegli Data Inizio Ricerca") 	 End Function

 

[i legend]

 Option Explicit Sub Main  	Dim TipoScelta ' variabile che memorizza la scelta fatta 	Dim Inizio,fine ' variabili inizio fine 	Dim sSestina 	' valorizzo la variabile con il risultato della funzione che 	' consente all'utente di fare una scelta 	TipoScelta = GetTipoScelta 	fine = EstrazioneFin 	 	' valuto la scelta fatta 	Select Case TipoScelta 	 	Case 1 		Inizio = 1   '1871 	Case 2 		Inizio = 3575 '08/07/1939 inizio archivio 10 ruote 	Case 3 		Inizio = 6583 '2° Estrazione Settimanale Mercoledì sabato 	Case 4 		Inizio = 7440 ' Ruota Nazionale  	Case 5 		Inizio = 7454 ' 3 estrazioni settimanali martedi giovedi sabato 	Case 6 		Inizio = "Data da Verificare"  'Veneus 	Case 7 		Inizio = EstrazioneFin - CInt(InputBox("Scegli quante Estrazioni analizzare","Inizio Ricerca")) 	Case Else 		Scrivi "Nessuan scelta" 	End Select  	Call Scrivi("inizio Ricerca Estrazione num :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	Call Scrivi(Inizio,1,1,,,3)  	ReDim aRuote(11) ' array che contiene i numeri delle ruote selezionate 	Dim k 	 Call Scrivi("Ruote di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0 						' vuol dire che sono state selezionate N ruote 	 		' leggo l'array che ora contiene la selezione dell'utente 		 		For k = 1 To UBound(aRuote) 			 			If aRuote(k) > 0 Then 								Call Scrivi(NomeRuota(aRuote(k)),1,1) 			End If 		Next 	End If 	sSestina = CStr(InputBox("Inserisci i numeri formattati,00, separati da una virgola","Inserisci i numeri di ricerca")) Call Scrivi("Sestina di ricerca :",1,1,RGB(221,236,255),RGB(219,0,0),4) 	 Call Scrivi(sSestina,1,1)	  			 	ReDim at(44) 	 	at(1) = "ID" 		'id Num 	at(2) = "Num" 		'Estratto 	at(3) = "Ru" 		'Ruote di verifica 	at(4) = "C.T" 		'Ciclo Teorico 	at(5) = "F.T" 		' Frequenza Teorica 	at(6) = "F.R "		' frequenza Reale 	at(7) = "F.M" 		' Frequenza Media 	at(8) = "F.R-F.T"		' Frequenza Reale - Frequenza Media 	at(9) = "F.R/F.T" 	' Frequenza Reale / Frequenza Media 	at(10) = "R.T " 	' Ritardo teorico 	at(11) = "R.A " 		'Ritardo Attuale 	at(12) = "R.S "		'Ritardo Storico 	at(13) = "I.R.S" 'Incremento Ritardo cronologico  max 	at(14) = "R.A/R.S "	'Rit.Att/Rit.Sto 	at(15) = "R.M"		'Rit.Medio 	at(16) = "D.S"		'Deviazione Standard 	at(17) = "P.M.S" 		'presenze Mese selezionato 	at(18) = "2NPR"		' 2 Numeri che precedono l'uscita nei 10 casi precedenti del numero verificato  	at(19) = "F.p1"		'Frequenza in posizione 1 	at(20) = "F.p2" 	at(21) = "F.p3" 	at(22) = "F.p4" 	at(23) = "F.p5" 	at(24)= "M.Fp"		'Frequenza massima Posizione 	at(25)= "R.p1"		'Rit. posizione 1 	at(26)= "R.p2" 	at(27)= "R.p3" 	at(28)= "R.p4" 	at(29)= "R.p5" 	at(30)= "M.Rp"		'Rit.Massimo di pos 	at(31) = "R.S.p1"		'max Rit pos 1 	at(32) = "R.S.p2" 	at(33) = "R.S.p3" 	at(34) = "R.S.p4" 	at(35) = "R.S.p5" 	at(36) = "M.S.Rp"		'Max Rit.su tutte le pos 	at(37) = "Rp1" 	at(38) = "Rp2" 	at(39) = "Rp3" 	at(40) = "Int.Med" 	' intervallo medio =RitardoMedio+Deviazione Standars 	at(41) = "Proi.75%" 	' Proi.75% = RitardoMedio + 2*Deviazione Standars 	at(42) = "Proi.88" 	' Proi.88% = RitardoMedio + 3*Deviazione Standars 	at(43) = "Proi.93" 	' Proi.93% = RitardoMedio + 5*Deviazione Standars 	at(44) = "Punteggio" 			Call InitTabella(at,RGB(221,236,255),1,3,RGB(219,0,0),"Times new Roman",2,1) 		CreaTabella  					  End Sub     Function GetTipoScelta 	 	' questa funzione propone un menu a tendina per eseguire una scelta 	' le voci del meu si preparano tramite un vettore che puo 	' essere alimentato coem si vuole in questo caso 3 elementi 	ReDim aVoci(7) 	aVoci(1) = "1871 Archivio Completo" 	aVoci(2) = "08 Luglio 1939(Archivio a 10 Ruote)" 	aVoci(3) = "08 Maggio 1997(2estr.Mercoledì,Sabato)" 	aVoci(4) = "04 Giugno 2005(Ruota Nazionale)" 	aVoci(5) = "21 Giugno 2005(3estr.Martedì,Giovedì,Sabato)" 	aVoci(6) = "2009 Inizio Venus per tutte le ruote" 	aVoci(7) = "Scelta Libera"  	 	' mostro la finestra col menu a tendina , mi ritorna un indice da 1 a 6 	' che indica la scelta fatta 	GetTipoScelta = ScegliOpzioneMenu(aVoci,1,"Scegli Data Inizio Ricerca") 	 End Function

 

[i legend]

Ciao a tutti ,grazie per i consigli , non so perchè posto in questa maniera, spero di risolvere il problema, Grazie e Ciao, non ho neanche le emoticon Cordiali saluti I Legend

 

[claudio8]

da dove prendi il testo dello script? dalla pagina script?

 

[claudio8]

Grazie Luigi...


da dove prendi il testo dello script? dalla pagina script?

 

[i legend]

Ciao Claudio deve essere perchè ho la connessione lenta, ora c'e una semplice casella di testo che neanche formatta. non posso postare neanche un immagine. niente, speriamo che si risolva stoproblema. Ora provo la funzione scegli numeri.Grazie ciao Luigi è un piacere rileggerti. Cordiali saluti I Legend.

 

[LuigiB]

ciao Ilegend .. come procede con gli script .. vedo che con excel sei pratico ma gli script sono molto piu versatili .
un saluto !

 

[i legend]

Ciao Luigi, ti posso assicurare che il foglio di calcolo è stato una conquista formula dopo formula, funzione dopo funzione.
Vediamo se riesco con il vostro aiuto anche con gli script.
Ciao a tutti e grazie per i suggerimenti
Cordiali saluti
I Legend

 

[i legend]

Ciao a tutti , sono arenato.
Ho provato ad utilizzare la funzione scegliNumeri ,ma non riesco , potete postare degli esempi per favore?
Se è gia stato fatto qualcuno puo postare lo script sui numeri che precedono l'uscita di un altro numero.
Al momento è la ricerca che mi porta via più tempo.
Se qualcuno può aiutarmi vi i criteri che io uso su foglio di calcolo.
Cordiali saluti
I Legend

 

[LuigiB]

ciao Legend , nella directory script/test ci sono molti esempi questo l'ho preso da li

Sub Main
	
	Dim numeri

	Call ScegliNumeri(numeri)

	For k = 1 To UBound(numeri)
		Call Scrivi(numeri(k))
	Next


End Sub

 

[i legend]

Ciao Luigi GrazieForse comincio a capire la logica del ciclo forNumeri è una variabile contenitore? pensavo dovessi scrivere un array tipo :NomeArray( )K sono i numeri selezionatiUbound e fine listaquello che non afferravoè Numeri(K)Faccio delle prove poi torno a stressarvi.Cordiali salutiI Legend

 

[LuigiB]

ciao

Dim è una parola chiave serve per dichiarare uan variabile
Numeri è il nome che ho usato per definire la variabile

Nota :
in vbscript le variabili sono sempre di tipo variant possono assumere valori numerici , stringa , oggetto , array

la funzione ScegliNumeri riceve epr parametro la variabile Numeri , e la valorizza con i numeri selezionati trasformandola in un array

il ciclo for serve per scandire tutti gli elementi dell'array.
infatti Ubound è una parola chiave che restituisce il limite superiore di un array

 

[i legend]

Ciao

Grazie mille Luigi ,sempre gentile.
Provo a procedere con il mio script.
Cordiali saluti
I Legend

 

[claudio8]

Ciao a tutti , sono arenato.
Ho provato ad utilizzare la funzione scegliNumeri ,ma non riesco , potete postare degli esempi per favore?

Se è gia stato fatto qualcuno puo postare lo script sui numeri che precedono l'uscita di un altro numero.
Al momento è la ricerca che mi porta via più tempo.
Se qualcuno può aiutarmi vi i criteri che io uso su foglio di calcolo.
Cordiali saluti
I Legend

X caricare i numeri ci sei,( sceglinumeri ).
per vedere i frequenti dopo la spia, devi usare un costrutto simile, questo è riferito ad ambate freq dopo numero spia.

co = 0
			For i = 1 To 90
				nn(1) = i
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + clp,nn,ru,1)   ' x estratto chiaramente  
				mt1(co,3) = mt1(co,3) + fr1   'quantifica il totale presenze del numero (nn) nel range di colpi 

				'If fr1 > 0 Then mt1(co,3) = mt1(co,3) + 1 'usando questo correggi, se ritieni, l'errore del Seriefreq sopra specificato
                                If fr1 > 0 Then mt1(co,4) = mt1(co,4) + 1  'usando questo correggi, memorizzando l'incremento di +1 in posizione 4 della matrice mt1
                                Else
                                         mt1(co,4) = mt1(co,4)
                                End if

			Next

adesso vogliamo fare il tutto al contrario, partendo da numero atteso vogliamo sapere quale è il numero+freq. nei 3 colpi prec alla uscita
il tutto preceduto dal codice di ricerca numero nel ciclo per le estrazioni

for es= ini to fin

       if..... incontri il numero "pinco"     then 
                        co = 0
			For i = 1 To 90
				nn(1) = i
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr2 = SerieFreq(es -[COLOR="#FF0000"]colpi[/COLOR],es-1,nn,ru,1)   ' x estratto chiaramente  
				mt1(co,3) = mt1(co,3) + fr2   'quantifica il totale presenze del numero (nn) nel range di colpi 

				'If fr2 > 0 Then mt1(co,3) = mt1(co,3) + 1 'usando questo correggi, se ritieni l'errore del Seriefreq sopra specificato

                                If fr2 > 0 Then mt1(co,4) = mt1(co,4) + 1 'usando questo correggi, memorizzi l'incremento di 1 in posizione 4 della matrice mt1
                                Else
                                         mt1(co,4) = mt1(co,4)
                                End if

			Next
       end if
next

spero ti possa servire.