I contenuti più recenti di Marcorun

:cry: Allora avevo visto male..........Grazie Claudio8(y)

Ciao,grazie ....sono interessanti i tuoi script,ci faccio un po di prove,ma quello che ho messo io sarebbe utile soprattutto x esaminare le formazioni cosi da provare anche lunghette di varie dimensioni..pensavo che uno ai tuoi livelli avrebbe modificato qualche riga x escludere l'ambo. GRAZIE...

Qualcuno riesce a fare una piccolissima modifica a questo script? Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE! Sub Main Dim idEstr,Ruota Dim Inizio,Fine Dim nClasseFrz Dim id,k Dim nElemFrz Dim nQAmbetti Dim nEstrTot Dim nFrqMedia Dim sNomeFrz Inizio = EstrazioneFin -...

Ti ringrazio x avere pensato a me x una mano.......aimè stavolta è parecchio dura x le mie possibilità. Inutile dire che che ci ragiono sù lo stesso!:unsure:

Grazie....a me piace provarci sempre,anche quando so già che non sono all' altezza,ho aspettato un po' che qualcuno bravo come te venisse in supporto a Mission ......ma ho voluto dare una mano nel mio piccolo,visto che Mission ha condiviso la sua idea x tutti!

PROVA!!!!! Sub Main() 'metodo proposto da Antonio :laterali (Cinzia) Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3) poste(1) = 1:poste(2) = 1 :poste(3) = 0.50 fin = EstrazioneFin ini = fin - 27 For es = ini To fin: Messaggio(es) r = 1 ru(1) = r nua(1) = Estratto(es,r,1) - 1 : nua(2) =...

Ci ragiono un pò,ma credo che non riesco :cry:

Prova: Sub Main() 'metodo proposto da Antonio :laterali (Cinzia) Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3) poste(1) = 1:poste(2) = 1 :poste(3) = 0.50 r = InputBox ("RUOTA",,1) fin = EstrazioneFin ini = fin - 27 For es = ini To fin: Messaggio(es) 'r = 1 ru(1) = r nua(1) = Fuori90...

Credevo che x cercare la spia si usa l'altro script di Mike......il 27 è di default...il numero spia lo devi mettere tu.

Forse....... Prova...... Figure..... Sub Main() Scrivi " FUTURO 3 in figura ********* Tabella List by Mike58 *********** ",1,- 1,3 Dim ru(3) Dim terni(4005,13) Dim nn(3) Dim spia(1) r = InputBox("Ruota della spia....(1-10)",,5) rr = InputBox("Ruota di...

Forse ............. Prova............. Cadenze........ Sub Main() Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3 Dim ru(3) Dim terni(4005,13) Dim nn(3) Dim spia(1) r = InputBox("Ruota della spia....(1-10)",,5) rr =...

Provo a ragionarci.........ma non sono MIKE.....

Sub Main() Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3 Dim ru(3) Dim terni(4005,13) Dim nn(3) Dim spia(1) r = InputBox("Ruota della spia....(1-10)",,5) rr = InputBox("Ruota di gioco....(1-10)",,r) sp =...

Ci provo ma sono alle prime armi con gli script....BOH! Sub Main() Scrivi " FUTURO 3 in figura ********* Tabella List by Mike58 *********** ",1,- 1,3 Dim ru(3) Dim terni(4005,13) Dim nn(3) Dim spia(1) r = InputBox("Ruota della spia....(1-10)",,5) rr =...

Scusandomi per stropicciare i bellissimi lavori di Mike58,mi unisco a Mission nell'augurare a Mike58 una pronta guarigione!