A GENTILE RICHIESTA

[miki55]

Salve a tutti. Vorrei farvi una gentile richiesta, avere
lo script del metodo "Il coefficiente medio integratore"
di Fabarri su L8. E' possibile che qualcuno lo abbia? Grazie

 

[Asuniverso]

Salve a tutti. Vorrei farvi una gentile richiesta, avere
lo script del metodo "Il coefficiente medio integratore"
di Fabarri su L8. E' possibile che qualcuno lo abbia? Grazie

Script su metodi di Fabarri

Ho fatto uno script sul QUADRATO ARMONICO di FABARRI ed ho intenzione di farni altri del Fabarri. Volevo chiedere una cortesia agli esperti, in questo script ho inserito gli operatori < e > per indicare - non uguale - , però succede che tutte le volte che apro lo script si separano, da così me...

forum.lottoced.com

Ciao miki55 ho trovato quanto richiesto, la realizzazione è di salvo50.

 

[miki55]

QUESTO SCRIPT NON FUNZIONA SU L8....
'Progetto - IL QUADRATO ARMONICO - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
TestoInBandaPassante "***** Progetto IL QUADRATO ARMONICO by Fabarri, script by Salvo50 ****** ",1,5,0
Scrivi
Scrivi
Dim r1,p,pp,es,r2,clp,esq
Dim estr1,estr2,destr1,destr2,cestr1,cestr2
Dim diorestr1,diorestr2,diverestr1,diverestr2,dincrestr1,dincrestr2
Dim difforiz,diffvert,diffincr
Dim fin,Ini,ru(1),poste(2)
Dim ambata(2),idestr,ruota,col,esqcol
poste(1) = 1
'poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9270)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,3)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
r1 = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",ruota,8)
ru(1) = r1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
ColoreTesto 2
Scrivi String(110,"*") & " " & es
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
For p = 1 To 4
For pp = p + 1 To 5
estr1 = Format2(Estratto(es,r1,p))
estr2 = Format2(Estratto(es,r1,pp))
If Not Gemello(estr1) Then
If Not Gemello(estr2) Then
destr1 = Decina(estr1)
cestr1 = Cadenza(estr1)
destr2 = Decina(estr2)
cestr2 = Cadenza(estr2)
If destr1 <> destr2 Then
If destr1 <> cestr2 Then
If cestr1 <> cestr2 Then
If cestr1 <> destr2 Then
'distanza orizzontale
diorestr1 =(Differenza(destr1,cestr1))
diorestr2 =(Differenza(destr2,cestr2))
If(diorestr1) > 5 Then diorestr1 = 10 - diorestr1
If(diorestr2) > 5 Then diorestr2 = 10 - diorestr2
'distanza verticale
diverestr1 =(Differenza(destr1,destr2))
diverestr2 =(Differenza(cestr1,cestr2))
If(diverestr1) > 5 Then diverestr1 = 10 - diverestr1
If(diverestr2) > 5 Then diverestr2 = 10 - diverestr2
'distanza incrociata
dincrestr1 =(Differenza(destr1,cestr2))
dincrestr2 =(Differenza(cestr1,destr2))
If(dincrestr1) > 5 Then dincrestr1 = 10 - dincrestr1
If(dincrestr2) > 5 Then dincrestr2 = 10 - dincrestr2
'differenza totale orizzontale verticale e incrociata
difforiz = Differenza(diorestr1,diorestr2)
diffvert = Differenza(diverestr1,diverestr2)
diffincr = Differenza(dincrestr1,dincrestr2)
If difforiz = 90 Then difforiz = 0
If diffvert = 90 Then diffvert = 0
If diffincr = 90 Then diffincr = 0
If difforiz = diffvert And difforiz = diffincr And diffvert = diffincr Then
Scrivi String(70,"*")
Scrivi " Ambi Diff. Orizz." & Space(4) & " Diff. Vert." & Space(4) & "Diff. Incroc."
Scrivi " " & estr1 & Space(12) & diorestr1 & Space(15) & diverestr1 & Space(15) & dincrestr1
Scrivi " " & estr2 & Space(12) & diorestr2 & Space(15) & diverestr2 & Space(15) & dincrestr2
Scrivi String(70,"-")
Scrivi "Differenza" & Space(6) & difforiz & Space(15) & diffvert & Space(15) & diffincr

ambata(1) = estr1
ambata(2) = estr2
ImpostaGiocata 1,ambata,ru,poste,clp
Gioca es
End If
End If
End If
End If
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub

 

[miki55]

NON FUNZIONA SU "L8"

