Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
ColoreTesto 1
Scrivi" ~~Codice per esempio BARI ricerca ambo in cadenza 0 ~~"
SCRIVI" per persone interessate "
SCRIVI" solo,struttura, i calcoli sono a caso.... "
ColoreTesto 0
Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
Sub main()
Dim ruote(10),ruota(10)
Dim n1(10),n2(10),n3(10)
Dim poste(5),posta(5)
'----------------------------------------------
posta(1)=6.5
posta(2)=6.5
posta(3)=3.5
posta(4)=3.5
'----------------------------------------------
'POSTe(1)=1
poste(2)=6.5
POSTE(3)=3.5
'-------------------------
x=3
Y=3
'----------------------------------------------
ini=8117
fin= EstrazioneFin
For es=ini To Fin
'-----------------------------
If IndiceMensile(es)=1 Then
Messaggio DataEstrazione(es)
'----------------------------------------------
For R1=1 To 1
'----------------------------------------------
ruota(1)=11
'ruota(2)=2
'ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
'ruota(10)=10
'ruota(12)=12
'-----------------------
ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10
'ruote(12)=12
'---------------------
A=Estratto(es,R1,1)
B=Estratto(es,R1,2)
C=Estratto(es,R1,3)
D=Estratto(es,R1,4)
E=Estratto(es,R1,5)
'--------------------
'---------------------
'For k1= 1 To 1
For k1= 1 To 4
For k2= K1+1 To K1+1
a1=Estratto(es,R1,k1) ' : a2=Estratto(es,R1,k2),1))
'------------------------------
If Estratto(es,R1,k1)>0 And Estratto(es,R1,k2)>0_
And CADENZA(Estratto(es,R1,k1))=0_
And CADENZA(Estratto(es,R1,k2))=0 then
'If Estratto(es,R1,k1)>0 And Estratto(es,R1,k1) Then
'------------------------------
N1(1)=Fuori90(Estratto(es,R1,1)+0)'
N1(2)=Fuori90(Estratto(es,R1,2)+0)'
N1(3)=Fuori90(Estratto(es,R1,3)+0)'
N1(4)=Fuori90(Estratto(es,R1,4)+0)'
N1(5)=Fuori90(Estratto(es,R1,5)+0)'
'------------------------------
G 2: AT 71.09.03.80.50 Tu 6/9
E: 09.71 su Na 4° colpo [10663/08.05.2025]
E: 80.50 su Mi 5° colpo [10664/09.05.2025]
in corso (6° su 9)
'----------------------------------------------
Scrivi""
ColoreTesto 2
co = co + 1
Scrivi String(2, "=") & " Caso n°" & Format2(co) &" mese "& Format2(Mese(es)) &" dell'anno "& Format2(Anno(es)) &" es "& Format2(es) & " Indice mensile " & Format2(IndiceMensile(es)), 1
ColoreTesto 0
Scrivi(" ESTRATTO ANALIZZATO ---> ") &" numero "& Format2(Estratto(es, R1, k1)) &" in "& Format2(K1) & "° pos. ", 1
Scrivi(" ESTRATTO ANALIZZATO ---> ") &" numero "& Format2(Estratto(es, R1, k2)) &" in "& Format2(K2) & "° pos. ", 1
'Scrivi(" ESTRATTO ANALIZZATO ---> ") &" numero "& Format2(Estratto(es, R1, k3)) &" in "& Format2(K3) & "°in pos. ", 1
Scrivi DataEstrazione(es) &" Es "& Format2(ES) &" "& StringaEstratti(es, r1) &" "& Left(NomeRuota(r1), 9), 1
'----------------------------------------------
ImpostaGiocata 1,n1,ruota,posta,x,y
ImpostaGiocata 2,n1,ruote,poste,x*3,y*3
Gioca es
'----------------------------------------------
End If
Next
Next
next
End If
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub
'----------------------------------------------
il codice é "impostato " per poter analizzare più metodi...avendo le idee.. e sapendo dove mettere le "mani"
posto "disinteressatamente...."
Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
ColoreTesto 1
Scrivi" ~~Codice per esempio BARI ricerca estratto in qualsiasi posizione ~~"
SCRIVI" per persone interessate "
SCRIVI" solo, struttura, i calcoli sono a caso.... "
ColoreTesto 0
Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
Sub main()
Dim ruote(10),ruota(10)
Dim n1(10),n2(10),n3(10)
Dim poste(5),posta(5)
'----------------------------------------------
posta(1)=6.5
posta(2)=6.5
posta(3)=3.5
posta(4)=3.5
'----------------------------------------------
'POSTe(1)=1
poste(2)=6.5
POSTE(3)=3.5
'-------------------------
x=3
Y=3
'----------------------------------------------
ini=8117
fin= EstrazioneFin
For es=ini To Fin
'-----------------------------
If IndiceMensile(es)=2 Then
Messaggio DataEstrazione(es)
'----------------------------------------------
For R1=1 To 1
'----------------------------------------------
ruota(1)=11
'ruota(2)=2
'ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
'ruota(10)=10
'ruota(12)=12
'-----------------------
ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10
'ruote(12)=12
'---------------------
A=Estratto(es,R1,1)
B=Estratto(es,R1,2)
C=Estratto(es,R1,3)
D=Estratto(es,R1,4)
E=Estratto(es,R1,5)
'--------------------
'---------------------
For k1= 1 To 5
a1=Estratto(es,R1,k1) ' : a2=Estratto(es,R1,k2),1))
'------------------------------
If Estratto(es,R1,k1)>0 And Estratto(es,R1,k1)=31 Then
'------------------------------
N1(1)=Fuori90(Estratto(es,R1,1)+0)'
N1(2)=Fuori90(Estratto(es,R1,2)+0)'
N1(3)=Fuori90(Estratto(es,R1,3)+0)'
N1(4)=Fuori90(Estratto(es,R1,4)+0)'
N1(5)=Fuori90(Estratto(es,R1,5)+0)'
'------------------------------
'----------------------------------------------
Scrivi""
ColoreTesto 2
co = co + 1
Scrivi String(2, "=") & " Caso n°" & Format2(co) &" mese "& Format2(Mese(es)) &" dell'anno "& Format2(Anno(es)) &" es "& Format2(es) & " Indice mensile " & Format2(IndiceMensile(es)), 1
ColoreTesto 0
Scrivi(" ESTRATTO ANALIZZATO ---> ") &" numero "& Format2(Estratto(es, R1, k1)) &" in "& Format2(K1) & "° pos. ", 1
Scrivi DataEstrazione(es) &" Es "& Format2(ES) &" "& StringaEstratti(es, r1) &" "& Left(NomeRuota(r1), 9), 1
'----------------------------------------------
ImpostaGiocata 1,n1,ruota,posta,x,y
ImpostaGiocata 2,n1,ruote,poste,x*3,y*3
Gioca es
'----------------------------------------------
End If
Next
Next
'next
End If
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub
'----------------------------------------------
il codice é "impostato " per poter analizzare più metodi...avendo le idee.. e sapendo dove mettere le " mani"
posto "disinteressatamente...."
--------------------------------------------------
quindi :
se ve li ritrovate, dai Vs "calcoletti...." o dai Vs metodi....regolatevi...
-----------------------------------------------------------------------------------------------------------------------------------------------------------
Le indicazioni, possono essere utili, ma raccomando, sempre a tutti, ....e dico "sempre" , la massima cautela....
-----------------------------------------------------------------------------------------------------------------------------------------------------------
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.
----------------------------------------------------------------------------------------------------------------------------------------------------------
Proverbio ....
Ama a ccu ti ama e rrispundi a ccu ti chiama.
Ama chi t'ama e rispondi a chi ti chiama.
Bisogna rivolgere le nostre attenzioni e i nostri sentimenti verso chi ricambia.