che se pò fà

[Alien.]

Ciao,una cortesia,mi servirebbe uno script (lotto) -1) immetto un numero-2) mi dice quante volte è uscito-3 )ruota a richiesta e tutte-4) con quali numeri-5) in 10/100/200 estrazioni- 6) mi dice i 10/20 numeri con i quali è uscito più frequentemente su ruota e tutte-7) quali numeri sono più probabili 8) mi da 5 numeri per la cinquina che vince al primo colpo ..acc.....scherzo che se pò fà,grazie.



dimenticavo con la possibilità di inerire da 1 a 5/6 ruote da visualizzare le uscite e frequenze ...gulp

 

[Alien.]

 

[Alien.]

OK NON SE PO' FA'

 

[jp4]

ciao Alien,
ma tu hai qualche software di lotto?
per esempio con L8 o il suo erede lottodesk questi dati li potresti ottenere

 

[Alien.]

Ciao jp4 no mi spiace.

 

[i legend]

Ciao a tutti , mi sembra che uno script del tutto simile l avevo gia realizzato per un altro utente, cmq l ho rifatto
Visto che sono fuori allenamento , sicuramente lo script si puo ottimizzare e velocizzare,se volete utilizzarlo pero dovete confrontare i dati con altre fonti,
se trovate valori discordanti comunicatelo per favore.
ho utilizzato spaziometria 1.6.31 non so se se sia compatibile con versioni diverse
ciao

Option Explicit
Sub Main
   Dim StrMessInfo
   StrMessInfo = MsgBox("Lo script non puo essere venduto o ceduto dietro richiesta donazione" & vbCrLf & _
   "spetta all utente finale Verificare  i dati  raccolti ,eventuali bug possono essere sempre presenti" & vbCrLf & _
   "se continui nell analisi lo fai consapevolmente e a tuo rischio e pericolo" & vbCrLf & _
   "il gioco del lotto è vietato ai minori di anni 18 e può provocare grave dipendenza patologica" & vbCrLf & _
   "VUOI PROSEGUIRE UGULAMENTE NELL ANALISI ? ",4,"Messaggio Informativo : Versione Spaziometria utilizzata: 1.6.31")
   If StrMessInfo = vbNo Then Exit Sub
   Dim Ini,Fin,nEstr: nEstr = ScegliRange(Ini,Fin,3950,EstrazioneFin)
   If nEstr = 0 Then Call MsgBox("Non hai inserito un range estrazioni valido",vbYes,"Error"): Exit Sub
   ReDim aRuote(0):Call ScegliRuote(aRuote)
   If UBound(aRuote) < 1 Then Call MsgBox("Non hai inserito alcuna ruota",vbYes,"Error"): Exit Sub
   Dim n,nColT,R,col,m,strCg
   Dim nCg
   nCg = CInt(InputBox("1=1 Numero fisso,sviluppo in ambo" & vbCrLf & "2=2 numeri fissi,sviluppo in terno","Seleziona Numero Capogioco",1))
   If nCg < 1 Xor nCg > 2 Then
      Call MsgBox("Non puoi inserire " & nCg & " Capogiocgi",vbError,"Errore")
      Exit Sub
   End If
   ReDim aCg(nCg)
   aCg(0) = "Nessun Capogioco inserito"
   For n = 1 To nCg
      aCg(n) = CInt(InputBox("Seleziona Un numero compreso tra 1 è 90","capogioco inserito : " & aCg(n - 1),1))
      If aCg(n)=aCg(n-1) Then 
       Call MsgBox("Hai inserito l numero : " & aCg(n) & "  due volte",vbYes,"Error")
         Exit Sub
      End If

      If isNumeroValidoLotto(aCg(n)) = False  Then
         Call MsgBox("Il numero inserito: " & aCg(n) & "  non è un numero valido",vbYes,"Error")
         Exit Sub
      End If
      strCg = strCg & aCg(n) & " "
   Next
   Call SetColorSezione(RGB(240,240,240))
   Scrivi FormatSpace(" Range Analisi ",194),1,,RGB(134,134,134),vbWhite
   Scrivi
   Scrivi " da               : " & GetInfoEstrazione(Ini),1,,,RGB(47,47,48)
   Scrivi " a                : " & GetInfoEstrazione(Fin),1,,,RGB(47,47,48)
   Scrivi " " & String(256,"."),,,,,0.5
   Scrivi
   Scrivi " Numeri fissi     : " & strCg
   Call EndColorSezione
   Call SetColorSezione(RGB(250,250,250))
   Scrivi " Sorte analizzata: Ambo"
   Scrivi " FRZ             : frequenza"
   Scrivi " R.C             : ritardo cronologico"
   Scrivi " R.MAX           : ritardo storico"
   Scrivi
   Scrivi
   ReDim aNum(90)
   For n = 1 To 90
      aNum(n) = n
   Next
   Dim aR(1),aCol(3)
   Dim cell
   nColT = InitSviluppoIntegrale(aNum,nCg + 1,aCg)
   ReDim aColTab(37)
   Call TestoTab(aColTab,aRuote)
   Do While GetCombSviluppo(aNum)
      ReDim aTab(UBound(aRuote)*3 + 1)
      aTab(1) = StringaNumeri(aNum," ",True)
      m = 1
      For R = 1 To UBound(aRuote)
         aR(1) = aRuote(R)
         aCol(1) = SerieFreqTurbo(Ini,Fin,aNum,aR,2)
         aCol(2) = SerieRitardoTurbo(Ini,Fin,aNum,aR,2)
         aCol(3) = SerieStoricoTurbo(Ini,Fin,aNum,aR,2)
         For col = 1 To 3
            m = m + 1
            aTab(m) = aCol(col)
         Next
      Next
      Call AddRigaTabella(aTab)
      Call SetColoreCella(1,RGB(240,240,240),RGB(198,0,0))
      For cell = 2 To UBound(aTab)
         Call SetColoreCella(Int(cell),,aColTab(cell))
      Next
   Loop
   Call SetTableWidth("100%")
   Call SetTableHeight("296 pxz")
   CreaTabellaOrdinabile()
End Sub
Sub TestoTab(aColTab,aRuote)
   ReDim aTit(UBound(aRuote)*3 + 1)
   aTit(1) = "Form"
   Dim r,m,col,aCol(3),aColCell(3)
   m = 1
   aColCell(1) = RGB(0,128,192)
   aColCell(2) = RGB(63,63,63)
   aColCell(3) = RGB(255,0,0)
   aCol(1) = "[ FRZ ]":aCol(2) = "[ R.C ]":aCol(3) = "[ R.Max ]"
   For r = 1 To UBound(aRuote)
      For col = 1 To 3
         m = m + 1
         aTit(m) = SiglaRuota(aRuote(r)) & " " & aCol(col)
         aColTab(m) = aColCell(col)
      Next
   Next
   Call InitTabella(aTit)
End Sub

ciao a tutti

 

[i legend]

Ciao ho notato che nella richiesta c era anche la statistica del capogioco. Ho inserito anche questo nello script. Se interessa a qualcuno lo posto. Fatemi sapere. Ciao

 

[Alien.]

Ciao LEGEDEN è certo che interessa ma su tutte si potrebbe sapere in quale ruota/e è più frequente e quali sono i primi dieci numeri ?
grazie.(si lo so basta esportare in excel ma...se è possibile)

Senti si potrebbero cercare i 10/20 numeri più frequenti -- immetterli da input--dal ------ al ------avendo l'archivio lotto con uno script ? grazie.