Posts written by lottofortuna

L'ho trovato su un altro sito tuttavia avviserò franco

Ho inserito uno script in merito ora vediamo se si accende l'argomento, grazie per il lavoro fatto pigreco su questo forum è veramente esaustivo, non volevo sembrare scortese ma è solo voglia di apprendere

Attendo vs script in merito

Sub main()
Dim ruota(1),amb(2),lg(5),posta(1),poste(5)
Dim num(10),df(10),dfs(6),dfi(5),nr1(7),nr2(7),nr3(7),nr4(7),nr5(6),sv(6)
posta(1)=1 : poste(2)=2 : poste(3)=1.5 : poste(4)=1 : poste(5)=0.50 : colpo=18 : colpi=40
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** BYRON DI A. LONGO ****** ",1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi String(70,"=")&"listato by franco florindi",1
ColoreTesto 0
rs=CInt(InputBox("Quante estrazioni si vogliono analizzare ?","F.Florindi",10))
ini=EstrazioneFin -rs
fine=EstrazioneFin
conta=0
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fine)
For es=ini To fine
Messaggio es
For r=1 To 11
If r=11 Then r=12
ruota(1)=r
'Numeri estratti
For i=1 To 5
num(i)=Estratto (es-1,r,i)
num(i+5)=Estratto (es,r,i)
Next
'Calcola le differenze dei numeri estratti
h=0
For j=2 To 10
h=h+1
df(h)=Fuori90 ((num(1)+90)-num(j))
Next
df(10)=90
'Calcola le differenze superiori con la relativa somma
h=0:ss=0
For i=1 To 6: j=i+1
h=h+1
dfs(h)=Fuori90 ((df(i)+90)-df(j))
ss=Fuori90 (ss+dfs(i))
Next
'Crea la disposizione dei numeri in un Quadro
For i=1 To 7:nr1(i)=df(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=df(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=df(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=df(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=df(i):Next
sc=0
'Somma delle 6 solonne + somma delle somme
For i= 1 To 6
sv(i)=Fuori90(nr1(i)+nr2(i)+nr3(i)+nr4(i)+nr5(i))
sc=Fuori90 (sc+sv(i))
Next
'Differenze inferiori con relativa somma
h=0 : si=0
For i=1 To 5:j=i+1
h=h+1
dfi(h)=Fuori90 ((sv(i)+90)-sv(j))
si=Fuori90 (si+dfi(i))
Next
'Somma incognita
sx=0
For i=7 To 10
sx=Fuori90 (sx+df(i))
Next
'Somma delle differenze sup. + inf.
sd=Fuori90 (ss+si)
'Controlla la presenza di sd
If Posizione (es-1,r,sd)>0 Or Posizione (es,r,sd)>0 Then
'1a Equazione ridotta di BYRON :3a+3b+4c+5d+6e+2g+2h+i=90
a=Fuori90(3*dfs(1))
b=Fuori90(3*dfs(2))
c=Fuori90(4*dfs(3))
d=Fuori90(5*dfs(4))
e=Fuori90(6*dfs(5))
f=Fuori90(4*dfs(6))
g=Fuori90(2*dfi(1))
h=Fuori90(2*dfi(2))
i=Fuori90(1*dfi(3))
se1=Fuori90(a+b+c+d+e+f+g+h+i)
'2a Equazione
a1=Fuori90(3*num(1))
b1=Fuori90(3*num(2))
c1=Fuori90(4*num(3))
d1=Fuori90(5*num(4))
e1=Fuori90(6*num(5))
f1=Fuori90(4*num(6))
g1=Fuori90(2*num(7))
h1=Fuori90(2*num(8))
i1=Fuori90(1*num(9))
se2=Fuori90(a1+b1+c1+d1+e1+f1+g1+h1+i1)
'Elem. differenziale
x=Fuori90 ((2*se1)+se2)
amb(1)=Fuori90 ((si+90)-x)
amb(2)=ss
ab1=Fuori90 ((amb(1)+90)-x):ab2=Diametrale (se1):ab3=Diametrale (se2)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=ab1:lg(4)=ab2:lg(5)=ab3
conta=conta+1
ColoreTesto 1 :Scrivi : Scrivi String (70,"=")&" Caso n°"& conta,1 : ColoreTesto 0
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)& Chr (10)&_
"Diff. estratti al n°"& Format2(num(1))&"-->"& StringaNumeri (df)
Scrivi Space (10)&" QUADRO ",1
Scrivi Space(5)& StringaNumeri (dfs)& Space(2)&"<-- Diff. superiori"&" Somma :"& Format2 (ss)
Scrivi String (74,"-")
Scrivi Space (3)& StringaNumeri (nr1)& Chr (10)&_
Space (3)& StringaNumeri (nr2)& Chr (10)&_
Space (3)& StringaNumeri (nr3)& Chr (10)&_
Space (3)& StringaNumeri (nr4)& Chr (10)&_
Space (3)& StringaNumeri (nr5)&" xx"& Chr (10)&_
String (74,"-")& Chr (10)&_
Space (3)& StringaNumeri (sv)& Space(3)&"<-- Somma :"& Format2 (sc) & Chr (10)&_
Space (4)& StringaNumeri (dfi)& Space(5)&"<-- Diff. inferiori"&" Somma :"& Format2 (si)
Scrivi : ColoreTesto 1
Scrivi "Somma delle somme delle prime sei colonne = "& Format2 (sc)
Scrivi "Somma di tutte le Differenze (Ultima esclusa) = "& Format2 (sd)
Scrivi "EQUAZIONE (EQ): 3A+3B+4C+5D+6E+4F+2G+2H+I=90"
Scrivi Format2 (a)&"."& Format2 (b)&"."& Format2 (c)&"."& Format2 (d)&"."& Format2 (e)&"."& Format2 (f)&_
"."& Format2 (g)&"."& Format2 (h)&"."& Format2 (i)
Scrivi "(1a EQ) Applicata alle differenze superiori ed inferiori : "& Format2 (se1)
Scrivi Format2 (a1)&"."& Format2 (b1)&"."& Format2 (c1)&"."& Format2 (d1)&"."& Format2 (e1)&"."& Format2 (f1)&_
"."& Format2 (g1)&"."& Format2 (h1)&"."& Format2 (i1)
Scrivi "(2a EQ) Applicata agli estratti iniziali : "& Format2 (se2)
Scrivi "Elemento ingognito :"& Format2 (x)
ColoreTesto 0
Scrivi
Scrivi "Ambate ----> : "& StringaNumeri(amb)
Scrivi "Lunghetta -> : "& StringaNumeri (lg)
Scrivi
ImpostaGiocata 1,amb,ruota,posta,colpo,1
ImpostaGiocata 2,lg,ruota,poste,colpi,2
Gioca es
End If
Next
Next
ScriviResoconto
End Sub

con gli script quello che si faceva in anni lo fai in un secondo l'importante è avere input e questi li hai in sezioni specifiche per questo chiedevo l'abilitazione tutto quà.
Volevo pubblicare script relativi a tale metodo che bisogna vedere sino a che punto è realmente valido e ciò lo volevo testare nell'are di approfondimento che tra l'altro vedo ferma da un bel po di tempo, per cui perchè non riaccendere l'interesse di chi come me ne ha voglia; non capisco questo filtro di accesso a pochi eletti; dalla discussione anche a livello avanzato può nascere qualcosa di buona ...dalla chiusura non nasce nulla se non il buio totale.
La rete è apertura e connessione di intelligenze quindi credimi per crescere bisogna remare dalla parte opposta. Tuttavia non discuto le regole del forum ma permettimi di pensare e esprimere il mio totale dissenso, poi visto che sei tu che comandi accetto di buon grado la decisione per me errata.
Non dovrebbero esistere aree protette chiuse o altro, perchè ciò impedisce l'evoluzione di qualsivoglia concetto.

Se non mi dai modo di approfondire la conoscenza come ti potrò dimostrare il mio interesse.
L'interesse c'è altrimenti non avrei chiesto l'abilitazione ti pare!?!
Poi dover superare un esame mi sembra un po troppo
Seguo la ciclometria e da poco sono incuriosito dal metodo Byron dammi accesso all'area e vedrai come assunte le conoscenze specifiche contribuirò con i miei interventi
cmnq grazie lo stesso!

Ad oggi non mi hanno abilitato saranno al mare??????

mi dai il permesso di accesso nella tua area riservata al Byron?
ciao e grazie

ESISTE UNO SCRIPT PER LOTTODESK DELLA CATENARIA DI MANNA?

Potresti postare qualche applicazione interessante su ciclodinamica e sistema novantesimale di Manna?
Grazie Giovanni.