UN AIUTO PER QUESTO SCRIPT

herat · 4 Agosto 2023

Buonasera, questo script dovrebbe evidenziarmi le coppie di ambate piu frequenti dopo un numero spia, ma ovviamente, essendoci qualche errore, non lo fa.
chiedo aiuto per la correzione, grazie!

PS con la stessa impostazione potete aiutarmi a crearne uno che evidenzia le terzine per ambata dopo numero spia?

Codice:

Sub Main()
Dim ru(3),ru1(1),n(4005,3),nu3(1),nu4(1),nu5(1)
Dim nu(2)
d1 = CInt(InputBox("SPIA1",,70))
r = CInt(InputBox("Ruota?",,2))
nn = CInt(InputBox("numeri da visualizzare?",,10))
ee = CInt(InputBox("Estrazione di partenza?",,4568))
c = CInt(InputBox("colpi?",,12))
'casi = 0
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi " (SPIA1 " & d1 & " SPIA2 " & d2 & ") su " & NomeRuota(r),True
Scrivi

For es = ini To fin
For p = 1 To 5
ru(1) = R
a = Estratto(es,r,p)
If a = d1 Then
nu3(1) = a
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu3(1)) & "-->> SPIA 1 " 
Scrivi String(34,"-")

casi = casi + 1
es2 = es + c
If es2 > fin Then es2 = fin End If
If es2 <> es Then
co = 0
For d = 1 To 89
For e = d + 1 To 90
co = co + 1
nu(1) = d
nu(2) = e
If SerieFreqTurbo(es2,es - 1,nu,ru,1) >= 1 Then
'n(co,1) = co
n(d,1) = d
n(d,2) = e
n(d,3) = n(D,3) + 1
End If
Next
Next
End If
End If
Next
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & nn & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,True,3
Scrivi " N° - PC ",True
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)) & " - " & Format2(n(x,3)),True' & " - " & Format2(n(x,4)),True
Next
End Sub

herat · 4 Agosto 2023

help me!

i legend · 4 Agosto 2023

Ciao Herat io ne avevo postato uno , che utilizzava le spie semplici e in posizione ,
Ma solo per ambata.
È da qualche parte nel forum.
Provo a cercarlo , magari se qualcuno l ha te lo posta qui.

herat · 5 Agosto 2023

Grazie mille I legend, purtroppo questi script sulle spie li ho persi tutti col vecchio pc.
nello script sopra c'è piu di un errore e infatti nell'output non mi scrive le coppie di ambate

i legend · 5 Agosto 2023

Ciao herat non lo trovo, ma ricordo che l avevano scaricato in molti. Continuo a cercare .

Per lo script sopra non ho modo do provarlo. Mi spiace.

salvo50 · 5 Agosto 2023

Ciao a Tutti

Quello di ILegend potrebbe essere questo

Codice:

Option Explicit
' salvo errori
' Verificare se lo script restituisce i valori esatti, non ho fatto le verifiche
Sub Main
    Dim Ini,Fin:Call ScegliRange(Ini,Fin,EstrazioneIni,EstrazioneFin) ' seleziono il range in cui effettuare la ricerca
    Dim iNumSpia:iNumSpia = GetInput(90,"NumeroSpia")
    Dim iPosSpia:iPosSpia = GetInput(5,"PosizioneSpia")
    ReDim aRuoteSpia(0): Call ScegliRuote(aRuoteSpia)
    Dim IdEstr,R,CStro :CStro = 0 ' inizializzo la variabile a zero
    Call SetColorSezione(RGB(19,60,79)) ' coloro la sezione del testo con i parametri di ricerca
    Scrivi "   Numero spia:     | " & Format2(iNumSpia),,,,RGB(244,250,253)
    Scrivi "   Posizione spia:  | " & iPosSpia,,,,RGB(244,250,253)
    Scrivi "   Ruote Spia:      | " & StringaRuote(aRuoteSpia),,,,RGB(244,250,253)
    Scrivi "   RangeRicerca     | " & DataEstrazione(Ini) & "-" & DataEstrazione(Fin),,,,RGB(244,250,253)
    EndColorSezione
    Call SetColorSezione(RGB(71,165,209)) ' coloro la sezione dell outPut di ricerca
    Scrivi Space(1),,0
    Scrivi Space(2) & FormatSpace("CStro",5) & Space(2) & "|" & Space(2) & "DataEstraz" & Space(2) & "|" & Space(2) & "Ru" & Space(2) & "|" & Space(2) & "StringaEstratti  ",1,,RGB(35,105,139),RGB(243,251,252)' scrivi i titoli delle colonne
    'Utilizzo il separatore | Cosi si possono esportare i dati piu agevolmente
    For IdEstr = Ini To Fin ' ciclo il range di ricerca
        For R = 1 To UBound(aRuoteSpia) ' ciclo le ruote di ricerca
            If Posizione(IdEstr,aRuoteSpia(R),iNumSpia) = iPosSpia Then ' detto la condizione richiestra  e se è vera allora
                CStro = CStro + 1 ' conto i casi trovati incrementando i valori di 1
                Scrivi Space(1),,0
                Scrivi Space(2) & FormatSpace(CStro,5,True) & Space(2) & "|" & Space(2) & DataEstrazione(IdEstr) & Space(2) & "|" & Space(2) & _
                SiglaRuota(aRuoteSpia(R)) & Space(2) & "|" & Space(2) & StringaEstratti(IdEstr,aRuoteSpia(R)) & Space(3),,,RGB(244,250,253),RGB(19,60,79) ' scrivi in output se la conzione è rispettata
            End If
        Next
    Next
    Scrivi
    EndColorSezione
End Sub
' con questa funzione prendo i dati in input
' Questa funzione è molto flessibile e carica solo elementi numerici ma si puo facilmente adattare per caricare testi con array
Function GetInput(nElementi,sTesto)
    ReDim aV(nElementi - 1)' dichiaro il vettore che contiene gli elementi
    Dim i : For i = LBound(aV)To UBound(aV): aV(i) = i + 1:Next ' carico il vettore partendo da indice zero e sommo + 1 Valore minimo di partenza
    GetInput = ScegliOpzioneMenu(aV,0,sTesto) + 1 'sommmo +1 perchè restituisca l indice esatto della combobox
End Function

i legend · 5 Agosto 2023

Ciao Salvo,credo sia questo ,
Più persone lnavevano testato e sembrava corretto.

i legend · 5 Agosto 2023

Cmq non è quello che serve a herat, lei sta cercando le coppie e le terne.

Ciao, se avessi avuto il pc , ci avrei provato.

salvo50 · 5 Agosto 2023

Questo cerca ambi più frequenti dopo spia

Codice:

Sub Main()
Dim ru(2) : Dim ambi(4005,5) : Dim nn(2)
r = InputBox("su quale ruota ? 1-10",,1)
n1 = InputBox(" Numero Spia - ",,1)
For i = 1 To 4005
ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
Next
casi = 0 : co = 0 : fin = EstrazioneFin : ini = 7694'7086 per 31-12-2001''6584 per 12-03-1997 doppia estrazione'
For es = ini To fin
Messaggio " Spia " & CInt(n1) & " est. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " ad oggi"
If Posizione(es,r,n1) > 0 Then
casi = casi + 1 : c = 9 : ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1 : ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y : nn(1) = x : nn(2) = y : ru(1) = r
ambi(co,4) = ambi(co,4) + SerieFreq(es + 1,ess,nn,ru,2)
Next
Next
End If
Next
OrdinaMatrice ambi,- 1,4
ColoreTesto 1
Scrivi " Spia " & CInt(n1) & " su " & NomeRuota(r) & " - Ambi più frequenti, " & c & " colpi, " & CInt(casi) & " casi" & " dal " & DataEstrazione(ini) & " ad oggi"
Scrivi
Scrivi " Ambi a ruota"
ColoreTesto 2
Scrivi String(10," ") & "Ambo   Frequenza"
ColoreTesto 0
For x = 1 To 10
riga = Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "      " & Format2(ambi(x,4))
Scrivi String(9," ") & riga
riga = ""
Next
Scrivi "********************************************************"
End Sub

