Alien.
Advanced Premium Member
No mi dispiace .Alien sei bravo con gli script riesci a risolvere lo script che ho messo mi da errore
dice impossibile aprire negli appunti..
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.
No mi dispiace .Alien sei bravo con gli script riesci a risolvere lo script che ho messo mi da errore
dice impossibile aprire negli appunti..
Bravo Zetrix 59 a VeVedi l'allegato 2249322
nadin scusate non avevo messo questa altra tabella per abb con il 59
51 .06. diam.
51 . 12 . x 2
51 . 16 . diam.t.
51 .48. numeretti a 9
51 . 84 . numero a 45
51 . 15 . vert.
51 . 40 . numero a 91
51 . 56 . diam.d.
51 . 39 . numero a 90
51 . 59 . numeretti a 10
51 . 12 . biv.
51 . 49 . numero a 100
51 . 69 . numero a 30
51 . 70 . numeretti a 11
[TT] [BA][.. 15 59 .. ..] [17/12/2022] [74.15.59.31.77]
[TT] [NA][.. 59 .. .. 06] [09/12/2022] [40.59.52.45.06]
[TT] [RO][48 59 .. .. ..] [01/12/2022] [48.59.60.10.35]
[TT] [NA][40 59 .. .. ..] [09/12/2022] [40.59.52.45.06]
allora il 51 calcola il 70 con i numeretti a 11
quanto dovete calcolare i numeretti a 11 dobbiamo fare questo calcolo
11-5=6
11-1=10
610=
quanto ci da il numero 610 non si puo giocare al lotto e allora che si fa
si fa questo calcolo..
610=6+1=70
quelli evidenziati con questo colore sono gli abb piu probabili
che si possono abbinare con il 59..ma non li possiamo giocare tutti..
il 59 70 converge con le altre condizioni di gioco..
questa tabella e un po diversa dall'altra tabella perche qua calcola
anche altri numeri con i diam e diam,t e altri abb..
gli ambi li scrivo poi vedete voi di scegliere un ambo che vi piace
e li giocate su queste ruote di calcolo e a tutte
1 ambo 59 06
2 ambo 59 16
3 ambo 59 48
4 ambo 59 70
questi sono gli ambi che giocano anche a tutte ma alcuni di questi ambi
sono usciti gia nelle altre ruote..
Bravo ottimoVedi l'allegato 2249393
BA 59 uscite 2 ritardo 2
CA 59 uscite 2 ritardo 4
FI 59 uscite 3 ritardo 5
GE 59 uscite 1 ritardo 17
MI 59 uscite 0 ritardo 159
NA 59 uscite 3 ritardo 2
PA 59 uscite 0 ritardo 45
RO 59 uscite 2 ritardo 9
TO 59 uscite 0 ritardo 49
VE 59 uscite 1 ritardo 0
Alien malgrado tutto sono riuscito a completare lo script questa e la tabella..
Option Explicit
Sub Main
Dim arrData(10,13)
Dim es,r1,k,x
Dim anum(10)
Dim Totale8
es = EstrazioneFin - 0
For r1 = 1 To 12
'-----------------------------------
arrData(1,1) = " 8 "
arrData(2,1) = " 17 "
arrData(3,1) = " 26 "
arrData(4,1) = " 35 "
arrData(5,1) = " 44 "
arrData(6,1) = " 53 "
arrData(7,1) = " 62 "
arrData(8,1) = " 71 "
arrData(9,1) = " 80 "
arrData(10,1) = " 89 "
'---------------------------------
arrData(1,2) = EstrattoRitardo(r1,8)
arrData(2,3) = EstrattoRitardo(r1,17)
arrData(3,4) = EstrattoRitardo(r1,26)
arrData(4,5) = EstrattoRitardo(r1,35)
arrData(5,6) = EstrattoRitardo(r1,44)
arrData(6,7) = EstrattoRitardo(r1,53)
arrData(7,10) = EstrattoRitardo(r1,62)
arrData(8,11) = EstrattoRitardo(r1,71)
arrData(9,12) = EstrattoRitardo(r1,80)
arrData(10,13) = EstrattoRitardo(r1,89)
'-------------------
anum(1) = 8
anum(2) = 17
anum(3) = 26
anum(4) = 35
anum(5) = 44
anum(6) = 53
anum(7) = 62
anum(8) = 71
anum(9) = 80
anum(10) = 89
'-------------------
For k = 1 To 1
Next
Call Scrivi("Grafico" & k)
Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & NomeRuota(r1) & Space(5) & StringaNumeri(anum) & Space(5) & "Rit.Att.","titX","titY",True)
Next
'Next
For x = 8 To 90 Step 9
Scrivi Format2(x) & Space(5) & "Rit.Att." & EstrattoRitardo(r1,x)
Totale8 = Totale8 + EstrattoRitardo(r1,x)
Next
Scrivi " tot " & Totale8 & "",0,0,7,4
End Sub
Option Explicit
Sub Main
Dim arrData(10,13)
Dim es,r1,k,x
Dim anum(10)
Dim Totale8
es = EstrazioneFin - 0
r1 = ScegliRuota
'-----------------------------------
arrData(1,1) = " 8 "
arrData(2,1) = " 17 "
arrData(3,1) = " 26 "
arrData(4,1) = " 35 "
arrData(5,1) = " 44 "
arrData(6,1) = " 53 "
arrData(7,1) = " 62 "
arrData(8,1) = " 71 "
arrData(9,1) = " 80 "
arrData(10,1) = " 89 "
'---------------------------------
arrData(1,2) = EstrattoRitardo(r1,8)
arrData(2,3) = EstrattoRitardo(r1,17)
arrData(3,4) = EstrattoRitardo(r1,26)
arrData(4,5) = EstrattoRitardo(r1,35)
arrData(5,6) = EstrattoRitardo(r1,44)
arrData(6,7) = EstrattoRitardo(r1,53)
arrData(7,10) = EstrattoRitardo(r1,62)
arrData(8,11) = EstrattoRitardo(r1,71)
arrData(9,12) = EstrattoRitardo(r1,80)
arrData(10,13) = EstrattoRitardo(r1,89)
'-------------------
anum(1) = 8
anum(2) = 17
anum(3) = 26
anum(4) = 35
anum(5) = 44
anum(6) = 53
anum(7) = 62
anum(8) = 71
anum(9) = 80
anum(10) = 89
'-------------------
For k = 1 To 1
Next
Call Scrivi("Grafico" & k)
Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & NomeRuota(r1) & Space(5) & StringaNumeri(anum) & Space(5) & "Rit.Att.","titX","titY",True)
'Next
'Next
For x = 8 To 90 Step 9
Scrivi Format2(x) & Space(5) & "Rit.Att." & EstrattoRitardo(r1,x)
Totale8 = Totale8 + EstrattoRitardo(r1,x)
Next
Scrivi " tot " & Totale8 & "",0,0,7,4
End Sub