Ambo Doppio per listato

[esselotto]

Ho aggiunto la visualizzazione del quadro estrazioni, e il Cerchio Ciclometrico

 

[scoglio2]

CIAO ESSE VEDO CHE SEI DIVENTATO BRAVISSIMO E TI FACCIO I MIEI COMPLIMENTI COSI COME AL PROFF LUIGI.
IO STAVO LEGGENDO I POST SU E HO SCOPIAZZATO UN MIO SCRIPT INSERENDO LE ESTRAZIONI E IL NUMERO SPIA .VOLEVO INSERIRE IL CERCHIO MA MI DAVA ERRORE E HO DOVUTO CANCELLARE ALCUNE RIGHE.
GLI PUOI DARE UN OKKIO E SE RIESCI A FAR USCIRE IL CERCHIO.
PS.TIENI PRESENTE CHE LO SCRIPT MI è STATO FATTO IO HO SOLO INCOLLATO LE STINGHE SULLO SCRIPT E MI è USCITO QUELLO CHE ADESSO TI FACCIO VEDERE

Dim ruota(2),poste(1),posta(3),nr(3),am(2)
poste(1) = 1
posta(2) = 1
posta(3) = 1
ruota(1) = 1
ruota(2) = 9
k = 9
ini = 7438 ' estrazione iniziale 03.01.2006
For es = ini To EstrazioneFin
Messaggio "Estrazione: " & es
ng = 0
sp = 90 ' numero spia
r = 6 ' ruota di ricerca
For p = 1 To 5
a = Estratto(es,r,p)
If a = sp Then
Scrivi
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r ' ruota di bari
MatriceCaselleDaEvid(1,1) = p ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r ' ruota di bari
MatriceCaselleDaEvid(2,1) = pp ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(3,1) = p ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(4,1) = pp ' quarto Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
' disegna il cerchio con il triangolo formato dai numeri 1-30-60

Call DisegnaCerchioCiclometrico(aNu,True,False,False)

Call DisegnaCerchioCiclometrico(aNu,True,False,False)
am(1) = Fuori90(Estratto(es,6,1) + 35)
am(2) = Fuori90(Estratto(es,6,3) + 35)
ng = ng + 1
ImpostaGiocata ng,am,ruota,poste,k,1
nr(1) = am(1)
nr(2) = am(2)
nr(3) = 90
ng = ng + 1
ImpostaGiocata ng,nr,ruota,posta,k,2
casi = casi + 1
ColoreTesto 1
Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
Scrivi
ColoreTesto 0
Gioca es
End If
Next
Next
Scrivi
ColoreTesto 1
Scrivi "Casi totali: " & casi,1
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub



CIAO

 

[esselotto]

quote:Originally posted by scoglio2

CIAO ESSE VEDO CHE SEI DIVENTATO BRAVISSIMO E TI FACCIO I MIEI COMPLIMENTI COSI COME AL PROFF LUIGI.
IO STAVO LEGGENDO I POST SU E HO SCOPIAZZATO UN MIO SCRIPT INSERENDO LE ESTRAZIONI E IL NUMERO SPIA .VOLEVO INSERIRE IL CERCHIO MA MI DAVA ERRORE E HO DOVUTO CANCELLARE ALCUNE RIGHE.
GLI PUOI DARE UN OKKIO E SE RIESCI A FAR USCIRE IL CERCHIO.
PS.TIENI PRESENTE CHE LO SCRIPT MI è STATO FATTO IO HO SOLO INCOLLATO LE STINGHE SULLO SCRIPT E MI è USCITO QUELLO CHE ADESSO TI FACCIO VEDERE

Dim ruota(2),poste(1),posta(3),nr(3),am(2)
poste(1) = 1
posta(2) = 1
posta(3) = 1
ruota(1) = 1
ruota(2) = 9
k = 9
ini = 7438 ' estrazione iniziale 03.01.2006
For es = ini To EstrazioneFin
Messaggio "Estrazione: " & es
ng = 0
sp = 90 ' numero spia
r = 6 ' ruota di ricerca
For p = 1 To 5
a = Estratto(es,r,p)
If a = sp Then
Scrivi
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r ' ruota di bari
MatriceCaselleDaEvid(1,1) = p ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r ' ruota di bari
MatriceCaselleDaEvid(2,1) = pp ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(3,1) = p ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(4,1) = pp ' quarto Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
' disegna il cerchio con il triangolo formato dai numeri 1-30-60

Call DisegnaCerchioCiclometrico(aNu,True,False,False)

Call DisegnaCerchioCiclometrico(aNu,True,False,False)
am(1) = Fuori90(Estratto(es,6,1) + 35)
am(2) = Fuori90(Estratto(es,6,3) + 35)
ng = ng + 1
ImpostaGiocata ng,am,ruota,poste,k,1
nr(1) = am(1)
nr(2) = am(2)
nr(3) = 90
ng = ng + 1
ImpostaGiocata ng,nr,ruota,posta,k,2
casi = casi + 1
ColoreTesto 1
Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
Scrivi
ColoreTesto 0
Gioca es
End If
Next
Next
Scrivi
ColoreTesto 1
Scrivi "Casi totali: " & casi,1
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub



CIAO

Ciao Scoglio ho aggiunto cerchio ciclometrico
sul tuo script.

[code]Sub main()

Dim ruota(2),poste(1),posta(3),nr(3),am(2)
poste(1) = 1
posta(2) = 1
posta(3) = 1
ruota(1) = 1
ruota(2) = 9
k = 9
ini = 7438 ' estrazione iniziale 03.01.2006
For es = ini To EstrazioneFin
Messaggio "Estrazione: " & es
ng = 0
sp = 90 ' numero spia
r = 6 ' ruota di ricerca
For p = 1 To 5
a = Estratto(es,r,p)
If a = sp Then
Scrivi
             ' identifica 1 casella
               ReDim MatriceCaselleDaEvid(1,1)
             ' Primo e unico elemento
               MatriceCaselleDaEvid(1,0) = r 
               MatriceCaselleDaEvid(1,1) = p 
               Call DisegnaEstrazione(es,MatriceCaselleDaEvid)

                       
                         
am(1) = Fuori90(Estratto(es,6,1) + 35)
am(2) = Fuori90(Estratto(es,6,3) + 35)

           ReDim aNu(3)
           aNu(1) =am(1)
           aNu(2) =am(2)
           aNu(3) =sp
           Call DisegnaCerchioCiclometrico (aNu, True,False,False)




ng = ng + 1
ImpostaGiocata ng,am,ruota,poste,k,1
nr(1) = am(1)
nr(2) = am(2)
nr(3) = 90
ng = ng + 1
ImpostaGiocata ng,nr,ruota,posta,k,2
casi = casi + 1
ColoreTesto 1
Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
Scrivi
ColoreTesto 0
Gioca es
End If
Next
Next
Scrivi
ColoreTesto 1
Scrivi "Casi total

 

[esselotto]

bello quel terno peccato c'è stato solo 1


esselotto

 

[scoglio2]

quote:Originally posted by esselotto

bello quel terno peccato c'è stato solo 1


esselotto

GRAZIE MILLE ESSE...VEDIAMO SE RIESCO DA SOLO
..SOLO UN TERNO SI MA DAL 2006 SEMPRE A SEGNO COME AMBATE
CIAO

 

[esselotto]

quote:Originally posted by scoglio2

quote:Originally posted by esselotto

bello quel terno peccato c'è stato solo 1


esselotto

GRAZIE MILLE ESSE...VEDIAMO SE RIESCO DA SOLO
..SOLO UN TERNO SI MA DAL 2006 SEMPRE A SEGNO COME AMBATE
CIAO

avevo gia visto il rendimento delle ambate.
nei primi 6 concorsi.

 

[joi_lotto]

Lo tengo.
Grazie