Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Vorrei che ci fossero più colonne atitoli e che la loro larghezza dipendesse dal massimo spazio occopato dai caratteri usati nella specifica colonna (tipo adatta larghezza in excel)
Originally posted by LuigiB
in seguito alle modifiche piu di cosi non puo venire dalla videata presumo che il mio grande schermo mi fara vedere tutto sino al 90 e oltre ... tra poco mettero l'aggiornamento , ciao grazie, ciao
Ancora una volta il Faraone supera le tue stesse aspettative ben previste dall'allievo.
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
ehehe ho messo la modifica e ti ho risposto , ciao !Sub Main()
ReDim Coestr(90)
ReDim FissiA(90)
ReDim Fissi01(90)
ReDim Fissi02(90)
ReDim Fissi03(90)
ReDim Fissi04(90)
ReDim Fissi05(90)
ReDim Fissi06(90)
ReDim Fissi07(90)
ReDim Fissi08(90)
ReDim Fissi09(90)
ReDim Fissi10(90)
Dim rut(10),rutt(10),ru(10)
Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
Verif = 1'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",1))
casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",10)) ' 10 parametro tendenzialme da modidicare
testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si 0=No )","Elenco Casi",0)
tes = 0 'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1)) '<-----estrazioni da togliere
' 'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
' 'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
' -------------------------------------------------------------------------------------------------
r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba. 2 Ca. 3 Fi. 4 Ge. )" & Chr(13) & _
"( 5 Mi. 6 Na. 7 Pa. 8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) ' '<-----Ruota1
p1 = CInt(InputBox("Posizione estratto ruota di " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))' '<-----Posiz1
r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba. 2 Ca. 3 Fi. 4 Ge. )" & Chr(13) & _
"( 5 Mi. 6 Na. 7 Pa. 8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))' '<-----Ruota2
p2 = CInt(InputBox("Posizione estratto ruota di " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))' '<-----Posiz1
passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10)) ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
prec = 2 'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
min = 4 'CInt(InputBox("Numero minimo di esiti","Minimo esiti",4))
For cs_el = 1 To verif ' ATTENZIONE questo "For" serve per ripetere le verifiche del Metodo che si sta Costruendo
ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
ReDim mtt(4005,4)
cs1 = casi + cs_el ' Casi richiesti + casi elencati
ru(1) = r1 'CInt(InputBox("RUOTA RICERCA DEI CASI ","1^ RUOTA",r1))
ru(2) = r2 'CInt(InputBox("RUOTA RICERCA DEI CASI ","2^ RUOTA",r2))
rut(1) = r1 ' ruote di esito
rutt(1) = r2' ruote di esito
' 'BLOCCO FOR x If Fissi01(mn) >= presa Then aValori(4) = Fissi01(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - rit,1,1))' CON ambata definita cerca i fissi frequenti da sommare ai numeri base di spia - tabella orizzontale
Sub Main()
ReDim Coestr(90)
ReDim FissiA(90)
ReDim Fissi01(90)
ReDim Fissi02(90)
ReDim Fissi03(90)
ReDim Fissi04(90)
ReDim Fissi05(90)
ReDim Fissi06(90)
ReDim Fissi07(90)
ReDim Fissi08(90)
ReDim Fissi09(90)
ReDim Fissi10(90)
ReDim tot14(90)
Dim rut(10),rutt(10),ru(10)
Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
Verif =1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",10))
casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",10)) ' 10 parametro tendenzialme da modidicare
testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si 0=No )","Elenco Casi",0)
tes = 0 'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1)) '<-----estrazioni da togliere
' 'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
' 'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
' -------------------------------------------------------------------------------------------------
r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 BaTERNO A RUOTA AL 6° colpo su NA 64 16 33
