Help Me per script!

[Sakti]

Volevo chiedere a chi mi può aiutare:
Ho una serie di 6 numeri e vorrei, se tra essi esce un Gemello, poter aggiungere
una doppia istruzione, cioè fare il meno 1 e moltiplicare il risultato per 3, ma non riesco
a capire come scrivere l'istruzione.
Es. n(1) , n(2) , n(3) , n(4) , n(5) , n(6)
For X = 1 To 6
If Gemello(n(x)) Then n(x) = n(x) - 1
( n(x)* 3)
End If
L'ho scritto così, ma ovviamente non funziona, come devo fare?
Grazie in anticipo..

 

[i legend]

Dim an: an= array( 0,1,2,3,66,43 ,88,77)
Dim i
For i = 1 to ubound (an)
If gemello(an(i)) then an(i)= (an(i)-1)×3
Next
Scrivo da cell ,ed ho appena finito fisioterapia, non ho verificato che funzia

 

[Sakti]

Auguri per la Tua fisioterapia e grazie, ora provo.

 

[joe]

Toon,

Se scrivi dopo Then e nella stessa linea

quando il risultato del test è positivo viene eseguito il codice scritto in quella linea e subito dopo Then.

Una sorta di "End If" viene aggiunto (virtualmente) alla fine di quella stessa linea.

Quello che è scritto nelle righe successive non fa più parte del test.

Ne consegue che il secondo "End If" diventa un errore.

 

[Mike58]

Ciao Toon ,a parte che con un ciclo for di pari a 6 non troverà mai un gemello ecco una mia versione.

Sub Main
For x = 1 To 90
If Gemello(x) Then y =((x - 1) * 3)
If Gemello(x) Then
Scrivi x & " - 1 = " & x-1 & " x 3 = " & y
End If
Next
End Sub

11 - 1 = 10 x 3 = 30
22 - 1 = 21 x 3 = 63
33 - 1 = 32 x 3 = 96
44 - 1 = 43 x 3 = 129
55 - 1 = 54 x 3 = 162
66 - 1 = 65 x 3 = 195
77 - 1 = 76 x 3 = 228
88 - 1 = 87 x 3 = 261

 

[Sakti]

Grazie mille, dalle prove mi pare funzioni..
Grazie mille anche per tutti coloro che useranno questa dritta..
;-) ho usato questo:
Dim i
For i = 1 To UBound (Nu)
If Gemello(Nu(i)) Then Nu(i)= Vert(Nu(i)-1)
Next

 

[Sakti]

Ovviamente un grandissimo grazie anche a Joe e Mike ,sempre disponibile con alternative e consigli molto utili e da provare.. Grazie

 

[joe]

Puoi lanciarlo ripetutamente.

L'ho strutturato come il tuo e dovrebbe funzionare bene.

Option Explicit
Sub Main
   Dim Nu,I
   Call GetColonnaCasuale(6,Nu)
   Scrivi StringaNumeri(Nu)
   For I = 1 To 6
      If Gemello(Nu(I)) Then Nu(I) = Vert(Nu(I) - 1) : ColoreTesto 2
      Scrivi Nu(I) & Space(1),0,0 :ColoreTesto 0
   Next
   Scrivi
End Sub

Se c'è un gemello lo converte e lo colora.

 

[Alien.]

Ciao joe ma se li volessi solo dal numero 1 al 69 come si fa ,grazie.
che mi dia solo una colonna.
#8

 

[joe]

Ciao joe ma se li volessi solo dal numero 1 al 69 come si fa ,grazie.
che mi dia solo una colonna.
#8

Perdonami ma non riesco a capire quello che chiedi.

#8 sono 8 numeri ? o ti riferisci al numero del messaggio?

Sono 6 numeri minori di 70 ?

Come scrivo sempre un esempio ... è meglio.

Erudiscici.

 

[Alien.]

Si ciao joe esatto #8 e il post. volevo un casuale o random di 6 numeri che vanno dall'1 al 69 compreso.
come quello sul post #8 con la sola variante che i numeri devono andare dall'1 al 69 in sestine non so se mi sono spiegato bene.......grazie.


(una domanda con gli script si possono mettere dei filtri es: immetto dei numeri 123456 gli dico presenza 0/1/2 oppure 2/3 ecc ecc per 100 /200 sestine ed oltre anche oltre.)

( ma come mai spesso faccio 2/3 punti al superenalotto ma non al lotto su tutte o su ruota--- eppure i numeri sono sempre 90!!)

 

[joe]

Non lo so ...

... oppure lo so ma ... per dare una risposta statisticamente fondata bisogna conoscere

tutte le combinazioni i ritardi naturali, le quantità, di numeri ...

alla perfezione ... le regole del gioco e dei suoi "premi".

Poi ricavare le equità dei premi in rapporto alle probabilità e molti altri dati spesso sconosciuti.

Per non dire ... inconoscibili.

Ma ... se un gioco ... diventa più gravoso di un corso di Laurea o di un lavoro molto pesante

e NON remunerato, ha senso farsi umiliare da un padre-padrone-ingrato ?

Io programmo, per svago, perché mi piace e perché mi gratifica.

Si, si può fare quasi tutto semmai diventa pesante il redigere il programma e l'eseguirlo.

Poi naturalmente sono necessarie le capacità, del programmatore, del linguaggio, della macchina,

e si deve considerare il tempo. Perché, se per esempio, occorrono 10 minuti ...

e l'estrazione avviene dopo 5 ... è come correre dietro un treno che è già passato.

In sintesi in alcuni giochi si può facilmente vincere una sorte che poi non viene pagata.

Per esempio un "4" che invece di vincere 1000 viene pagato 10, oppure

si fa un terno che rimborsa il costo delle giocate.

 

[joe]

Option Explicit
Sub Main
   'Lunghetta Casuale con Limiti By Joe
   Dim I,Qua,Lun,Pri,Ult
   '10 Lunghette / di 6 Numeri / Compresi tra 1 e 69
   Qua = 10 : Lun = 6 : Pri = 1 : Ult = 69
   ReDim Num(Lun)
   For I = 1 To Qua
      Scrivi StringaNumeri(Casuale(Num,Lun,Pri,Ult),,1)
   Next
End Sub
Function Casuale(Num,Qua,Pri,Ult)
   Dim X,T
   ReDim N(Ult)
   If Qua >(Ult - Pri) Then X = Qua
   Do While X < Qua
      T = NumeroCasuale(Pri,Ult)
      If N(T) = "" Then
         X = X + 1
         Num(X) = T
         N(T) = T
      End If
      Casuale = Num
   Loop
End Function

 

[Alien.]

Ciao scusami joe avevo chiesto..............


Si ciao joe esatto #8 e il post. volevo un casuale o random di 6 numeri che vanno dall'1 al 69 compreso.
come quello sul post #8 con la sola variante che i numeri devono andare dall'1 al 69 in sestine non so se mi sono spiegato bene.......grazie.

nello script ci sono 10 numeri che è la decina del 20 !!!!

 

[joe]

Si perché 10 numeri a caso e diversi tra 10 possibili sono 10 numeri,

nei limiti dell'essere quella decina unica e che sia possibile.

Se fossero 1 numero su 6 sarebbero come lanciare 1 un dado.

In sintesi è una funzione programmabile

che va sfruttata inserendo i valori-limite che si impongono per soddisfare le proprie esigenze.

Dunque basta inserire "i tuoi valori" nella Sub Main dello script.

 

[Alien.]

è benissimo adesso mi da solo un numero lo script

 

[joe]

Come lo hai provato era un dado.

E come un dado, restituisce un numero da 1 a 6 ogni volta che lo avvii.

Adesso, invece, fornisce 10 lunghette di 6 numeri ciascuna con numeri diversi tra 1 e 69.

 

[Alien.]

Ma io non gioco ai ............






ok adesso va bene .....ma sei un pò burlone

 

[joe]

Un grazie,

un saluto,

una buona serata a tutte/i.

Alien, per "come" è scritto, ho dovuto fare alcune prove, ed inserire modifiche ...

Provano dal 10 su 10 ... all' 1 su 6 ... fino al 6 su 69.

Soprattutto, per evitare che scelte poco oculate nella ricerca delle lunghette,

potessero "impegnare" il computer, bloccandolo perlomeno apparentemente,

in un loop infinito, per il calcolo di un risultato impossibile.

 

[Alien.]

Ciao joe hai fatto una nuova modifica allo script non mi pare da sempre 10 sestine come prima !!