Script in Twin Basic by Mike58

Mike58 · 23 Febbraio 2023

In questa raccolta metto una serie di script compilati in Twin Basic per testarne i nuovi codici e magari anche la velocità.

1° script
***** Estrapola Numeri che al Ritardo corrente sono in ciclicita ******
esempio

Ruota	Numero	RcR	Estratti	Ciclicità	ciclo	Conta
Milano	6	67	10068 - 06.64.08.61.26	134	2	1
Milano	24	39	10046 - 07.52.64.57.24	156	4	1
Milano	46	122	9958 - 54.87.85.46.08	244	2	1
Milano	53	47	9920 - 53.87.28.03.48	282	6	1
Milano	87	45	10112 - 30.50.87.12.80	90	2	1

46 Milano Ritardo corrente 122 è uscito 2 cicli fà al ritardo cronologico 244 (122*2) quindi futuro estratto.

Codice:

Dim ini As Long, fin As Long, r As Long, n As Long, es As Long
Dim a As Long, b As Long, er As Long, k As Long, c As Long, nu(1) As Long, ru(1)  As Long
Dim T As Variant
        ini = EstrazioniArchivio - 2000
        fin = EstrazioniArchivio
        For r = 1 To 11
        'n = InputBox("Numero in Esame",,59)       
        'T = "Num" & Space(5) & "Rit" & Space(5) & "RcR" & Space(8) & "Estratti" & Space(5) & "Ciclicità"
        'Scrivi (T,1)
        T = Array ("Ruota", "Numero", "RcR", " Estratti ", " Ciclicità", " ciclo ", " Conta ")
        Call InitTabella(T, vbGreen, , , vbWhite)
        For n = 1 To 90
            For es = ini To fin
                nu(1) = n
                ru(1) = r
                er = Ritardo (n, fin, 1, r)
                'er = EstrattoRitardo(n,r,ini,fin)
                If Posizione(es, r, n) > 0 And er > 36 Then
                    a = ((fin - es) / er)
                    b = er * Int((fin - es) / er)
                    c = b / er
                    If fin - es = b And c > 1 And c < 11 Then
                        k = k + 1
                        'Call AvanzamentoElaborazione(ini, fin)
                        'Scrivi (n & vbTab & er & vbTab & es & vbTab & StringaEstratti(es,r) & vbTab & fin - es & vbTab & c & vbTab & NomeRuota(r) )
                        'If k > 0 Then
                        T = Array(NomeRuota(r), n, er, es & " - " & StringaEstratti(es, r), fin - es, c, k)
                        Call AddRigaTabella(T)
                    End If
                End If
                'End If
                'k = 0
            Next
            'If k > 0 Then
                'Scrivi ("----------------------------------------------"  & " Numero " & n & " Casi trovati " & k )
                k = 0
            'End If
        Next
        Scrivi
        CreaTabella
        Next
        'Scrivi ("Tempo Di Elaborazione........... " & FormattaSecondi(SecondiTrascorsi))
   Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " Sec "

LuigiB · 23 Febbraio 2023

inutile dire che a Mike vanno i miei complimenti ..

Mike58 · 23 Febbraio 2023

2° script
statistica su combinazione di Numeri in Array con verifica Posiz. e setcolorecellarighe

Codice:

Dim Ret As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
Dim Retx As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
 Dim k As Long, T As Variant
 Dim R As Long, N As Variant, p As Long
 Dim Ess As Long, riga As String, rigax As String
 Dim Nu(5) As Long, aN(2) As Long
 N = Array (9, 90)
aN(1) = 9: aN(2) = 90
'
    T = Array("Ruota", "Numeri", "PresenzeMultiple", "Ritardo Corrente", "Ritardo Max", "IncrMax", "Estratti Ultima Presenza", "Riga Verifica Posiz")
    Call InitTabella(T, vbBlack, , , vbWhite)
For R = 1 To 11
'
    Call StatisticaSingoloEsito(N, EstrazioneIni, EstrazioneFin, 2, Ret, R)
'
    Ess = EstrazioneFin - Ret.RetValori.Ritardo
For p = 1 To 5
        Nu(p) = Estratto (Ess, R, p)
'
If Nu(p) = aN(1) Or Nu(p) = aN(2) Then
    riga = riga & Format2(Nu(p)) & "."
    Else
        riga = riga & "--."
End If
Next
    rigax = RimuoviLastChar(riga, ".")
    '
    Call Messaggio("Attendere elaborazione.... " & TempoElaborazioneSecondi)
    T = Array(SiglaRuota(R), StringaNumeri(N), Ret.RetValori.PresenzeMultiple, Ret.RetValori.Ritardo, Ret.RetValori.RitardoMax, Ret.RetValori.IncrementoRitMax, StringaEstratti(Ess, R), (rigax))
Call AddRigaTabella(T)
Call SetColoreCellaRighe(1, vbBlack, vbWhite)
If Ret.RetValori.Ritardo > 1000 Then SetColoreCellaRighe(3, RGB(77, 41, 239), vbWhite)

riga = ""
Next
CreaTabella
   Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " Sec "

Ruota	Numeri	PresenzeMultiple	Ritardo Corrente	Ritardo Max	IncrMax	Estratti Ultima Presenza	Riga Verifica Posiz
Ba	09.90	31	130	2255	0	82.90.20.09.28	--.90.--.09.--
Ca	09.90	18	451	955	0	47.45.90.78.09	--.--.90.--.09
Fi	09.90	26	693	1794	0	06.43.90.74.09	--.--.90.--.09
Ge	09.90	14	569	1163	0	09.74.18.51.90	09.--.--.--.90
Mi	09.90	25	165	1099	0	82.90.64.09.37	--.90.--.09.--
Na	09.90	24	209	1310	0	63.20.09.32.90	--.--.09.--.90
Pa	09.90	20	1613	1336	277	90.63.88.09.08	90.--.--.09.--
Rm	09.90	28	648	1329	0	09.90.45.17.61	09.90.--.--.--
To	09.90	40	174	1088	0	12.01.35.90.09	--.--.--.90.09
Ve	09.90	15	286	1415	0	60.09.90.56.86	--.09.90.--.--
Nz	09.90	13	571	553	18	90.15.09.38.43	90.--.09.--.--

Mike58 · 23 Febbraio 2023

3° script
EstrazioneFin - PosRitardo - RitPrecedente

Codice:

