Novità

Ruote : Domanda Tecnica

Xeroxs

Advanced Member >GOLD<
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

Codice:
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
 

Xeroxs

Advanced Member >GOLD<
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
 

Xeroxs

Advanced Member >GOLD<
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

Premium Member
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 ?
 

i legend

Premium Member
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.
Codice:
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

Advanced Member >GOLD<
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

Advanced Member >GOLD<
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..
(y) ;):)(y)
 

Enplein

Super Member >PLATINUM<
Buonasera.

Oltre a quello postato dal bravissimo I legend, presento una mia semplicissima
soluzione:
Codice:
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

Premium Member
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

Advanced Member >GOLD<
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

Advanced Member >PLATINUM PLUS<
Xeroxs, prova anche la mia soluzione.

Codice:
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

Advanced Member >GOLD<
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.

Advanced Premium Member
Buonasera.

Oltre a quello postato dal bravissimo I legend, presento una mia semplicissima
soluzione:
Codice:
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.

Advanced Premium Member
Xeroxs, prova anche la mia soluzione.

Codice:
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.
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto