Chi mi Aiuta Vince

« Older Newer »

SimoRocket

Posted on 12/4/2021, 10:39

Supporter

Group:: Member

Posts:: 37

Status:

Io onestamente non saprei da dove iniziare

jpg

https://image.forumfree.it/1/3/4/5/9/1/9/9/1616745149.jpg

Unouno50

Posted on 20/4/2021, 10:06

Curioso

Group:: Member

Posts:: 15

Status:

Ciao a Tutti.

Non sai da dove iniziare a fare gli script, ma a leggere le istruzioni puoi farlo, e se leggi le istruzioni ti accorgi che nella "Favolosa Quaterna" ci sono 2 numeri fissi, il 90 ed il 45.

L'autrice fa questi calcoli

27 + 90 = 117
117 - 27 = 90

Ma in questo modo qualunque numero metti al posto del 27, il risultato sarà sempre 90, ecco perche dico che il 90 è un numero fisso, poi dice di abbinare anche i diametrali quindi dato che il 45 è il diametrale di 90, ecco che 45 e 90 sono numeri fissi, se il mio discorso non fila fatemi sapere dove sto sbagliando

Unouno50

Posted on 21/4/2021, 16:29

Curioso

Group:: Member

Posts:: 15

Status:

Ciao a Tutti.

Credo che in questo articolo ci siano un bel po' di errori di stampa, altrimenti la quaterna 27-54-45-90 non è pronosticata, infatti
masi3

Il secondo 54 col circolettato deve essere 45, anche il 90 sotto deve essere 45, perchè i 4 numeri della seconda quaterna sono i diametrali della prima quaterna, nelle 2 quaterne pronosticate non c'è la Quaterna a meno che non si invertiscono di posto 81 con il 45.

Il controllo nelle 30 estrazioni a ritroso dato che non è specificato come farlo, l'ho fatto con lunghetta di 7 numeri non ci deve essere il terno nelle 30 estrazioni a ritroso

Riguardo ai numeri fissi mi sono sbagliato perchè ho interpretato male questo procedimento

MASI1

Come mi ha fatto notare Enplein

Quindi ho modificato lo script, però dato che (secondo me) la quaterna nelle quartine pronosticate non c'è, ho inserito nel pronostico anche la lunghetta, per ambo terno e quaterna, infatti la quaterna pronosticata si trova nella lunghetta (7 numeri)

sperando di non aver fatto errori

Ecco lo script, modificato

