Per LuigiB

[Roby]

Sono un nuovo iscritto di questo forum.
I miei complimenti per il suo programma Spaziometria. Secondo me è uno dei migliori in circolazione. Tuttavia non so se succede solo a me, ma quando vado nella sezione "distanze" e clicco su "sincronismi" mi dà questo errore (run-time "449": argomento non facoltativo) che mi chiude anche il programma. Si può ovviare a questo problema?

Inoltre vorrei fare anche un'altra richiesta.
E' possibile inserire nel programma, nella sezione distanze ciclometriche, un procedimento che permettesse un calcolo immediato di una distanza ciclometrica per un numero, scelto dall'utente, sia in senso orario che antiorario con magari anche il ritardo delle due ambate ricavate su ruota? Ad esempio volendo prendere in esame il n°38, calcolarne la distanza 43:
38+43=81
128-43=85

Saluti

 

[LuigiB]

Ciao ,grazie per i complimenti sul programma vedro di correggere
l'errore che mi hai segnalato e di inserire questa funzioncina di ciclometria.

 

[santosanto]

Grazie a LUIGIB e ancke a SILOP2005 che contribuiscono
a crescere.
La mia presenza vuole essere di conferma a quanto sopra,
cioe' all'errore dopo la richiesta di Sincrononi nelle
distanze.

GRAZIE ANCORA!!!!!!

santosanto

 

[LuigiB]

Si grazie ! Stasera vedo un po' di risolvere . Ciao

 

[silop2005]

<center>

</center>
Ciao LuigiB,
dovresti rivedere quella " funzioncina di ciclometria"
che il calcolo non va bene.
Qualsiasi DISTANZA che vedi per metà va bene ma l'altra metà non va bene.
Per vedere l'errore vai nella colonna -NUMERI RICAVATI- ci sono due file di numeri da 1 a 90 per ogni singola distanza ci sono tutti i 90 numeri

La seconda fila in NUMERI RICAVATI va bene ci sono i numeri da 1 a 90
la PRIMA FILA dopo il numero 45 non continua fino a 90, ma ritorna indietro con 44-43-42 ecc ... è questo l'errore.

Un esempio a caso dopo il 45...

Infatti se vediamo il n. 56 con dist. 3 nei NUMERI RICAVATI ci sono i nn. 37 e 59 invece dei nn. 53 e 59

Questo calcolo errato lo puoi vedere per tutte le distanze,
se vuoi ti posso dare TUTTI gli elenchi delle 46 DISTANZE per tutti i 90 numeri (in excel) con le coppie ricavate.
<center>

</center>
Saluti
Silop

 

[LuigiB]

Ciao Silop , guarda che la famosa funzioncina non l'avevo
ancora messa .. di che parli cosi lo correggo ?

 

[silop2005]

quote:Originally posted by LuigiB

Ciao Silop , guarda che la famosa funzioncina non l'avevo
ancora messa .. di che parli cosi lo correggo ?

:::::::::::::::
<center>

</center>
Ciao LuigiB,
mi riferivo a DISTANZE- e poi a -Distanze ciclometriche-

Saluti
Silop

 

[LuigiB]

vero hai ragione ho corretto !

 

[LuigiB]

Abasul nella versione 1.1.27 è presente la funzione che mi hai chiesto

 

[cex69]

Ciao Luigib vorrei chiederti come si fa a far fermare la giocata nel momento che si verifichi qualsiasi esito positivo (posvoluta, posvoluta1, posvoluta2) e non solo quando esce nella posizione del (posvoluta).
grazie mille in anticipo.

Sub Main()
Dim r(11)
Dim r1
Dim b1(1)
Dim p1(10)
Dim PosVoluta
Dim PosVoluta1
Dim PosVoluta2
Dim c
Dim c1
Dim a1


PosVoluta = CInt(InputBox("Inserire posizione da 1 a 5 INSERIRE N° 5 PER CONTROLLO"))
PosVoluta1 = CInt(InputBox("Inserire posizione da 1 a 5"))
PosVoluta2 = CInt(InputBox("Inserire posizione da 1 a 5"))
c = CInt(InputBox("Inserire colpi di gioco"))
r (11) = CInt(InputBox("ruota di gioco"))