herat · 5 Agosto 2023

Grazie mille ,davvero gentilissimi.
una cortesia, quello che ho postato io non si puo modificare per le terzine?

i legend · 5 Agosto 2023

Ciao Herat , sono senza PC, mi spiace.

MARIA61 · 6 Agosto 2023

Sub Main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","14.15")
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",100)
rtt(1) = 11
Erase nu1 : Erase nu2 : Erase nu3 : Erase nu4 : Erase mat
fin = EstrazioneFin
ini = EstrazioneFin - tmp
For es = ini To fin
Messaggio " Numeri Spia " & StringaNumeri

& " Data " & DataEstrazione(es)
For r = 1 To 10
x(1) = n(1) : x(2) = n(2)
For p = 1 To 5
a = Estratto(es,r,p)
If a = n(1) Or a = n(2) Then
If a = n(1) Then x(1) = 0 Else x(2) = 0
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
b = Estratto(es,r1,p)
If b = x(1) Or b = x(2) Then
Call informa(es,r,a,r1,b)
casi = casi + 1
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
nn(1) = x1 : nn(2) = y1 : ru(1) = r : ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
nn1(1) = x1 : nn1(2) = y1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
mat(co,1) = co : mat(co,2) = x1 : mat(co,3) = y1
ne(1) = x1 : ne(2) = y1
xf = SerieFreq(es + 1,ess,ne,rtt,2)
mat(co,4) = mat(co,4) + xf
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co : nu3(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co : nu4(co,2) = xx
nn2(1) = xx
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
Next
End If
Next
Next
Next
OrdinaMatrice mat,- 1,4
OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3
ColoreTesto 2
Scrivi "Formazione Spia Cercata ISOTOPA su due ruote " & StringaNumeri

& " dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
" estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
"+presenti nei c. / Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
ColoreTesto 0
For wx = 1 To 20
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
Format2(nu4(wx,3))
Scrivi Space(7) & riga,1
riga = ""
Next
Scrivi String(90,"*")
Scrivi : ColoreTesto 1 : Scrivi Space(4) & "Ambi + frequenti a TUTTE",1 : ColoreTesto 0
For wx = 1 To 20
riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
Scrivi Space(8) & riga,1
riga = ""
Next
End Sub
Function informa(es,r,a,r1,b)
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & Format2(a) & " e " & SiglaRuota(r1) & " " & Format2(b),1
End Function

NONSO INCOLLAR COMUNQUE 2 NUMERI

NON

MARIA61 · 6 Agosto 2023

Option Explicit
Class clsAmbo
Private aNumeri(2)
Private m_Presenze
Private m_Key
Private m_Ritardo
Private m_RitardoMax
Public Property Let Key(v)
m_Key = v
End Property
Public Property Get Key()
Key = m_Key
End Property
Public Property Get Presenze()
Presenze = m_Presenze
End Property
Public Property Let Presenze(v)
m_Presenze = v
End Property
Public Property Get NumeriString
NumeriString = StringaNumeri(aNumeri,,True)
End Property
Public Property Get Ritardo
Ritardo = m_Ritardo
End Property
Public Property Get RitardoMax
RitardoMax = m_RitardoMax
End Property
Sub SetNumero(id,Numero)
aNumeri(id) = Numero
End Sub
Sub StatisticaAmbo(nInizio,nFine,nRuota)
ReDim aRuota(1)
aRuota(1) = nRuota
Call StatisticaFormazione(aNumeri,aRuota,2,m_Ritardo,m_RitardoMax,0,0,nInizio,nFine)
End Sub
End Class
Class clsEstrazione
Private m_collAmbi
Private m_IdEst
Private m_Inizio
Private m_Fine
Public Property Get Inizio
Inizio = m_Inizio
End Property
Public Property Let Inizio(v)
m_Inizio = v
End Property
Public Property Get Fine
Fine = m_Fine
End Property
Public Property Let Fine(v)
m_Fine = v
End Property
Public Property Get CollAmbi
Set CollAmbi = m_collAmbi
End Property
Public Property Let IdEst(v)
m_IdEst = v
End Property

LUIGI B

MARIA61 · 6 Agosto 2023

Sub Main()
'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
'ColoreTesto 2
'Scrivi "Spia - migliori ambate sortite + Ritardi ",1
ColoreTesto 0
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90)',aruote(1)',anum(90)
Call Scrivi(" **** Listato Spia **** by Mike58 **** ",True,True,2,4,5)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,90))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,14))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota ?",,1))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
'---------init tabella----------------------------------------------
ReDim atitoli(6)
atitoli(1) = " Numeri dopo SPIA "
atitoli(2) = " Presenza su Casi "
atitoli(3) = " Rit. corrente "
atitoli(4) = " Rit.Max nel ciclo "
atitoli(5) = " freq in 14 Es."
atitoli(6) = " Freq Tot "

