Ruote : Domanda Tecnica

[Xeroxs]

Buongiorno a Tutti
Vorrei sapere se è possibile richiamare in modo diverso le ruote di gioco, nell' esempio di questo semplice script, ho chiamato la variabile Ruote RVn e successivamente abbinato a RVn!) una Ruota e così via, ciò che chiedo se è possibile richiamare le ruote con unico codice o altro le ruote da me scelte e non richiamarle singolarmente.

ora magari scriverò una "ca....a" e riceverò rimproveri ma se ad esempio ho la

Dim RVn(10)

posoo dire
RVn = ed imputo le ruote

ho provato in qualche modo ma nulla

Qualcuno mi aiuta?

Questo è lo script

Option Explicit
Sub Main()
   Dim RVn(10)
   Dim A(5),es
   Dim poste(5)
   poste(1) = 1
   RVn(1) = BA_
   RVn(2) = NA_
   RVn(3) = PA_
   For es = 9750 To EstrazioneFin
      If IndiceMensile(es) = 1 Then
         A(1) = Fuori90(Estratto(es,6,1) + 72)
         A(2) = Fuori90(Estratto(es,6,1) + 75)
         ImpostaGiocata 1,A,RVn,poste,5,2
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

 

[i legend]

Utilizza scegli ruote
Ciao

 

[Xeroxs]

Si ci avevo pensato, la mia richiesta è legata dal fatto che vorrei creare delle verifiche sulle Ruote Venus da li il nome RVn che per me corrisponderebbe alle ruote del Nord Torino,Venezia e Genova Milano e volevo automatizzare il codice.

Grazie I-Legend

 

[i legend]

Dim aVenusnord
Avenusnord= array(0,4,5,9,10)
Cosi è semplice e veloce.
Ma forse non capisco cosa vuoi ottenerne

 

[Xeroxs]

Ciao, i-Legend
Penso che hai capito,
Un esempio banale, prima di tutto scegli ruote va benissimo,
Se voglio con uno script vedere su queste 4 ruote quale è il numero più in ritardo o più frequente, vorrei mantenere fissata le ruote e non sceglierle, ma solo per avere proprio la ricerca specifica.
Forse troppo pignolo, ma in questo caso lo vorrei così.
Grazie come sempre.

 

[i legend]

Prova ad utilizzare
scegli opzione menu
Scegli quale venus utilizzare e dopo la carichi in un array tramite un if
Prima di cominciare le ricerche e i cicli
Altrimenti dovrà scegliere ogni volta quale utilizzare .

Provaci ?

 

[Xeroxs]

Certo, grazie.

 

[i legend]

Ciao Xerox , questo è solo un esempio della funzione scegliopzionemenu
Spaziometria ha funzioni potentissime e di piu
praticamente gli script si listano da soli
vedi se funziona correttamente
questo è solo un esempio non giocabile ovviamente.

Option Explicit
' verificare che funzioni correttamente
' venus sud:ba,na,pa
'venus centro:ca,fi,rm
'venus nord:ge,mi,To,ve
' studio di esempio della funzione Scegliopzionemenu
' questo esempio non è giocabile
Sub Main
   Dim aRuote
   Dim idEstr
   Dim nClp
   Dim aSum(1),aP(1)
   nClp = 10
   aP(1) = 1
   Call scegliComparto(aRuote)
   Scrivi  StringaRuote(aRuote)
   For idEstr = 9750 To EstrazioneFin
      If IndiceMensile(idEstr) = 1 Then
         ' aSum è solo un esempio a caso
         aSum(1) = Fuori90(ControFigura(Estratto(idEstr - 2,6,2)) + 7)
         Call ImpostaGiocata(1,aSum,aRuote,aP,nClp,1)
         Call Gioca(idEstr)
      End If
   Next
   ScriviResoconto
End Sub
' funzione di esempio
Sub scegliComparto(aRuote)
   Dim aV
   Dim iDSel
   aV = Array("Venus Sud: BA.NA.PA","Venus Centro: CA.FI.RM","Venus Nord: GE.MI.TO.VE","Tutte","SegliRuoteLibere")
   iDSel = ScegliOpzioneMenu(aV,0,"Seleziona Ruote da analizzare")
   Select Case iDSel
   Case 0
      aRuote = Array(0,1,6,7)
   Case 1
      aRuote = Array(0,2,3,8)
   Case 2
      aRuote = Array(0,4,5,9,10)
   Case 3
      aRuote = Array(0,11)
   Case 4
      ReDim aRuote(0)
      Call ScegliRuote(aRuote)
   End Select
End Sub

 

[Xeroxs]

Ciao, I-Legend
Allora Intanto Grazie Davvero mi hai completato, quanto Io non ero Riuscito a fare pur essendo sulla strada giusta... stavo cercando di capire come richiamare poi le varie ruote e con il case direi ottima , anche se ho ben capito che si può fare in modo diverso.
Il Call se ho capito serve per richiamare le varie funzioni.

Poi con Gli array sto velocizzando molto alcune ricerche,come ad esempio assegno le ruote Venus per bloccare la ricerca solo per quelle Ruote con unico codice, perchè ho notato quando ho passato un semplice script ad una mia amica pur indicando come fare con scegli ruote andava in tilt, così in questo modo si fa le ricerche che vuole sui ritardi comuni. A volte mi proietto a fare le cose anche per qualche amico, ma così e tutto allenamento, piccoli passi che per me sono tanto per vedere davvero le potenzialità della programmazione con Spaziometria.

Grazie Ancora, e Buona Serata.

 

[Xeroxs]

Permettimi una battuta scrivi

" questo è solo un esempio non giocabile ovviamente."

da Gennaio 2019 cioè 20 mesi 1 solo caso negativo, certo sono tre Ruote ma una sola ambata... anche se di fantasia la statistica ti contraddice... certo ci vuole sempre una dose di fortuna purtroppo..

 

[Enplein]

Buonasera.

Oltre a quello postato dal bravissimo I legend, presento una mia semplicissima
soluzione:

Sub Main()
   Dim r(10),ru(1)
   'Gruppi di ruote
   r(1) = 1:r(2) = 2:r(3) = 6:r(4) = 7:r(5) = 8:r(6) = 3:r(7) = 4:r(8) = 5:r(9) = 9:r(10) = 10
   fin = EstrazioneFin
   ini = fin - 10
   gr = InputBox("Quale gruppo di ruote vuoi analizzare? SUD=1, NORD=2","Enplein",1)
   riga = ""
   If gr = 1 Then q1 = 1 : q2 = 5 : riga = "SUD" Else q1 = 6:q2 = 10:riga = "NORD"
   Scrivi Space(10) & riga,1
   For es = ini To fin
      Messaggio "Elaboro " & es
      For z = q1 To q2
         r1 = r(z)
         ru(1) = r(z)
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
      Next
      Scrivi
   Next
End Sub

Enplein.

 

[i legend]

Ciao enplain
Per risolvere un problema esiste più di un modo. Grazie per aver postato il tuo. Sarà utilissimo a xerox aver un sltro esempio da studiare ?.
Domani lo testero' anche io .
Ciao

 

[Xeroxs]

Giusto Direi,
Grazie anche a Te Enplein
Utile e molto per capire come sviluppare questo mio progetto sulle ruote Venus, non avevo ancora pensato a suddividere il quadro estrazionale sulle Venus.
Utile anche per capire altre strade da utilizzare.

Grazie

 

[Mike58]

Xeroxs, prova anche la mia soluzione.

Sub Main
   'array come vettore
   Dim nu(1),T,V
   '-------------------------
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '-------------------------
   scelta = InputBox("Scelta Ruote" & Chr(13) & Chr(13) & "1 - VenusNord" & Chr(13) & "2 - VenusSud" & Chr(13) & "3- VenusCentro",,1)
   '----------------------------------
   nord = Array(nord,4,5,9,10)
   sud = Array(sud,1,6,7)
   centro = Array(centro,2,3,8,12)
   '----------------------------------
   T = Array(T,"Numeri","Ritardo","RitMax","IncrMax","Freq","VerificaEsito al Ritardo")
   Call InitTabella(T)
   '---------------------------------------------
   If scelta = 1 Then ruote = nord
   If scelta = 1 Then Venus = "VenusNord"
   If scelta = 2 Then ruote = sud
   If scelta = 2 Then Venus = "VenusSud"
   If scelta = 3 Then ruote = centro
   If scelta = 3 Then Venus = "VenusCentro"
   '---------------------------------------------
   Scrivi "Ruote scelte.... " & Venus & vbTab & StringaRuote(ruote)
   '--------------------------------------------------------------------
   For n = 1 To 90
      nu(1) = n
      Call StatisticaFormazione(nu,ruote,1,rit,max,Incr,fre,Ini,fin)
      Call VerificaEsito(nu,ruote,EstrazioneFin - rit,1,,,,,esa)
      V = Array(V,StringaNumeri(nu),rit,max,incr,fre,esa)
      Call AddRigaTabella(V)
   Next
   '.....................................................................
   Call CreaTabella(2)' ordina per ritardo
