SUPERENALOTTO RANDOM

[Alien.]

Grazie esselotto,vedo di prelevare il programma di luigi,ma lo script,mi da i numeri a random che ho inserito io oppure....!!!!da 1 a 90? o da uno ha 24....=? grazie per la pazienza

 

[esselotto]

quote:Originally posted by Alien.

Grazie esselotto,vedo di prelevare il programma di luigi,ma lo script,mi da i numeri a random che ho inserito io oppure....!!!!da 1 a 90? o da uno ha 24....=? grazie per la pazienza

Ciao Alien
lo questo script ti da numeri a random compresi tra 1 e 90
o tra 1 e 45 ecc.

Comunque adesso ho capito. Tu stai cercando uno script, che ti faccia il random
di numeri che tu inserisci.

tieni d'occhio questo post. Dammi il tempo di e invio lo script richiesto.

esselotto

 

[dbr]

Comunque adesso ho capito. Tu stai cercando uno script, che ti faccia il random
di numeri che tu inserisci.

tieni d'occhio questo post. Dammi il tempo di e invio lo script richiesto.

esselotto

[/quote]

Ciao esselotto
mi chiedevo se è possibile far fare allo script che ti ha richiesto Alien un determinato numero di volte a nostra scelta il random del sistema da noi impostato e verificarne la resa con l'archivio estrazioni x determinarne il minimo (sistema d'attesa) e il
massimo (sistema resa immediata)rendimento
spero essere stato chiaro .
per eventuali chiarimenti sempre a disposizione
grazie -dbr-

 

[Alien.]

quote:Originally posted by esselotto

quote:Originally posted by Alien.

Grazie esselotto,vedo di prelevare il programma di luigi,ma lo script,mi da i numeri a random che ho inserito io oppure....!!!!da 1 a 90? o da uno ha 24....=? grazie per la pazienza

Ciao Alien
lo questo script ti da numeri a random compresi tra 1 e 90
o tra 1 e 45 ecc.

Comunque adesso ho capito. Tu stai cercando uno script, che ti faccia il random
di numeri che tu inserisci.

tieni d'occhio questo post. Dammi il tempo di e invio lo script richiesto.

esselotto

Perfetto bravissimo,si per il 10e lotto e superenalotto,il problema è che ho scaricato il programma di luigi ,ma per aprirsi mi chiede la chiave,""devo andare dal fabbro""come posso risolvere? grazie...

Ma un programmino per excel fatto in quel modo non si può fare?

 

[esselotto]

grande Alien
non serve il Fabbro

prova a scrivere spazioscript
tutto in minuscolo. almeno per le ultime versioni che ho scaricato io...

In excel personalmente, non sono capace.

 

[esselotto]

'S U P E R E N A L O T T O E 10 E LOTTO R A N D O M
'CON NUMERI PERSONALI CAMBIANDOLI DALLO SCRIPT
prelevare solo parte colorata blu




ColoreTesto 1
Scrivi Space(20)& String(40,"*"),1
ColoreTesto 2
Scrivi Space (20)&"S U P E R E N A L O T T O E 10 e LOTTO R A N D O M ",1
Scrivi Space (20)&"CON NUMERI PERSONALI ",1
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per Alien su LottoCed ",1
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=")
Scrivi


Sub main()
Dim n(90)
Dim nx(90)

Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",3))
gi=CInt(InputBox ("Dove vuoi Giocare? 1 per Superenalotto 2 per 10 e Lotto ?..","°°°esselotto°°°",1))
If cb=False Then Exit Sub
If gi= False Then Exit Sub

If gi > 2 Or gi <0 Then
MsgBox (" NUMERO "& gi &" NON VALIDO NON STIAMO GIOCANDO A TOMBOLA!!! INSERIRE 1 OPPURE 2 ....")
Scrivi "TENTATIVO DI GIOCATA FALLITO",1
Exit Sub
End If


If gi=1 Then Scrivi "COMBINAZIONI PER SUPERENALOTTO",1 :Scrivi
If gi=2 Then Scrivi "COMBINAZIONI PER 10 E LOTTO",1:Scrivi
ColoreTesto 0




For cbcombo= 1 To cb
n(1)=12
n(2)=15
n(3)=34
n(4)=56
n(5)=21
n(6)=90
n(7)=34
n(8)=47
n(9)=88
n(10)=25
n(11)=36
n(12)=27
n(13)=31
n(14)=76
n(15)=55
n(16)=57

