tutte

[Alien.]

Ciao come si mette su tutte le ruote,grazie.

Sub Main
Dim poste(3)
im ruote(2)
im t1(9)
poste(2) = 1
'poste(3) = 0.5
ruote(1) = 1
Ini = 9916
fin = EstrazioneFin

 

[Sakti]

Metti alle ruote l' 11 che equivale a Tutte..
;-)
Mi fa specie che ti hanno visitato in 22 e nessuno te lo ha suggerito...?!

 

[Alien.]

Bhe qua sono tutti "speciali" ma credo che siano solo curiosi , comunque ho provato ma non funziona.

 

[Xeroxs]

Ciao, Devi scriverlo così

ruote(1) = 11

Ma forse non funziona per altri motivi, un conto e come scrivere il codice in questo caso la variabile, altro e poi come deve calcolare ed esporre i dati lo script.

 

[Antonio Pagano]

Alien correggi come segue è funzionerà perfettamente, se non và allega tutto lo script.Ciao

Sub Main
Dim poste(3)
im ruote(2) qui correggi così Dim ruote(2)
im t1(9) qui correggi così Dim t1(9)
poste(2) = 1
'poste(3) = 0.5
ruote(1) = 1
Ini = 9916
fin = EstrazioneFin

 

[i legend]

Dipende dalle funzioni che vengono utilizzate.
Non si può utilizzare la ruota tutte per 1)getarraynumeriruota
2)estratto
Forse anche altre.
Cambiare un parametro potrebbe implicare anche cambiarne altri .
Cambia il ciclo teorico, cambiano i valori di presenze di scompenso di ritardo .
Per questo chi fa gli script , chiede di spiegare bene dall inizio cosa si vuole ottenere, si cerca di fare script più flessibili possibili, ed è più semplice fare uno script exnovo che modificarne uno preesistente.

 

[i legend]

Metti alle ruote l' 11 che equivale a Tutte..
;-)
Mi fa specie che ti hanno visitato in 22 e nessuno te lo ha suggerito...?!

Ciao toon
Nulla di strano in realtà, se xhi ha letto il post non è registrato e quindi non può scrivere oppure non conosce gli script.
Ciao

 

[Sakti]

Grazie per il chiarimento i legend, pensavo che chi non è registrato non venisse conteggiato, perdonate l'errore..
Alien hai fatto Dim ruote(10) oppure Dim ruote(12) ?

 

[i legend]

Grazie per il chiarimento i legend, pensavo che chi non è registrato non venisse conteggiato, perdonate l'errore..
Alien hai fatto Dim ruote(10) oppure Dim ruote(12) ?

Toon , non saprei con sicurezza .

 

[Alien.]

Perdonatemi , ma mi son perso lo script ne ho oltre cento l'errore è non aver dato un codice allo script spero di recuperarlo.
E uno script preso qua chiesto se possibile inserire su tutte ma non avendo avuta nessuna risposta l'ho postato qua.
Vedo di ritrovarlo se poi non mi corre ...dietro chi l'ha fatto

 

[Zetrix]

Alien quale e il problema vuoi dimensionare le ruote..

Dim ambata1(2),ambata2(2),ambata3(2),calc(5),ruota(5),ruote(5),posta(1),poste(2)


ruota(1) = r1
ruota(2) = r2
'---------------------------------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
'---------------------------------------------

se ti serve qualche script chiedi a me che ho piu di 5000 script..

 

[Alien.]

Ciao cosa hai per il superenalotto e 10elotto ........!!!

 

[Zetrix]

Option Explicit
Sub Main
   Dim TipoArc
   Dim nCicli
   Dim Inizio,Fine
   Dim idEstr
   Dim idDecina
   Dim sErr
   Dim nTotale
   ReDim aNum(10)
   ReDim aRuote(1)
   nCicli = Int(InputBox("Inserire il numero dei cicli",,10))
   TipoArc = ScegliArchivio
   Inizio =(EstrazioniArchivioDL -(nCicli * 18)) + 1
   Fine = EstrazioniArchivioDL - 17
   If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
      Call ImpostaArchivio10ELotto(TipoArc)
      For idDecina = 1 To 9
         nTotale = 0
         Call AlimentaNumeri(idDecina,aNum)
         ReDim aTitoli(2)
         aTitoli(1) = "   Range       "
         aTitoli(2) = "   Frequenza   "
         Call InitTabella(aTitoli,RGB(0,214,153),,3,0,"Dubai Light")
         For idEstr = Inizio To Fine Step 18
            ReDim aValori(2)
            aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 17)
            aValori(2) = SerieFreqDL(idEstr,idEstr + 17,aNum,1)
            nTotale = nTotale + CLng(aValori(2))
            Call AddRigaTabella(aValori,,"Dubai Light")
            Call SetColoreCella(1,RGB(0,100,150),6)
            Call SetColoreCella(2,RGB(0,71,171),6)
            Call SetColoreCella(3,RGB(0,71,171),6)
            Call SetColoreCella(4,RGB(0,71,171),6)
            Call SetColoreCella(5,RGB(0,71,171),6)
            Call SetColoreCella(6,RGB(0,71,171),6)
            Call SetColoreCella(7,RGB(0,71,171),6)
            Call SetColoreCella(8,RGB(0,71,171),6)
            Call SetColoreCella(9,RGB(0,71,171),6)
            Call SetColoreCella(10,RGB(0,71,171),6)
         Next
         ReDim aValori(2)
         aValori(1) = "Totale"
         aValori(2) = nTotale
         Call AddRigaTabella(aValori,RGB(0,214,153),,3,0,"Dubai Light")
         Call Scrivi("Decina analizzata " & StringaNumeri(aNum))
         Call Scrivi
         Call CreaTabella
      Next
   Else
      If nCicli <= 0 Then
         sErr = "Numero di cicli non valido"
      End If
      If Inizio <= 0 Then
         sErr = "Troppi cicli rispetto alle estrazioni del range"
      End If
      If idDecina <= 0 Then
         sErr = "Nessuna decina selezionata"
      End If
      If TipoArc <= 0 Then
         sErr = "Specificare quale archivio 10 e lotto"
      End If
      MsgBox sErr,vbCritical
   End If
End Sub
Function ScegliDecina()
   ReDim aVoci(8)
   Dim k,i
   For k = 1 To 81 Step 10
      aVoci(i) = "Decina " & k & " - " & k + 9
      i = i + 1
   Next
   ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
   Dim i,k,y
   i =((idDecina - 1) * 10) + 1
   For k = i To(i - 1) + 10
      y = y + 1
      aNum(y) = k
   Next
End Sub
Function ScegliArchivio()
   ReDim aVoci(1)
   aVoci(0) = "Dieci e lotto"
   aVoci(1) = "Dieci e lotto 5 min"
   ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function

Alien non ho molto di script del 10elotto e superenalotto..
ho questo script del 10elotto vedi se ti serve a qualcosa..

 

[Alien.]

è ma non mi da nessun pronostico solo frequenze delle decine.

 

[Zetrix]

lo so che non da nessun pronostico per questo te lo regalato lo script
se vuoi ti posso dire come devi fare una previsione al 10elotto serale
la colonna vincente del 10elotto i numeri devono essere disposti su due righe
ogni riga deve avere i 10 numeri del 10elotto gli altri scrivono i numeri in modo disordinati
cioe non sono ordinati su due righe e cosi non puoi fare nessuna previsione..



vedi i numeri del 10elotto devono essere disposti in questo modo..
adesso si possono scegliere diversi modi prendi due numeri che sono consecutivi
nella 1 riga abbiamo 44 45 e nella 2 riga abbiamo 86 e 90
li disponi in questo modo i numeri..
44 45
86 90
..............................da sistemare
44 45
89 90
..............................corretto
abb 90-86=4
..............................

i numeri in gioco sono 89 4 da giocare al 10elotto

.............................

 

[Alien.]

acc.... Grazie vedo un pò di trafficarci .....

 

[Zetrix]

Alien quella tecnica la usavo anche per il 10elotto ogni 5 minuti
se vuoi giocare piu numeri posso vedere di calcolare altri numeri
ma adesso e tardi domani ti dirò quali altri numeri puoi giocare al 10elotto
buonanotte

 

[Zetrix]

Alien scrivo una discussione per il 10elotto ..ok

 

[Alien.]

OK Grazie.