Dim Nu(5) As Long, aP(5)As Long, Ru(1)As Long, T As Variant, V As Variant, Rit(5) As Long, es As Long, r As Long
Dim p As Long, x As Long, k1 As Long, k2 As Long
   Dim Ini As Long = EstrazioneFin - 1
   Dim fin As Long = EstrazioneFin
   T = Array("Ruota", "ES1", "ES2", "ES3", "ES4", "ES5", "Ruota", "PZ1", "PZ2", "PZ3", "PZ4", "PZ5", "Ruota", "Rit1", "Rit2", "Rit3", "Rit4", "Rit5")
   For es = fin To Ini Step -1
   Call InitTabella(T, vbGreen, , , vbWhite, , "arial black ")
  
      For r = 1 To 11
         Ru(1) = r
         For p = 1 To 5
            Nu(p) = Estratto(es, r, p)
            aP(p) = PosizioneNumeroRitardo(es - 1, Nu(p), r)
            Rit(p) = Ritardo(Nu(p), es - 1, 1, r)
         Next
         Call Messaggio("Script by Mike58")
         V = Array(SiglaRuota(r), Nu(1), Nu(2), Nu(3), Nu(4), Nu(5), SiglaRuota(r), aP(1), aP(2), aP(3), aP(4), aP(5), SiglaRuota(r), Rit(1), Rit(2), Rit(3), Rit(4), Rit(5))
         Call AddRigaTabella(V)
         For x = 1 To 5
         If aP(x) < 6 Then Call SetColoreCellaRighe((x), vbRed, vbYellow)
         If aP(x) > 85 Then Call SetColoreCellaRighe((x), vbBlue, vbWhite)
         If aP(x) < 6 Then k1 = k1 + 1
         If aP(x) > 85 Then k2 = k2 + 1
         If aP(x) < 6 Then Call SetColoreCellaRighe((x + 6), vbGreen, vbBlue)
        
         If aP(x) > 85 Then Call SetColoreCellaRighe((x + 6), vbMagenta, vbWhite)
         If aP(x) < 6 Then Call SetColoreCellaRighe((x + 12), vbGreen, vbBlue)
         If aP(x) > 85 Then Call SetColoreCellaRighe((x + 12), vbMagenta, vbWhite)
         If aP(x) < 6 And Rit(x) > 99 Then Call SetColoreCellaRighe((x + 12), vbRed, vbYellow)
         Call SetColoreCellaTitolo(0, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaTitolo(6, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaTitolo(12, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(0, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(6, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(12, RGB(197, 197, 197), vbWhite)

         Next
        
      Next
  Scrivi DataEstrazione(es) & Space(5) & "Q.tà Ritardari " & k1 & Space(5) & "Ripetuti a Zero " & k2, 1
   k1 = 0
         k2 = 0
        
   CreaTabella
   Scrivi
    Next
    Scrivi "Tempo di Elaborazione in secondi... " & TempoElaborazioneSecondi, 1

21/02/2023 Q.tà Ritardari 3 Ripetuti a Zero 7

Ruota	ES1	ES2	ES3	ES4	ES5	Ruota	PZ1	PZ2	PZ3	PZ4	PZ5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5
Ba	66	61	81	25	26	Ba	89	83	78	14	58	Ba	0	1	2	26	7
Ca	43	42	87	14	84	Ca	1	77	27	62	20	Ca	96	2	21	5	26
Fi	7	36	13	14	20	Fi	80	67	53	5	90	Fi	2	5	9	46	0
Ge	68	82	62	20	39	Ge	80	88	23	65	3	Ge	2	0	24	5	50
Mi	38	85	5	57	86	Mi	27	67	20	22	44	Mi	20	5	23	23	12
Na	20	14	74	30	64	Na	41	62	48	42	59	Na	13	7	11	13	7
Pa	53	64	80	58	16	Pa	90	36	57	64	73	Pa	0	16	8	6	3
Rm	33	41	47	79	53	Rm	77	36	83	51	81	Rm	2	15	1	10	1
To	39	52	41	18	63	To	31	90	79	89	23	To	20	0	2	0	27
Ve	56	54	67	70	22	Ve	21	45	44	61	84	Ve	28	12	13	7	1
Nz	20	6	65	37	35	Nz	86	25	34	50	46	Nz	0	28	18	11	13

LuigiB · 23 Febbraio 2023

bravo mike , ho lanciato lo script per vedere la faccenda dei colori che qui suk forum non si vedevano

lotto_tom75 · 24 Febbraio 2023

LuigiB ha scritto:
bravo mike , ho lanciato lo script per vedere la faccenda dei colori che qui suk forum non si vedevano
Vedi l'allegato 2254146

Un pò lento...

ma carino... !

salvo50 · 25 Febbraio 2023

Avere degli esempi è sempre istruttivo
Grazie

Mike58 · 25 Febbraio 2023

4° script con uso EstrattoFrequenza
Analitico Ruota.

Codice:

Dim Nu(5) As Long, aN(5) As Long, Ru(1) As Long, Cad(5) As Long, aNum(5) As Long
    Dim ini As Long = EstrazioniArchivio - 250
    Dim fin As Long = EstrazioniArchivio
    Dim T As Variant ' Tabella
    Dim es As Long, r As Long, p As Long, rit As Long, ess As Long
    Dim k As Long, kk As Long, kkk As Long, rsl As Long
    Dim RigaPresenti As String, RigaCaduti As String, RigaSortiti As String
    'sNu = "-"
    'sCad = "-"
    r = InputBox("Quale Ruota ", "Scegli Ruota", 1)
    Ru(1) = r
    T = Array ("Info Estrazione", " Ruota ", "RigaPresenti", "livello", "Ritardo", "RigaCaduti", "Caduti_Progress", "Ritardo di Rigo", "Numero Sortito")
    Call InitTabella(T)
    kk = 0
    For es = fin To ini Step -1
For p = 1 To 5
    Nu(p) = Estratto(es, r, p)
    Cad(p) = Estratto(es, r, p)
    aN(p) = Estratto(es, r, p)
    If EstrattoFrequenza(r, Nu(p), es, fin) > 1 Then Nu(p) = 0'sNu
    If EstrattoFrequenza(r, Cad(p), es, fin) = 1 Then Cad(p) = 0'sCad
    If EstrattoFrequenza(r, Nu(p), es, fin) = 1 Then k = k + 1
    If Cad(p) <> 0 Then kk = kk + 1
    If EstrattoFrequenza(r, Nu(p), es, fin) = 1 Then kkk = kkk + 1
    '----------------------------------------------
    If Nu(p) > 0 Then
    RigaPresenti = RigaPresenti & Format2 (Nu(p)) & " "
    Else
    RigaPresenti = RigaPresenti & ".. "
    End If
    '----------------------------------------------
    If Nu(p) > 0 Then
    RigaCaduti = RigaCaduti & ".. "
    Else
    RigaCaduti = RigaCaduti & Format2(Cad(p)) & " "
    End If
    '----------------------------------------------
    If EstrattoFrequenza(r, Cad(p), fin, fin) > 0 Then
    RigaSortiti = RigaSortiti & Format2(Cad(p)) & " "
    Else
        RigaSortiti = RigaSortiti & ".. "
    End If
        '----------------------------------------------

    
    'rsl = RitSincronoDiLivello(Nu(p), r, fin, 1)
Next
    rit = SerieRitardo(ini, fin, aN, Ru, 1)
ess = fin - es
If k > 0 Then
T = Array(es & "-" & DataEstrazione(es), SiglaRuota(r), RigaPresenti, k, ess, RigaCaduti, kkk, rit, RigaSortiti)
Call AddRigaTabella(T)
End If
RigaPresenti = ""
RigaCaduti = ""
RigaSortiti = ""
k = 0
kk = 0
    Next
    CreaTabella

    
    Scrivi "Tempo di Elaborazione in secondi... " & TempoElaborazioneSecondi, 1

Info Estrazione	Ruota	RigaPresenti	livello	Ritardo	RigaCaduti	Caduti_Progress	Ritardo di Rigo	Numero Sortito
10203-23/02/2023	Mi	05 23 84 80 74	5	0	.. .. .. .. ..	5	0	.. .. .. .. ..
10202-21/02/2023	Mi	38 85 .. 57 86	4	1	.. .. 05 .. ..	9	0	.. .. 05 .. ..
10201-18/02/2023	Mi	31 50 29 36 64	5	2	.. .. .. .. ..	14	2	.. .. .. .. ..
10200-16/02/2023	Mi	71 48 27 83 40	5	3	.. .. .. .. ..	19	3	.. .. .. .. ..
10199-14/02/2023	Mi	33 .. 60 .. ..	2	4	.. 48 .. 27 80	21	0	.. .. .. .. 80
10198-11/02/2023	Mi	.. 61 19 .. ..	2	5	29 .. .. 50 27	23	2	.. .. .. .. ..
10197-09/02/2023	Mi	12 49 .. 26 45	4	6	.. .. 74 .. ..	27	0	.. .. 74 .. ..
10196-07/02/2023	Mi	.. 52 35 82 ..	3	7	85 .. .. .. 61	30	1	.. .. .. .. ..
10195-04/02/2023	Mi	59 .. 72 .. 03	3	8	.. 84 .. 45 ..	33	0	.. 84 .. .. ..

Cerca

Cerca

Script in Twin Basic by Mike58

Mike58

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

lotto_tom75

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi

Ruota	ES1	ES2	ES3	ES4	ES5	Ruota	PZ1	PZ2	PZ3	PZ4	PZ5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5
Ba	66	61	81	25	26	Ba	89	83	78	14	58	Ba	0	1	2	26	7
Ca	43	42	87	14	84	Ca	1	77	27	62	20	Ca	96	2	21	5	26
Fi	7	36	13	14	20	Fi	80	67	53	5	90	Fi	2	5	9	46	0
Ge	68	82	62	20	39	Ge	80	88	23	65	3	Ge	2	0	24	5	50
Mi	38	85	5	57	86	Mi	27	67	20	22	44	Mi	20	5	23	23	12
Na	20	14	74	30	64	Na	41	62	48	42	59	Na	13	7	11	13	7
Pa	53	64	80	58	16	Pa	90	36	57	64	73	Pa	0	16	8	6	3
Rm	33	41	47	79	53	Rm	77	36	83	51	81	Rm	2	15	1	10	1
To	39	52	41	18	63	To	31	90	79	89	23	To	20	0	2	0	27
Ve	56	54	67	70	22	Ve	21	45	44	61	84	Ve	28	12	13	7	1
Nz	20	6	65	37	35	Nz	86	25	34	50	46	Nz	0	28	18	11	13

Ruota	ES1	ES2	ES3	ES4	ES5	Ruota	PZ1	PZ2	PZ3	PZ4	PZ5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5
Ba	66	61	81	25	26	Ba	89	83	78	14	58	Ba	0	1	2	26	7
Ca	43	42	87	14	84	Ca	1	77	27	62	20	Ca	96	2	21	5	26
Fi	7	36	13	14	20	Fi	80	67	53	5	90	Fi	2	5	9	46	0
Ge	68	82	62	20	39	Ge	80	88	23	65	3	Ge	2	0	24	5	50
Mi	38	85	5	57	86	Mi	27	67	20	22	44	Mi	20	5	23	23	12
Na	20	14	74	30	64	Na	41	62	48	42	59	Na	13	7	11	13	7
Pa	53	64	80	58	16	Pa	90	36	57	64	73	Pa	0	16	8	6	3
Rm	33	41	47	79	53	Rm	77	36	83	51	81	Rm	2	15	1	10	1
To	39	52	41	18	63	To	31	90	79	89	23	To	20	0	2	0	27
Ve	56	54	67	70	22	Ve	21	45	44	61	84	Ve	28	12	13	7	1
Nz	20	6	65	37	35	Nz	86	25	34	50	46	Nz	0	28	18	11	13

Ruota	ES1	ES2	ES3	ES4	ES5	Ruota	PZ1	PZ2	PZ3	PZ4	PZ5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5
Ba	66	61	81	25	26	Ba	89	83	78	14	58	Ba	0	1	2	26	7
Ca	43	42	87	14	84	Ca	1	77	27	62	20	Ca	96	2	21	5	26
Fi	7	36	13	14	20	Fi	80	67	53	5	90	Fi	2	5	9	46	0
Ge	68	82	62	20	39	Ge	80	88	23	65	3	Ge	2	0	24	5	50
Mi	38	85	5	57	86	Mi	27	67	20	22	44	Mi	20	5	23	23	12
Na	20	14	74	30	64	Na	41	62	48	42	59	Na	13	7	11	13	7
Pa	53	64	80	58	16	Pa	90	36	57	64	73	Pa	0	16	8	6	3
Rm	33	41	47	79	53	Rm	77	36	83	51	81	Rm	2	15	1	10	1
To	39	52	41	18	63	To	31	90	79	89	23	To	20	0	2	0	27
Ve	56	54	67	70	22	Ve	21	45	44	61	84	Ve	28	12	13	7	1
Nz	20	6	65	37	35	Nz	86	25	34	50	46	Nz	0	28	18	11	13