SPOILER (clicca per visualizzare)

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Sp
Dim R1,R2,P1,P2,P3,P4,Unouno50,S1,DiamS1
Dim FA,FB,FAB,SAB,DiCap12,SoCap12,Caso,Casi,Ok
Dim DiamSab,DiamFab,DiamSoCap12,Elem23,DiamElem23
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua1(4),Qua2(4)
Dim Post1(2),Post2(4),Ruo(2),Num(7)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,9870))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,9))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Ambo Ripetuto di Elisabetta Masi - Script Unouno50 (Alias Salvo50)" & Space(10),1,,4,,3,,1
Post1(2) = 1
Post2(2) = 1
Post2(3) = 1
Post2(4) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 Then
If A = C And B = D Then
FA = Figura(A) : FB = Figura(B)
FAB = CInt(FA & FB) : FAB = Fuori90(FAB)
SAB = Fuori90(A + B)
If FAB <> SAB Then
DiCap12 = Distanza(FAB,SAB)'DIST CICLOMETRICA
SoCap12 = Fuori90(FAB + SAB)
S1 = Fuori90(DiCap12 + SAB)
DiamS1 = Diametrale(S1)
DiamSab = Diametrale(SAB)
DiamFab = Diametrale(FAB)
DiamSoCap12 = Diametrale(SoCap12)
Elem23 = Fuori90((FAB + 90) - DiCap12)
DiamElem23 = Diametrale(Elem23)
Num(1) = A : Num(2) = B : Num(3) = FAB : Num(4) = SAB
Num(5) = DiamElem23 : Num(6) = SoCap12 : Num(7) = Elem23
Ruo(1) = R1 : Ruo(2) = R2
If SerieFreqTurbo(Es - 30,Es - 1,Num,Ruo,3) = 0 Then
Ambo1(1) = FAB : Ambo1(2) = SAB
Ambo2(1) = SAB : Ambo2(2) = S1
Ambo3(1) = FAB : Ambo3(2) = Elem23
If FAB <> S1 And FAB <> Elem23 And SAB <> S1 And SAB <> Elem23 Then
Qua1(1) = FAB : Qua1(2) = SAB : Qua1(3) = S1 : Qua1(4) = Elem23
Qua2(1) = DiamFab : Qua2(2) = DiamSab : Qua2(3) = DiamS1 : Qua2(4) = DiamElem23
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(17) & "La Figura di " & Format2(A) & " = " & FA,1,0
Scrivi Space(11) & "La Figura di " & Format2(B) & " = " & FB,1
Scrivi Space(10) & "Unione delle 2 figure = " & Format2(FAB),1,0
Scrivi Space(7) & "<-- 1° Capogioco e 1° Elemento 1° Ambo",1
Scrivi Space(10) & "Estratto " & Format2(A) & " + " & "Estratto ",1,0
Scrivi Format2(B) & " = " & Format2(SAB) & " <-- 2° Capogioco e 2° Elemento 1° Ambo",1
Scrivi Space(10) & "La Distanza Ciclometrica tra " & Format2(SAB) & " e ",1,0
Scrivi Format2(FAB) & " = " & Format2(DiCap12),1 ' & Space(6) & " <-- 1° Elemento 3° Ambo",1
Scrivi Space(10) & "La Somma tra " & Space(16) & Format2(SAB) & " e ",1,0
Scrivi Format2(DiCap12) & " = " & Format2(S1) & Space(6) & " <-- 2° Elemento 2° Ambo",1
Scrivi Space(10) & "Il Primo Capog. " & Format2(FAB) & " - Dist. Ciclo " & Format2(DiCap12) & " = ",1,0
Scrivi Format2(Elem23) & Space(7) & "<-- 2° Elemento 3° Ambo",1
Scrivi
Scrivi Space(10) & "I Diametrali della Quartina " & StringaNumeri(Qua1," ",True),1,0
Scrivi " sono " & StringaNumeri(Qua2," ",True),1
Scrivi
Scrivi Space(25) & " Pronostico Per " & NomeRuota(R1) & " e " & NomeRuota(R2),1,,,1
Scrivi Space(24) & "Ambi Secchi " & Format2(FAB) & Sp & Format2(SAB),1,0
Scrivi Space(4) & Format2(SAB) & Sp & Format2(S1) & Space(4) & Format2(FAB) & Sp,1,0
Scrivi Format2(Elem23),1
Scrivi Space(15) & " Per Ambo e Terno e Quaterna " & StringaNumeri(Num," ",True),1
Scrivi Space(26) & " Per Ambo e Terno e Quaterna",1,,,2
Scrivi Space(28) & StringaNumeri(Qua1," ",True) & Space(5) & StringaNumeri(Qua2," ",True),1
Scrivi
ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp
ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp
ImpostaGiocata 3,Ambo3,Ruo,Post1,Clp
ImpostaGiocata 4,Qua1,Ruo,Post2,Clp
ImpostaGiocata 5,Qua2,Ruo,Post2,Clp
ImpostaGiocata 6,Num,Ruo,Post2,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Edited by Unouno50 - 11/5/2021, 00:29

SimoRocket

Posted on 4/5/2021, 09:32

Supporter

Group:: Member

Posts:: 37

Status:

grazie per l'ottimo lavoro

io aggiungerei per le due quaterne anche la statistica su tutte come si comporta grazie

Enplein

Posted on 5/5/2021, 18:01

Top Member

Group:: Member

Posts:: 5,380

Location:: Montesilvano (PE)

Status:

CITAZIONE

e se leggi le istruzioni ti accorgi che nella "Favolosa Quaterna" ci sono 2 numeri fissi, il 90 ed il 45.

L'autrice fa questi calcoli

27 + 90 = 117
117 - 27 = 90

Ma in questo modo qualunque numero metti al posto del 27, il risultato sarà sempre 90, ecco perche dico che il 90 è un numero fisso, poi dice di abbinare anche i diametrali quindi dato che il 45 è il diametrale di 90, ecco che 45 e 90 sono numeri fissi, se il mio discorso non fila fatemi sapere dove sto sbagliando

Buonasera

Leggendo il procedimento non esistono i numeri fissi 90-45, e cerco di spiegarlo
prendendo un nuovo caso.
26.01.2021 03.64.78.66.60 Ge 64.78 Pos 2^ 3^
26.01.2021 85.64.66.20.78 Pa 64.78 Pos 2^ 5^

La Figura di 64 = 1_____La Figura di 78 = 6
Unione delle 2 figure = 16_______<-- 1° Capogioco e 1° Elemento 1° Ambo
Estratto 64 + Estratto 78 = 52____<-- 2° Capogioco e 2° Elemento 1° Ambo

La Distanza Ciclometrica tra 52 e 16 = 36
____16 (36) 52
Il 90 entra in gioco quando bisogna sottrarre il numero 16 dalla distanza 36
70 (+36) 16 (+36) 52 (+36) 88
La Distanza Ciclometrica 36 + 52 = 88
_____________________(16+90) - 36 = 70__<-- 2° Elemento 3° Ambo
Pronostico Per Genova e Palermo
Ambi Secchi 16 52____52 88____16 70