Call InitTabella(atitoli,1,,3,5)
'---------- fine titoli tabella -------------------------------------
'---------------------------------
'g = 0
For es = ini To fin
'If g = 1 Then: es = es + cl : g = 0
'End If
If Posizione(es,r1,nn) > 0 Then
'g = 1
'------------------------------------Modifica
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo
rs = SerieStorico(fin - ee,fin,nu,ru,1)
fru = SerieFreq(EstrazioneFin - 14,EstrazioneFin,nu,ru,1)
fre = SerieFreqTurbo(Ini,fin,nu,ru,1)
'rtc = SerieFreq(ini,fin,ru,nu,2)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
n(co,7) = fre
'n(co,7) = rtc
ca = EstrazioneFin - es
cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
ColoreTesto 0
Scrivi"Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
& "estrazioni Totali esaminate : " & ee,2
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" & " ----- n° estraz.trascorse ---> " & cna,1
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
OrdinaMatrice n,- 1,3
For w = 1 To am
riga = riga & Format2(n(w,1)) & " "

anum(w) = n(w,1)

rtc2 = SerieRitardo(Ini,fin,anum,ru,2)
rtc1 = SerieRitardo(Ini,fin,anum,ru,1)
rtc3 = SerieRitardo(Ini,fin,anum,ru,3)
fr1 = SerieFreq(Ini,fin,anum,ru,1)
fr2 = SerieFreq(Ini,fin,anum,ru,2)
fr3 = SerieFreq(Ini,fin,anum,ru,3)

'-------- scrivi valori -------------------------------------------------
ReDim avalori(6)
avalori(1) =(n(w,2))
avalori(2) =(n(w,3)) & " su " & cnn
avalori(3) =(n(w,4))
avalori(4) =(n(w,5))
avalori(5) =(n(w,6))
avalori(6) =(n(w,7))

Call AddRigaTabella(avalori,,,3)
If avalori(3) = 0 Then Call SetColoreCella(1,,2)
If avalori(3) = 0 Then Call SetColoreCella(3,,2)

Next
CreaTabella()
ColoreTesto 0
Scrivi "===================================================================================",1
Scrivi
ReDim atit(6)
atit(1) = " Combinazione "
atit(2) = " Ritardo per ambo "
atit(3) = " Frequenza per ambo "
atit(4) = " Rit. Max storico "
atit(5) = " Estratti "
atit(6) = " In data ES "
Call InitTabella(atit,3,,3,1)
Call StatisticaFormazione(anum,ru,2,ritardo,ritmax,Incrmax,frequenza,Ini,fin)
Call VerificaEsito(anum,ru,fin - ritardo,2,ritardo,,esito,colpi,estratti,id)
ReDim aval(6)
aval(1) = riga
aval(2) = ritardo
aval(3) = frequenza
aval(4) = ritmax
aval(5) = estratti
aval(6) = DataEstrazione(id)
Call AddRigaTabella(aval,4,,3)
CreaTabella
Scrivi "===================================================================================",1
End Sub

