Novità

X Mike58

chicco3

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

Allegati

  • SCRIPT.txt
    2 KB · Visite: 38

Mike58

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

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

Advanced Member >PLATINUM PLUS<
Prova anche le mie fascie di ritardo settate per fascie definite.

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

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

Allegati

  • DATA.png
    DATA.png
    6,6 KB · Visite: 8

Mike58

Advanced Member >PLATINUM PLUS<
Visto che sul Forum si stanno studiando Le Lunghette omaggio anche delle lunghette fino a formazione (6 numeri)

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

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

Mike58

Advanced Member >PLATINUM PLUS<
prova la tua correzione richiesta (sono un pochetto arrugginito in vbnet è tanto che non lo uso)

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto