Novità

Ba e Ca e la tecnica obliqua

Zetrix

Advanced Premium Member
lotto Tom questo e il nuovo thread

scrivo un esempio
Ba = 76 04
Ca = 07 02
dovresti fare la somma in obliqua
76+2=78
4+7=11
si mette in gioco 78 11 a Ba/ Ca/ tutte/ per Ambo

fare un controllo a ritroso di 12 estr se l'ambo e uscito prima o nella estr di calcolo..su tutte le ruote..
inclusa la nazionale..
in quel caso si annulla la previsione

p.s. ho sbagliato pure a scrivere il post dovevo scrivere Ba e Ca e la somma obliqua..
 
Ultima modifica:

Zetrix

Advanced Premium Member
Codice:
Option Explicit
Sub Main
   'x zetrix  somma obliqua di BA e CA
   'script by tom
   Dim ruota(2),ruote(4)
   Dim Inizio,fine,es,PrimoBA,SecondoCA,PrimoCA,SecondoBA
   ruota(1) = BA_
   ruota(2) = CA_
   ruote(1) = BA_
   ruote(2) = CA_
   ruote(3) = TT_
   ruote(4) = NZ_
   Dim poste(2)
   poste(2) = 1
   Inizio = EstrazioneFin - 14
   fine = EstrazioneFin
   Scrivi
   Scrivi "Elaborazione effettuate con archivio lotto aggiornato al  " & GetInfoEstrazione(EstrazioneFin)
   Scrivi
   For es = Inizio To fine
      ReDim MatriceCaselleDaEvid(4,1)
      '
      MatriceCaselleDaEvid(1,0) = ruota(1)
      MatriceCaselleDaEvid(1,1) = 1
      '
      MatriceCaselleDaEvid(2,0) = ruota(1)
      MatriceCaselleDaEvid(2,1) = 2
      '
      MatriceCaselleDaEvid(3,0) = ruota(2)
      MatriceCaselleDaEvid(3,1) = 1
      '
      MatriceCaselleDaEvid(4,0) = ruota(2)
      MatriceCaselleDaEvid(4,1) = 2
      '
      Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      '
      Scrivi "BA " & StringaEstratti(es,1,"."),0,1,1,5
      Scrivi "CA " & StringaEstratti(es,2,"."),0,1,2,5
      Scrivi
      'Scrivi "primo estratto BA " & Estratto(es,1,1)
      'Scrivi "secondo estratto CA " & Estratto(es,2,2)
      'Scrivi "secondo estratto BA  " & Estratto(es,1,2)
      'Scrivi "primo estratto CA " & Estratto(es,2,1)
      PrimoBA = Estratto(es,1,1)
      SecondoCA = Estratto(es,2,2)
      PrimoCA = Estratto(es,2,1)
      SecondoBA = Estratto(es,1,2)
      ReDim ambata(2)
      ambata(1) = Fuori90(PrimoBA + SecondoCA)
      ambata(2) = Fuori90(PrimoCA + SecondoBA)
      Dim ritBA,ritmaxBA,IncmaxBA,freqBA
      Dim ritCA,ritmaxCA,IncmaxCA,freqCA
      Call StatAmbo(TT_,ambata(1),ambata(2),ritBA,ritmaxBA,IncmaxBA,freqBA,es - 12,es)
      Call StatAmbo(TT_,ambata(1),ambata(2),ritCA,ritmaxCA,IncmaxCA,freqCA,es - 12,es)
      'effettua la verifica solo se la coppia formata non è uscita nelle precedenti 12 estrazioni in ambo...
      If ritBA > 12 And ritCA > 12 Then
         Call ImpostaGiocata(1,ambata,ruote,poste,0)
         Gioca es,1,,1
      Else
         Scrivi
         Scrivi "ambo " & StringaNumeri(ambata) & " già uscito nelle precedenti 12 estr su tutte " & " quindi si annulla la previsione..",,,,vbBlue
         Scrivi
      End If
   Next
   'ScriviDistribuzioneEsiti(True)
   'Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,56,7,8,9,10,11,12")
End Sub

lotto Tom ho aggiunto la tabella delle estr ma il controllo a ritroso dell'ambo l hai fatto solo su bA E CA !
il controllo a ritroso deve essere fatto su tutte le ruote inclusa la nazionale
scrivi totalmente differente gli script, i miei script li scrivo in modo differente dal tuo script..
forse e impostato male lo script..
 
Ultima modifica:

Zetrix

Advanced Premium Member
già infatti me ne sono accorto quanto ho un po di tempo ti farò vedere come lo scrivo io lo script
ho imparato dagli insegnamenti di mike58
io quanto scrivo uno script ho una base dello script e devo solo inserire il calcolo del gioco o della tecnica
e il gioco e fatto come ti ho detto ho avuto un po di difficoltà a scrivere il controllo a ritroso per la verifica
dell'ambo se e gia uscito su tutte le ruote ma milke58 mi a fatto vedere come si fa soltanto che ho migliaia
di script e devo trovare lo script..di solito non scrivo mai negli script il controllo a ritroso dell'ambo su tutte
comunque il controllo a ritroso possiamo mettere anche le 3 estr precedenti ma bisogna fare delle prove
sullo script..
piu tardi metterò lo script..cosi vedrai che scriviamo due lingue diverse..ma in sostanza lo script e sempre lo stesso..
 
Ultima modifica:

Zetrix

Advanced Premium Member
Codice:
Sub Main
   Dim Rt(2),Ru(2),calc(10),ruota(5),ruote(5),ab(4),posta(1),poste(2)
   Dim ambo1(4),ambo2(4),ambo3(4),ambo4(4),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
   Dim amba1(4),amba2(4),amba3(4),amba4(4),amba5(2),amba6(2),amba7(2),amba8(2),amba9(2),amba10(2)
   Dim rs,rv,rx,rf,rw
   Dim a,b,c,d,x,i,u,o,j,f,y,h,v,l,g,e,w,t,z,k
   Dim b1,b2,b3,b4
   Dim n1,n2,n3,n4,n5,n6,n7
   Dim a1,a2,a3,a4,a5,a6
   Dim R1,R2,R3,R
   Dim num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
   Dim colpi
   Dim anum(2)
   Dim sAmbo,ruota3
   posta(1) = 1
   poste(2) = 1
   colpi = 0
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   Ini = EstrazioneFin - rs
   fin = EstrazioneFin
   For es = Ini To fin
      Messaggio "Elaboro" & es
      For R1 = 1 To 1
         For R2 = R1 + 1 To R2
            a1 = Estratto(es,R1,1)
            a2 = Estratto(es,R1,2)
            a3 = Estratto(es,R2,1)
            a4 = Estratto(es,R2,2)
            '-------------------------------
            num1 = Fuori90(a1 + a4) ' 1 somma spia
            num2 = Fuori90(a2 + a3) ' 2 somma spia
            num3 = Fuori90(a1 + a4)
            num4 = Fuori90(a2 + a3)
            '-------------------------------
            anum(1) = num1
            anum(2) = num2
            '
            '
            For R = 1 To 10
               Rt(1) = R
               '
            Next
            sf = SerieFreq(es - 12,es,anum,Rt,2)
            sr = SerieRitardo(es - 12,es,anum,Rt,2)
            If sf < 12 Then
               '
               st = DataEstrazione(es - sr)
               sn = sr
               '
               '
               ruota(1) = R1
               ruota(2) = R2
               '----------------------
               ruote(1) = R1
               ruote(2) = R2
               ruote(3) = R
               ruote(4) = TT_
               ruote(5) = NZ_
               '-------------------------
               ambo1(1) = num3
               ambo1(2) = num4
               '--------------------------
               '
               calc(1) = a1
               calc(2) = a2
               calc(3) = a3
               calc(4) = a4
               '
               ReDim MatriceCaselleDaEvid(6,1)
               '
               MatriceCaselleDaEvid(1,0) = R1
               MatriceCaselleDaEvid(1,1) = 1
               '
               MatriceCaselleDaEvid(2,0) = R1
               MatriceCaselleDaEvid(2,1) = 2
               '
               MatriceCaselleDaEvid(3,0) = R2
               MatriceCaselleDaEvid(3,1) = 1
               '
               MatriceCaselleDaEvid(4,0) = R2
               MatriceCaselleDaEvid(4,1) = 2
               '
               Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
               '
               Scrivi "" & " " & Left(NomeRuota(R1),2) & "____" & Format2(a1) & "_" & Format2(a2) & "____" & num1 & "____",0,0,1,5,5
               Scrivi
               Scrivi "" & " " & Left(NomeRuota(R2),2) & "____" & Format2(a3) & "_" & Format2(a4) & "____" & num2 & "____",0,0,1,5,5
               Scrivi
               Scrivi
               Scrivi
               Scrivi "" & num1 & " " & num2 & Space(3) & SiglaRuota(R) & " " & st & " (-" & sn & "est)",0,1,7,6,5
               Scrivi
               ' Call DisegnaCerchioCiclometrico(calc,True,,,,True,True)
               ImpostaGiocata 1,ambo1,ruote,poste,colpi,0
               Gioca es,1,,1
               Scrivi
            End If
            'End If
            'Next
         Next ' chiude r1
      Next 'chiude r2
   Next 'chiude es
End Sub

lotto Tom puoi vedere se il controllo a ritroso dell'ambo e scritto esatto oppure e sbagliato..
 
Ultima modifica:

Zetrix

Advanced Premium Member
7864.png
Ba____03_12____77____
Ca____60_74____72____

77 72 TT 27.01.2024 (-5est)

Numeri in gioco 77.72 su BA CA TT NZ per Ambo
[TT] [BA][.. .. 77 72 ..] C.9 Ambo 02276 [22/02/2024] [70.16.77.72.30]


l'ambo 77 72 era gia uscito a venezia il 27 gen, eppure il 77 72 e uscito di nuovo a bari..
 

Zetrix

Advanced Premium Member
7865.png
Ba____21_10____05____
Ca____29_74____39____

05 39 TT 18.01.2024 (-13est)

Numeri in gioco 05.39 su BA CA TT NZ per Ambo

forse ho sbagliato qualcosa lo script non segnala questo ambo che era uscito il 26 gen. a cagliari

Estrazione del 26.01.2024

Bari 31 79 45 40 58
Cagliari 39 74 47 75 05
Firenze 03 35 87 18 28
Genova 56 85 09 43 58
Milano 39 87 50 31 82
Napoli 63 59 87 36 45
Palermo 61 35 78 29 37
Roma 63 13 55 24 42
Torino 41 20 17 60 05
Venezia 26 74 45 44 10
Nazionale 83 41 14 56 04
 

lotto_tom75

Advanced Premium Member
ok...

prova a vedere se questa implementazione ti basta...

