| Autore |
 Discussione  |
|
|
DjNomade
Utente Molto Appassionato
353 invii |
 Spedito - 14 gennaio 2024 : 19:15:57
|
Vinci questo è quello che son riuscito a ricavare
poi... speriamo bene
Ciauz
PREVISIONE IN CORSO DA MARTEDI 16-01-2024 X 4 COLPI
I COLPI LI SCEGLI TU NELLA FINESTRA CHE SI APRE
=================== Caso n° 12
sab 13.01.2024 [10370]
G 1: ATQC 76.59.41.70.40 Ba Tu 0/4
n.i. (3 colpi)
LISTATO
'14*01*2024
ColoreTesto 1
Scrivi "============================= CHE SABATO SIA.... by DjNomade X VINCI",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
ColoreTesto 0
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(5)
Dim am1(10),am(10),am2(10),cinq(10),nr(5)
k = CInt (InputBox("Quanti colpi di Gioco?","",4))
posta(1)=1
poste(2)=1
postee(2)=1.3
postee(3)=1.4
postee(4)=.20
postee(5)=.10
casi=0
casi=0
fin=EstrazioneFin
ini=10322'10290
For es=ini To fin
Riga = Left(DataEstrazione(Es,True),3)
Riga = Riga & DataEstrazione(Es)
If Left (Riga,3) = "sab" Then
'PER CAMBIO Giorno lun:mar:mer:gio:ven:sab:
NG=0
casi=casi+1
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by DjNomade"
Scrivi String (80,"=")&" Caso n° "&casi,1
'ColoreTesto 0: Scrivi String (80,"="),1
co=co+1
cont=cont+1
'**********************************************************
nr(1)=Fuori90(Diametrale(Estratto (es,9,4))+Estratto (es,10,1)+66)'
nr(2)=Fuori90((Estratto (es,4,3)*Estratto (es,4,3))+Estratto (es,7,1)+52)
nr(3)=Fuori90(Vert(Estratto (es,2,3))+Estratto (es,5,4)+80)'
nr(4)=Fuori90((90-Estratto (es,12,2))+Estratto (es,2,2)+56)
nr(5)=Fuori90((90-Estratto (es,1,3))+Estratto (es,4,3)+03)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 04 ' numeri totali 7-1=6
For y = x + 1 To 5 ' 7 perche i numeri in totale sono 7
If nr(x) = nr(y) Then nr(y) = Fuori90(nr(y) + 1)
Next
Next
Wend
End If
Rem fine formula
'*****************************************************
ruote(1)=1
ruote(2)=11 '<<<<<----GIOCO A TUTTE
am2(1)=nr(1)
am2(2)=nr(2)
am2(3)=nr(3)
am2(4)=nr(4)
am2(5)=nr(5)
ImpostaGiocata 1,am2,ruote,postee,k
Gioca es
End If
Next
ScriviResoconto
End Sub
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 14 gennaio 2024 : 20:05:04
|
Grazie per il metodo e che il sabato ci porti fortuna |
Roberto Vinci |
 |
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 14 gennaio 2024 : 20:24:29
|
nr(1)=Fuori90(Diametrale(Estratto (es,9,4))+Estratto (es,10,1)+66)'
nr(2)=Fuori90((Estratto (es,4,3)*Estratto (es,4,3))+Estratto (es,7,1)+52)
nr(3)=Fuori90(Vert(Estratto (es,2,3))+Estratto (es,5,4)+80)'
nr(4)=Fuori90((90-Estratto (es,12,2))+Estratto (es,2,2)+56)
nr(5)=Fuori90((90-Estratto (es,1,3))+Estratto (es,4,3)+03)
Ho provato a fare il conteggio manuale ma non riesco a ricavare
questi numeri 76.59.41.70.40
mi puoi aitare ? |
Roberto Vinci |
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 14 gennaio 2024 : 20:53:33
|
nr(1)=Fuori90(Diametrale(Estratto (es,9,4))+Estratto (es,10,1)+66)'
..................................56+45....................+........89.........+66..........=76
nr(2)=Fuori90((Estratto (es,4,3)*Estratto (es,4,3))+Estratto (es,7,1)+52)
..........................................11x11......................+........66........+52...=59
nr(3)=Fuori90(Vert(Estratto (es,2,3))+Estratto (es,5,4)+80)'
..............35 VERTIBILE=53.............+..........88.........+80.................=41
nr(4)=Fuori90((90-Estratto (es,12,2))+Estratto (es,2,2)+56)
...........................90-07..................+........21.........+56.........=70
nr(5)=Fuori90((90-Estratto (es,1,3))+Estratto (es,4,3)+03)
............................90-64...............+........11.........+03.........=40 |
|
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 14 gennaio 2024 : 21:17:26
|
|
Grazie |
Roberto Vinci |
|
|
|
franca46
Amministratore
Italy
24684 invii |
Spedito - 16 gennaio 2024 : 08:13:24
|
Molto allettante |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
franca46
Amministratore
Italy
24684 invii |
Spedito - 18 gennaio 2024 : 20:54:53
|
Estrazione del 16 gennaio:
ambo su tutte 59 - 40 . E anche un ambetto
Estrazione del 18 gennaio :
ambo su tutte 40 - 70 . E anche un ambetto
Estrazione del 19 gennaio: venerdì
ambo su tutte 76 - 70
Estrazione del 20 gennaio:
ambo su tutte 70 - 76 . E anche un ambetto |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 18 gennaio 2024 : 21:18:02
|
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 28 gennaio 2024 : 00:33:11
|
DAL NUOVO CONTEGGIO X 4 ESTRAZIONI
BARI
================================================================================ Caso n° 14
sab 27.01.2024 [10378]
G 1: ATQC 41.05.18.49.42 Ba 0/4
n.i. (4 colpi)
|
|
|
|
franca46
Amministratore
Italy
24684 invii |
Spedito - 28 gennaio 2024 : 06:56:31
|
 |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 04 febbraio 2024 : 00:29:40
|
DAL NUOVO CONTEGGIO X 4 ESTRAZIONI
BARI
================================================================================ Caso n° 15
sab 03.02.2024 [10382]
G 1: ATQC 18.15.33.80.13 Ba 0/4
n.i. (4 colpi)
|
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 11 febbraio 2024 : 10:52:17
|
DAL NUOVO CONTEGGIO X 4 ESTRAZIONI
BARI
================================================================================ Caso n° 16
sab 10.02.2024 [10386]
G 1: ATQC 86.71.21.11.03 Ba 0/4
n.i. (4 colpi)
|
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 17 febbraio 2024 : 21:25:53
|
DAL NUOVO CONTEGGIO X 4 ESTRAZIONI
BARI
================================================================================ Caso n° 17
sab 17.02.2024 [10390]
G 1: ATQC 82.39.88.77.11 Ba 0/4
n.i. (4 colpi)
|
|
|
|
DjNomade
Utente Molto Appassionato
353 invii |
Spedito - 24 febbraio 2024 : 21:21:42
|
DAL NUOVO CONTEGGIO X 4 ESTRAZIONI
BARI
================================================================================ Caso n° 18
sab 24.02.2024 [10394]
G 1: ATQC 42.11.67.02.68 Ba 0/4
n.i. (4 colpi)
|
|
|
| |
Discussione |
|
CHE SABATO SIA.... by DjNomade X VINCI