MIKE 58

LuigiB · 6 Agosto 2023

Ciao a tutti , l'ambata è quando uno gioca due numeri nella speranza di prenderne uno ? Se la risposta è si , se nella prossima estrazione uscisse per esempio il numero 45 , tutte le coppie che contengono il numero 45 sono delle ambate che avrebebro portato alla vittoria ? Se la risposta è si allora lo script è il seguente.
Calcola ambate di classse da 1 a 3 , anche se mettendo 3 è molto lento.

Codice:

Option Explicit

Class clsAmbata
   Private aNum()
   Private mPresenze
  
   Public Property Get Presenze
      Presenze = mPresenze
   End Property
   Sub SetNumeri(aN)
      Dim nUpper,k
      nUpper = UBound(aN)
      ReDim aNum(nUpper)
      For k = 1 To nUpper
         aNum(k) = aN(k)
      Next
   End Sub
   Sub IncrementaPresenze
      mPresenze = mPresenze + 1
   End Sub
  
   Function GetStringaNumeri()
      GetStringaNumeri = StringaNumeri(aNum,,True)
   End Function
End Class

Class clsSpia
   Private mNumero
   Private mPresenze

   Private mCollAmbate
   Private Sub Class_Initialize()
      Set mCollAmbate = GetNewCollection
   End Sub
   Public Property Get Numero()
      Numero = mNumero
   End Property
   Public Property Let Numero(v)
      mNumero = v
   End Property
   Sub IncrementaPresenze
      mPresenze = mPresenze + 1
   End Sub

   Sub AddAmbata(nNumBase,nClasse)
      Dim sCol
      Dim cAmbata
      Dim aNumDaSvil
      Dim aFissi(1)
      ReDim aCol(nClasse)
     
      aFissi(1) = nNumBase
      aNumDaSvil = GetANumeri
      Call InitSviluppoIntegrale(aNumDaSvil,nClasse,aFissi)
      Do While GetCombSviluppo(aCol)
         sCol = StringaNumeri(aCol,,True)
         If GetItemCollection(mCollAmbate,sCol,cAmbata) Then
            Call cAmbata.IncrementaPresenze
         Else
            Set cAmbata = New clsAmbata
            Call cAmbata.SetNumeri(aCol)
            Call cAmbata.IncrementaPresenze
            Call AddItemColl(mCollAmbate,cAmbata,sCol)
         End If
      Loop
   End Sub
  
   Sub OrdinaAmbate
      Call OrdinaItemCollection(mCollAmbate,"Presenze",,,- 1)
   End Sub
  
   Sub ScriviInOutput(nQuantita , nEstrEsaminate)
      Dim k
      Dim cAmbata
    
      Dim aTitoli,aValori
     
      Call Scrivi("Spia : " & mNumero & " presenze : " & mPresenze  &  " (" & Round(ProporzioneX( mPresenze , nEstrEsaminate,100) ,2) & " %)"  ,True)
     
      Call Messaggio ("Ordinamento ambate ..." )

      Call OrdinaAmbate
      aTitoli = Array("","Ambate","Presenze","Percentuale")
      ReDim aValori(3)
     
      Call InitTabella(aTitoli,vbBlue,,,vbWhite)
      For Each cAmbata In mCollAmbate
     
         aValori(1) = cAmbata.GetStringaNumeri
         aValori(2) = cAmbata.Presenze
         aValori(3) = Round(ProporzioneX(cAmbata.Presenze,mPresenze,100),2)
        
         Call AddRigaTabella(aValori)
     
         k = k + 1
         If k = nQuantita Then
            Exit For
         End If
      Next
      Call CreaTabella
     
     
   End Sub
  
