X mike, blackmore, o luigi

mastrogino · 20 Marzo 2013

ciao , vi chiedo aiuto per un script di tecnica sommativa su ruota
o per lo meno di modificare lo script in fondo alla pagina

la tecnica e la sequente
ca estrazione del 14/03/2013 ...81.70.28.82.80.
somma integra dei 5 estratti 341.=71fuori90
calcolo in verticale
81+70+28+82+80+
71=71=71=71=71=
62+51+09+63+61=246=66fuori90

66+
71=
47fuori90
47x2=04fuori90 ambata in gioco 04.40. su ca

ora vi faccio vedere come i calcoli sono al 100%

341+
246=
587+
137=
724fuori90= 04 ambata con il vertibile in gioco
137=.......................................e la SOMMA 66+71=137FUORI90=47
A COLPO 40 A CA.

quello che chiedo allo script e la sequente
che mi dia l'ambata principale cioee il 04.secondario 40

lo script e questo ma non so come fargli la modifica ....in evventuale se non e possibile
per l'estrazione magari inserendolo manualmente, o al massimo la cinquina afine calcolo integra
62+51+09+63+61=246=66
..... aiuto!!!

Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
Dim idEstr,Inizio,Fine
ReDim aT(13)
ReDim aFont(13)
ReDim aColori(13)
ReDim aForeColor(13)
ReDim aClrEvid(3)
Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
Inizio = EstrazioneIni
Fine = EstrazioneFin
For idEstr = Inizio To Fine
Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Call AvanzamentoElab(Inizio,Fine,idEstr)
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
Dim k,i,r
ColoreFixedCol = RGB(143,143,143)
ForeColorFixedCol = vbWhite
ColoreColSomma = RGB(192,192,192)
For k = 1 To 13
aFont(k) = "Lucida console"
aColori(k) = vbCyan
aForeColor(k) = vbBlack
Next
aFont(1) = "Courier new"
aColori(1) = ColoreFixedCol
aColori(2) = ColoreColSomma
aForeColor(1) = ForeColorFixedCol
aT(1) = "Ruota"
aT(2) = "Somma"
i = 2
For r = 3 To 14
If r - 2 <> 11 Then
i = i + 1
aT(i) = " " & SiglaRuota(r - 2) & " "
End If
Next
aClrEvid(1) = vbRed
aClrEvid(2) = RGB(255,128,0)
aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Dim r,s,i,k,idRit
ReDim aV(13)
ReDim aRitPerRuota(121,3)
idRit = 0
Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
For r = 1 To 12
If r <> 11 Then
s = Fuori90(SommaEstratti(idEstr,r))
i = 2
aV(1) = NomeRuota(r)
aV(2) = s
For k = 1 To 12
If k <> 11 Then
i = i + 1
aV(i) = RitardoEstratto(s,idEstr,k)
idRit = idRit + 1
aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
End If
Next
Call ModificaColori(aV,aColori,aClrEvid)
Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
End If
Next
Call Scrivi(String(100,"_"))
Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
Call Scrivi(String(100,"_"))
Call Scrivi
Call CreaTabella
ReDim aTT(3)
aTT(1) = "Somma"
aTT(2) = "Ruota"
aTT(3) = "Ritardo"
Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
Call OrdinaMatrice(aRitPerRuota,- 1,2)
For k = 1 To 5
'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
aTT(1) = aRitPerRuota(k,1)
aTT(2) = SiglaRuota(aRitPerRuota(k,3))
aTT(3) = aRitPerRuota(k,2)
Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
Next
Call Scrivi("Primi 5 più in ritardo")
Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
Dim k,j
ReDim aRit(11)
For k = 3 To 13
aRit(k - 2) = aT(k)
Next
Call OrdinaMatrice(aRit,- 1)
For k = 3 To 13
aColori(k) = vbCyan
Next
For k = 1 To UBound(aClrEvid)
For j = 3 To 13
If aT(j) = aRit(k) Then
aColori(j) = aClrEvid(k)
End If
Next
Next
End Sub

Ouroboros · 20 Marzo 2013

Buongiorno Schiro',
visto che sto imparando ho preferito riscrivere lo script (se per te va bene e/o in attesa che qualcuno piu' bravo te lo modifichi).
Buon lavoro.
Ciao

Sub Main()
Dim ruota(1),es,ini,fin,ce,k
Dim nu1(9),a1,a2,a3,a4,a5,s1,s2,s3,na1,na2,na3,na4,na5,p1,ps1
Dim posta(1)
Dim amb1,amb2,am1,am2
posta(1)=1
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin - 0
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
a1 = Estratto(es,ruota(1),1)'<<--- questo è il 1^estr. di ruota!!!
a2 = Estratto(es,ruota(1),2)'<<--- questo è il 2^estr. di ruota!!!
a3 = Estratto(es,ruota(1),3)'<<--- questo è il 3^estr. di ruota!!!
a4 = Estratto(es,ruota(1),4)'<<--- questo è il 4^estr. di ruota!!!
a5 = Estratto(es,ruota(1),5)'<<--- questo è il 5^estr. di ruota!!!
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
Scrivi String(77,"-")
s1 = Fuori90(a1 + a2 + a3 + a4 + a5)
na1 = Fuori90(a1 + s1)
na2 = Fuori90(a2 + s1)
na3 = Fuori90(a3 + s1)
na4 = Fuori90(a4 + s1)
na5 = Fuori90(a5 + s1)
s2 = Fuori90(na1 + na2 + na3 + na4 + na5)
s3 = Fuori90(s1 + s2)
amb1 = Fuori90(s3*2)
If amb1 < 10 Then amb2 = StrReverse(amb1)*10 Else amb2 = StrReverse(amb1)
am1= CInt(amb1)
am2= CInt(amb2)
If am2 = am1 Then p1 = Right(am2,1) : p1= CInt(p1): am2 = am2 - p1 + 9
Scrivi am1
Scrivi am2
nu1(1) = am1
nu1(2) = am2
ImpostaGiocata es,nu1,ruota,posta,k,0
Gioca es,,,1
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub

mastrogino · 20 Marzo 2013

Grazie e complimenti ....perfetto . ho notato che su ogni prev. entro i 13 colpi al 90% dei casi esce l'ambata

ti volevo o vi volevo a chi interviene se era possibbile inserire la cinquina e la somma integra dei 5 numeri

nellospazio di questo messaggio

28
82
Estrazione generatrice del pronostico 08615 [139 - 20/11/2012]
xx.xx.xx.xx.xx.=xxx

la somma intergra e importante x ottenere l'abbinamento x il terno

Ouroboros · 21 Marzo 2013

...non e' proprio nella posizione richiesta...purtroppo sto ancora imparando.
Cmq i dati vengono evidenziati.
Ciao.

Sub Main()
Dim ruota(1),es,ini,fin,ce,k
Dim nu1(9),a1,a2,a3,a4,a5,s1,s2,s3,na1,na2,na3,na4,na5,p1,ps1
Dim posta(1)
Dim amb1,amb2,am1,am2
posta(1) = 1
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin - 0
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
a1 = Estratto(es,ruota(1),1)'<<--- questo è il 1^estr. di ruota!!!
a2 = Estratto(es,ruota(1),2)'<<--- questo è il 2^estr. di ruota!!!
a3 = Estratto(es,ruota(1),3)'<<--- questo è il 3^estr. di ruota!!!
a4 = Estratto(es,ruota(1),4)'<<--- questo è il 4^estr. di ruota!!!
a5 = Estratto(es,ruota(1),5)'<<--- questo è il 5^estr. di ruota!!!
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
Scrivi String(77,"-")
s1 = Fuori90(a1 + a2 + a3 + a4 + a5)
na1 = Fuori90(a1 + s1)
na2 = Fuori90(a2 + s1)
na3 = Fuori90(a3 + s1)
na4 = Fuori90(a4 + s1)
na5 = Fuori90(a5 + s1)
s2 = Fuori90(na1 + na2 + na3 + na4 + na5)
s3 = Fuori90(s1 + s2)
amb1 = Fuori90(s3*2)
If amb1 < 10 Then amb2 = StrReverse(amb1)*10 Else amb2 = StrReverse(amb1)
am1 = CInt(amb1)
am2 = CInt(amb2)
If am2 = am1 Then p1 = Right(am2,1) : p1 = CInt(p1): am2 = am2 - p1 + 9
'Scrivi am1
'Scrivi am2
Scrivi String(5,"-") & " estr. generatrice pronostrico " & a1 & " " & a2 & " " & a3 & " " &a4 & " " & a5
Scrivi String(5,"-") & " somma " & s1
nu1(1) = am1
nu1(2) = am2
ImpostaGiocata es,nu1,ruota,posta,k,0
Gioca es,,,1
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub

Mike58 · 21 Marzo 2013

Ciao Gioacchino, e Ciao Ouroboros, ho visto solo adesso ed intervengo oltre per dare un supporto ed incoraggiarti a cercare almeno l'ambo, anche per dare un aiuto all'amico Ouroboros in quanto alle prime armi ha bisogno di incoraggiamento e magari qualche dritta.
1° suggerimento esiste la funzione SommaEstratti per fare la somma degli estratti.
2° suggerimento anzichè scrivere tutti i 5 estratti si può richiemarli in un ciclo di 5 posizioni.
3° suggerimento esiste la funzione Vert (vertibile del numero senza fare calcoli macchinosi.
Altri suggerimenti su come richiamarli è possibile leggendo lo script.

Con L'invito a continuare vi saluto entrambi.

Ciao.

Codice:

Sub Main()
    Dim ruota(1),es,ini,fin,ce,k
    Dim n(5),ee(5),aa(5)
    Dim posta(1)
    posta(1) = 1
    ruota(1) = ScegliRuota
    ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
    k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
        AvanzamentoElab ini,fin,es
        For pos = 1 To 5
            ee(pos) = Estratto(es,ruota(1),pos)
        Next
        casi = casi + 1
        Scrivi String(67,"=") & " caso n° " &(casi)
        ColoreTesto 1
        ss1 = SommaEstratti(es,ruota(1))
        s1 = Fuori90(ss1)
        For x = 1 To 5
            aa(x) = Fuori90(s1 + ee(x))
        Next
        s2 = StringaNumeri(aa)
        s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
        s5 = Fuori90(s4)
        s3 = Fuori90(s1 + s5)
        s6 = Fuori90(s3*2)
        s7 = Vert(s6)
        n(1) = s6
        n(2) = s7
        Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
        Scrivi DataEstrazione(es) & "  " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
        ColoreTesto 2
        Scrivi "Numero doppio ...  e suo vertibile ... " & StringaNumeri(n),1
        ColoreTesto 0
        Scrivi String(77,"-")
        ImpostaGiocata es,n,ruota,posta,k
        Gioca es,,,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(52,"=") & "",1
    ScriviResoconto
End Sub

mastrogino · 21 Marzo 2013

grande mike58 e un onore ricevere le tue dritte , grazie x l'ntervento
come accenavo e possibile che inserisco il numero chiave x l'ambo
pero vorrei sapere se lo script puo fare la divisione della somma intera?
se si inserisco il modo x ottenere il numero
e sara una bomba
chiedo a ouroborus anche suo gentilissimo intervento
grazie

Mike58 · 22 Marzo 2013

Ciao Gio', lo script può fare tutte le operazioni logiche , divisioni, radice quadrata, basta impostarle matematicamente.
Metti il procedimento e vediamo quello che si può fare.

Un saluto e una buona Giornata.

Ouroboros · 22 Marzo 2013

Grazie Mike58 per gli insegnamenti, sono sempre ben accetti, soprattutto per uno che e' alle prime armi.

Per Schiro': condivido quello gia' detto da Mike58.

Ciao e un buon proseguimento di giornata.

mastrogino · 22 Marzo 2013

Mike58 ha scritto:
Ciao Gio', lo script può fare tutte le operazioni logiche , divisioni, radice quadrata, basta impostarle matematicamente.
Metti il procedimento e vediamo quello che si può fare.

Un saluto e una buona Giornata.

ciao mike vedo che sei mattiniero
il numero da mettergli in abbinamento x l'ambo
e la seguente calcolo
il numero integro che esce dalla 2° cinquina si divide in 3
in certi casi rari non è possibbile ma nel 98% e sempre divisibile
il numero ovviamente fuori 90 e l'abbimnamento
ps. e meglio in questo caso diinserire la giocata a tt
x capirci
l'ambata è la 1° somma =724fuori90= 04 ambata con il vertibile in gioco
l'abinamento x l'ambo e la somma = 62+51+09+63+61=246=66fuori90 246/3= 82
x l'ambata 04.40.
x l'ambo 04.82.
x terno 04.82.40.
x quat 04.82.40.47.

ok chiedo vena e inserisco il metodo al completo
cisarebbe il 4° numero da considerare
e siottiene cosi

ecco il metodo e completo
la somma 71+66 che sonole somme delle 2 cinquine cioee il 47

ecco di quello che potrebbe sucedere

23.02.2013 56.87.55.60.18 - Somma intera 276 - Somma Fuori90 ... 6
23.02.2013 62.3.61.66.24 - Somma inetra 216 - Somma Fuori90 ... 36
Numero doppio ... e suo vertibile ... 84.48
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08656 [ 24 - 23/02/2013]
G 8656
Numeri in gioco : 84.48 su NA per Estratto
V N. [84.48 ] [NA] [48 .. .. .. ..] C. 8 Estratto 08664 [ 32 - 14/03/2013]

4° ambo 84.42.tt
7° ambo 42.72.
7°ambo 48.42.
7°ambo 72.48.
8°ambo 48.72.

mastrogino · 22 Marzo 2013

ecco quello che e sucesso ieri

=================================================================== caso n° 7
12.03.2013 60.72.13.21.44 - Somma intera 210 - Somma Fuori90 ... 30
12.03.2013 90.12.43.51.74 - Somma inetra 270 - Somma Fuori90 ... 90
Numero doppio ... e suo vertibile ... 60.6
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08663 [ 31 - 12/03/2013]
G 8663
Numeri in gioco : 60.06 su BA per Estratto
V N. [60.06 ] [BA] [.. .. .. .. 06] C. 2 Estratto 08665 [ 33 - 16/03/2013]
V N. [60.06 ] [BA] [.. .. .. 60 ..] C. 4 Estratto 08667 [ 35 - 21/03/2013]
con il 3° numero ambo 60.90. 4° colpo
___________________________________________________________

14.03.2013 64.59.31.35.65 - Somma intera 254 - Somma Fuori90 ... 74
14.03.2013 48.43.15.19.49 - Somma inetra 174 - Somma Fuori90 ... 84
Numero doppio ... e suo vertibile ... 46.64
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08664 [ 32 - 14/03/2013]
G 8664
Numeri in gioco : 46.64 su FI per Estratto
V N. [46.64 ] [FI] [.. .. .. 46 ..] C. 3 Estratto 08667 [ 35 - 21/03/2013
______________________________________________________
19.03.2013 65.45.66.23.06 - Somma intera 205 - Somma Fuori90 ... 25
19.03.2013 90.70.1.48.31 - Somma inetra 240 - Somma Fuori90 ... 60
Numero doppio ... e suo vertibile ... 80.8
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08666 [ 34 - 19/03/2013]
G 8666
Numeri in gioco : 80.08 su FI per Estratto
V N. [80.08 ] [FI] [.. 08 .. .. ..] C. 1 Estratto 08667 [ 35 - 21/03/2013]

_____________________________________________________
09.03.2013 81.74.37.25.28 - Somma intera 245 - Somma Fuori90 ... 65
09.03.2013 56.49.12.90.3 - Somma inetra 210 - Somma Fuori90 ... 30
Numero doppio ... e suo vertibile ... 10.1
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08662 [ 30 - 09/03/2013]
G 8662
Numeri in gioco : 10.01 su GE per Estratto
V N. [10.01 ] [GE] [01 .. .. .. ..] C. 5 Estratto 08667 [ 35 - 21/03/2013]
____________________________________________________
09.03.2013 39.66.60.37.69 - Somma intera 271 - Somma Fuori90 ... 1
09.03.2013 40.67.61.38.70 - Somma inetra 276 - Somma Fuori90 ... 6
Numero doppio ... e suo vertibile ... 14.41
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08662 [ 30 - 09/03/2013]
G 8662
Numeri in gioco : 14.41 su NA per Estratto
V N. [14.41 ] [NA] [.. .. .. .. 14] C. 5 Estratto 08667 [ 35 - 21/03/2013]
_________________________________________________________
16.03.2013 65.88.38.36.85 - Somma intera 312 - Somma Fuori90 ... 42
16.03.2013 17.40.80.78.37 - Somma inetra 252 - Somma Fuori90 ... 72
Numero doppio ... e suo vertibile ... 48.84
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08665 [ 33 - 16/03/2013]
G 8665
Numeri in gioco : 48.84 su PA per Estratto
V N. [48.84 ] [PA] [.. .. .. .. 48] C. 2 Estratto 08667 [ 35 - 21/03/2013]
____________________________________________________________
19.03.2013 41.71.36.56.87 - Somma intera 291 - Somma Fuori90 ... 21
19.03.2013 62.2.57.77.18 - Somma inetra 216 - Somma Fuori90 ... 36
Numero doppio ... e suo vertibile ... 24.42
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08666 [ 34 - 19/03/2013]
G 8666
Numeri in gioco : 24.42 su TO per Estratto
V N. [24.42 ] [TO] [.. .. .. 24 ..] C. 1 Estratto 08667 [ 35 - 21/03/2013]
______________________________________________________________

Mike58 · 22 Marzo 2013

Ciao Gio' , ciao Ouroboros, (no non sono mattiniero e solo fine turno Notturno ) ecco lo scrpit con i calcoli richiesti.
Prova a vedere se ho capito bene.

Codice:

Sub Main()
    Dim ruota(1),es,ini,fin,ce,k
    Dim n(5),ee(5),aa(5),bb(1),cc(1)
    Dim posta(1),poa(2),pot(3),poq(4)
    posta(1) = 3
    poa(2) = 1
    pot(2) = 1
    pot(3) = .5
    poq(2) = 1.5
    poq(3) = 1
    poq(4) = .5
    ruota(1) = ScegliRuota
    ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
    k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
        AvanzamentoElab ini,fin,es
        For pos = 1 To 5
            ee(pos) = Estratto(es,ruota(1),pos)
        Next
        casi = casi + 1
        Scrivi String(67,"=") & " caso n° " &(casi)
        ColoreTesto 1
        ss1 = SommaEstratti(es,ruota(1))
        s1 = Fuori90(ss1)
        For x = 1 To 5
            aa(x) = Fuori90(s1 + ee(x))
        Next
        s2 = StringaNumeri(aa)
        s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
        s5 = Fuori90(s4)
        s3 = Fuori90(s1 + s5)
        s6 = Fuori90(s3*2)
        s7 = Vert(s6)
        n(1) = s6
        n(2) = s7
        bb(1) = Fuori90(s4/3)
        cc(1) = Fuori90(s1+s5)
        '---imposta giocate-------------------
        l1 = Array(n(1),n(2))
        l2 = Array(n(1),bb(1))
        l3 = Array(n(1),n(2),bb(1))
        l4 = Array(n(1),n(2),bb(1),cc(1))
        '-------------------------------------
        Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
        Scrivi DataEstrazione(es) & "  " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
        Scrivi "1° Abbinamento... " & bb(1)  
        Scrivi "2° Abbinamento... " & cc(1)
        
        ColoreTesto 2
        Scrivi "Numero doppio ...  e suo vertibile ... " & StringaNumeri(n),1
        ColoreTesto 0
        Scrivi String(77,"-")
        ImpostaGiocata 1,l1,ruota,posta,k
        ImpostaGiocata 2,l2,ruota,poa,k
        ImpostaGiocata 3,l3,ruota,pot,k
        ImpostaGiocata 4,l4,ruota,poq,k
        Gioca es,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(52,"=") & "",1
    ScriviResoconto
End Sub

mastrogino · 23 Marzo 2013

ciao mike e perfetto ........solo non fa la giocata a tt
ho notato una cosina che lo mettero in studio e per chiudere il cerchio
la giocata su tt e solo per statistica e in qunto tempo esce l'ambo
se conviene giocarla o no
se mmii dici dove modificarla sempre se e possibile
ciaooo grande a buon rendere

Ouroboros · 23 Marzo 2013

Ciao Schiro', ho aggiornato lo script di Mike (grande) con la giocata a tutte (s.e.o.).

Buone ricerche.

Ciao

Sub Main()
Dim ruota(1),es,ini,fin,ce,k,ruote(11)
Dim n(5),ee(5),aa(5),bb(1),cc(1)
Dim posta(1),poa(2),pot(3),poq(4)
posta(1) = 3
poa(2) = 1
pot(2) = 1
pot(3) = .5
poq(2) = 1.5
poq(3) = 1
poq(4) = .5
ruote(1)=11
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
For pos = 1 To 5
ee(pos) = Estratto(es,ruota(1),pos)
Next
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
ss1 = SommaEstratti(es,ruota(1))
s1 = Fuori90(ss1)
For x = 1 To 5
aa(x) = Fuori90(s1 + ee(x))
Next
s2 = StringaNumeri(aa)
s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
s5 = Fuori90(s4)
s3 = Fuori90(s1 + s5)
s6 = Fuori90(s3*2)
s7 = Vert(s6)
n(1) = s6
n(2) = s7
bb(1) = Fuori90(s4/3)
cc(1) = Fuori90(s1+s5)
'---imposta giocate-------------------
l1 = Array(n(1),n(2))
l2 = Array(n(1),bb(1))
l3 = Array(n(1),n(2),bb(1))
l4 = Array(n(1),n(2),bb(1),cc(1))
'-------------------------------------
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
Scrivi DataEstrazione(es) & " " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
Scrivi "1° Abbinamento... " & bb(1)
Scrivi "2° Abbinamento... " & cc(1)

ColoreTesto 2
Scrivi "Numero doppio ... e suo vertibile ... " & StringaNumeri

,1
ColoreTesto 0
Scrivi String(77,"-")
ImpostaGiocata 1,l1,ruota,posta,k
ImpostaGiocata 2,l2,ruota,poa,k
ImpostaGiocata 3,l3,ruota,pot,k
ImpostaGiocata 4,l4,ruota,poq,k
ImpostaGiocata 5,l2,ruote,poa,k
ImpostaGiocata 6,l3,ruote,pot,k
ImpostaGiocata 7,l4,ruote,poq,k

Gioca es,1
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub

mastrogino · 23 Marzo 2013

Ciao Schiro', ho aggiornato lo script di Mike (grande) con la giocata a tutte (s.e.o.).

Buone ricerche.

Ciao

grazie ourobos, grazie infinite
si e ottimo a buon rendere

mastrogino · 24 Marzo 2013

ecco quello che abbiamo costruito grazie x la collaborazione
ho voluto inserire solo questo ma ci sarebbero gli altri
grazie di nuovo

09.03.2013 11.80.21.51.19 - Somma intera 182 - Somma Fuori90 ... 2
09.03.2013 13.82.23.53.21 - Somma inetra 192 - Somma Fuori90 ... 12
1° Abbinamento... 64
2° Abbinamento... 14
Numero doppio ... e suo vertibile ... 28.82
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08662 [ 30 - 09/03/2013]
G 0001
Numeri in gioco : 28.82 su BA per Estratto
V N. [28.82 ] [BA] [.. .. 28 .. ..] C. 5 Estratto 08667 [ 35 - 21/03/2013]
V N. [28.82 ] [BA] [.. .. 82 .. ..] C. 6 Estratto 08668 [ 36 - 23/03/2013]

In corso per altre 7 estrazioni
G 0002
Numeri in gioco : 28.64 su BA per Ambo
In corso per altre 7 estrazioni
G 0003
Numeri in gioco : 28.82.64 su BA per Ambo,Terno
V N. [28.82.64 ] [BA] [.. .. 82 .. 64] C. 6 Ambo 08668 [ 36 - 23/03/2013]

In corso per altre 7 estrazioni
G 0004
Numeri in gioco : 28.82.64.14 su BA per Ambo,Terno,Quaterna
V N. [28.82.64.14 ] [BA] [.. .. 82 .. 64] C. 6 Ambo 08668 [ 36 - 23/03/2013]

Mike58 · 24 Marzo 2013

Ciao Gio' , intanto complimenti, poi per avere un minimo di controllo ti ho messo nello script il resoconto giocate parziali riferite alla sola giocata,cosi da avere un controllo visivo su come e dove intervenire ai fini di un buon utile.

Codice:

Sub Main()
Dim ruota(1),es,ini,fin,ce,k,ruote(11)
Dim n(5),ee(5),aa(5),bb(1),cc(1)
Dim posta(1),poa(2),pot(3),poq(4)
posta(1) = 3
poa(2) = 1
pot(2) = 1
pot(3) = .5
poq(2) = 1.5
poq(3) = 1
poq(4) = .5
ruote(1)=11
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
For pos = 1 To 5
ee(pos) = Estratto(es,ruota(1),pos)
Next
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
ss1 = SommaEstratti(es,ruota(1))
s1 = Fuori90(ss1)
For x = 1 To 5
aa(x) = Fuori90(s1 + ee(x))
Next
s2 = StringaNumeri(aa)
s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
s5 = Fuori90(s4)
s3 = Fuori90(s1 + s5)
s6 = Fuori90(s3*2)
s7 = Vert(s6)
n(1) = s6
n(2) = s7
bb(1) = Fuori90(s4/3)
cc(1) = Fuori90(s1+s5)
'---imposta giocate-------------------
l1 = Array(n(1),n(2))
l2 = Array(n(1),bb(1))
l3 = Array(n(1),n(2),bb(1))
l4 = Array(n(1),n(2),bb(1),cc(1))
'-------------------------------------
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
Scrivi DataEstrazione(es) & " " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
Scrivi "1° Abbinamento... " & bb(1)
Scrivi "2° Abbinamento... " & cc(1)

ColoreTesto 2
Scrivi "Numero doppio ... e suo vertibile ... " & StringaNumeri(n),1
ColoreTesto 0
Scrivi String(77,"-")
ImpostaGiocata 1,l1,ruota,posta,k
ImpostaGiocata 2,l2,ruota,poa,k
ImpostaGiocata 3,l3,ruota,pot,k
ImpostaGiocata 4,l4,ruota,poq,k
ImpostaGiocata 5,l2,ruote,poa,k
ImpostaGiocata 6,l3,ruote,pot,k
ImpostaGiocata 7,l4,ruote,poq,k

Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi("   Giocata in ATTIVO   ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi("   giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub

mastrogino · 24 Marzo 2013

Mike58 ha scritto:

Ciao Gio' , intanto complimenti, poi per avere un minimo di controllo ti ho messo nello script il resoconto giocate parziali riferite alla sola giocata,cosi da avere un controllo visivo su come e dove intervenire ai fini di un buon utile.

Codice:

Sub Main()
Dim ruota(1),es,ini,fin,ce,k,ruote(11)
Dim n(5),ee(5),aa(5),bb(1),cc(1)
Dim posta(1),poa(2),pot(3),poq(4)
posta(1) = 3
poa(2) = 1
pot(2) = 1
pot(3) = .5
poq(2) = 1.5
poq(3) = 1
poq(4) = .5
ruote(1)=11
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
For pos = 1 To 5
ee(pos) = Estratto(es,ruota(1),pos)
Next
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
ss1 = SommaEstratti(es,ruota(1))
s1 = Fuori90(ss1)
For x = 1 To 5
aa(x) = Fuori90(s1 + ee(x))
Next
s2 = StringaNumeri(aa)
s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
s5 = Fuori90(s4)
s3 = Fuori90(s1 + s5)
s6 = Fuori90(s3*2)
s7 = Vert(s6)
n(1) = s6
n(2) = s7
bb(1) = Fuori90(s4/3)
cc(1) = Fuori90(s1+s5)
'---imposta giocate-------------------
l1 = Array(n(1),n(2))
l2 = Array(n(1),bb(1))
l3 = Array(n(1),n(2),bb(1))
l4 = Array(n(1),n(2),bb(1),cc(1))
'-------------------------------------
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
Scrivi DataEstrazione(es) & " " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
Scrivi "1° Abbinamento... " & bb(1)
Scrivi "2° Abbinamento... " & cc(1)

ColoreTesto 2
Scrivi "Numero doppio ... e suo vertibile ... " & StringaNumeri(n),1
ColoreTesto 0
Scrivi String(77,"-")
ImpostaGiocata 1,l1,ruota,posta,k
ImpostaGiocata 2,l2,ruota,poa,k
ImpostaGiocata 3,l3,ruota,pot,k
ImpostaGiocata 4,l4,ruota,poq,k
ImpostaGiocata 5,l2,ruote,poa,k
ImpostaGiocata 6,l3,ruote,pot,k
ImpostaGiocata 7,l4,ruote,poq,k

Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi("   Giocata in ATTIVO   ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi("   giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub

grazie ..ma i complimenti vanno a te e ouroboros x la collaborazione tutti meritati

su questa ultima mi da erorre :

< 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)

Mike58 · 24 Marzo 2013

Ciao Gio' quando c'è collaborazione è sempre un piacere.
Per la riga in errore dovresti avere spazioMetria ultime versioni.( in quanto nuovo codice scrivi )
Però si può correggere con

If GetGuadagno(True) > 0 Then Scrivi " Giocata in ATTIVO ",1,-1,3
If GetGuadagno(True) < 0 Then Scrivi " giocata in Negativo ",1,-1,2

mastrogino · 27 Marzo 2013

ecco di nuovo a colpo ambo secco su tt
in terzina e in quartina .......anzi doppio ambo in quartina
grazie a voi

23.03.2013 55.69.82.41.64 - Somma intera 311 - Somma Fuori90 ... 41
23.03.2013 6.20.33.82.15 - Somma inetra 156 - Somma Fuori90 ... 66
1° Abbinamento... 52
2° Abbinamento... 17
Numero doppio ... e suo vertibile ... 34.43
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08668 [ 36 - 23/03/2013]
G 0001
Numeri in gioco : 34.43 su BA per Estratto
In corso per altre 12 estrazioni
G 0002
Numeri in gioco : 34.52 su BA per Ambo
In corso per altre 12 estrazioni
G 0003
Numeri in gioco : 34.43.52 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0004
Numeri in gioco : 34.43.52.17 su BA per Ambo,Terno,Quaterna
In corso per altre 12 estrazioni
G 0005
Numeri in gioco : 34.52 su TT per Ambo
V N. [34.52 ] [TT] [NA][.. .. 34 52 ..] C. 1 Ambo 08669 [ 37 - 26/03/2013]

In corso per altre 12 estrazioni
G 0006
Numeri in gioco : 34.43.52 su TT per Ambo,Terno
V N. [34.43.52 ] [TT] [NA][.. .. 34 52 ..] C. 1 Ambo 08669 [ 37 - 26/03/2013]

In corso per altre 12 estrazioni
G 0007
Numeri in gioco : 34.43.52.17 su TT per Ambo,Terno,Quaterna
V N. [34.43.52.17 ] [TT] [NA][.. .. 34 52 ..] C. 1 Ambo 08669 [ 37 - 26/03/2013]
V N. [34.43.52.17 ] [TT] [PA][.. .. 17 43 ..] C. 1 Ambo 08669 [ 37 - 26/03/2013]

coim41 · 10 Ottobre 2013

Mike58 ha scritto:

Ciao Gio' , ciao Ouroboros, (no non sono mattiniero e solo fine turno Notturno ) ecco lo scrpit con i calcoli richiesti.
Prova a vedere se ho capito bene.

Codice:

Sub Main()
    Dim ruota(1),es,ini,fin,ce,k
    Dim n(5),ee(5),aa(5),bb(1),cc(1)
    Dim posta(1),poa(2),pot(3),poq(4)
    posta(1) = 3
    poa(2) = 1
    pot(2) = 1
    pot(3) = .5
    poq(2) = 1.5
    poq(3) = 1
    poq(4) = .5
    ruota(1) = ScegliRuota
    ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
    k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
        AvanzamentoElab ini,fin,es
        For pos = 1 To 5
            ee(pos) = Estratto(es,ruota(1),pos)
        Next
        casi = casi + 1
        Scrivi String(67,"=") & " caso n° " &(casi)
        ColoreTesto 1
        ss1 = SommaEstratti(es,ruota(1))
        s1 = Fuori90(ss1)
        For x = 1 To 5
            aa(x) = Fuori90(s1 + ee(x))
        Next
        s2 = StringaNumeri(aa)
        s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
        s5 = Fuori90(s4)
        s3 = Fuori90(s1 + s5)
        s6 = Fuori90(s3*2)
        s7 = Vert(s6)
        n(1) = s6
        n(2) = s7
        bb(1) = Fuori90(s4/3)
        cc(1) = Fuori90(s1+s5)
        '---imposta giocate-------------------
        l1 = Array(n(1),n(2))
        l2 = Array(n(1),bb(1))
        l3 = Array(n(1),n(2),bb(1))
        l4 = Array(n(1),n(2),bb(1),cc(1))
        '-------------------------------------
        Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
        Scrivi DataEstrazione(es) & "  " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
        Scrivi "1° Abbinamento... " & bb(1)  
        Scrivi "2° Abbinamento... " & cc(1)
        
        ColoreTesto 2
        Scrivi "Numero doppio ...  e suo vertibile ... " & StringaNumeri(n),1
        ColoreTesto 0
        Scrivi String(77,"-")
        ImpostaGiocata 1,l1,ruota,posta,k
        ImpostaGiocata 2,l2,ruota,poa,k
        ImpostaGiocata 3,l3,ruota,pot,k
        ImpostaGiocata 4,l4,ruota,poq,k
        Gioca es,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(52,"=") & "",1
    ScriviResoconto
End Sub

Scusate, ma vorrei sapere alcune cose
1) dove posso scaricare il metodo?
2) per poterlo usare bisogna avere un programma specifico per il lotto?
Grazie Coim41

X mike, blackmore, o luigi

Advanced Premium Member

Senior Member

Advanced Premium Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member