Novità

X Mike58

C

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

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

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
 
C

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

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

 
C

chicco3

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

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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto