Script by Mike58 - richiesta aggiornamento

[skygirl]

E' possibile aggiornare questo Script by Mike58 facendo visualizzare più di 25 estrazioni?

grazie

'Option Explicit
Sub Main()
'- http://forum.lottoced.com/f8/gemello-5%B0-chiama-lambata-117021/index2.html -
Dim anum(02),ruota(01),posta(02),anum1(01),anum2(01)
Dim ambetti,sretnumeri,nvincita
ini = EstrazioneFin - 25
fin = EstrazioneFin
ca = fin - Ini
Scrivi String(120,"="),1
Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
Scrivi
'Scrivi String(120,"="),1
ReDim AT(13)
AT(01) = " Casi "
AT(02) = " Data "
AT(03) = " Ruota "
AT(04) = " Estratti "
AT(05) = " Gemello "
AT(06) = " Posiz. "
AT(07) = " pronostico "
AT(08) = " Esito  "
AT(09) = " Colpi "
AT(10) = " Estratti"
AT(11) = " Data ID "
AT(12) = " Estratti ID "
AT(13) = " Ritardo Pronos. "
'AT(12) = " nGuadagno "
'AT(13) = " Qtà "
'AT(14) = " s_Ambetti "
'AT(15) = " n_Vincita "
Call InitTabella(AT,1,,3,5)
For es = fin To Ini Step - 1
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
ruota(01) = r1
posta(01) = 4
posta(02) = 1
For p1 = 5 To 5
'For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,4)
If Gemello(a)Then
c = Radicale(a)
d = Vert(c)
e =(11*c)
f = Vert(e)
b1 = b - 1
b2 = b + 1
casi = casi + 1
anum(01) = b1'c
anum(02) = b2' d
'anum(3) = 84
'anum(4) = f
anum1(01) = b1
anum2(01) = b2
sf1 = SerieRitardo(1,fin,anum1,ruota,1)
sf2 = SerieRitardo(1,fin,anum2,ruota,1)
'For idestr = es + 1 To fin
'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
'Next
'For x = 1 To 4
'---------- calcolo x escludere i numeri trovati ------------------
'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
'-----------------------------------------------------------------
Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
'Next
ReDim AV(13)
AV(01) = casi
AV(02) = DataEstrazione(es)
AV(03) = SiglaRuota(r1)
AV(04) = StringaEstratti(es,r1)
AV(05) = a
AV(06) = p1
AV(07) = StringaNumeri(anum)
AV(08) = esito
AV(09) = colpi
AV(10) = estratti
If esito <> "" Then AV(11) = DataEstrazione(id)
If esito = "" Then AV(11) = " -- "
'AV(12) = nguad
'AV(13) = ambetti
'AV(14) = sretnumeri
'AV(15) = nvincita
If esito <> "" Then AV(12) = StringaEstratti(id,r1)
If esito = "" Then AV(12) = "---.---.---.---.---"
AV(13) = Format2(sf1) & " - " & Format2(sf2)
If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
End If
Next
Next
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub

 

[Mike58]

Ciao skygirl e tutti in questo periodo sono un po' assente anche per ragione di mancanza di stimoli.

Quello che chiedi è facilmente modificabile solo intervenedo sulla riga di inizio estrazione nella fattispecie della riga Ini che determina l'inizio estrazione del range. ini = EstrazioneFin - 25

si legge estrazione dalla Fine - 25 e cosi visualizza 25 estrazioni.

modificala con le estrazioni che ritieni valide.

Ciao

 

[skygirl]

Grazie Mike58