Aiuto!!! Esiste una funzione per visualizzare i numeri in ordine crescente?

irepi · 30 Gennaio 2017

Buonasera e un felice nuovo anno a tutti!
E possibile inserire nello script una funzione per visualizzare le varie previsionicon i numeri in ordine crescente?

HTML:

Sub Main()

Dim ruote(12)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),numeri6(10)
Dim numeri7(10),numeri8(10),numeri9(10),numeri10(10),numeri11(10),numeri12(10)
Dim numeri13(10),numeri14(10),numeri15(10),numeri16(10),numeri17(10),numeri18(10)
Dim numeri19(10),numeri20(10),numeri21(10),numeri22(10),numeri23(10),numeri24(10)

Dim posta(5)

'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1


ruote(1) = 1
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(11) = 12

For n = 9230 To EstrazioneFin
If IndiceMensile(n) = 2 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(2) & " " & StringaEstratti(n,1) & "BA  SU  TT  SETT. DAL  1.9.2016 AL 29.9.2016  X  9K"
Scrivi String(70,"*"),1
ColoreTesto 0

numeri1(1) = Fuori90(Estratto(N,1,1) + 45)
numeri1(2) = Fuori90(Estratto(N,1,1) + 75)
numeri1(3) = Fuori90(Estratto(N,1,1) + 77)
numeri1(4) = Fuori90(Estratto(N,1,1) + 21)
numeri1(5) = Fuori90(Estratto(N,1,1) + 29)
Call Scrivi("Giocata n° 01:  " & StringaNumeri(numeri1,"-",True),1)
ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(N,1,1) + 19)
numeri2(2) = Fuori90(Estratto(N,1,1) + 30)
numeri2(3) = Fuori90(Estratto(N,1,1) + 70)
numeri2(4) = Fuori90(Estratto(N,1,1) + 53)
numeri2(5) = Fuori90(Estratto(N,1,1) + 52)
Call Scrivi("Giocata n° 02:  " & StringaNumeri(numeri2,"-",True),1)
ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(N,1,1) + 49)
numeri3(2) = Fuori90(Estratto(N,1,1) + 34)
numeri3(3) = Fuori90(Estratto(N,1,1) + 80)
numeri3(4) = Fuori90(Estratto(N,1,1) + 28)
numeri3(5) = Fuori90(Estratto(N,1,1) + 2)
Call Scrivi("Giocata n° 03:  " & StringaNumeri(numeri3,"-",True),1)
ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(N,1,1) + 83)
numeri4(2) = Fuori90(Estratto(N,1,1) + 13)
numeri4(3) = Fuori90(Estratto(N,1,1) + 68)
numeri4(4) = Fuori90(Estratto(N,1,1) + 31)
numeri4(5) = Fuori90(Estratto(N,1,1) + 37)
Call Scrivi("Giocata n° 04:  " & StringaNumeri(numeri4,"-",True),1)
ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(N,1,1) + 14)
numeri5(2) = Fuori90(Estratto(N,1,1) + 5)
numeri5(3) = Fuori90(Estratto(N,1,1) + 51)
numeri5(4) = Fuori90(Estratto(N,1,1) + 50)
numeri5(5) = Fuori90(Estratto(N,1,1) + 64)
Call Scrivi("Giocata n° 05:  " & StringaNumeri(numeri5,"-",True),1)
ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(N,1,1) + 46)
numeri6(2) = Fuori90(Estratto(N,1,1) + 88)
numeri6(3) = Fuori90(Estratto(N,1,1) + 44)
numeri6(4) = Fuori90(Estratto(N,1,1) + 62)
numeri6(5) = Fuori90(Estratto(N,1,1) + 42)
Call Scrivi("Giocata n° 06:  " & StringaNumeri(numeri6,"-",True),1)
ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(N,1,1) + 6)
numeri7(2) = Fuori90(Estratto(N,1,1) + 73)
numeri7(3) = Fuori90(Estratto(N,1,1) + 48)
numeri7(4) = Fuori90(Estratto(N,1,1) + 47)
numeri7(5) = Fuori90(Estratto(N,1,1) + 59)
Call Scrivi("Giocata n° 07:  " & StringaNumeri(numeri7,"-",True),1)
ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(N,1,1) + 11)
numeri8(2) = Fuori90(Estratto(N,1,1) + 12)
numeri8(3) = Fuori90(Estratto(N,1,1) + 16)
numeri8(4) = Fuori90(Estratto(N,1,1) + 81)
numeri8(5) = Fuori90(Estratto(N,1,1) + 32)
Call Scrivi("Giocata n° 08:  " & StringaNumeri(numeri8,"-",True),1)
ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(N,1,1) + 78)
numeri9(2) = Fuori90(Estratto(N,1,1) + 10)
numeri9(3) = Fuori90(Estratto(N,1,1) + 3)
numeri9(4) = Fuori90(Estratto(N,1,1) + 23)
numeri9(5) = Fuori90(Estratto(N,1,1) + 84)
Call Scrivi("Giocata n° 09:  " & StringaNumeri(numeri9,"-",True),1)
ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(N,1,1) + 74)
numeri10(2) = Fuori90(Estratto(N,1,1) + 58)
numeri10(3) = Fuori90(Estratto(N,1,1) + 71)
numeri10(4) = Fuori90(Estratto(N,1,1) + 82)
numeri10(5) = Fuori90(Estratto(N,1,1) + 71)
Call Scrivi("Giocata n° 10:  " & StringaNumeri(numeri10,"-",True),1)
ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(N,1,2) + 1)
numeri11(2) = Fuori90(Estratto(N,1,2) + 43)
numeri11(3) = Fuori90(Estratto(N,1,2) + 43)
numeri11(4) = Fuori90(Estratto(N,1,2) + 38)
numeri11(5) = Fuori90(Estratto(N,1,2) + 54)
Call Scrivi("Giocata n° 11:  " & StringaNumeri(numeri11,"-",True),1)
ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(N,1,2) + 25)
numeri12(2) = Fuori90(Estratto(N,1,2) + 64)
numeri12(3) = Fuori90(Estratto(N,1,2) + 75)
numeri12(4) = Fuori90(Estratto(N,1,2) + 82)
numeri12(5) = Fuori90(Estratto(N,1,2) + 81)
Call Scrivi("Giocata n° 12:  " & StringaNumeri(numeri12,"-",True),1)
ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(N,1,2) + 79)
numeri13(2) = Fuori90(Estratto(N,1,2) + 69)
numeri13(3) = Fuori90(Estratto(N,1,2) + 15)
numeri13(4) = Fuori90(Estratto(N,1,2) + 90)
numeri13(5) = Fuori90(Estratto(N,1,2) + 5)
Call Scrivi("Giocata n° 13:  " & StringaNumeri(numeri13,"-",True),1)
ImpostaGiocata 13,numeri13,ruote,posta,9
numeri14(1) = Fuori90(Estratto(N,1,2) + 8)
numeri14(2) = Fuori90(Estratto(N,1,2) + 13)
numeri14(3) = Fuori90(Estratto(N,1,2) + 56)
numeri14(4) = Fuori90(Estratto(N,1,2) + 58)
numeri14(5) = Fuori90(Estratto(N,1,2) + 49)
Call Scrivi("Giocata n° 14:  " & StringaNumeri(numeri14,"-",True),1)
ImpostaGiocata 14,numeri14,ruote,posta,9
numeri15(1) = Fuori90(Estratto(N,1,2) + 47)
numeri15(2) = Fuori90(Estratto(N,1,2) + 46)
numeri15(3) = Fuori90(Estratto(N,1,2) + 60)
numeri15(4) = Fuori90(Estratto(N,1,2) + 41)
numeri15(5) = Fuori90(Estratto(N,1,2) + 10)
Call Scrivi("Giocata n° 15:  " & StringaNumeri(numeri15,"-",True),1)
ImpostaGiocata 15,numeri15,ruote,posta,9
numeri16(1) = Fuori90(Estratto(N,1,2) + 61)
numeri16(2) = Fuori90(Estratto(N,1,2) + 7)
numeri16(3) = Fuori90(Estratto(N,1,2) + 65)
numeri16(4) = Fuori90(Estratto(N,1,2) + 76)
numeri16(5) = Fuori90(Estratto(N,1,2) + 78)
Call Scrivi("Giocata n° 16:  " & StringaNumeri(numeri16,"-",True),1)
ImpostaGiocata 16,numeri16,ruote,posta,9
numeri17(1) = Fuori90(Estratto(N,1,2) + 88)
numeri17(2) = Fuori90(Estratto(N,1,2) + 40)
numeri17(3) = Fuori90(Estratto(N,1,2) + 74)
numeri17(4) = Fuori90(Estratto(N,1,2) + 71)
numeri17(5) = Fuori90(Estratto(N,1,2) + 73)
Call Scrivi("Giocata n° 17:  " & StringaNumeri(numeri17,"-",True),1)
ImpostaGiocata 16,numeri16,ruote,posta,9
numeri18(1) = Fuori90(Estratto(N,1,2) + 66)
numeri18(2) = Fuori90(Estratto(N,1,2) + 68)
numeri18(3) = Fuori90(Estratto(N,1,2) + 39)
numeri18(4) = Fuori90(Estratto(N,1,2) + 52)
numeri18(5) = Fuori90(Estratto(N,1,2) + 37)
Call Scrivi("Giocata n° 18:  " & StringaNumeri(numeri18,"-",True),1)
ImpostaGiocata 18,numeri18,ruote,posta,9
numeri19(1) = Fuori90(Estratto(N,1,2) + 24)
numeri19(2) = Fuori90(Estratto(N,1,2) + 11)
numeri19(3) = Fuori90(Estratto(N,1,2) + 23)
numeri19(4) = Fuori90(Estratto(N,1,2) + 16)
numeri19(5) = Fuori90(Estratto(N,1,2) + 19)
Call Scrivi("Giocata n° 19:  " & StringaNumeri(numeri19,"-",True),1)
ImpostaGiocata 19,numeri19,ruote,posta,9
numeri20(1) = Fuori90(Estratto(N,1,2) + 30)
numeri20(2) = Fuori90(Estratto(N,1,2) + 12)
numeri20(3) = Fuori90(Estratto(N,1,2) + 45)
numeri20(4) = Fuori90(Estratto(N,1,2) + 85)
numeri20(5) = Fuori90(Estratto(N,1,2) + 2)
Call Scrivi("Giocata n° 20:  " & StringaNumeri(numeri20,"-",True),1)
ImpostaGiocata 20,numeri20,ruote,posta,9

ColoreTesto 1
Scrivi "°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
Gioca n 'End If
Next
ScriviResoconto
End Sub

joe · 30 Gennaio 2017

Si ma, sto script è un disastro! Comunque sia, prima di ogni riga (quindi 20 volte) "Scrivi ... & StringaNumeri1,2,3,....20" inserisci "Ordinamatrice Numeri1,2,3,....20",False

irepi · 30 Gennaio 2017

Grazie Joe! L'ho fatto scopiazzando da vari script!

Non pensavo fosse un disastro!

irepi · 30 Gennaio 2017

Ciao Joe, ho inserito prima di ogni riga x 20 volte, con copia e incolla, mi da errore: 1024 prevista fine istruzione

irepi · 30 Gennaio 2017

Scusa ho sbagliato!

visualizza: errore script 1024 prevista istruzione

joe · 30 Gennaio 2017

Ciao Irepi.

Ho inserito nello script un esempio (il primo) dei 20.

Ognuno di essi dovrà avere il "suo numero".

2 per il secondo. 3 per il numeri3. ecc.. fino a 20 per numeri20.

Codice:

Sub Main()

Dim ruote(12)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),numeri6(10)
Dim numeri7(10),numeri8(10),numeri9(10),numeri10(10),numeri11(10),numeri12(10)
Dim numeri13(10),numeri14(10),numeri15(10),numeri16(10),numeri17(10),numeri18(10)
Dim numeri19(10),numeri20(10),numeri21(10),numeri22(10),numeri23(10),numeri24(10)

Dim posta(5)

'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1


ruote(1) = 1
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(11) = 12

For n = 9230 To EstrazioneFin
If IndiceMensile(n) = 2 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(2) & " " & StringaEstratti(n,1) & "BA  SU  TT  SETT. DAL  1.9.2016 AL 29.9.2016  X  9K"
Scrivi String(70,"*"),1
ColoreTesto 0

numeri1(1) = Fuori90(Estratto(N,1,1) + 45)
numeri1(2) = Fuori90(Estratto(N,1,1) + 75)
numeri1(3) = Fuori90(Estratto(N,1,1) + 77)
numeri1(4) = Fuori90(Estratto(N,1,1) + 21)
numeri1(5) = Fuori90(Estratto(N,1,1) + 29)
OrdinaMatrice numeri1, False 'Questa istruzione ordina solo "numeri1" dovrai scrivere le altre 19/20
Call Scrivi("Giocata n° 01:  " & StringaNumeri(numeri1,"-",True),1)
ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(N,1,1) + 19)
numeri2(2) = Fuori90(Estratto(N,1,1) + 30)
numeri2(3) = Fuori90(Estratto(N,1,1) + 70)
numeri2(4) = Fuori90(Estratto(N,1,1) + 53)
numeri2(5) = Fuori90(Estratto(N,1,1) + 52)
'''' qui la seconda  ...
Call Scrivi("Giocata n° 02:  " & StringaNumeri(numeri2,"-",True),1)
ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(N,1,1) + 49)
numeri3(2) = Fuori90(Estratto(N,1,1) + 34)
numeri3(3) = Fuori90(Estratto(N,1,1) + 80)
numeri3(4) = Fuori90(Estratto(N,1,1) + 28)
numeri3(5) = Fuori90(Estratto(N,1,1) + 2)
' qui la terza 'Ordinamatrice Numeri3, False
Call Scrivi("Giocata n° 03:  " & StringaNumeri(numeri3,"-",True),1)
ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(N,1,1) + 83)
numeri4(2) = Fuori90(Estratto(N,1,1) + 13)
numeri4(3) = Fuori90(Estratto(N,1,1) + 68)
numeri4(4) = Fuori90(Estratto(N,1,1) + 31)
numeri4(5) = Fuori90(Estratto(N,1,1) + 37)
Call Scrivi("Giocata n° 04:  " & StringaNumeri(numeri4,"-",True),1)
ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(N,1,1) + 14)
numeri5(2) = Fuori90(Estratto(N,1,1) + 5)
numeri5(3) = Fuori90(Estratto(N,1,1) + 51)
numeri5(4) = Fuori90(Estratto(N,1,1) + 50)
numeri5(5) = Fuori90(Estratto(N,1,1) + 64)
Call Scrivi("Giocata n° 05:  " & StringaNumeri(numeri5,"-",True),1)
ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(N,1,1) + 46)
numeri6(2) = Fuori90(Estratto(N,1,1) + 88)
numeri6(3) = Fuori90(Estratto(N,1,1) + 44)
numeri6(4) = Fuori90(Estratto(N,1,1) + 62)
numeri6(5) = Fuori90(Estratto(N,1,1) + 42)
Call Scrivi("Giocata n° 06:  " & StringaNumeri(numeri6,"-",True),1)
ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(N,1,1) + 6)
numeri7(2) = Fuori90(Estratto(N,1,1) + 73)
numeri7(3) = Fuori90(Estratto(N,1,1) + 48)
numeri7(4) = Fuori90(Estratto(N,1,1) + 47)
numeri7(5) = Fuori90(Estratto(N,1,1) + 59)
Call Scrivi("Giocata n° 07:  " & StringaNumeri(numeri7,"-",True),1)
ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(N,1,1) + 11)
numeri8(2) = Fuori90(Estratto(N,1,1) + 12)
numeri8(3) = Fuori90(Estratto(N,1,1) + 16)
numeri8(4) = Fuori90(Estratto(N,1,1) + 81)
numeri8(5) = Fuori90(Estratto(N,1,1) + 32)
Call Scrivi("Giocata n° 08:  " & StringaNumeri(numeri8,"-",True),1)
ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(N,1,1) + 78)
numeri9(2) = Fuori90(Estratto(N,1,1) + 10)
numeri9(3) = Fuori90(Estratto(N,1,1) + 3)
numeri9(4) = Fuori90(Estratto(N,1,1) + 23)
numeri9(5) = Fuori90(Estratto(N,1,1) + 84)
Call Scrivi("Giocata n° 09:  " & StringaNumeri(numeri9,"-",True),1)
ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(N,1,1) + 74)
numeri10(2) = Fuori90(Estratto(N,1,1) + 58)
numeri10(3) = Fuori90(Estratto(N,1,1) + 71)
numeri10(4) = Fuori90(Estratto(N,1,1) + 82)
numeri10(5) = Fuori90(Estratto(N,1,1) + 71)
Call Scrivi("Giocata n° 10:  " & StringaNumeri(numeri10,"-",True),1)
ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(N,1,2) + 1)
numeri11(2) = Fuori90(Estratto(N,1,2) + 43)
numeri11(3) = Fuori90(Estratto(N,1,2) + 43)
numeri11(4) = Fuori90(Estratto(N,1,2) + 38)
numeri11(5) = Fuori90(Estratto(N,1,2) + 54)
Call Scrivi("Giocata n° 11:  " & StringaNumeri(numeri11,"-",True),1)
ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(N,1,2) + 25)
numeri12(2) = Fuori90(Estratto(N,1,2) + 64)
numeri12(3) = Fuori90(Estratto(N,1,2) + 75)
numeri12(4) = Fuori90(Estratto(N,1,2) + 82)
numeri12(5) = Fuori90(Estratto(N,1,2) + 81)
Call Scrivi("Giocata n° 12:  " & StringaNumeri(numeri12,"-",True),1)
ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(N,1,2) + 79)
numeri13(2) = Fuori90(Estratto(N,1,2) + 69)
numeri13(3) = Fuori90(Estratto(N,1,2) + 15)
numeri13(4) = Fuori90(Estratto(N,1,2) + 90)
numeri13(5) = Fuori90(Estratto(N,1,2) + 5)
Call Scrivi("Giocata n° 13:  " & StringaNumeri(numeri13,"-",True),1)
ImpostaGiocata 13,numeri13,ruote,posta,9
numeri14(1) = Fuori90(Estratto(N,1,2) + 8)
numeri14(2) = Fuori90(Estratto(N,1,2) + 13)
numeri14(3) = Fuori90(Estratto(N,1,2) + 56)
numeri14(4) = Fuori90(Estratto(N,1,2) + 58)
numeri14(5) = Fuori90(Estratto(N,1,2) + 49)
Call Scrivi("Giocata n° 14:  " & StringaNumeri(numeri14,"-",True),1)
ImpostaGiocata 14,numeri14,ruote,posta,9
numeri15(1) = Fuori90(Estratto(N,1,2) + 47)
numeri15(2) = Fuori90(Estratto(N,1,2) + 46)
numeri15(3) = Fuori90(Estratto(N,1,2) + 60)
numeri15(4) = Fuori90(Estratto(N,1,2) + 41)
numeri15(5) = Fuori90(Estratto(N,1,2) + 10)
Call Scrivi("Giocata n° 15:  " & StringaNumeri(numeri15,"-",True),1)
ImpostaGiocata 15,numeri15,ruote,posta,9
numeri16(1) = Fuori90(Estratto(N,1,2) + 61)
numeri16(2) = Fuori90(Estratto(N,1,2) + 7)
numeri16(3) = Fuori90(Estratto(N,1,2) + 65)
numeri16(4) = Fuori90(Estratto(N,1,2) + 76)
numeri16(5) = Fuori90(Estratto(N,1,2) + 78)
Call Scrivi("Giocata n° 16:  " & StringaNumeri(numeri16,"-",True),1)
ImpostaGiocata 16,numeri16,ruote,posta,9
numeri17(1) = Fuori90(Estratto(N,1,2) + 88)
numeri17(2) = Fuori90(Estratto(N,1,2) + 40)
numeri17(3) = Fuori90(Estratto(N,1,2) + 74)
numeri17(4) = Fuori90(Estratto(N,1,2) + 71)
numeri17(5) = Fuori90(Estratto(N,1,2) + 73)
Call Scrivi("Giocata n° 17:  " & StringaNumeri(numeri17,"-",True),1)
ImpostaGiocata 16,numeri16,ruote,posta,9
numeri18(1) = Fuori90(Estratto(N,1,2) + 66)
numeri18(2) = Fuori90(Estratto(N,1,2) + 68)
numeri18(3) = Fuori90(Estratto(N,1,2) + 39)
numeri18(4) = Fuori90(Estratto(N,1,2) + 52)
numeri18(5) = Fuori90(Estratto(N,1,2) + 37)
Call Scrivi("Giocata n° 18:  " & StringaNumeri(numeri18,"-",True),1)
ImpostaGiocata 18,numeri18,ruote,posta,9
numeri19(1) = Fuori90(Estratto(N,1,2) + 24)
numeri19(2) = Fuori90(Estratto(N,1,2) + 11)
numeri19(3) = Fuori90(Estratto(N,1,2) + 23)
numeri19(4) = Fuori90(Estratto(N,1,2) + 16)
numeri19(5) = Fuori90(Estratto(N,1,2) + 19)
Call Scrivi("Giocata n° 19:  " & StringaNumeri(numeri19,"-",True),1)
ImpostaGiocata 19,numeri19,ruote,posta,9
numeri20(1) = Fuori90(Estratto(N,1,2) + 30)
numeri20(2) = Fuori90(Estratto(N,1,2) + 12)
numeri20(3) = Fuori90(Estratto(N,1,2) + 45)
numeri20(4) = Fuori90(Estratto(N,1,2) + 85)
numeri20(5) = Fuori90(Estratto(N,1,2) + 2)
Call Scrivi("Giocata n° 20:  " & StringaNumeri(numeri20,"-",True),1)
ImpostaGiocata 20,numeri20,ruote,posta,9

ColoreTesto 1
Scrivi "°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
Gioca n
End If
Next
ScriviResoconto
End Sub

irepi · 30 Gennaio 2017

Grazieee!

joe · 31 Gennaio 2017

Ciao Irepi.

Mi ero permesso maleducatamente "un giudizio" perchè era evidente,

il collage di stili diversi e l'eccesso nel copia-incolla. Modifiche spiazzanti.

Nonostante questo, è altrettanto evidente l' impegno-costruttivo ben

finalizzato alla funzionalità, che va lodato.

Dicevo modificare il "numero di estrazione" e scrivere manualmente

"una data" non corrispondente ad esso ...

così come, scrivere "Cagliari" e usare "Bari", è spiazzante.

Evenienze che andrebbero corrette.

Però lo script "funziona" e ... quanto sto per scrivere

diventa inutile e dispendioso. Puro esercizio.

Dello script proposto ...

Si nota che si è incollato 20 volte lo stesso blocco di istruzioni,

si sono dimensionate/renumerate, per questi blocchi, 20 volte le loro variabili.

E' ben fatto se si devono mantenere "in memoria" TUTTI i numeri.

Ma se essi sono usati una volta sola, localmente, è un "lavorone" inutile.

Dipendio di memoria e causa di molta difficoltà

nel rinumerare manualmente tutte le condizioni.

Oltre l'introdurre una possibile e probabile causa di errori-manuali.

Quindi ho semplificato usando UN contenitore per 5 Numeri.

"1x5" contro "24x10" che erano.

Avendo accennato ad alcune delle modifiche che intendo introdurre ...

(ripeto inutili e per puro esercizio didattico) ripropongo lo script,

ad un livello intermedio di transizione, sicchè sia possibile vederne,

questo primo stadio della metamorfosi.

Codice:

Sub Main()

Dim Numeri(5)
Dim Ruote(12)
Dim posta(5)
Dim S(20)

S(1) = "45.75.77.21.29"
S(2) = "19.30.70.53.52"
S(3) = "49.34.80.28.02"
S(4) = "83.13.68.31.37"
S(5) = "14.05.51.50.64"
S(6) = "46.88.44.62.42"
S(7) = "06.73.48.47.59"
S(8) = "11.12.16.81.32"
S(9) = "78.10.03.23.84"
S(10)= "74.58.71.82.71"
S(11)= ""
S(12)= ""
S(13)= ""
S(14)= ""
S(15)= ""
S(16)= ""
S(17)= ""
S(18)= ""
S(19)= ""
S(20)= ""  

'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1

Ruote(1) = 1
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(11) = 12

For n = 9207 To EstrazioneFin
If IndiceMensile(n) = 2 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(2) & " " & StringaEstratti(n,1) & " BA  SU  TT  SETT. DAL  1.9.2016 AL 29.9.2016  X  9K"
Scrivi String(70,"*"),1
ColoreTesto 0
A = Split("0." & S(1),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 01:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 1,Numeri,Ruote,posta,9
A = Split("0." & S(2),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 02:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 2,Numeri,Ruote,posta,9
A = Split("0." & S(3),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 03:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 3,Numeri,Ruote,posta,9

A = Split("0." & S(4),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 04:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 4,Numeri,Ruote,posta,9

A = Split("0." & S(5),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 05:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 5,Numeri,Ruote,posta,9
A = Split("0." & S(6),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 06:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 6,Numeri,Ruote,posta,9
A = Split("0." & S(7),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 07:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 7,Numeri,Ruote,posta,9
A = Split("0." & S(8),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 08:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 8,Numeri,Ruote,posta,9
A = Split("0." & S(9),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 09:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 9,Numeri,Ruote,posta,9
A = Split("0." & S(10),".")
Numeri(1) = Fuori90(Estratto(N,1,1) + A(1))
Numeri(2) = Fuori90(Estratto(N,1,1) + A(2))
Numeri(3) = Fuori90(Estratto(N,1,1) + A(3))
Numeri(4) = Fuori90(Estratto(N,1,1) + A(4))
Numeri(5) = Fuori90(Estratto(N,1,1) + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 10:  " & StringaNumeri(Numeri,"-",True),1)

'NUOVO

'============================================================

'VECCHIO

Numeri(1) = Fuori90(Estratto(N,1,2) + 1)
Numeri(2) = Fuori90(Estratto(N,1,2) + 43)
Numeri(3) = Fuori90(Estratto(N,1,2) + 43)
Numeri(4) = Fuori90(Estratto(N,1,2) + 38)
Numeri(5) = Fuori90(Estratto(N,1,2) + 54)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 11:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 11,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 25)
Numeri(2) = Fuori90(Estratto(N,1,2) + 64)
Numeri(3) = Fuori90(Estratto(N,1,2) + 75)
Numeri(4) = Fuori90(Estratto(N,1,2) + 82)
Numeri(5) = Fuori90(Estratto(N,1,2) + 81)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 12:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 12,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 79)
Numeri(2) = Fuori90(Estratto(N,1,2) + 69)
Numeri(3) = Fuori90(Estratto(N,1,2) + 15)
Numeri(4) = Fuori90(Estratto(N,1,2) + 90)
Numeri(5) = Fuori90(Estratto(N,1,2) + 5)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 13:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 13,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 8)
Numeri(2) = Fuori90(Estratto(N,1,2) + 13)
Numeri(3) = Fuori90(Estratto(N,1,2) + 56)
Numeri(4) = Fuori90(Estratto(N,1,2) + 58)
Numeri(5) = Fuori90(Estratto(N,1,2) + 49)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 14:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 14,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 47)
Numeri(2) = Fuori90(Estratto(N,1,2) + 46)
Numeri(3) = Fuori90(Estratto(N,1,2) + 60)
Numeri(4) = Fuori90(Estratto(N,1,2) + 41)
Numeri(5) = Fuori90(Estratto(N,1,2) + 10)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 15:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 15,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 61)
Numeri(2) = Fuori90(Estratto(N,1,2) + 7)
Numeri(3) = Fuori90(Estratto(N,1,2) + 65)
Numeri(4) = Fuori90(Estratto(N,1,2) + 76)
Numeri(5) = Fuori90(Estratto(N,1,2) + 78)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 16:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 16,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 88)
Numeri(2) = Fuori90(Estratto(N,1,2) + 40)
Numeri(3) = Fuori90(Estratto(N,1,2) + 74)
Numeri(4) = Fuori90(Estratto(N,1,2) + 71)
Numeri(5) = Fuori90(Estratto(N,1,2) + 73)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 17:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 16,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 66)
Numeri(2) = Fuori90(Estratto(N,1,2) + 68)
Numeri(3) = Fuori90(Estratto(N,1,2) + 39)
Numeri(4) = Fuori90(Estratto(N,1,2) + 52)
Numeri(5) = Fuori90(Estratto(N,1,2) + 37)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 18:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 18,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 24)
Numeri(2) = Fuori90(Estratto(N,1,2) + 11)
Numeri(3) = Fuori90(Estratto(N,1,2) + 23)
Numeri(4) = Fuori90(Estratto(N,1,2) + 16)
Numeri(5) = Fuori90(Estratto(N,1,2) + 19)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 19:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 19,Numeri,Ruote,posta,9
Numeri(1) = Fuori90(Estratto(N,1,2) + 30)
Numeri(2) = Fuori90(Estratto(N,1,2) + 12)
Numeri(3) = Fuori90(Estratto(N,1,2) + 45)
Numeri(4) = Fuori90(Estratto(N,1,2) + 85)
Numeri(5) = Fuori90(Estratto(N,1,2) + 2)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 20:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 20,Numeri,Ruote,posta,9

ColoreTesto 1
Scrivi "°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
Gioca n,True
End If
Next
ScriviResoconto
End Sub

Si diceva, possibili di errori che potrebbero anche

reiterati dal sottoscritto ... nel copiare ed incollare.

per esempio: la decima cinquina di sommatori,

contiene 2 volte il "+71"

joe · 31 Gennaio 2017

Come si vede dallo script precedente ...

le 20 giocate sono divise in 2 gruppi di 10

Il "primo gruppo" utilizza come riferimento il "Primo Estratto"

Il "secondo gruppo" (di 10 giocate) il "Secondo Estratto" ... sempre ... di Bari.

Sono rispettivamente: Estratto (n,1,1) ed Estratto (n,1,2).

Quindi possiamo immaginare che un Estratto "E" (a noi utile),

cambia, cioè è da cambiare ... se la giocata è Maggiore di 10.

In sintesi potrebbe essere scritto:

If G > 10 Then E = Fuori90 (Estratto(n,1,2) + ... ) Else E = Fuori90 (Estratto (n,1,1) + ... )

Chiaro che così facendo ed inserendo nei calcoli ...

l'alias "E" ... anche le seconde 10 giocate, si "omologano" alle prime.

Cioè (nello script) diventano uguali alle prime 10+10 = 20. Tutte uguali.

Codice:

For G = 1 To 10
If G > 10 Then E = Estratto(N,1,2) Else E = Estratto(N,1,1)
A = Split("0." & S(G),".")
Numeri(1) = Fuori90(E + A(1))
Numeri(2) = Fuori90(E + A(2))
Numeri(3) = Fuori90(E + A(3))
Numeri(4) = Fuori90(E + A(4))
Numeri(5) = Fuori90(E + A(5))
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° " & Format2(G) & ":  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata G,Numeri,Ruote,posta,9
Next

'NUOVO
'=================================================================
'VECCHIO

Numeri(1) = Fuori90(Estratto(N,1,2) + 1)
Numeri(2) = Fuori90(Estratto(N,1,2) + 43)
Numeri(3) = Fuori90(Estratto(N,1,2) + 43)
Numeri(4) = Fuori90(Estratto(N,1,2) + 38)
Numeri(5) = Fuori90(Estratto(N,1,2) + 54)
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° 11:  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata 11,Numeri,Ruote,posta,9

Già così .... TUTTE le prime 10 giocate ... sono diventate UNA.

(ed il risultato dello script ... rimane identico all'originale)

Ma scrivendo For G = 1 To 20 .... ci saranno tutte e 20 riassunte in UNA.

joe · 31 Gennaio 2017

... In questo nuovo script,

ho introdotto, le istruzioni conseguenti ed utili a completare, quanto già descritto,

oltre, alcune correzioni di minore importanza.

I più attenti, noteranno che aggiungendo il secondo gruppo di 10 Estrazioni

varia leggermente il rendiconto.

E' dovuto ad un errore presente nella numerazione originale delle giocate,

dove la n°16 e la n°17 erano "sovrascritte".

Dunque, senza pretendere che questa versione sia "apposto"

e/o definitiva, ne rilascio una copia, per poterla provare.

Codice:

Sub Main()
Dim Numeri(5)
Dim Ruote(12)
Dim posta(5)
Dim S(20)
S(1) = "45.75.77.21.29"
S(2) = "19.30.70.53.52"
S(3) = "49.34.80.28.02"
S(4) = "83.13.68.31.37"
S(5) = "14.05.51.50.64"
S(6) = "46.88.44.62.42"
S(7) = "06.73.48.47.59"
S(8) = "11.12.16.81.32"
S(9) = "78.10.03.23.84"
S(10) = "74.58.71.82.71"
S(11) = "01.43.43.38.54"
S(12) = "25.64.75.82.81"
S(13) = "79.69.15.90.05"
S(14) = "08.13.56.58.49"
S(15) = "47.46.60.41.10"
S(16) = "61.07.65.76.78"
S(17) = "88.40.74.71.73"
S(18) = "66.68.39.52.37"
S(19) = "24.11.23.16.19"
S(20) = "30.12.45.85.02"
For P = 2 To 5 : posta(P) = 1 : Next 'carica le Poste
For R = 1 To 12 : If R = 11 Then R = 12
Ruote(R) = R 'Carica le Ruote
Next
For n = 9207 To EstrazioneFin
If IndiceMensile(n) = 2 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi "Dal " & DataEstrazione(n) & " al " & DataEstrazione (EstrazioneFin) & " (sommativo alla II° mensile BA_) x  9K",True
Scrivi String(70,"*"),1
ColoreTesto 0
For G = 1 To 20
A = Split("0." & S(G),".")
If G > 10 Then E = Estratto(N,1,2) Else E = Estratto(N,1,1)
For P = 1 To 5 : Numeri(P) = Fuori90(E + A(P)) : Next
OrdinaMatrice Numeri,False
Call Scrivi("Giocata n° " & Format2(G) & ":  " & StringaNumeri(Numeri,"-",True),1)
ImpostaGiocata G,Numeri,Ruote,posta,9
Next
ColoreTesto 1
Scrivi String(70,"°"),True
Gioca n,True
End If
Next
ScriviResoconto
End Sub

Cordiali saluti

Cerca

Cerca

Aiuto!!! Esiste una funzione per visualizzare i numeri in ordine crescente?

irepi

Junior Member

joe

Advanced Member >PLATINUM PLUS<

irepi

Junior Member

irepi

Junior Member

irepi

Junior Member

joe

Advanced Member >PLATINUM PLUS<

irepi

Junior Member

joe

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi