questi documenti sono gentilmente stati concessi da aretuseo
Il Triangolo Iscritto
Nell'articolo è uno solo il numero pronosticato, il vertice del triangolo, però secondo me non lo specifica bene quale deve essere, nel primo esempio che fà con il 59 e 09 dà come vertice il 34, infatti 59+09=68 diviso 2 = 34, nel secondo esempio con i numeri 62 e 22, allora 62+22=84 diviso 2 = 42, ma l'autore dice che il vertice è 87, praticamente il diametrale di 42, allora cosa metto il numero che viene come vertice o il suo diametrale? Io nello script li ho messi tutti e due, così ho pronosticato anche l'ambo, il numero vertice pronosticato l'ho fatto visualizzare in rosso.
aretuseo
'Progetto - IL TRIANGOLO ISCRITTO - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,es,r2,estr1,estr2,clp,esq
Dim fin,Ini,caso,a,b(3)
Dim idestr,col,esqcol,ru(3),posta(2)
Dim figestr1,figestr2,diffig,Vertic,figvertice,diffe1e2
Dim sommaestr,sommafig,semisomestr,figsemsomestr,semisomfig
Dim num1(2),diamve
TestoInBandaPassante "***** Progetto IL TRIANGOLO ISCRITTO by Fabarri, script by Salvo50 ****** ",1,5,0
Scrivi
Scrivi
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,5)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1))
posta(1) = 1
posta(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 10
For p1 = 1 To 5
estr1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
estr2 = Estratto(es,r2,p1)
If Differenza(estr1,estr2) > 15 Then
sommaestr = Fuori90(90 +(estr1 + estr2))
If pari(sommaestr) Then
Vertic = sommaestr / 2
figvertice = Figura(Vertic)
figestr1 = Figura(estr1)
figestr2 = Figura(estr2)
diffig = Differenza(figestr1,figestr2)
If diffig = 90 Then diffig = 9
If pari(diffig) Then
sommafig = figestr1 + figestr2
If pari(sommafig) Then
semisomfig = sommafig / 2
If semisomfig = figvertice Then
diamve = Diametrale(Vertic)
Scrivi
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
Scrivi "(" &Format2(estr1) & Space(1) & Format2(estr2) &" Semifigura "& (semisomfig)&")",0,0
Scrivi " (Pronostico ",0,0
ColoreTesto 2
Scrivi Format2(Vertic),0,0
ColoreTesto 0
Scrivi " "& Format2(diamve)&" Figura " & figvertice &")"
b(1) = estr1
b(2) = estr2
b(3) = Vertic
DisegnaCerchioCiclometrico b,- 1
ru(1) = r1
ru(2) = r2
'ru(3) = 11
num1(1) = Vertic
num1(2) = diamve
ImpostaGiocata 1,num1,ru,posta,clp
Gioca es
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Edited by pigreko73.. - 21/1/2018, 20:09