Codice:
Sub Main
   'script by zetrix
   'implementato controllo A regressi by tom
   Dim Rt(2),Ru(2),calc(10),ruota(5),ruote(5),ab(4),posta(1),poste(2)
   Dim ambo1(4),ambo2(4),ambo3(4),ambo4(4),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
   Dim amba1(4),amba2(4),amba3(4),amba4(4),amba5(2),amba6(2),amba7(2),amba8(2),amba9(2),amba10(2)
   Dim rs,rv,rx,rf,rw
   Dim a,b,c,d,x,i,u,o,j,f,y,h,v,l,g,e,w,t,z,k
   Dim b1,b2,b3,b4
   Dim n1,n2,n3,n4,n5,n6,n7
   Dim a1,a2,a3,a4,a5,a6
   Dim R1,R2,R3,R
   Dim num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
   Dim colpi
   Dim anum(2)
   Dim sAmbo,ruota3
   posta(1) = 1
   poste(2) = 1
   colpi = 0
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,12)
   '
   Ini = EstrazioneFin - rs
   fin = EstrazioneFin
   For es = Ini To fin
      Messaggio "Elaboro" & es
      For R1 = 1 To 1
         For R2 = R1 + 1 To R2
            a1 = Estratto(es,R1,1)
            a2 = Estratto(es,R1,2)
            a3 = Estratto(es,R2,1)
            a4 = Estratto(es,R2,2)
            '-------------------------------
            num1 = Fuori90(a1 + a4) ' 1 somma spia
            num2 = Fuori90(a2 + a3) ' 2 somma spia
            num3 = Fuori90(a1 + a4)
            num4 = Fuori90(a2 + a3)
            '-------------------------------
            anum(1) = num1
            anum(2) = num2
            '
            '
            For R = 1 To 10
               Rt(1) = R
               '
            Next
            sf = SerieFreq(es - 12,es,anum,Rt,2)
            sr = SerieRitardo(es - 12,es,anum,Rt,2)
            If sf < 12 Then
               '
               st = DataEstrazione(es - sr)
               sn = sr
               '
               '
               ruota(1) = R1
               ruota(2) = R2
               '----------------------
               ruote(1) = R1
               ruote(2) = R2
               ruote(3) = R
               ruote(4) = TT_
               ruote(5) = NZ_
               '-------------------------
               ambo1(1) = num3
               ambo1(2) = num4
               '--------------------------
               '
               calc(1) = a1
               calc(2) = a2
               calc(3) = a3
               calc(4) = a4
               '
               ReDim MatriceCaselleDaEvid(6,1)
               '
               MatriceCaselleDaEvid(1,0) = R1
               MatriceCaselleDaEvid(1,1) = 1
               '
               MatriceCaselleDaEvid(2,0) = R1
               MatriceCaselleDaEvid(2,1) = 2
               '
               MatriceCaselleDaEvid(3,0) = R2
               MatriceCaselleDaEvid(3,1) = 1
               '
               MatriceCaselleDaEvid(4,0) = R2
               MatriceCaselleDaEvid(4,1) = 2
               '
               Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
               '
               Scrivi "" & " " & Left(NomeRuota(R1),2) & "____" & Format2(a1) & "_" & Format2(a2) & "____" & num1 & "____",0,0,1,5,5
               Scrivi
               Scrivi "" & " " & Left(NomeRuota(R2),2) & "____" & Format2(a3) & "_" & Format2(a4) & "____" & num2 & "____",0,0,1,5,5
               Scrivi
               Scrivi
               Scrivi
               Scrivi "" & num1 & " " & num2 & Space(3) & SiglaRuota(R) & " " & st & " (-" & sn & "est)",0,1,7,6,5
               Scrivi
               ' Call DisegnaCerchioCiclometrico(calc,True,,,,True,True)
               'x controllo se ambo formato è già uscito su TToNZ nei precedenti x colpi... in quel caso la coppia non va messa in gioco...
               ReDim aruote(11)
               Dim cr
               For cr = 1 To 12
                  aruote(cr) = cr
                  If cr = 11 Then
                     cr = 12
                  End If
               Next
               Dim Rit,Ritmax,Incmax,freq,es
               Call StatisticaFormazioneTurbo(ambo1,aruote,2,Rit,Ritmax,Incmax,freq,es - rs,es)
               If Rit > 13 Then
                  ImpostaGiocata 1,ambo1,ruote,poste,colpi,0
                  Gioca es,1,,1
               Else
                  Dim esitoverify,colpiverify,estrattiverify,esverify,aruoteverify
                  Scrivi "spiacente... l'ambo è già uscito su TT e/o NZ nelle precedenti " & rs & " estrazioni e la coppia " & StringaNumeri(ambo1) & "  non può essere messa in gioco... ",True,,,vbBlue,4
                  Call VerificaEsitoTurbo(ambo1,aruote,es - rs,2,rs + 1,,esitoverify,colpiverify,estrattiverify,esverify,aruoteverify)
                  If esitoverify <> "" Then
                     Scrivi "Usciti " & estrattiverify & " in data " & GetInfoEstrazione(esverify) & " su " & StringaRuote(aruoteverify),True,,,vbRed,3
                  End If
               End If
               '-------- fine controllo A su TT o NZ
               Scrivi
            End If
            'End If
            'Next
         Next ' chiude r1
      Next 'chiude r2
   Next 'chiude es
End Sub

ps: complimenti per lo script.
 
Ultima modifica:

Zetrix

Advanced Premium Member
7887.PNG

la ciclometria del 2024

x geronimo vedi i raggi laser..quelli fanno male al banco..
avanti tutta...............................................................................
attenti al 78 a bari..................................................................

:)
 
Ultima modifica:

Zetrix

Advanced Premium Member
7904.png
ok toon, questo triangolo calcola il 41 per ambo abbiamo due soluzioni di gioco
55 diam. 10
55 diam.t. 90

il 41 90 a BA come jolly
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 aprile 2024
    Bari
    56
    79
    36
    08
    40
    Cagliari
    83
    65
    43
    82
    04
    Firenze
    19
    90
    88
    25
    08
    Genova
    86
    54
    18
    33
    80
    Milano
    09
    06
    33
    30
    05
    Napoli
    90
    21
    23
    55
    62
    Palermo
    63
    01
    49
    55
    16
    Roma
    37
    12
    38
    30
    63
    Torino
    80
    53
    40
    19
    76
    Venezia
    40
    89
    25
    47
    80
    Nazionale
    78
    15
    53
    37
    25
    Estrazione Simbolotto
    Genova
    35
    36
    06
    34
    44

Ultimi Messaggi

Alto