Per Terno e Quaterna
16.52.88.70_____61.07.43.25

Nella speranza di non aver commesso errori,saluto.

Enplein.

Unouno50

Posted on 6/5/2021, 07:52

Curioso

Group:: Member

Posts:: 15

Status:

Ciao a Tutti.
Ciao Enplein

Premetto che tu insieme a LuigiB, Joe, Mike58, ILegend, Claudio8, Cinzia, Magia, Master ecc..., vi considero come miei maestri.

Se facciamo i calcoli come proponi tu è vero non ci sono numeri fissi, ma quell'espressione che ho citato prima non me la sono inventata io, è nell'articolo

MASI1

e come ho scritto prima, qualunque numero metti al posto del 27 il risultato è sempre 90

ragionando con il tuo esempio mi accorgo che l'espressione come è presentata è molto ambigua.

Comunque ti ringrazio del tuo intervento e il prima possibile correggerò lo script

Enplein

Posted on 6/5/2021, 11:11

Top Member

Group:: Member

Posts:: 5,380

Location:: Montesilvano (PE)

Status:

Ciao unouno, ti ringrazio per la considerazione che contracambio.

Riporto una parte del procedimento.

Sommando la distanza (27)al numero 54 e sottraendola al numero 27
(aggiungendo il fisso 90 se il numero distanza (27)da sottrarre è uguale o maggiore)
in questo caso la distanza (27) è uguale al numero 27 e quindi bisogna aggiungere
il fisso 90 per effettuare la sottrazione: 27+90-27=90

Questo ho capito, spero che la mia osservazione non sia sbagliata.

Enplein.

Unouno50

Posted on 6/5/2021, 12:33

Curioso

Group:: Member

Posts:: 15

Status:

Chiedo scusa per l'errore commesso, un grazie ad Enplein che me lo ha fatto notare.

Ho modificato lo script, quindi è da riprendere

SimoRocket

Posted on 8/5/2021, 18:15

Supporter

Group:: Member

Posts:: 37

Status:

bella li grandi

non vedo lo script modificato grazie

Unouno50

Posted on 10/5/2021, 23:21

Curioso

Group:: Member

Posts:: 15

Status:

Ciao a Tutti.

Ciao SimoRocket, nel mio secondo post, quello delle 17,29 del 21-04-21 apri lo spoiler, c'è lo script modificato.

Praticamente ho tolto quello sbagliato e al suo posto ho messo quello modificato

SimoRocket

Posted on 16/12/2021, 11:22

Supporter

Group:: Member

Posts:: 37

Status:

Buongiorno ho trovato in rete questo metodo ed è spettacolare
e secondo me si può tentare anche al 10 e lotto mettendo xelle fisse con numeretti che escono frequentemente con un buono script si riuscirebbe a vedere bene come si comporta ti posto il metodoche non è mio ma una vera bomba

buona serata a tutti, posto un mio metodo, per il 10 e lotto serale, sperando di fare cosa gradita.

Il metodo funziona così:

si prende il terzo numero , è lo si moltiplica x 3
e viene la prima ambata
il vertibile sarà la seconda ambata

le due ambate vanno sommate ,
se serve, fare il fuori 90
al risultato ottenuto si fa il +2
e otterremo così la nostra ambata definitiva con il suo vertibile
da mettere in gioco in prima o seconda posizione
oppure lo si può giocare come estratto
oppure come abbinamento ad un vostro numero x ambo che è pagato bene.

Faccio 2 esempi reali con una piccola statistica che potete controllare:

il 21/1/21 il terzo numero era il 12
12x3= 36... Vert. 63
si fa la prima somma
36+63=99; 99-90= 9
al 9 si somma il fisso 2
9+2= 11
11 e il suo vert. 19

11 e 19 sono i 2 numeri da mettere in gioco
al 1 colpo esce il 19

Giuseppe P1

Posted on 29/10/2023, 12:57

Senior

Group:: Member

Posts:: 110

Status:

Scusate ma la condizione non la trova lo script? A me da errore 500 riga 12 end Fin End Fin e poi mi dice inserisci l'estrazione che vuoi iniziare 9870 e per quanti colpi vuoi giocare e gli dico 9 e non capisco perchè non me la trova lui la condizione per mettere i numeri in gioco. Qualcuno potrebbe spiegarmi come funziona questo script e come modificarlo eventualmente perchè così impostato mi pare inutilizzabile ai fini del riconoscimento della condizione e nel metterla in gioco. Grazie mille a tutti per la pazienza e la disponiblità

11 replies since 12/4/2021, 10:39 1116 views