End Class
Sub Main

   Dim nIdEstr,nPos,sNum,j
   Dim nRuota,nClasseAmbata
   Dim CollSpie
   Dim cSpia
   Dim nInizio,nFine
   Dim bStop
   Dim nEstrEsam
  
   nInizio = EstrazioneIni
   nFine = EstrazioneFin
   nRuota = ScegliRuota
   nClasseAmbata = ScegliClasse
   Set CollSpie = GetNewCollection
 
  
   If nRuota > 0 And nClasseAmbata > 0 And nRuota <> TT_ Then
      If nClasseAmbata  > 2 Then
         If MsgBox ( "La classe " & nClasseAmbata  & " richiede notevoli tempi di elaborazione. Continuo ? Nel caso lo script si potrà interrompere", vbQuestion + vbYesNo) = vbNo Then Exit Sub
      End If
      For nIdEstr = nInizio To nFine - 1
         Call Messaggio ("Estrazione " & nIdEstr )
         For nPos = 1 To 5
            sNum = Format2(Estratto(nIdEstr,nRuota,nPos))
            If Not GetItemCollection(CollSpie,sNum,cSpia) Then
               Set cSpia = New clsSpia
               cSpia.Numero = sNum
             
               Call AddItemColl(CollSpie,cSpia,sNum)

            End If
            Call cSpia.IncrementaPresenze
            For j = 1 To 5
               Call cSpia.AddAmbata(Estratto(nIdEstr + 1,nRuota,j),nClasseAmbata)
            Next
         Next
         nEstrEsam = nEstrEsam +1
         Call AvanzamentoElab(nInizio,nFine - 1,nIdEstr)
         If ScriptInterrotto Then
             bStop = True
             Exit For
         End If
        
      Next
     
      If Not bStop Then
         Call Scrivi ("Estrazione " & GetInfoEstrazione( nIdEstr) & " Elenco delle ambate migliori di classe " & nClasseAmbata & "  dopo numero spia da tentare per la prossima estrazione")
         Call Scrivi
        
        
         For nPos = 1 To 5
            sNum = Format2(Estratto(nIdEstr,nRuota,nPos))
            If GetItemCollection(CollSpie,sNum,cSpia) Then
               Call cSpia.ScriviInOutput(3 , nEstrEsam)
            Else
               Scrivi "Numero spia " & sNum & " non pervenuto"
            End If
  
         Next
      End If
     
  Else
     MsgBox "Parametri inmput errati",vbExclamation
  End If
 
End Sub

Function ScegliClasse
  
   Dim i
   Dim aVoci(2)
   aVoci(0) = "1"
   aVoci(1) = "2"
   aVoci(2) = "3"
  
  
   i = ScegliOpzioneMenu(aVoci,1,"Scegli classe ambata")
  
   If i >= 0 Then
      ScegliClasse = Int(aVoci(i))
   Else
      ScegliClasse =0
   End If
End Function

herat · 6 Agosto 2023

Grazie mille a tutti

Cerca

Cerca

UN AIUTO PER QUESTO SCRIPT

herat

Advanced Member >GOLD<

herat

Advanced Member >GOLD<

i legend

Premium Member

herat

Advanced Member >GOLD<

i legend

Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

i legend

Premium Member

Cmq non è quello che serve a herat, lei sta cercando le coppie e le terne.

salvo50

Advanced Member >PLATINUM PLUS<

herat

Advanced Member >GOLD<

i legend

Premium Member

MARIA61

Junior Member

MARIA61

Junior Member

MARIA61

Junior Member

LuigiB

Guest

herat

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi

UN AIUTO PER QUESTO SCRIPT

Advanced Member >GOLD<

Advanced Member >GOLD<

Premium Member

Advanced Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Cmq non è quello che serve a herat, lei sta cercando le coppie e le terne.​

​

​

​

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Premium Member

Junior Member

Junior Member

Junior Member

LuigiB

Guest

Advanced Member >GOLD<

Cmq non è quello che serve a herat, lei sta cercando le coppie e le terne.