''' <--- Per Aggiungere altri numeri continuare qui
hh=0:ss=0
Do Until ss = 90 'ctrl lunghezza array
ss=ss+1
If n(ss)>0 Then hh=hh+1
Loop


i = hh
Do While i > 0
t = Int(i * Rnd + 1) ' estrae il valore dall' array
nx(i)= n(t) ' attribuisce il valore nell'array nx(t)
If t <> i Then
n(t) = n(i) ' scambio l'ultimo
End If
i = i - 1 ' non considero ultimo
Loop
If gi=1 Then
Scrivi Format2 (nx(1))&" . "& Format2 (nx(2))&" . "& Format2 (nx(3))&_
" . "& Format2 (nx(4))&" . "& Format2 (nx(5))&" . "& Format2 (nx(6))&" "&_
Format2 (nx(7))& " "& Format2 (nx(8)),1
End If
If gi=2 Then
Scrivi Format2 (nx(1))&" . "& Format2 (nx(2))&" . "& Format2 (nx(3))&_
" . "& Format2 (nx(4))&" . "& Format2 (nx(5))&" . "& Format2 (nx(6))&" . "&_
Format2 (nx(7))& " . "& Format2 (nx(8))& " . "& Format2 (nx(9))& " . "& Format2 (nx(10)),1
End If


Next

ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

ColoreTesto 1
Scrivi "°°°esselotto°°°",1

End Sub

 

[esselotto]

ALIEN

HO INSERITI superenalotto e 10 e lotto IN UN UNICO SCRIPT


PER SCEGLIERE I NUMERI. NON HO MESSO L'INPUTBOX
PER IL SEMPLICE MOTIVO. AD OGNI AVVIO DELLO SCRIPT DOVEVO REINSERIRE
SEMPRE I NUMERI PERSONALI.

ho optato per questa soluzione
i numeri sono stati assegnati ad un' matrice n() puo contenere sino a 90 numeri

TI SPIEGO COME FARE PER AUMENTARE I NUMERI PERSONALI

n(1)=12
n(2)=15
n(3)=34
n(4)=56
n(5)=21
n(6)=90
n(7)=34
n(8)=47
n(9)=88
n(10)=25
n(11)=36
n(12)=27
n(13)=31
n(14)=76
n(15)=55
n(16)=57

''' <--- per aggiungere altri numeri continuare da qui
n(17)= 11
n(18)= 10
n(19)=.....ecc. ecc

ricordandosi sempre, di aumentare il numeretto dentro la parentesi.



Il fenomeno della luce sarebbe dovuto all'emissione da parte della sorgente, di
onde elettromagnetiche di particolare frequenza.
°°°esselotto°°°

 

[esselotto]

stò ridendo ancora della battuta del Fabbro.........

 

[esselotto]

quote:Originally posted by dbr



Comunque adesso ho capito. Tu stai cercando uno script, che ti faccia il random
di numeri che tu inserisci.

tieni d'occhio questo post. Dammi il tempo di e invio lo script richiesto.

esselotto

Ciao esselotto
mi chiedevo se è possibile far fare allo script che ti ha richiesto Alien un determinato numero di volte a nostra scelta il random del sistema da noi impostato e verificarne la resa con l'archivio estrazioni x determinarne il minimo (sistema d'attesa) e il
massimo (sistema resa immediata)rendimento
spero essere stato chiaro .
per eventuali chiarimenti sempre a disposizione
grazie -dbr-


[/quote]


ciao DBR
ho spedito adesso lo script richiesto da Alien

ma non ho capito. verificarne la resa ????????

Non so come vuoi verificare, la resa con un Sistema Random.(Letteralmente tradotto CASUALE)




esselotto

 

[Alien.]

quote:Originally posted by esselotto


stò ridendo ancora della battuta del Fabbro.........

 

[dbr]

quote:Originally posted by esselotto

quote:Originally posted by dbr



Comunque adesso ho capito. Tu stai cercando uno script, che ti faccia il random
di numeri che tu inserisci.

tieni d'occhio questo post. Dammi il tempo di e invio lo script richiesto.

esselotto

Ciao esselotto
mi chiedevo se è possibile far fare allo script che ti ha richiesto Alien un determinato numero di volte a nostra scelta il random del sistema da noi impostato e verificarne la resa con l'archivio estrazioni x determinarne il minimo (sistema d'attesa) e il
massimo (sistema resa immediata)rendimento
spero essere stato chiaro .
per eventuali chiarimenti sempre a disposizione
grazie -dbr-

ciao DBR
ho spedito adesso lo script richiesto da Alien

ma non ho capito. verificarne la resa ????????

Non so come vuoi verificare, la resa con un Sistema Random.(Letteralmente tradotto CASUALE)




esselotto


[/quote]


Ciao esselotto
hai ragione pensavo si potesse sviluppare un sistema con i numeri scelti ma provabilmente il tutto viene troppo complicato
grazie lo stesso
PS lo script funziona perfettamente
-dbr-

 

[Alien.]

quote:Originally posted by esselotto


'S U P E R E N A L O T T O E 10 E LOTTO R A N D O M
'CON NUMERI PERSONALI CAMBIANDOLI DALLO SCRIPT
prelevare solo parte colorata blu




ColoreTesto 1
Scrivi Space(20)& String(40,"*"),1
ColoreTesto 2
Scrivi Space (20)&"S U P E R E N A L O T T O E 10 e LOTTO R A N D O M ",1
Scrivi Space (20)&"CON NUMERI PERSONALI ",1
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per Alien su LottoCed ",1
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=")
Scrivi


Sub main()
Dim n(90)
Dim nx(90)

Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",3))
gi=CInt(InputBox ("Dove vuoi Giocare? 1 per Superenalotto 2 per 10 e Lotto ?..","°°°esselotto°°°",1))
If cb=False Then Exit Sub
If gi= False Then Exit Sub

If gi > 2 Or gi <0 Then
MsgBox (" NUMERO "& gi &" NON VALIDO NON STIAMO GIOCANDO A TOMBOLA!!! INSERIRE 1 OPPURE 2 ....")
Scrivi "TENTATIVO DI GIOCATA FALLITO",1
Exit Sub
End If


If gi=1 Then Scrivi "COMBINAZIONI PER SUPERENALOTTO",1 :Scrivi
If gi=2 Then Scrivi "COMBINAZIONI PER 10 E LOTTO",1:Scrivi
ColoreTesto 0




For cbcombo= 1 To cb
n(1)=12
n(2)=15
n(3)=34
n(4)=56
n(5)=21
n(6)=90
n(7)=34
n(8)=47
n(9)=88
n(10)=25
n(11)=36
n(12)=27
n(13)=31
n(14)=76
n(15)=55
n(16)=57

''' <--- Per Aggiungere altri numeri continuare qui
hh=0:ss=0
Do Until ss = 90 'ctrl lunghezza array
ss=ss+1
If n(ss)>0 Then hh=hh+1
Loop


i = hh
Do While i > 0
t = Int(i * Rnd + 1) ' estrae il valore dall' array
nx(i)= n(t) ' attribuisce il valore nell'array nx(t)
If t <> i Then
n(t) = n(i) ' scambio l'ultimo
End If
i = i - 1 ' non considero ultimo
Loop
If gi=1 Then
Scrivi Format2 (nx(1))&" . "& Format2 (nx(2))&" . "& Format2 (nx(3))&_
" . "& Format2 (nx(4))&" . "& Format2 (nx(5))&" . "& Format2 (nx(6))&" "&_
Format2 (nx(7))& " "& Format2 (nx(8)),1
End If
If gi=2 Then
Scrivi Format2 (nx(1))&" . "& Format2 (nx(2))&" . "& Format2 (nx(3))&_
" . "& Format2 (nx(4))&" . "& Format2 (nx(5))&" . "& Format2 (nx(6))&" . "&_
Format2 (nx(7))& " . "& Format2 (nx(8))& " . "& Format2 (nx(9))& " . "& Format2 (nx(10)),1
End If


Next

ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

ColoreTesto 1
Scrivi "°°°esselotto°°°",1

End Sub

HELP non mi funziona lo script:

dice::
previsto fine istruzione errore script
1025 previsto fine istruzione
linea:92
colonna: 26
source errore di compilazione microsoft:

e mo che faccio!!

 

[esselotto]

CIAO ALIEN
HAI PROVATO A RICOPIARE LO SCRIPT SOLO LA SCRITTA blu
e riprovare?

Oppure hai agguinto qualcosa di sbagliato?

Ho provato io su Spaziometria e non dà errori.

ciao esse

 

[Alien.]

quote:Originally posted by esselotto


CIAO ALIEN
HAI PROVATO A RICOPIARE LO SCRIPT SOLO LA SCRITTA blu
e riprovare?

Oppure hai agguinto qualcosa di sbagliato?

Ho provato io su Spaziometria e non dà errori.

ciao esse


SORRY HAI RAGIONE TUTTO OK,essendo a digiuno ramadam(ramdom)avevo lasciato le scritte che compaiono quando si apre lo script