Aiuto Script Cabalistico

[jure]

Si Potrebbe farci uno Script

es. Estrazione del 28/06/2016 Palermo 03 29 55 66 64
Procedimento
03 + 29 = 32
32 x 55 = 1760
Radice Quadrata di 1760 = 41.95235393
41.95235393 + 66 = 107.9523539
107.9523539 x 64 = 6908.950651
Radice Quadrata di 6908.950651 = 83.12009776
Previsione
Palermo
Ambata 83
Possibilmente Ambo 83 - 12
Al 6° Colpo Ambata 83

Es.Roma 73 81 19 82 58
Risultato Radice Quadrata 88.8446159
Previsione
Roma Ambata 88
Al 3° Colpo Ambata

Es, Torino 46 89 06 03 67
Risultato Radice quadrata 45.91136492
Previsione
Ambata 45
Che esce al 5° colpo

Es. Venezia 08 44 74 34 27
Risultato Radice Quadrata 50.92023901
Previsione
Venezia Ambata 50 che esce al 9° colpo

Se il primo numero del risultato della Radice Quadrata
supera 90 non si prende in considerazione la Previsione.

 

[Membro cancellato 16574]

Buonanotte,
Salutandola . le postiamo il listato del metodo sopraindicato .
Controllare sempre ,
Salvo errori ed omissis.

Option Explicit
'Aiuto Script Cabalistico di jure
'http://forum.lottoced.com/forum/lottoced/area-download/1991988-aiuto-script-cabalistico
Sub Main()
    Dim r,klp,caso
    Dim Ini,fin,es
    Dim E01,E02,E03,E04,E05
    Dim N01,N02,N03,N04,N05,N06
    Dim n(01),ruota(01),posta(01)
    posta(01) = 1
    r = ScegliRuota
    ruota(01) = r
    klp = 18
    caso = 00
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    For es = Ini To fin
        Messaggio(es)
        AvanzamentoElab Ini,fin,es
        E01 = Estratto(es,r,01)
        E02 = Estratto(es,r,02)
        E03 = Estratto(es,r,03)
        E04 = Estratto(es,r,04)
        E05 = Estratto(es,r,05)
        N01 = E01 + E02
        N02 = Moltiplica(N01,E03)
        N03 = Sqr(N02)
        N04 = N03 + E04
        N05 = Moltiplica(N04,E05)
        N06 = Sqr(N05)
        If Int(N06) <= 90 Then
            caso = caso + 01
            Scrivi String(125,"-") & " Caso n° " & Format2(caso),01
            Scrivi GetInfoEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r),01
            n(01) = Int(N06)
            ImpostaGiocata 01,n,ruota,posta,klp,01
            Gioca es,True,,True
        End If
    Next
    ScriviResoconto
End Sub

 

[jure]

Grazie Magia è Perfetto.
Si potrebbero anche farci degli Ambi.
Es il 05/07/2016
Firenze 27 88 58 07 28
Radice Quadrata Finale 49. 82 73 20 85
Ci si potrebbero abbinare a coppie i rimanenti numeri
Es. FI 49 82 - 49 73 - 49 20 - 49 85

il 16/07/2016 sono usciti gli Ambi
FI 49 73 - 49 85

 

[Membro cancellato 16574]

Buonanotte,
Abbiamo tentato , senza successo di estrapolare i decimali .
Per questo chiediamo a LuigiB , ed ad altri se hanno idee a riguardo ,se questa function

Decimal

SplitByChar

ConvDec

potrebbero servire a quel scopo e come si utillizzano , visto che la prima non viene visauallizzata con l' help.
Grazie

 

[jure]

Grazie Magia "Buonanotte"

 

[Joe91]

Ciao.

Se il numero "X" ha dei decimali ...

INT (x) è il suo intero.

x meno il suo intero è la sua parte decimale.

d = x - int (x)

(Oppure anche MOD può essere utile.)

La parte decimale eventualmente puoi

moltiplicarla per 10 100 1000...

Poi .... tronchi o arrotondi

a seconda di quante cifre ti sono utili.

 

[LuigiB]

ciao alle informazioni fornite dia Joe aggiungo che Decimal non è una funzione ma un tipo dati peraltro non supportato da vbscript che ha solo i tipi variant , non ricordo se funzioni CDec.
Oltre ad Int si puo usare anche la funzione Round la quale arrotonda all'intero piu vicino nel caso in cui il numero di cifre decimali richiesto sia 0

MsgBox Round(1.3 ,0) ' da 1
MsgBox Round(1.6 ,0) ' da 2