SUPERENALOTTO RANDOM

Roby · 10 Novembre 2010

Superenalotto random

letteralmente tradotto Superenalotto casuale

Spiego un pochino il commando randomize timer..
Per poter estrare dei numeri casuali, bisogna usare il comando randomize
il codice più semplice, da usare e questo.

Codice:

Sub main()
Randomize
Ran = ((90) * Rnd) 
Scrivi ran
End Sub

ma ad ogni avvio del programma il codice mi estrae dei numeri casuali compresi tra 0 e 90
non interi
tipo 27,3456767
o 34,9809890
oppure 67 (numero intero)

esselotto · 10 Novembre 2010

per questo problema nella riga di commando
Ran = ((90) * Rnd)
dovremo aggiungere il commando
Int --------- restituiscimi solo la parte intera del numero (senza virgola)
quindi modificando il codice sopra avremo.

Codice:

Sub main()
Randomize
Ran = int((90) * Rnd) 
Scrivi ran
End Sub

avviando avremo solo numeri interi da 0 a 90
23 45 67 0 senza virgola

esselotto · 10 Novembre 2010

Per poterlo applicare al gioco del Lotto, bisogna che questo prelevi solo numeri
compresi tra 1 e 90 quindi lo 0 non serve.
quindi rimodifichiamo, estrae 1 numero casuale, ad ogni avvio, compreso tra 1 e 90

Codice:

Sub main()
Randomize
Ran = Int((90 - 1 + 1) * Rnd) + 1

Scrivi "Numero Casuale ---> " & Format2 (Ran)
End Sub

esselotto · 10 Novembre 2010

Dopo questa piccola spiegazione (passo a passo) sul commando Randomize
passiamo allo Script Finale.

Nello script sopra abbiamo estratto un solo numero casuale
in quello seguente, estraeremo 6 numeri più jolly e Super Star
e Nessun numero è ripetuto.

SUPERENALOTTO RANDOM

Codice:

Sub main()


Scrivi Space(20)& String(40,"*"),1
Scrivi Space (20)&"S U P E R E N A L O T T O  RANDOM",1 
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 


Dim n(8)
Dim X  
Dim xx 
Randomize
For X = 1 To 90
  xx = False
    For s= 1 To 8
    n(s)= Int(Rnd() * 90 + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
    Next
    Next 
 
If Not xx Then
Exit For
End If
Next 
Scrivi "^^^^^^^^^   Superenalotto   ^^^^^^^^^^^^",1
Scrivi 
Scrivi "* * * * * *  "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))& "  * * * * * * ",1   
ColoreTesto 2
Scrivi "Nr. Jolly  "& Format2 (n(7)),1
ColoreTesto 3 
Scrivi "Super Star "& Format2 (n(8)),1 
ColoreTesto 0
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
End Sub

esselotto · 10 Novembre 2010

il commando Randomize, all'apparenza sembra di facile applicazione,
ma in vb ha difficoltà media.

Spero di aver fatto cosa gradita,anche se non è un metodo di ciclometria o spaziometria o lottometria
Ringrazio in anticipo, tutti quelli che apprezzano i miei piccoli e semplici codici (script)

esselotto

Il raggio dell'onda riflesso incidente il raggio riflesso e la normale alla superficie
di riflessione apparterngono allo stesso piano.
°°°esselotto°°°

Roby · 10 Novembre 2010

ciao esselotto

grazie per lo script

ma con il randomize

che % di successi o punti presi hai?

solo per avere un'idea.
è un discorso di validità a colpo o per x estrazioni?

LuigiB · 10 Novembre 2010

Buona idea quella deelle pillole di script.
Stavo pensando che forse potrei implementare in spaziometria la gestione dei moduli un po' come avviene in vb (esse mi capisce) cioè dei moduli che contengono funzioni generiche scritte in spazioscript e che possono essere riutilizzate senza bisogno ne di fare copia incolla ne di riscriverle ogni volta ...

pico2005 · 10 Novembre 2010

Se mi posso permettere......Ottima idea, penso valga la pena coltivarla e svilupparla, creando un ambiente apposito per lo sviluppo, ......e quale miglior officina di idee di Spazioscript?

esselotto · 10 Novembre 2010

quote:Originally posted by rubino

ciao esselotto

grazie per lo script

ma con il randomize

che % di successi o punti presi hai?

solo per avere un'idea.
è un discorso di validità a colpo o per x estrazioni?

La percentuale della persona, che vuole giocare una schedina superenalotto.
Cosa gioco oggi? (gioco o non gioco?). un po , come il Gratta e vinci...

Lo script è come dice giustamente Luigi
pillole di script.

Serve per chi inizia a programmare script, a capire il meccanismo della programmazione
applicata al gioco del Lotto.

Comunque vi ringrazio nuovamente rubino, Luigi e pico2005.

esselotto

Alien. · 17 Novembre 2010

Perfetto esselotto diciassiamo allo Script Finale.
Ecco dove scrivo lo script? con excel? o il programma di Luigi.
Grazie.Volendo si possono mettere i numeri che voglio io es:45 numeri o 24 ed il programma mi randomiza I numeri inseriti in sestine per superenalotto o decine per 10elotto......si può fare?

Alien. · 17 Novembre 2010

non si può fare?

esselotto · 21 Novembre 2010

Ciao Alien
il Super Enalotto che hai richiesto

E' Chiaro che per far girare gli script devi usare un' Editor di Script.

Quali
Spaziometria di LuigiB
l8 e ld e altri

esselotto · 21 Novembre 2010

Super Enalotto Random

1) con inputBox per visualizzare una Serie di combinazioni
2) e con Richiesta alla Venus. Quanti Numeri in Gioco

prelevare solo parte colorata

Codice:

Sub main()

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  RANDOM",1 
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 
Scrivi 

Scrivi "Combinazioni "& Space(20) &" N° Jolly  SuperStar "
ColoreTesto 0

Dim n(8)
Dim X  
Dim xx 
Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",12))
ng=CInt(InputBox ("Quanti Numeri dentro la Venus 90,45, 49,36 ?..","°°°esselotto°°°",90))
If ng=False Then Exit Sub
If cb= False Then Exit Sub
For Rndcombo=1 To cb 
For X = 1 To ng
  xx = False
    For s= 1 To 8
    n(s)= Int(Rnd() * ng + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
    Next
    Next 
 
If Not xx Then
Exit For
End If
Next 

Scrivi Format2 (Rndcombo) &" ) "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))&"     "&_
       Format2 (n(7))&  "      "& Format2 (n(8)),1 
Next 
ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

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

End Sub

esselotto · 21 Novembre 2010

10 e LOTTO RANDOM
sempre con input box dei numeri
e richiesta Venus

prelevare solo parte colorata

Codice:

Sub main()

ColoreTesto 1
Scrivi Space(20)& String(40,"*"),1
ColoreTesto 2
Scrivi Space (20)&"10 E  L O T T O  RANDOM",1 
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 
Scrivi 

Scrivi "   Combinazioni     "
ColoreTesto 0

Dim n(10)
Dim X  
Dim xx 
Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",12))
ng=CInt(InputBox ("Quanti Numeri dentro la Venus 90,45, 49,36 ?..","°°°esselotto°°°",90))
If ng=False Then Exit Sub
If cb= False Then Exit Sub
For Rndcombo=1 To cb 
For X = 1 To ng
  xx = False
    For s= 1 To 10
    n(s)= Int(Rnd() * ng + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
     Next
    Next 
 
If Not xx Then
Exit For
End If
Next 

Scrivi Format2 (Rndcombo) &" ) "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))&" . "& Format2 (n(7))&_
       " . "& Format2 (n(8))&" . "& Format2 (n(9))&" . "& Format2 (n(10)),1 
Next 
ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

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

End Sub

esselotto · 21 Novembre 2010

Risperando di aver fatto cosa gradita
vi saluto

esselotto

Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°

tom19 · 21 Novembre 2010

altro che' se e' gradita grazie esselotto

imported_n/a · 21 Novembre 2010

Bravo Esselotto, i tuoi lavori sono sempre graditi ed originali colgo l'occasione oltre che per manifestarti l'apprezzamento anche per un cordiale saluto.

Ciao
Mike58

esselotto · 21 Novembre 2010

scusatemi riprelevate i due scipt finali ho modificato.
La richiesta alla Venus non funzionava.

esselotto

esselotto · 21 Novembre 2010

bergie · 21 Novembre 2010

Grazie esselotto e bravo.

SUPERENALOTTO RANDOM

Roby

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Roby

Guest

LuigiB

Guest

Super Member >GOLD<

Advanced Member >GOLD<

Advanced Premium Member

Advanced Premium Member

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Senior Member

Advanced Premium Member

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<