End Sub

 

[Xeroxs]

Ciao, Mike58,
Scusa se rispondo solo ora, ho potuto provarlo solo ora,
Grazie anche a Te, come sempre un ottima esposizione, un altro scritpt che aumenta non solo le ricerche per questo mio progetto ma che mi aiuta nella comprensione su come realizzare quelli futuri, da dove imparare e prendere spunti.
Grazie ancora a Te e agli altri che stanno contribuendo a questa mia crescita, perchè per me siente davvero utili per imparare davvero molto.

 

[Alien.]

Buonasera.

Oltre a quello postato dal bravissimo I legend, presento una mia semplicissima
soluzione:

Sub Main()
   Dim r(10),ru(1)
   'Gruppi di ruote
   r(1) = 1:r(2) = 2:r(3) = 6:r(4) = 7:r(5) = 8:r(6) = 3:r(7) = 4:r(8) = 5:r(9) = 9:r(10) = 10
   fin = EstrazioneFin
   ini = fin - 10
   gr = InputBox("Quale gruppo di ruote vuoi analizzare? SUD=1, NORD=2","Enplein",1)
   riga = ""
   If gr = 1 Then q1 = 1 : q2 = 5 : riga = "SUD" Else q1 = 6:q2 = 10:riga = "NORD"
   Scrivi Space(10) & riga,1
   For es = ini To fin
      Messaggio "Elaboro " & es
      For z = q1 To q2
         r1 = r(z)
         ru(1) = r(z)
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
      Next
      Scrivi
   Next
End Sub

Enplein.

è ottimo qui andrebbe aggiunto i numeri più frequenti di ogni mese poi il totale,che si può fare ? grazie.

 

[Alien.]

Xeroxs, prova anche la mia soluzione.

Sub Main
   'array come vettore
   Dim nu(1),T,V
   '-------------------------
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '-------------------------
   scelta = InputBox("Scelta Ruote" & Chr(13) & Chr(13) & "1 - VenusNord" & Chr(13) & "2 - VenusSud" & Chr(13) & "3- VenusCentro",,1)
   '----------------------------------
   nord = Array(nord,4,5,9,10)
   sud = Array(sud,1,6,7)
   centro = Array(centro,2,3,8,12)
   '----------------------------------
   T = Array(T,"Numeri","Ritardo","RitMax","IncrMax","Freq","VerificaEsito al Ritardo")
   Call InitTabella(T)
   '---------------------------------------------
   If scelta = 1 Then ruote = nord
   If scelta = 1 Then Venus = "VenusNord"
   If scelta = 2 Then ruote = sud
   If scelta = 2 Then Venus = "VenusSud"
   If scelta = 3 Then ruote = centro
   If scelta = 3 Then Venus = "VenusCentro"
   '---------------------------------------------
   Scrivi "Ruote scelte.... " & Venus & vbTab & StringaRuote(ruote)
   '--------------------------------------------------------------------
   For n = 1 To 90
      nu(1) = n
      Call StatisticaFormazione(nu,ruote,1,rit,max,Incr,fre,Ini,fin)
      Call VerificaEsito(nu,ruote,EstrazioneFin - rit,1,,,,,esa)
      V = Array(V,StringaNumeri(nu),rit,max,incr,fre,esa)
      Call AddRigaTabella(V)
   Next
   '.....................................................................
   Call CreaTabella(2)' ordina per ritardo
End Sub

una piccola variazione puoi inserire i numeri frequenti mese per mese ,grazie.

 

[Mike58]

Alien,considerate le ruote Venus, nel mio script le frequenze già ci sono.
Per ordinarli dai + frequenti o crei la tabellaordinabile o definisci la colonna dove sono i frequenti e metti il valore 5 (valore della colonna freq in creatabella.

Siccome l'argomento trattato è di puro insegnamento sollecita anche tu i neuroni ( se gli alieni c'è li hanno).

Ciao

 

[Alien.]

Hai ragione,grazie.