Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
x salvo 50 e altri script x spaziometria
- Creatore Discussione DRAGON8698
- Data di inizio
DRAGON8698
Member
nel'immagine c'e' l'esempio della figura 2 ovviamente cercare tutte le condizioni con tutte le figure,poi se magari sono condizioni rare ricercare non solo l'isotopia se possibile grazie
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp1,Clp2,Caso,Casi,Cer
Dim R1,R2,P1,P2,P3,A,B,C,D,E1,E2,PP1,PP2
Dim SomAC,SomBD,SomACBD,DiamSomACBD
Dim SC_PaRallele1,SC_PaRallele2
Dim DM12,DM23,DM34,DM41,C1,C2,C3,C4
Dim M1(2),M2(2),M(4),L(6),S(8)
Dim Ambata(1),Ambo1(2),Ambo2(2),Terno(3)
Dim Ruo1(3),Ruo2(4),Poste1(1),Poste2(2),poste3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,10150))'9615 estrazione di esempio nell'articolo
Clp1 = CInt(InputBox("Per quanti colpi vuoi giocare l'ambata?",,9))
Clp2 = CInt(InputBox("Per quanti colpi vuoi giocare gli ambi e il terno?",,9))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",,1))
Poste1(1) = 1
Poste2(2) = 1
poste3(2) = 1
poste3(3) = 1
Scrivi Space(12) & " Attenti a Quei Due (Ambi) 1 di A. Gargiulo - script Salvo50"& Space(12),1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 4
P2 = P1 + 1
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
For P3 = 1 To 5
C = Estratto(Es,R2,P3)
If(P1 = P3) And B = Diametrale(C) Then
D = Diametrale(A)
SomAC = Fuori90(A + C)
SomBD = Fuori90(B + D)
DiamSomACBD = Diametrale(SomAC)
M1(1) = B : M1(2) = C
M2(1) = SomAC : M2(2) = DiamSomACBD
Call OrdinaMatrice(M1,1)
Call OrdinaMatrice(M2,1)
SC_PaRallele1 = Fuori90(M1(1) + M2(2))
SC_PaRallele2 = Diametrale(SC_PaRallele1)
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 _
Or DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9 Then
'---------------------------------
C1 = SomAC : C2 = DiamSomACBD
C3 = SC_PaRallele1 : C4 = SC_PaRallele2
If C1 <> A And C1 <> B And C1 <> C And C1 <> D And C2 <> A And C2 <> B And C2 <> C And C2 <> D Then
If C3 <> A And C3 <> B And C3 <> C And C3 <> D And C4 <> A And C4 <> B And C4 <> C And C4 <> D _
And C3 <> C1 And C3 <> C2 And C4 <> C1 And C4 <> C2 Then
Ambata(1) = D
Ambo1(1) = D : Ambo1(2) = C3
Ambo2(1) = D : Ambo2(2) = C4
Terno(1) = D : Terno(2) = C3 : Terno(3) = C4
Caso = Caso + 1
Casi = Casi + 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)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP2 = 1 To 5
E2 = Estratto(Es,R2,PP2)
If E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " 3 Estratti " & Space(6) & " Somma Comune " & Space(10) & " Somma Comune ",1
Scrivi " + Diametr. " & Space(6) & " Verticale" & Space(13) & " 2 parallele ",1
Scrivi Space(3) & Format2(A) & Space(1) & Format2(B) & Space(11) & Format2(A) & " + " & Format2(C),1,0
Scrivi " = " & Format2(SomAC) & Space(12) & Format2(M1(1)) & " + " & Format2(M2(2)),1,0
Scrivi " = " & Format2(SC_PaRallele1) & Space(5) & Format2(DiamSomACBD) & " è il Diametrale di " & Format2(SomAC),1
Scrivi Space(3) & Format2(C) & Space(1) & Format2(D) & Space(11) & Format2(B) & " + " & Format2(D),1,0
Scrivi " = " & Format2(SomBD) & Space(12) & Format2(M1(2)) & " + " & Format2(M2(1)),1,0
Scrivi " = " & Format2(SC_PaRallele1) & Space(5) & Format2(C4) & " è il Diametrale di " & Format2(C3),1,1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
L(1) = M(1): L(2) = M(2): L(3) = M(3) : L(4) = M(4): L(5) = C1: : L(6) = C2
DisegnaCerchioCiclometrico L,1,1,,,1,1
S(1) = M(1): S(2) = M(2): S(3) = M(3) : S(4) = M(4):
S(5) = C1: : S(6) = C2 : S(7) = C3: : S(8) = C4
DisegnaCerchioCiclometrico S,1,1,,,1,1
End If
Ruo1(1) = R1 : Ruo1(2) = R2 : Ruo1(3) = NZ_
Ruo2(1) = R1 : Ruo2(2) = R2 : Ruo2(3) = NZ_ : Ruo2(4) = TT_
ImpostaGiocata 1,Ambata,Ruo1,Poste1,Clp1
ImpostaGiocata 2,Ambo1,Ruo2,Poste2,Clp2
ImpostaGiocata 3,Ambo2,Ruo2,Poste2,Clp2
ImpostaGiocata 4,Terno,Ruo2,poste3,Clp2
Gioca Es,1
End If
End If
End If
End If
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubDRAGON8698
Member
grazie
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 08 agosto 2025Bari9036156032Cagliari5907563306Firenze7237251018Genova0887414871Milano8633822734Napoli8609600557Palermo5363818813Roma5651653590Torino1084772818Venezia2633673581Nazionale0754460834Estrazione Simbolotto
Nazionale
3728420226