xEnplein richiesta aiuto per script

Zetrix

Posted on 18/9/2017, 15:20

ciao Enplein ti ricordi di me sono Zetrix volevo chiederti se mi puoi risolvere
questo listato
il num massimo lo legge ma il num minimo non lo lo legge
boo non lo so perche vedi se puoi fare qualcosa grazie
mi interessa il num minimo e massimo su ruota
ti allego lo script

SPOILER (clicca per visualizzare)

Sub Main()

Dim ruote(10)
Dim numero1(10)
Dim posta(5)
Dim poste(5)
'posta(1) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1

rx = CInt(InputBox("Quante estrazioni controllo?",,0))
'cl = InputBox("Inserisci i colpi di gioco",,6)
cl = 0
'co = 0
For es =(EstrazioneFin - rx) To EstrazioneFin
Messaggio DataEstrazione(es)
For r = 1 To 12
'r = r + 1
If r = 11 Then r = 12 End If
'For p = 1 To 5
'-----------------------------------------
ReDim A(5)

A(1) = Estratto(es,r,1)
A(2) = Estratto(es,r,2)
A(3) = Estratto(es,r,3)
A(4) = Estratto(es,r,4)
A(5) = Estratto(es,r,5)
'--------------------------------------------------
mv = MassimoV(A)

'-----------------------------------------
ReDim B(5)

B(1) = Estratto(es,r,1)
B(2) = Estratto(es,r,2)
B(3) = Estratto(es,r,3)
B(4) = Estratto(es,r,4)
B(5) = Estratto(es,r,5)
'----------------------------------------
mv1 = MinimoV(B)
'----------------------------
'xx = Fuori90 ()
'numero1(1) = mv
'numero1(2) = mvx

'mv = Massimo(a,b)
'--------------------------------
'c = mv

OrdinaMatrice,1
'---------------------------------
ruote(1) = r
'ruote(2) = r1
'casi = casi + 1
Scrivi "-------------------------------------------"
ColoreTesto 0
'Scrivi String(68,"-") & " Caso n° " & casi,1
'co = co + 1
ColoreTesto 0
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ": " & StringaEstratti(es,r) & "",1

ColoreTesto 0
'Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ": " & StringaEstratti(es,r1) & " - " & Format2(b)
'ColoreTesto 0
'Scrivi "--------------------------------------------"
ColoreTesto 2
Scrivi "numero massimo: " & Format2(mv),1
ColoreTesto 1
Scrivi "numero minimo : " & Format2(mv1),1

'-----------------------------------------------------------
numero1(1) = mv
numero1(2) = mv1
'numero1(3) = 31
'numero1(4) = 55

ImpostaGiocata 1,numero1,ruote,poste,cl
'-----------------------------------------------------------

'ImpostaGiocata 4,numero4,ruote,poste,k,2
'-----------------------------------------------------------

Gioca es
'End If
'End If
'Next
Next
Next
Scrivi
'Scrivi "Casi Rilevati " & CInt(co)
'ScriviResoconto
End Sub

Enplein*

Posted on 18/9/2017, 20:22

Group:: Fan

Posts:: 164

Status:

Ciao Zetrix, con Spaziometria il codice MinimoV(B) mi da =0, mentre con LottoDesk funziona...

CODICE

16.09.2017 - Nz: 67.29.56.22.48
numero massimo: 67
numero minimo : 22
sab 16.09.2017 [9368]
G 1: A 67.22 Nz 0/1

Premetto che non uso Spaziometria quindi devo escogitare un'altra soluzione....o aspettare
qualcun'altro che lo usa con frequenza.

Ciao, Enplein.

...ecco la mia soluzione...

SPOILER (clicca per visualizzare)

Sub Main()

Dim ruote(10)
Dim numero1(10),A(5)
Dim posta(5)
Dim poste(5)
'posta(1) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1

rx = CInt(InputBox("Quante estrazioni controllo?",,0))
'cl = InputBox("Inserisci i colpi di gioco",,6)
cl = 0
'co = 0
For es =(EstrazioneFin - rx) To EstrazioneFin
Messaggio DataEstrazione(es)
For r = 1 To 12
'r = r + 1
If r = 11 Then r = 12 End If
'parte corretta
'-------------------------
For p = 1 To 5
A(p)=Estratto (es,r,p)
Next
OrdinaMatrice A,1
mv = A(5)
mv1= A(1)
'----------------------------
'xx = Fuori90 ()
'numero1(1) = mv
'numero1(2) = mvx

'mv = Massimo(a,b)
'--------------------------------
'c = mv

'---------------------------------
ruote(1) = r
'ruote(2) = r1
'casi = casi + 1
Scrivi "-------------------------------------------"
ColoreTesto 0
'Scrivi String(68,"-") & " Caso n° " & casi,1
'co = co + 1
ColoreTesto 0
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ": " & StringaEstratti(es,r) & "",1

ColoreTesto 0
'Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ": " & StringaEstratti(es,r1) & " - " & Format2(b)
'ColoreTesto 0
'Scrivi "--------------------------------------------"
ColoreTesto 2
Scrivi "numero massimo: " & Format2(mv),1
ColoreTesto 1
Scrivi "numero minimo : " & Format2(mv1),1

'-----------------------------------------------------------
numero1(1) = mv
numero1(2) = mv1
'numero1(3) = 31
'numero1(4) = 55

ImpostaGiocata 1,numero1,ruote,poste,cl
'-----------------------------------------------------------

'ImpostaGiocata 4,numero4,ruote,poste,k,2
'-----------------------------------------------------------

Gioca es
'End If
'End If
'Next
Next
Next
Scrivi
'Scrivi "Casi Rilevati " & CInt(co)
'ScriviResoconto
End Sub

Zetrix

Posted on 18/9/2017, 20:46

ciao Enplein ma sei te quello che ci conoscevamo sull'altro forum perche puo darsi pure che mi sbaglio ai lo stesso nome
conosci LuigiB perchè mi stupisce che non usi SpazioMetria :unsure:

16.09.2017 - BA: 67.58.01.85.37
numero massimo: 85
numero minimo : 01
Estrazione generatrice del pronostico 01251 [111 - 16/09/2017]
G 0001 Numeri in gioco : ?? su BA per Ambo
In corso

Enplein ho provato il listato su SpazioMetria adesso va bene legge anche
il num minimo , ti ringrazio ,
quel codice script non lo avrei mai trovato credimi le ho provate tutte
ma lo script leggeva solo il num massimo
mi interessa questa tecnica perche sto studiando una nuova tecnica
ciao

:FS-msn_96.gif:

Enplein*

Posted on 19/9/2017, 08:11

Group:: Fan

Posts:: 164

Status:

Ciao Zetrix, mi dispiace non sono quello che tu pensi...in merito allo script,
ti conviene segnale a LuigiB il codice MinimoV =0.
Conosco il programma Spaziometria, ma sono abituato da molti anni ad
utilizzare LottoDesk.

Ciao, Enplein.

Zetrix

Posted on 19/9/2017, 08:20

ciao Enplein grazie lo stesso lo avevo capito subito da quanto mi ai detto che non usi SpazioMetria purtroppo sono stato bannato sul forum di LuigiB e non posso entrare nel forum
ciao

p.s.
ero un personaggio scomodo su quel forum,ma i miei prospetti non li vedranno
mai piu su quel forum.

4 replies since 18/9/2017, 15:20 583 views