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.
Sub Main()
ColoreTesto 2
Scrivi String(37,32) & "SCRIPT CICLOMETRICO",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Scrivi
Dim ruote(2),n(5),nr(3),nn(5),nu(2),amb(2),lg1(4),lg2(4),posta(2),poste(2),postee(3)
rs = CInt(InputBox("Quantestrazioni vuoi controllare?",,1))
er = CInt(InputBox("Quante estrazioni retroattive vuoi controllare?",,0))
k = CInt(InputBox("Quanti Colpi di Gioco?",,13))
co = 0
ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
If Distanza(a,b) = 3 Then
h = 0: Erase nr
For i = 1 To 5
n(i) = Estratto(es,r1,i)
If n(i) <> a And n(i) <> b Then: h = h + 1: nr(h) = n(i)
Next
For r2 = 1 To 11
If r2 = 11 Then r2 = 12
If r2 <> r1 Then
ok = 0
For w = 0 To er
ex = es - w
g = 0: Erase nn
For q = 1 To 5
x = Estratto(ex,r2,q)
If(Distanza(x,a) = 2 And Distanza(x,b) = 1) Or(Distanza(x,a) = 1 And Distanza(x,b) = 2) Then
If(Distanza(x,a) = 2 And Distanza(x,b) = 1) Then g = x + 1
If(Distanza(x,a) = 2 And Distanza(x,b) = 1)And x > a Then g = x - 1
If(Distanza(x,a) = 1 And Distanza(x,b) = 2) Then g = x + 1
If(Distanza(x,a) = 1 And Distanza(x,b) = 2)And x > b Then g = x - 1
a1 = Fuori90(a + b)
a2 = Fuori90(g + x)
a3 = Fuori90(a1 + a2)' chiave
a4 = Fuori90(a3 + g) 'ambata
abb1 = Fuori90(a3 + a)
abb2 = Fuori90(a3 + b)
abb3 = Fuori90(a3 + x)
co = co + 1
ruote(1) = r1: ruote(2) = r2
posta(1) = 1:poste(2) = 1:postee(2) = 1:postee(3) = 1
'---------------------------------------------------
ReDim MatriceCaselleDaEvid(4,1)
'
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
'
MatriceCaselleDaEvid(2,0) = r1
MatriceCaselleDaEvid(2,1) = p2
'
MatriceCaselleDaEvid(3,0) = r2
MatriceCaselleDaEvid(3,1) = p1
'
MatriceCaselleDaEvid(4,0) = r2
MatriceCaselleDaEvid(4,1) = p2
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'------------------------------------------------------
Scrivi "-----------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & Format2(a) & " " & Format2(b) & _
" Pos. " & p1 & "^ " & p2 & "^" & Chr(10) & _
DataEstrazione(ex) & " " & SiglaRuota(r2) & " " & StringaEstratti(ex,r2) & " " & Format2(x) & " num. di chiusura. " & Format2(g),1
Scrivi "------------------------------------------------------------------Giocata n° " & Format2(co)
amb(1) = a4
ImpostaGiocata 1,amb,ruote,posta,k
lg1(1) = a4:lg1(2) = abb1
ImpostaGiocata 2,lg1,ruote,poste,k
lg1(1) = a4:lg1(2) = abb2
ImpostaGiocata 3,lg1,ruote,poste,k
lg1(1) = a4:lg1(2) = abb3
ImpostaGiocata 4,lg1,ruote,poste,k
lg2(1) = a4:lg2(2) = abb1:lg2(3) = abb2:lg2(4) = abb3
ImpostaGiocata 5,lg2,ruote,postee,k
'Gioca es
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
'ScriviResoconto
End Sub
è vero !
Zetrix ... che ne dici di questo ????
Option Explicit
Dim aPos(360,2) ' memorizza le coordinate relative ai 360 gradi serve per poter disegnare le corde
Sub Main
Dim nRaggio ' raggio ddel cerchio
Dim cX,cY ' centro del cerchio x e y
Dim Base,Altezza ' dimensioni area disegno
Dim Angolo ' gestisce il ciclo per disegnare il cerchio
Dim pi ' pigreco
Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
Dim cLung ' distanza per stampare i gradi
Dim k ' ciclo generico
cLung = 2
pi = 3.14
Base = 150
Altezza = 150
nRaggio = 60
' preimposto le dimensioni dell'area
Call PicSetDimensioni(Base,Altezza,Base,Altezza)
' calcolo il centro del cerchio
cX = Base / 2
cY = Altezza / 2
Call PicCerchio(cX,cY,3)
Call PicRiempi(cX,cY,vbRed)
' ciclo per disegnare i semiraggi
For Angolo = 0 To 360
' calcolo cordinate per il segmento raggio
x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
' memorizzo nell'array globale le coordinate appena calcolate
' cosi potranno essere riusate per disegnare le corde
aPos(Angolo,1) = x1
aPos(Angolo,2) = y1
If Angolo Mod 5 = 0 Then
' ogni 5 gradi disegno un semiraggio un po' piu lungo
' e stampo i gradi in corripondenza
If Angolo Then
x2 = cX +((nRaggio + cLung*3) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung*3) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung*4) * Cos(-(Angolo + 2) *(pi / 180)))
y2 = cY +((nRaggio + cLung*4) * Sin(-(Angolo + 2) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,Angolo,Angolo)
End If
Else
' disegno il semiraggio
x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
End If
Next
' come esempio disegno un poligono di lato 20
For k = 0 To 340 Step 20
Call DisegnaCorda(k,k + 20,vbRed)
Next
' mostro la figura in output
Call PicEsegui
End Sub
Sub DisegnaCorda(p1,p2,colore)
' p1 e p2 sono i gradi a cui si riferiscono inizio e fine della corda
'Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
Call PicLinea(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
Call PicPunto(aPos(p1,1),aPos(p1,2),6,colore)
Call PicPunto(aPos(p2,1),aPos(p2,2),6,colore)
End Sub
erroreCodice:Sub Main() ColoreTesto 2 Scrivi String(37,32) & "SCRIPT CICLOMETRICO",1 Scrivi String(45,32) & "by DjNomade",1 ColoreTesto 0 Scrivi Dim ruote(2),n(5),nr(3),nn(5),nu(2),amb(2),lg1(4),lg2(4),posta(2),poste(2),postee(3) rs = CInt(InputBox("Quantestrazioni vuoi controllare?",,1)) er = CInt(InputBox("Quante estrazioni retroattive vuoi controllare?",,0)) k = CInt(InputBox("Quanti Colpi di Gioco?",,13)) co = 0 ini = EstrazioneFin - rs fin = EstrazioneFin For es = ini To fin Messaggio(es) For r1 = 1 To 11 If r1 = 11 Then r1 = 12 For p1 = 1 To 4 : For p2 = p1 + 1 To 5 a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2) If Distanza(a,b) = 3 Then h = 0: Erase nr For i = 1 To 5 n(i) = Estratto(es,r1,i) If n(i) <> a And n(i) <> b Then: h = h + 1: nr(h) = n(i) Next For r2 = 1 To 11 If r2 = 11 Then r2 = 12 If r2 <> r1 Then ok = 0 For w = 0 To er ex = es - w g = 0: Erase nn For q = 1 To 5 x = Estratto(ex,r2,q) If(Distanza(x,a) = 2 And Distanza(x,b) = 1) Or(Distanza(x,a) = 1 And Distanza(x,b) = 2) Then If(Distanza(x,a) = 2 And Distanza(x,b) = 1) Then g = x + 1 If(Distanza(x,a) = 2 And Distanza(x,b) = 1)And x > a Then g = x - 1 If(Distanza(x,a) = 1 And Distanza(x,b) = 2) Then g = x + 1 If(Distanza(x,a) = 1 And Distanza(x,b) = 2)And x > b Then g = x - 1 a1 = Fuori90(a + b) a2 = Fuori90(g + x) a3 = Fuori90(a1 + a2)' chiave a4 = Fuori90(a3 + g) 'ambata abb1 = Fuori90(a3 + a) abb2 = Fuori90(a3 + b) abb3 = Fuori90(a3 + x) co = co + 1 ruote(1) = r1: ruote(2) = r2 posta(1) = 1:poste(2) = 1:postee(2) = 1:postee(3) = 1 '--------------------------------------------------- ReDim MatriceCaselleDaEvid(4,1) ' MatriceCaselleDaEvid(1,0) = r1 MatriceCaselleDaEvid(1,1) = p1 ' MatriceCaselleDaEvid(2,0) = r1 MatriceCaselleDaEvid(2,1) = p2 ' MatriceCaselleDaEvid(3,0) = r2 MatriceCaselleDaEvid(3,1) = p1 ' MatriceCaselleDaEvid(4,0) = r2 MatriceCaselleDaEvid(4,1) = p2 ' Call DisegnaEstrazione(es,MatriceCaselleDaEvid) '------------------------------------------------------ Scrivi "-----------------------------------------------------------------------------" Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & Format2(a) & " " & Format2(b) & _ " Pos. " & p1 & "^ " & p2 & "^" & Chr(10) & _ DataEstrazione(ex) & " " & SiglaRuota(r2) & " " & StringaEstratti(ex,r2) & " " & Format2(x) & " num. di chiusura. " & Format2(g),1 Scrivi "------------------------------------------------------------------Giocata n° " & Format2(co) amb(1) = a4 ImpostaGiocata 1,amb,ruote,posta,k lg1(1) = a4:lg1(2) = abb1 ImpostaGiocata 2,lg1,ruote,poste,k lg1(1) = a4:lg1(2) = abb2 ImpostaGiocata 3,lg1,ruote,poste,k lg1(1) = a4:lg1(2) = abb3 ImpostaGiocata 4,lg1,ruote,poste,k lg2(1) = a4:lg2(2) = abb1:lg2(3) = abb2:lg2(4) = abb3 ImpostaGiocata 5,lg2,ruote,postee,k 'Gioca es End If Next Next End If Next End If Next Next Next Next 'ScriviResoconto End Sub
allora blacklotto questo script che a scritto DjNomade che tra l'altro mi a risolto
diversi altri script volevo dire che dovrei avere uno script simile a questo che calcola
il numero di chiusura..ma e molto differente da questo script..
GRazie Zetrix per le tue spiegazioni, volevo chiederti per domani cosa si può giocare, si continua col 9.59 mi.ve.tt e 11.59 mi.pato.tt?Vedi l'allegato 2249253
nadin adesso vi farò vedere una mia regola del quadralotto..
abbiamo due somme uguali a firenze e roma
si fa la quadratura dei numeri e gli ambi che giocano a tutte
sono quelli descritti nella tabella
si puo anche tentare di giocare l'ambata sulle due ruote di calcolo..
ma l'obiettivo e di centrare l'ambo secco su ruota e tutte..
vediamo i risultati per questa combinazione di gioco..
[FI] [.. 66 .. .. ..] C.1 Estratto 02059 [20/12/2022] [89.66.05.11.74]
[TT] [VE][39 03 .. .. ..] C.1 Ambo 02059 [20/12/2022] [39.03.15.42.31]
quando esce un ambo tra i 4 ambi in gioco si puo chiudere il gioco..
anche se possono esserci dei casi che escono gli altri ambi a tutte..
Sub Main
Dim arrData(10,14)
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
Dim es,x,k,w
'
x = InputBox("Quale numero vuoi controllare?",,0)
'
Ini = EstrazioneFin - 18
fin = EstrazioneFin
For es = ini To fin
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
'---------------------------
'
arrData(1,1) = "" & x & " BA "
arrData(2,1) = "" & x & " CA "
arrData(3,1) = "" & x & " FI "
arrData(4,1) = "" & x & " GE "
arrData(5,1) = "" & x & " MI "
arrData(6,1) = "" & x & " NA "
arrData(7,1) = "" & x & " PA "
arrData(8,1) = "" & x & " RO "
arrData(9,1) = "" & x & " TO "
arrData(10,1) = "" & x & " VE "
'
arrData(1,2) = EstrattoFrequenza(r1,x,Ini,fin)
arrData(2,3) = EstrattoFrequenza(r2,x,Ini,fin)
arrData(3,4) = EstrattoFrequenza(r3,x,Ini,fin)
arrData(4,5) = EstrattoFrequenza(r4,x,Ini,fin)
arrData(5,6) = EstrattoFrequenza(r5,x,Ini,fin)
arrData(6,7) = EstrattoFrequenza(r6,x,Ini,fin)
arrData(7,10) = EstrattoFrequenza(r7,x,Ini,fin)
arrData(8,11) = EstrattoFrequenza(r8,x,Ini,fin)
arrData(9,12) = EstrattoFrequenza(r9,x,Ini,fin)
arrData(10,14) = EstrattoFrequenza(r10,x,Ini,fin)
'
For k = 1 To 1
Next
Call Scrivi("Grafico" & k)
Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & x & Space(5) & "ultime 18 estrazioni" & "titX","titY",True)
Next
Scrivi SiglaRuota(r1) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r1,x,Ini,fin)
Scrivi SiglaRuota(r2) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r2,x,Ini,fin)
Scrivi SiglaRuota(r3) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r3,x,Ini,fin)
Scrivi SiglaRuota(r4) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r4,x,ini,fin)
Scrivi SiglaRuota(r5) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r5,x,Ini,fin)
Scrivi SiglaRuota(r6) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r6,x,Ini,fin)
Scrivi SiglaRuota(r7) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r7,x,Ini,fin)
Scrivi SiglaRuota(r8) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r8,x,Ini,fin)
Scrivi SiglaRuota(r9) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r9,x,Ini,fin)
Scrivi SiglaRuota(r10) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r10,x,Ini,fin)
End Sub