If PosVoluta > 0 And PosVoluta <= 5 And PosVoluta1 > 0 And PosVoluta1 <= 5 And PosVoluta2 > 0 And PosVoluta2 <= 5 Then
p1(5 + PosVoluta) = 1 '<-----poste in gioco indice da 6 a 10 per ed1 , ed2 , ed3 eccetera
p1(5 + PosVoluta1) = 1
p1(5 + PosVoluta2) = 1
r1 = r
'r(1) = 1 ' gioca sulla ruota numero 1 BA
'r(2) = 2 ' gioca sulla ruota numero 2 CA
'r(3) = 3 ' gioca sulla ruota numero 3 FI
'r(4) = 4 ' gioca sulla ruota numero 4 GE
'r(5) = 5 ' gioca sulla ruota numero 5 MI
'r(6) = 6 ' gioca sulla ruota numero 6 NA
'r(7) = 7 ' gioca sulla ruota numero 7 PA
'r(8) = 8 ' gioca sulla ruota numero 8 RO
'r(9) = 9 ' gioca sulla ruota numero 9 TO
'r(10) = 10 ' gioca sulla ruota numero 10 VE
'r(11) = 11 ' gioca sulla ruota numero 11 NZ
c1 = c ' colpi di gioco

fin = EstrazioneFin
For n = 7537 To fin
If IndiceMensile(n + 1 ) = 1 Then
a1 = Fuori90(Estratto(n,3,PosVoluta) + Estratto(n,6,PosVoluta)) ' come mai qui cerca il numero sulla ruota 3 invece che 6 ?
b1(1) = a1 ' numero in gioco
ImpostaGiocata 1,b1,r1,p1,c1,5 + PosVoluta

Gioca n
End If
Next
ScriviResoconto
Else
MsgBox "Posizione non valida"
End If
End Sub

 

[LuigiB]

bhe lo script da quello che vedeo serve per l'estratto determinato
se invece di usarlo per l'estratto determinato lo vuoi
usare per estrato semplice basta sostituire

ImpostaGiocata 1,b1,r1,p1,c1,5 + PosVoluta ' mi fermo ad estratto determinato

con

ImpostaGiocata 1,b1,r1,p1,c1,1 ' mi fermo ad estratto semplice

Ciao

 

[cex69]

quote:Originally posted by LuigiB

bhe lo script da quello che vedeo serve per l'estratto determinato
se invece di usarlo per l'estratto determinato lo vuoi
usare per estrato semplice basta sostituire

ImpostaGiocata 1,b1,r1,p1,c1,5 + PosVoluta ' mi fermo ad estratto determinato

con

ImpostaGiocata 1,b1,r1,p1,c1,1 ' mi fermo ad estratto semplice

Ciao

no, lo vorrei continuare ad usare per estratto determinato. solo che la giocata si ferma solo se esce nella posizione 5 se imposto 5 nel primo inputbox. esempio inserisco i tre inputbox rispettivamente in 5 4 3 posizione dopo 3 colpi esce in 3 posizione e continua a giocarla fino al numero dei colpi da me scelto; mentre se esce in 5 posizione che sarebbe la prima scelta si ferma. vorrei che si fermasse per qualsiasi esito positivo.

grazie per la tua celere risposta.

cesare

 

[LuigiB]

eh appunto qualsiasi esito sulle 5 posizioni prova a fare come ti ho detto

 

[cex69]

quote:Originally posted by LuigiB

eh appunto qualsiasi esito sulle 5 posizioni prova a fare come ti ho detto

Scusa non mi sono spiegato bene. intendevo un esito positivo fra quelli da me scelti all'inizio con gli inputbox di posvoluta, posvoluta1, posvoluta2.

scusa dell'inghippo.

ciao cesare

 

[LuigiB]

mi dispiace ma non si puo fare allora

 

[cex69]

quote:Originally posted by LuigiB

mi dispiace ma non si puo fare allora

grazie lo stesso.