PROCEDIMENTO EINS-FAB
Nel primo esempio i calcoli sono risultati esatti, nel secondo e terzo esempio i dati non corrispondono con quelli dell'articolo perchè qualche dato nell'articolo è sbagliato, nel secondo esempio quel resto 106 è sbagliato, infatti il resto giusto è 104, che risulta da 26624/136 = 195 resto 104 quindi quasi tutti i calcoli che vengono dopo sono sbagliati, nel terzo esempio il dato sbagliato nell'articolo è il numero 8 che sta sotto il numero 30, il numero giusto è il 6, questo numero si ottiene facendo 04(la seconda somma) meno 42(la seconda distanza), quindi 94-42=52 dato che questo numero è superiore a 46, si deve togliere il 46, quindi 52-46=06, quindi anche qui quasi tutti i calcoli dopo sono sbagliati. I 3 numeri che sono alla sinistra del numero 25 (nel primo esempio)non li ho messi perchè anche l'autore dice che non servono, infatti li calcola ma non li usa, nella terza parte dell'articolo, in basso a destra, dice - in questo caso,data la presenza del 22, è opportuno aggiungere l'ambo 13-2 - . non ho capito perchè, si deve aggiungere l'ambo 13-2. A riguardo delle condizioni della terna, il punto (a) è in contrasto col punto (f), quindi l'ho scartato, il punto (f) è impossibile che si verifica perchè è in contrasto con il punto (b), quindi l'ho modificato con distanza 2 invece di distanza 1.
Di script ne ho fatti 2, nel primo i 3 numeri si inseriscono da se nei 3 numeri inseriti da tastiera non si rispettano le condizioni impostate ad inizio script, nell'output non appare niente, il secondo script è con le estrazioni, e con la ricerca, quindi i tre numeri vengono presi direttamente dalle ruote.
Primo script 'Progetto - PROCEDIMENTO EINS-FAB - BY FABARRI
'Script - by Salvo50
'Condizioni dei 3 numeri da inserire
'1) Devono essere tutti dispari o tutti pari
'2) Devono essere di valore progressivamente crescente o decrescente
'3) la terna non deve avere nè il 90 nè il 45
'4) La terna non deve contenere nè somme nè differenze di valore 17 o 45
'5) La distanza 2 non deve figurare più di una volta
Option Explicit
Sub Main
Dim A,B,C,s1,s2,s3,d1,d2,d3,d4,d5
Dim sd1,sd2,sd3,sd4a,sd4b,sd5,sd6a,sd6b
Dim sdd1,co46,mo1,qmo1,Tot1,tot2,rsd
Dim smsdd1,sdsd
Dim Amb1a,Amb2a,Amb3a,Amb4a,Amb1b,Amb2b,Amb3b,Amb4b
A = CInt(InputBox("Inserisci il primo numero ",,18))
B = CInt(InputBox("Inserisci il secondo numero ",,26))
C = CInt(InputBox("Inserisci il terzo numero ",,38))
' Condizioni
If pari(A) And pari(B) And pari(C) Or dispari(A) And dispari(B) And dispari(C) Then
If(B) >(A) And(C) >(B) Or(B) <(A) And(C) <(B) Then
If(A) <> 45 And(B) <> 45 And(C) <> 45 And(A) <> 90 And(B) <> 90 And(C) <> 90 Then
If Differenza(A,B) = 2 And Differenza(B,C) <> 2 Then
Else
If Differenza(B,C) = 2 And Differenza(A,B) <> 2 Then
Else
If Differenza(A,B) <> 2 And Differenza(B,C) <> 2 Then
'Calcoli Comuni, primo quadro
s1 = Fuori90(A + B)
s2 = Fuori90(B + C)
d1 = Distanza(A,B)
d2 = Distanza(B,C)
If s1 <> 17 And s2 <> 17 And d1 <> 17 And d2 <> 17 Then
If s1 <> 45 And s2 <> 45 And d1 <> 45 And d2 <> 45 Then
sd1 = Fuori90(s1 + d1)
sd2 = Fuori90(s2 + d2)
sdsd = Fuori90(sd1 + sd2)
If sdsd > 46 Then sdsd =(sdsd - 46)
'Calcoli comuni secondo quadro
d3 = Fuori90(90 +(s1 - d1))
d4 = Fuori90(90 +(s2 - d2))
If d3 > 46 Then d3 =(d3 - 46)
If d4 > 46 Then d4 =(d4 - 46)
sdd1 = Fuori90(d3 + d4)
smsdd1 =(sdd1 \ 2)
co46 =(46 - smsdd1)
d5 = Differenza(co46,smsdd1)
mo1 =(d5 * 2)
qmo1 = mo1 * mo1
Tot1 = qmo1 * sdsd
rsd = Tot1 Mod 136
If rsd <= sd1 Or rsd <= sd2 Then rsd =(rsd + 136)
'Calcoli per ambo 1 e ambo 2
sd4a = Fuori90(rsd - sd1)
sd3 = Differenza(sd4a,sd1)
If sd3 < d3 Then sd3 = 90 - sd3
sd4b = Fuori90(90 +(sd3 - d3))
If sd4a <> sd4b Then
Amb1a = sd4a \ 2
Amb1b = sd4b \ 2
Amb2a = Diametrale(Amb1a)
Amb2b = Diametrale(Amb1b)
'Calcoli per ambo 3 e ambo 4
sd6a = Fuori90(rsd - sd2)
sd5 = Differenza(sd6a,sd2)
If sd5 < d4 Then sd5 = 90 - sd5
sd6b = Fuori90(90 +(sd5 - d4))
If sd6a <> sd6b Then
Amb3a = sd6a \ 2
Amb3b = sd6b \ 2
Amb4a = Diametrale(Amb3a)
Amb4b = Diametrale(Amb3b)
'output
Scrivi Space(23) & Format2(s1) & Space(3) & Format2(s2),1
Scrivi Space(20) & Format2(A) & " " & Format2(B) & " " & Format2(C)
Scrivi Space(23) & Format2(d1) & Space(3) & Format2(d2),1
Scrivi Space(20) & String(12,"-")
Scrivi Space(23) & Format2(sd1) & Space(3) & Format2(sd2),1
Scrivi Space(25) & FormattaStringa(sdsd,"000"),1
Scrivi Space(25) & FormattaStringa(rsd,"000") & " " & Format2(sd4a) & " " & Format2(sd4b)_
& " " & Format2(Amb1a) & " " & Format2(Amb1b),1
Scrivi Space(16) & "|" & Format2(d3) & "|" & Space(25)_
& Format2(Amb2a) & " " & Format2(Amb2b),1
Scrivi Space(16) & "|" & Format2(d4) & "|" & Format2(sdd1) & "|" & Format2(smsdd1)_
& "|" & Format2(d5) & "|" & " " & Format2(sd6a) & " " & Format2(sd6b)_
& " " & Format2(Amb3a) & " " & Format2(Amb3b),1
Scrivi Space(16) & String(12,"-") & Space(17) & Format2(Amb4a) & " " & Format2(Amb4b),1
Scrivi Space(13) & "| " & "| " & "| " & "|" & Format2(co46) & "|" & Format2(mo1) & "|",1
Scrivi String(50,"-")
Scrivi "Ambi " & Format2(Amb1a) & " " & Format2(Amb1b) & " - " & Format2(Amb2a) & " " & Format2(Amb2b)_
& " - " & Format2(Amb3a) & " " & Format2(Amb3b) & " - " & Format2(Amb4a) & " " & Format2(Amb4b),1
Scrivi
Scrivi "Quartine " & Format2(Amb1a) & " " & Format2(Amb1b) & " " & Format2(Amb2a) & " " & Format2(Amb2b)_
& " - " & Format2(Amb3a) & " " & Format2(Amb3b) & " " & Format2(Amb4a) & " " & Format2(Amb4b),1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Secondo script 'Progetto - PROCEDIMENTO EINS-FAB - BY FABARRI
'Modifica, inserimento direttamente dalle ruote e ricerca. By Salvo50
'Script - by Salvo50
'Condizioni dei 3 numeri da inserire
'1) Devono essere tutti dispari o tutti pari
'2) Devono essere di valore progressivamente crescente o decrescente
'3) la terna non deve avere nè il 90 nè il 45
'4) La terna non deve contenere nè somme nè differenze di valore 17 o 45
'5) La distanza 2 non deve figurare più di una volta
Option Explicit
Sub Main
Dim fin,idestr,ruota,Ini,es,r1,caso,casi
Dim A,B,C,s1,s2,s3,d1,d2,d3,d4,d5,p1,p2,p3
Dim sd1,sd2,sd3,sd4a,sd4b,sd5,sd6a,sd6b
Dim sdd1,co46,mo1,qmo1,Tot1,rsd,clp1,clp2,smsdd1,sdsd
Dim Amb1a,Amb2a,Amb3a,Amb4a,Amb1b,Amb2b,Amb3b,Amb4b
Dim ruote(1),posta(2),post4(4)
Dim num1(2),num2(2),num3(2),num4(2),num5(4),num6(4)
fin = EstrazioneFin
Ini = InputBox("Inserisci numero di inizio estrazione",idestr,9300)
clp1 = InputBox("inserisci per quanti colpi vuoi giocare l'ambo )",,4)
clp2 = InputBox("inserisci per quanti colpi vuoi giocare la quartina)",,8)
Scrivi ""
posta(1) = 1
posta(2) = 1
post4(2) = 1
'post4(3) = 1
'post4(4) = 1
For es = Ini To fin
AvanzamentoElab Ini,fin,es
caso = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
ruote(1) = r1
For p1 = 1 To 3
p2 = p1 + 1
p3 = p2 + 1
A = Estratto(es,r1,p1)
B = Estratto(es,r1,p2)
C = Estratto(es,r1,p3)
' Condizioni
If pari(A) And pari(B) And pari(C) Or dispari(A) And dispari(B) And dispari(C) Then
If(B) >(A) And(C) >(B) Or(B) <(A) And(C) <(B) Then
If(A) <> 45 And(B) <> 45 And(C) <> 45 And(A) <> 90 And(B) <> 90 And(C) <> 90 Then
If Differenza(A,B) = 2 And Differenza(B,C) <> 2 Or Differenza(B,C) = 2 And Differenza(A,B) <> 2 Or Differenza(A,B) <> 2 And Differenza(B,C) <> 2 Then
'Calcoli Comuni, primo quadro
s1 = Fuori90(A + B)
s2 = Fuori90(B + C)
d1 = Distanza(A,B)
d2 = Distanza(B,C)
If s1 <> 17 And s2 <> 17 And d1 <> 17 And d2 <> 17 Then
If s1 <> 45 And s2 <> 45 And d1 <> 45 And d2 <> 45 Then
sd1 = Fuori90(s1 + d1)
sd2 = Fuori90(s2 + d2)
sdsd = Fuori90(sd1 + sd2)
If sdsd > 46 Then sdsd =(sdsd - 46)
'Calcoli comuni secondo quadro
d3 = Fuori90(90 +(s1 - d1))
d4 = Fuori90(90 +(s2 - d2))
If d3 > 46 Then d3 =(d3 - 46)
If d4 > 46 Then d4 =(d4 - 46)
sdd1 = Fuori90(d3 + d4)
smsdd1 =(sdd1 \ 2)
co46 =(46 - smsdd1)
d5 = Differenza(co46,smsdd1)
mo1 =(d5 * 2)
qmo1 = mo1 * mo1
Tot1 = qmo1 * sdsd
rsd = Tot1 Mod 136
If rsd <= sd1 Or rsd <= sd2 Then rsd =(rsd + 136)
'Calcoli per ambo 1 e ambo 2
sd4a = Fuori90(rsd - sd1)
sd3 = Differenza(sd4a,sd1)
If sd3 < d3 Then sd3 = 90 - sd3
sd4b = Fuori90(90 +(sd3 - d3))
If sd4a <> sd4b Then
Amb1a = sd4a \ 2
Amb1b = sd4b \ 2
Amb2a = Diametrale(Amb1a)
Amb2b = Diametrale(Amb1b)
'Calcoli per ambo 3 e ambo 4
sd6a = Fuori90(rsd - sd2)
sd5 = Differenza(sd6a,sd2)
If sd5 < d4 Then sd5 = 90 - sd5
sd6b = Fuori90(90 +(sd5 - d4))
If sd6a <> sd6b Then
Amb3a = sd6a \ 2
Amb3b = sd6b \ 2
Amb4a = Diametrale(Amb3a)
Amb4b = Diametrale(Amb3b)
'output
casi = casi + 1
caso = caso + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi Space(23) & Format2(s1) & Space(3) & Format2(s2),1
Scrivi Space(20) & Format2(A) & " " & Format2(B) & " " & Format2(C)
Scrivi Space(23) & Format2(d1) & Space(3) & Format2(d2),1
Scrivi Space(20) & String(12,"-")
Scrivi Space(23) & Format2(sd1) & Space(3) & Format2(sd2),1
Scrivi Space(25) & FormattaStringa(sdsd,"000"),1
Scrivi Space(25) & FormattaStringa(rsd,"000") & " " & Format2(sd4a) & " " & Format2(sd4b)_
& " " & Format2(Amb1a) & " " & Format2(Amb1b),1
Scrivi Space(16) & "|" & Format2(d3) & "|" & Space(25)_
& Format2(Amb2a) & " " & Format2(Amb2b),1
Scrivi Space(16) & "|" & Format2(d4) & "|" & Format2(sdd1) & "|" & Format2(smsdd1)_
& "|" & Format2(d5) & "|" & " " & Format2(sd6a) & " " & Format2(sd6b)_
& " " & Format2(Amb3a) & " " & Format2(Amb3b),1
Scrivi Space(16) & String(12,"-") & Space(17) & Format2(Amb4a) & " " & Format2(Amb4b),1
Scrivi Space(13) & "| " & "| " & "| " & "|" & Format2(co46) & "|" & Format2(mo1) & "|",1
Scrivi String(106,"-")
num1(1) = Amb1a
num1(2) = Amb1b
ImpostaGiocata 1,num1,ruote,posta,clp1
num2(1) = Amb2a
num2(2) = Amb2b
ImpostaGiocata 2,num2,ruote,posta,clp1
num3(1) = Amb3a
num3(2) = Amb3b
ImpostaGiocata 3,num3,ruote,posta,clp1
num4(1) = Amb4a
num4(2) = Amb4b
ImpostaGiocata 4,num4,ruote,posta,clp1
num5(1) = Amb1a
num5(2) = Amb1b
num5(3) = Amb2a
num5(4) = Amb2b
EliminaRipetuti num5
ImpostaGiocata 5,num5,ruote,post4,clp2
num6(1) = Amb3a
num6(2) = Amb3b
num6(3) = Amb4a
num6(4) = Amb4b
EliminaRipetuti num6
ImpostaGiocata 6,num6,ruote,post4,clp2
Gioca es
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub
