X Mike58

[chicco3]

Ciao Mike58 ti saluto con piacere tu che conosci bene il linguaggio di vbnet di visual 7 ti allego script per la ricerca di numeri nelle fasce, potresti per favore modificarmi crea (estrazione.ultima) con quella
("Data Fine:",Estrazione.Ultima-10,Estrazione.Ultima) cosi posso controllare per data. Aspettando una tua risposta al momento ti ringrazio Raffaele

 

[Mike58]

Ciao Raf, è un pò di tempo che non mi occupo di script vbnet , ma la correzione richiesta è abbastanza semplice.
Prova a vedere se corrisponde ed i risultati sono corretti.

Sub Main()
    
    'Fascia Di Ritardo: Presenze Reali/Teoriche,Scarto e Numeri presenti
    dim fin as integer
    Dim Ruote(1) As Integer
    Dim Ruota,a,Nrit As Integer
    Dim TabP, TabT, Scarto As Double
    Dim FasciaMin As Integer = Input.Lista("Inizio Fascia",0,100)
    Dim FasciaMax As Integer = Input.Lista("Fine Fascia",FasciaMin+1,200)
    dim qt = input.testo("Quante estrazioni indietro",10)
    Testo.Output("Elaborato Estrazione Ultima : "  & estrazione.data (Estrazione.ultima -qt))
    Testo.Output("Fascia Di Ritardo: "& FasciaMin &"-"& FasciaMax,"#262626","Courier","16",1)
    fin = estrazione.ultima - qt
    Testo.Out()
    Tabellone.Crea(fin)
    
    Table.Open("40%","Courier","13","#3F3F3F;#3F3F3F","Black",1,2,2,True)
    Table.SetHeader("Slategray;#262626","#FFFFFF", "Gray",3,25)
    Table.SetRow("#262626;Slategray","#FFFFFF" , "Gray",3,23)
    Table.TH_Style(" RUOTA ")
    Table.TH_Style(" PRESENZE ")
    Table.TH_Style(" TEORICHE ")
    Table.TH_Style(" SCARTO ")
    Table.TH_Style(" NUMERI PRESENTI ")
    For Ruota = 1 To 11
        TabP = Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)
        TabT = Format(Tabellone.PresenzeTeoriche(FasciaMin,FasciaMax),"0.00")
        Scarto = Tabellone.Scarto(Ruota,FasciaMin,FasciaMax)
        Table.Row(_INS)
        
        Table.TD_Style(NomeRuota(Ruota),,,"Left")
        Table.TD_Bar("Aqua;DodgerBlue",TabP*2.5,TabP,1,"13")
        Table.TD_Style(TabT)
        If Scarto >= 0 Then  Table.TD_ArrowUp(0,"+"&  Format(Scarto,"0.00")) Else Table.TD_ArrowDown(1, Format(Scarto,"0.00"))
        
        Dim strnum As String = ""
        For a  = 1 To 90
            Ruote(1)= Ruota
            Nrit = Estratti.Ritardo(fin,ruote,a)
            If Nrit >= FasciaMin andAlso Nrit <= FasciaMax And Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)> 0 Then
                strNum += FormatN2(a) + "."
            ElseIf Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)= 0 Then
                strNum = Left(strNum &"-",2)   
            End If
        Next
        Table.TD_Style(Left(strNum,Len(strNum)-1),,,"Left")
        Table.Row(_END)
    Next
    Table.Close()
End Sub

 

[Mike58]

Prova anche le mie fascie di ritardo settate per fascie definite.

Sub Main()
    
    # If Info Then
    Fascie di Ritardo alla Estrazione Precedente
    Verifica sortite alla Estrazione.Fine
    Script By Mike58 - VL7 Script (Versione Minima: 7.3.1)
    # End If
    '............inserisci le variabili dichiarate In Dim As Integer ............................
    Dim ini As Integer = Estrazione.Ultima-200
    Dim fin As Integer = Estrazione.Ultima-1
    Dim fine As Integer = Estrazione.Ultima
    Dim n,r ,k1,k2,k3,k4,k5 As Integer
    Dim Ruota(1),Num(1) As Integer
    Dim sr,Rit10(90),Rit20(90),Rit30(90),Rit40(90),Rit50(90) As Integer
    Dim Fre,Rit,Sto As Integer
    
    For r = 1 To 11
    
    '.............................Fine Dim ......................................................
    Script.TimerStart ' time start
    
        '-------------- Set Tabella -------------------------------------------------
        Table.Open("100%","Courier","12",Gradient.Gray2,"#000000" ,"1","4","3") ' Apri tabella
        Table.SetHeader("#595959;#3F3F3F","Beige","#000000",2,20)               ' set titoli colori
        Table.SetRow(Gradient.Transparent,"Black","#808080",2,18)               ' set Righe colori
        '-------------- scrivi Titoli -----------------------------------------------
        Table.TH_Style("Fascia")
        Table.TH_Style("RUOTE")
        Table.TH_Style("FORMAZIONI")
        Table.TH_Style("Q.tà")
        Table.TH_Style("Verifica Fin")
        'Table.TH_Style("STORICO RUOTE")
        'Table.TH_Style("ESITI PER "& UCase(SorteTestuale(Sceglisorte)) &" SU "& Colpi &" COLPI")
        '----------------------------------------------------------------------------------------
        
        'inserisci codice voluto
        For n = 1 To 90
            Ruota(1) = r
            'Num(1) = n
            'Stat.AnalisiSerie(ini,fin,Ruota,Num,_Estratto)
            Estratti.Statistiche(ini,fin, Ruota, Fre, Rit, Sto, n)
            
            If Rit >= 0 Then
                If Rit <= 10 Then
                    k1 = k1 + 1
                    ReDim Preserve Rit10(k1)
                    Rit10(k1) = n
                    Dim sortita As Integer = ControllaEsito(fine,Ruota,Rit10,1,_Estratto)
                    
                    
                    
                    
                End If
            End If
            
            If Rit >= 11 Then
                If Rit <= 18 Then
                    k2 = k2 + 1
                    ReDim Preserve Rit20(k2)
                    Rit20(k2) = n
                    'Dim sortitaa As Integer = ControllaEsito(fine,Ruota,Rit20,1,_Estratto)
                End If
            End If
            
            If Rit >= 19 Then
                If Rit <= 36 Then
                    k3 = k3 + 1
                    ReDim Preserve Rit30(k3)
                    Rit30(k3) = n
                    'Dim sortitaa As Integer = ControllaEsito(fine,Ruota,Rit20,1,_Estratto)
                End If
            End If
            
            If Rit >= 37 Then
                If Rit <= 54 Then
                    k4 = k4 + 1
                    ReDim Preserve Rit40(k4)
                    Rit40(k4) = n
                    'Dim sortitaa As Integer = ControllaEsito(fine,Ruota,Rit20,1,_Estratto)
                End If
            End If
            
            If Rit > 54 Then
                'If Rit <= 54 Then
                k5 = k5 + 1
                ReDim Preserve Rit50(k5)
                Rit50(k5) = n
                'Dim sortitaa As Integer = ControllaEsito(fine,Ruota,Rit20,1,_Estratto)
                'End If
            End If
        Next
        
        '----------------------------------------------------------------------------------------
        '---------------- inserisci Righe scrittura Tabella -------------------------------------
        Table.Row(_INS)
        
        Table.TD_Style("Fascia 00-10")
        Table.TD_Style(SiglaRuota(r))
        Table.TD_Style(ElencoNumeri(Rit10))
        Table.TD_Style(k1)
        
        
        Table.TD_Style(ElencoEsiti(False))
        
        
        Table.Row(_END)
        
        Table.Row(_INS)
        
        Table.TD_Style("Fascia 11-18")
        Table.TD_Style(SiglaRuota(r))
        Table.TD_Style(ElencoNumeri(Rit20))
        Table.TD_Style(k2)
        Dim sortitaa As Integer = ControllaEsito(fine,Ruota,Rit20,1,_Estratto)
        
        
        Table.TD_Style(ElencoEsiti(False))
        
        
        
        Table.Row(_END)
        
        Table.Row(_INS)
        
        Table.TD_Style("Fascia 19-36")
        Table.TD_Style(SiglaRuota(r))
        Table.TD_Style(ElencoNumeri(Rit30))
        Table.TD_Style(k3)
        Dim sortitab As Integer = ControllaEsito(fine,Ruota,Rit30,1,_Estratto)
        
        
        Table.TD_Style(ElencoEsiti(False))
        
        
        
        Table.Row(_END)
        
        Table.Row(_INS)
        
        Table.TD_Style("Fascia 37-54")
        Table.TD_Style(SiglaRuota(r))
        Table.TD_Style(ElencoNumeri(Rit40))
        Table.TD_Style(k4)
        Dim sortitac As Integer = ControllaEsito(fine,Ruota,Rit40,1,_Estratto)
        
        
        Table.TD_Style(ElencoEsiti(False))
        
        
        
        Table.Row(_END)
        
        Table.Row(_INS)
        
        Table.TD_Style("Fascia > -54")
        Table.TD_Style(SiglaRuota(r))
        Table.TD_Style(ElencoNumeri(Rit50))
        Table.TD_Style(k5)
        Dim sortitad As Integer = ControllaEsito(fine,Ruota,Rit50,1,_Estratto)
        
        
        Table.TD_Style(ElencoEsiti(False))
        
        
        
        Table.Row(_END)
        '................fine righe ..................................................................
        
        Table.Close()
        k1 = 0
        k2 = 0
        k3 = 0
        k4 = 0
        k5 = 0
    Next 
    
    Testo.Out()
    Testo.Out(Script.TimerEnd)
    
End Sub

 

[chicco3]

Ciao Mike58 grazie i dati vanno bene e ti ringrazio andrebbe bene anche cosi ho sbagliato io a metterti quella stringa se si può con tuo comodo volevo le date da poterle selezionare.Grazie e ti saluto con piacere buona Domenica.Raf

 

[chicco3]

Ottimo anche il tuo grazie vedi se riesci a farmi quella modifica.Ciao

 

[Mike58]

Visto che sul Forum si stanno studiando Le Lunghette omaggio anche delle lunghette fino a formazione (6 numeri)

Sub Main()
    
    
    Dim Ruote(1),num(1) As Integer '= Input.Ruote(Ruote)
    Dim Lung As Integer
    Dim ini As Integer = 1
    Input.Ruote(Ruote)
    Dim so,colpi,qt As Integer
    Dim x,xx As Integer
    Dim sRuota As String = ElencoRuote(Ruote)
    Dim clp As Integer
    Dim tot As Integer = Estrazione.Ultima - ini
    qt = Input.Lista("Quante Lunghette visualizzi",10,20,10)
    so = Input.ListaStr("Scegli SORTE","Ambo","Terno")
    Lung = Input.Lista("Num Lunghetta",2,6,3)
    so+=1
    Script.TimerStart()
    ' Script.ProgressBar(so,Lung,10)
    
    'ricerca le decine più In ritardo per la sorte terno sulle ruote selezionate   
    
    'Testo.Centrato
    Testo.Header("Script By Mike58")
    Testo.Out("Lunghette " & "(" & lung & ")" & " ritardatarie per : " & SorteTestuale(so))
    Testo.Output ("Estrazioni analizzate : " & tot,"#FF0000" ,"Cambria",18)
    '...........................................
    Table.Open("100%",,,,,1,3,3,True)
    
    Table.SetHeader(Gradient.Gray, "Black", "Gray")
    Table.SetRow(Gradient.White, "Black", "Gray")
    Table.TH_Style("Lunghette")
    Table.TH_Style("Ritardo")
    Table.TH_Style("Ruote")
    Table.TH_Style("Esito al Ritardo")
    Table.TH_Style("Rit.Sto")
    Table.TH_Style("InCr.Max")
    Table.TH_Style("Frequenze")
    Table.TH_Style("Indice di Conv")
    Table.TH_Style("Serie Ritardi")
    Table.TH_Style("Media Rit")
    'Table.TH_Style("Rapporto Rit")
    Table.TH_Style("Esito Ult. estraz.")
    
    Table.Row(_INS)
    Stat.RitardiFormazioni(Estrazione.Ultima-1, Ruote, Lung, so, qt)' codice per ritardo Lunghetta
    For x = 1 To qt
        
        Dim sNum As String = Stat.FormazioniNum(x)       
        Dim Numeri() As Integer = ConvStringaToArray(sNum)
        Dim rt As Integer = Stat.FormazioniRit(x)
        Dim sto,rit,fre As Integer
        Stat.AnalisiSerieFull(ini,Estrazione.Ultima,ruote,numeri,so)
        Dim incr As Integer = (rt-stat.storico)
        
        '--------------------------------------------
        Table.TD_Style(Stat.FormazioniNum(x))
        Table.TD_Style(Stat.FormazioniRit(x))
        Table.TD_Style(sRuota)
        ControllaEsito(Estrazione.Ultima-rt-1,ruote,Numeri,1,so)
        Table.TD_Style(ElencoEsiti(True))
        Table.TD_Style(stat.storico)
        Table.TD_Style(incr)
        Table.TD_Style(stat.frequenze)
        Table.TD_Style(Round(stat.frequenze/tot*rt,2))
        Table.TD_Style(Stat.RitardiSerie(10,True),,,"Left")
        'Dim sommaritP As Integer += Stat.RitardiSerie(10,False)
        'Table.TD_Style(sommaritP)
        Table.TD_Style(Stat.MediaRit)
        'Table.TD_Style(Stat.RapportoRit)
        ControllaEsito(Estrazione.Ultima,ruote,Numeri,1,2)
        Table.TD_Style(ElencoEsiti(True))
        
        Table.Row(_END)
    Next
    Table.Close()
    '.............................................................................................................
    
    
    Testo.Linea
    
    Stat.BestFreq(8072,Estrazione.Ultima,Ruote,Lung,so,qt)'codice per bestFrequenze Lunghetta
    
    'Testo.Linea
    Testo.Out("Elenco Formazioni + Frequenti")
    Testo.Linea
    Table.Open("100%",,,,,1,3,3,True)
    Table.SetHeader("#F5F5F5;#C3D69B", "Black", "Gray")
    Table.SetRow(Gradient.White, "Black", "Gray")
    Table.TH_Style("Lunghette")
    'Table.TH_Style("Frequenze")
    Table.TH_Style("Ruota")
    Table.TH_Style("Ritardo")
    Table.TH_Style("Rit.Storico")
    Table.TH_Style("InCr Max")
    Table.TH_Style("Frequenze")
    Table.TH_Style("Serie Ritardi")
    Table.TH_Style("Media Rit")
    Table.TH_Style("Indice di Conv")
    Table.TH_Style("Esito al Ritardo")
    Table.TH_Style("Esito Ultima")
    Table.Row(_INS)
    For xx = 1 To qt
        Dim sNumB As String = Stat.FormazioniNum(xx)       
        Dim NumeriB() As Integer = ConvStringaToArray(sNumB)
        
        Stat.AnalisiSerieFull(_DataNaz,Estrazione.Ultima,ruote,NumeriB,so)
        Dim RTA As Integer = stat.ritardo
        'Table.TD_Style(Stat.ElencoFormazioni)
        Table.TD_Style(Stat.FormazioniNum(xx))
        'Table.TD_Style(Stat.FormazioniFre(xx))
        Table.TD_Style(sRuota)
        Table.TD_Style(Stat.Ritardo)
        Table.TD_Style(Stat.Storico)
        Table.TD_Style(Stat.Ritardo-Stat.Storico)
        Table.TD_Style(Stat.Frequenze)
        Table.TD_Style(Stat.RitardiSerie(10,True),,,"Left")
        Table.TD_Style(Stat.MediaRit)
        
        Table.TD_Style(Round(stat.frequenze/tot*RTA,2))
        ControllaEsito(Estrazione.Ultima-RTA,ruote,NumeriB,1,so)
        Table.TD_Style(ElencoEsiti(True))
        ControllaEsito(Estrazione.Ultima,ruote,NumeriB,1,2)
        Table.TD_Style(ElencoEsiti(True))
        Table.Row(_END)
    Next
    Table.Close()
    Testo.Linea
    Testo.Out(Script.TimerEnd)
    
End Sub

 

[chicco3]

Buona pure questa molto veloce grazie.Sei micidiale e bravissimo come gli altri scripter che sono in questo forum

 

[Mike58]

prova la tua correzione richiesta (sono un pochetto arrugginito in vbnet è tanto che non lo uso)

Sub Main()
    
    'Fascia Di Ritardo: Presenze Reali/Teoriche,Scarto e Numeri presenti
    
    Dim Ruote(1) As Integer
    Dim Ruota,a,Nrit As Integer
    Dim TabP, TabT, Scarto As Double
    Dim FasciaMin As Integer = Input.Lista("Inizio Fascia",0,100)
    Dim FasciaMax As Integer = Input.Lista("Fine Fascia",FasciaMin+1,200)
Dim DataFine As Integer = Input.DataList("Ultima Estrazione",Estrazione.Ultima-15,Estrazione.Ultima)
    Testo.Output("Fascia Di Ritardo: "& FasciaMin &"-"& FasciaMax,"#262626","Courier","16",1)
    Testo.Output("Estrazione Fine : " & Estrazione.Data(DataFine))
    Testo.Out()
    Tabellone.Crea(DataFine)
    
    Table.Open("40%","Courier","13","#3F3F3F;#3F3F3F","Black",1,2,2,True)
    Table.SetHeader("Slategray;#262626","#FFFFFF", "Gray",3,25)
    Table.SetRow("#262626;Slategray","#FFFFFF" , "Gray",3,23)
    Table.TH_Style(" RUOTA ")
    Table.TH_Style(" PRESENZE ")
    Table.TH_Style(" TEORICHE ")
    Table.TH_Style(" SCARTO ")
    Table.TH_Style(" NUMERI PRESENTI ")
    For Ruota = 1 To 11
        TabP = Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)
        TabT = Format(Tabellone.PresenzeTeoriche(FasciaMin,FasciaMax),"0.00")
        Scarto = Tabellone.Scarto(Ruota,FasciaMin,FasciaMax)
        Table.Row(_INS)
        
        Table.TD_Style(NomeRuota(Ruota),,,"Left")
        Table.TD_Bar("Aqua;DodgerBlue",TabP*2.5,TabP,1,"13")
        Table.TD_Style(TabT)
        If Scarto >= 0 Then  Table.TD_ArrowUp(0,"+"&  Format(Scarto,"0.00")) Else Table.TD_ArrowDown(1, Format(Scarto,"0.00"))
        
        Dim strnum As String = ""
        For a  = 1 To 90
            Ruote(1)= Ruota
            Nrit = Estratti.Ritardo(DataFine,Ruote,a)
            If Nrit >= FasciaMin andAlso Nrit <= FasciaMax And Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)> 0 Then
                strNum += FormatN2(a) + "."
            ElseIf Tabellone.PresenzeFascia(Ruota,FasciaMin,FasciaMax)= 0 Then
                strNum = Left(strNum &"-",2)   
            End If
        Next
        Table.TD_Style(Left(strNum,Len(strNum)-1),,,"Left")
        Table.Row(_END)
    Next
    Table.Close()
End Sub

 

[chicco3]

Perfetto grazie un abbraccio virtuale Raf