Option Explicit
Sub Main
Dim R1,P1,P2,Es,Estr1,Estr2,Clp
Dim FIn,Caso,Casi,P3,E1,Ini
Dim Amb1(2),Ru(1),Poste(2),M(2)
Poste(2) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9750)
R1 = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",,8)
Clp = InputBox("Per quanti colpi vuoi fare la ricerca",,13)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "IL COEFFICIENTE MEDIO INTEGRATORE - by FABARRI - SCRIPT Salvo50",1,,4,,3,,1
Ru(1) = R1
For Es = Ini To FIn
Caso = 0
AvanzamentoElab Ini,FIn,Es
For P1 = 1 To 4
For P2 = P1 + 1 To 5
Estr1 = Estratto(Es,R1,P1)
Estr2 = Estratto(Es,R1,P2)
M(1) = Estr1 : M(2) = Estr2
Call OrdinaMatrice(M,- 1)
If M(1) > 30 And M(2) < 61 Then
Amb1(1) = 121 - M(1)
Amb1(2) = 61 - M(2)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = Estr1 Or E1 = Estr2 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi "1° Numero " & Amb1(1) & " = 121 - " & Format2 (M(1)),1
Scrivi "2° Numero " & Amb1(2) & " = 61 - " & Format2 (M(2)),1
Scrivi
ImpostaGiocata 1,Amb1,Ru,Poste,Clp
Gioca Es
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

 

[miki55]

 

[Enplein]

Corretto X Lottodesk

Sub Main
Dim R1,P1,P2,Es,Estr1,Estr2,Clp
Dim FIn,Caso,Casi,P3,E1,Ini
Dim Amb1(2),Ru(1),Poste(2),M(2)
Poste(2) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10150)
R1 = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",,8)
Clp = InputBox("Per quanti colpi vuoi fare la ricerca",,13)
Scrivi Space(12) & "IL COEFFICIENTE MEDIO INTEGRATORE - by FABARRI - SCRIPT Salvo50"
Ru(1) = R1
For Es = Ini To FIn
Caso = 0
AvanzamentoElab Ini,FIn,Es
For P1 = 1 To 4
For P2 = P1 + 1 To 5
Estr1 = Estratto(Es,R1,P1)
Estr2 = Estratto(Es,R1,P2)
M(1) = Estr1 : M(2) = Estr2
Call OrdinaMatrice(M,- 1)
If M(1) > 30 And M(2) < 61 Then
Amb1(1) = 121 - M(1)
Amb1(2) = 61 - M(2)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(69,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
Scrivi String(60,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = Estr1 Or E1 = Estr2 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi "1° Numero " & Amb1(1) & " = 121 - " & Format2 (M(1)),1
Scrivi "2° Numero " & Amb1(2) & " = 61 - " & Format2 (M(2)),1
Scrivi
ImpostaGiocata 1,Amb1,Ru,Poste,Clp
Gioca Es
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Ciao, Enplein.

 

[miki55]

Ciao Enplein che ti ringrazio anticipatamente, ma io non ho più
Lottodesk ma solo L8 e questa è l'errore dello script da te presentato

 

[joe]

Dipende anche dalla versione di L8.

Solo le versioni più nuove (.34) accettano la concatenazione dell' istruzione scrivi ed i colori.

Si può rendere funzionante ma si perdono alcune colorazioni ed abbellimenti.

 

[Master]

Corretto per L8

Sub Main
   Dim R1,P1,P2,Es,Estr1,Estr2,Clp
   Dim FIn,Caso,Casi,P3,E1,Ini
   Dim Amb1(2),Ru(1),Poste(2),M(2)
   Poste(2) = 1
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,10150))
   FIn = EstrazioneFin
   R1 = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",,8)
   Clp = InputBox("Per quanti colpi vuoi fare la ricerca",,13)
   ColoreTesto 2
   Scrivi Space(12) & "IL COEFFICIENTE MEDIO INTEGRATORE - by FABARRI - SCRIPT Salvo50",1
    Scrivi Space(12) &"Corretto x L8 By Master"
   ColoreTesto 0
   Scrivi
   Ru(1) = R1
   For Es = Ini To FIn
      Caso = 0
      AvanzamentoElab Ini,FIn,Es
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            Estr1 = Estratto(Es,R1,P1)
            Estr2 = Estratto(Es,R1,P2)
            M(1) = Estr1 : M(2) = Estr2
            Call OrdinaMatrice(M,- 1)
            If M(1) > 30 And M(2) < 61 Then
               Amb1(1) = 121 - M(1)
               Amb1(2) = 61 - M(2)
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 2
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
               ColoreTesto 1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)) & _
               Space(2) & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " -- (" & Estr1 & "-" & Estr2 & ")",1
               Scrivi
               Scrivi "1° Numero " & Amb1(1) & " = 121 - " & Format2(M(1)),1
               Scrivi "2° Numero " & Amb1(2) & " = 61 - " & Format2(M(2)),1
               Scrivi
               ImpostaGiocata 1,Amb1,Ru,Poste,Clp
               Gioca Es
            End If
         Next
      Next
    If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[miki55]

GRAZIE Master tuttok!!!

 

[Zetrix]

x master lo script che ai fatto per L8 si possono inserire gli ambi calcolati in un block note
in formato txt ..

 

[miki55]

x master lo script che ai fatto per L8 si possono inserire gli ambi calcolati in un block note
in formato txt ..

PROVIAMOCI ALLORA...