Newsgroup: it.comp.lang.visual-basic
Titolo: slot-machine

Sono riuscito a far caricare le immagini nelle 3 caselle image anche se non
in modo random (come si fa?)....
e come faccio ad associare ad ogni combinazione un punteggio visto che nella
text box non mi scrive niente?
Ah dimenticavo il punteggio parte da zero e si deve incrementare ad ogni
combinazione vincente e deve diminuire ad ogni combinazione casuale.

 text box non mi scrive niente?
    ti fai una matrice


     rnd
Visto che a te serve un numero intero (rnd rilascia un numero con la virgola 
compreso tra 0 e 1 [1 escluso]) devi usare int o round

 wrote:
[CUT]
Ecco un esempio. Se ti servono chiarimenti fatti sentire.
http://www.redangel.it/beta_zone/beta_zone.asp?parole=Slot
Andrea.

 ha scritto nel messaggio
news:3f0593c5...@powernews.libero.it...

Grazie per l' esempio....potresti mica indicarmi ,se lo conosci un sito o
qualcosa dove possa studiare un po' lo script per creare qualcosa di
simile....perchè io non riesco ancora a far caricare random e neanche ad
assegnare un punteggio alle combinazioni...

volevo chiedere cosa c'è di sbagliato in  questo script ?
Private Sub Timer1_Timer()
Randomize
numero = Dir(App.Path & "\(CInt((4 * Rnd) + 1).jpg", vbNormal)
Picture1.Picture = LoadPicture("App.Path &" + numero)
End Sub
Visto che non carica le immagini.... Quando faccio partire il programma mi
dice errore di run-time '13': tipo non corrispondente.
Io le ho salvate su disco nella cartella del progetto.Il nome di ogni
immagine è un numero da 1 a 4...
Dov'è che sbaglio?

 Dov'è che sbaglio?
se vuoi caricare i file numerici cmq io farei + semplicemente:
file  = vb.app.path & "\" & cstr((4 * Rnd) + 1) & ".jpg"
picture1.picture = loadpicture( file )
cmq studiati bene l'uso delle virgolette , se scrivi : ("App.Path &" +
numero) viene fuori una STRINGA tipo questa : "App.path &3.jpg"
se invece scrivi : (app.path & "\" & numero) viene fuori
"C:\programmi\4.jpg"
o2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 ha scritto nel messaggio
news:5SlOa.154507$Ny5.4...@twister2.libero.it...

se scrivo questo script:
Private Sub Timer6_Timer()
Timer3.Enabled = False
Timer6.Enabled = False
fino qua funziona poi :
val0 = Label2.Caption
val1 = Picture1.Picture
val2 = Picture2.Picture
val3 = Picture3.Picture
If (val1 = val2) And (val2 = val3) Then
    Label2.Caption = val0 + 5
     Else
    Label2.Caption = val0 - 1
    End If
Command1.Enabled = True
End Sub
mi dice che c'è un errore di owerflow.Come faccio?

 se scrivo questo script:
[strap]
Non siamo un help desk, almeno dimmi se i consigli di prima ti sono stati
utili !?!?!
un Grazie, un Vaffa ....
cmq per l'overflow , non e' che timer3 in qualche modo richiama timer6 ?
e poi chi e' che abilita timer6 ?
Guarda ti consiglio prima qualche buon libro come "Visual Basic for dummies"
poi qualcosa della linea rossa della mondadori mi pare e poi vai avanti da
solo !

 ha scritto nel
messaggio news:bee6rl$41iv6$1...@ID-174485.news.dfncis.de...

Lo so hai ragione ....cmq grazie si mi sono serviti i consigli che mi hai
dato.... ora le immagini si caricano random  e simulano la slot .....l'
unica cosa che non riesco a fare è l' assegnazione dei punti.

 .....l' unica cosa che non riesco a fare è l' assegnazione dei punti.
umm umm secondo me stai sbagliando un po il metodo... ripianifica tutto su
carta o a mente e poi, solo poi, quando hai tutto chiaro mettiti a schizzare
il progetto, fidati, ci metti moooooolto meno !
per esempio, dimmi come vorresti far assegnare i punteggi !

 ha scritto nel
messaggio news:bee938$2vmga$1...@ID-174485.news.dfncis.de...

Grazie e scusa se ti scasso ancora....oggi vado a comprare anche il libro
che mi hai consigliato.
Allora nella cartella ho salvato 20 immagini numerate da 1 a 20 : 9 con il
simbolo%; 6 con il simbolo 0;3 con il simbolo* e 2 con il simbolo @..Ho
fatto cosi per avere maggior probilità che esca una combinazione piuttosto
che un altra.
Ora che so vorrei fare che se esce *** allora il punteggio aumenta di 5. Se
invece esce @%0 (non necessariamente in questo ordine) il punteggio aumenta
di 2 .Se invece esce 00%(non necessariamente in questo ordine) il punteggio
aumenta di 1.Altrimenti il punteggio diminuisce di uno.....Questo è
tutto.Spero di essere stato abbastanza chiaro....

 se esce *** allora il punteggio aumenta di 5
'quindi se la stringa risultante la chiamiamo "Combinazione" allora :
If combinazione = "***" then  punteggio =  punteggio +1
poi qui "@%0" cos'e' che vale 2 ? un simbolo oppure tutta la combinazione ?
mettiamo che sia la combinazione allora che devi fare ? Devi controllare che
dentro "Combinazione" ci siano tutti e 3 i simboli quindi usi le funzioni
delle stringhe come Left$, Mid$ ,Right$, instr ecc..
oppure visto che sono solo 3 caratteri le combinazioni da testare sono sono
6:
@%0
@0%
%0@
%@0
0@%
0%@
quindi al limite per iniziare potresti creare 6 if  senza intrecciarti la
testa con le funzioni sulle stringhe e cosi via ...
quando e' tutto chiaro le traduci in codice !