Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - VB.NET (slot machine altro problema strano )
Forum - C# / VB.NET - VB.NET (slot machine altro problema strano )

Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 8:21
Mercoledì, 23/03/2011
rieccomi dinuovo con una domanda di aiuto a capire il perchè di questo difetto, ho inserito un file audio dentro la cartella bin\debug dove verrà trovato l'eseguibile ed ho inserito il codice: my.computer.audio.play("DRIP.wav) in 2 pulsanti con la funzione di bet + e bet - che si occuperanno di puntare più crediti nella giocata, ed il file audio per creare l'effetto di pressione dei pulsanti, ora ....questi se vado a creare l'eseguibile, tutto funziona come previsto, ma se lo voglio testare in fase di debug e premo quei pulsanti, mi va in errore dicendomi di verificare che nel percorso sia presente un file audio indicandomi per errore il file audio che ho inserito, come mai da eseguibile questo funziona bene? e possibile capire come fare a farlo funzionare anche in fase di debug? spero che mi aiutate, vi posto un pezzettino di codice incriminato
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.         My.Computer.Audio.Play("DRIP.wav")
  3.         If TextBox2.Text < "1" Then
  4.             MsgBox("CREDITO INSUFFICIENTE", MsgBoxStyle.Information, "AVVISO")
  5.             Exit Sub
  6.         Else
  7.             Button2.Enabled = True
  8.             TextBox2.Text = Val(TextBox2.Text) - 1
  9.             TextBox3.Text = Val(TextBox3.Text) + 1
  10.         End If
  11.     End Sub
  12.  
  13.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  14.         My.Computer.Audio.Play("DRIP.wav")
  15.         If TextBox3.Text < "1" Then
  16.             MsgBox("BET INSUFFICIENTE", MsgBoxStyle.Information, "AVVISO")
  17.             Exit Sub
  18.         Else
  19.             TextBox2.Text = Val(TextBox2.Text) + 1
  20.             TextBox3.Text = Val(TextBox3.Text) - 1
  21.         End If
  22.     End Sub



filippo
PM Quote
Avatar
Thejuster (Member)
Guru^2


Messaggi: 1704
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 10:13
Mercoledì, 23/03/2011
Usa Application.StartupPath & "\Audio.wav"

chiamare un file audio senza un percorso relativo può causare diversi problemi.
usa sempre una path relativa.


PM Quote
Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 23:46
Mercoledì, 23/03/2011
adesso provo, scusa se ho risposto in ritardo, ma sono tornato adesso a casa dopo 400 km di strada per lavoro.
ti farò sapere.


filippo
PM Quote
Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 0:09
Giovedì, 24/03/2011
nulla, non va lo stesso, non riesco a capire, o provato anche a cambiare file audio ma nulla,
magari ho sbagliato io a scrivere?
qui sotto il pezzettino di codice
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2.         My.Computer.Audio.Play(Application.StartupPath & "suono4.wav")
  3.         If TextBox3.Text < "1" Then
  4.             MsgBox("BET INSUFFICIENTE", MsgBoxStyle.Information, "AVVISO")
  5.             Exit Sub
  6.         Else
  7.             TextBox2.Text = Val(TextBox2.Text) + 1
  8.             TextBox3.Text = Val(TextBox3.Text) - 1
  9.         End If



filippo
PM Quote
Avatar
drew (Normal User)
Newbie


Messaggi: 13
Iscritto: 22/03/2011

Segnala al moderatore
Postato alle 17:07
Giovedì, 24/03/2011
Application.StartupPath & "suono4.wav" = "directorysuono4.wav", non dimenticarti "/".

PM Quote
Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 16:53
Sabato, 26/03/2011
non capisco drew cosa intendi per non dimenticarti "/", puoi essere più chiaro? io ho provato in questo modo e non va.
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.         My.Computer.Audio.Play(Application.StartupPath & "suono4.wav" = "directorysuono4.wav""/")
  3.         If TextBox2.Text < "1" Then
  4.             MsgBox("CREDITO INSUFFICIENTE", MsgBoxStyle.Information, "AVVISO")
  5.             Exit Sub
  6.         Else
  7.             Button2.Enabled = True
  8.             TextBox2.Text = Val(TextBox2.Text) - 1
  9.             TextBox3.Text = Val(TextBox3.Text) + 1
  10.         End If
  11.     End Sub



filippo
PM Quote
Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 14:16
Domenica, 27/03/2011
qualcuno mi sa spiegare perchè si e messo a funzionare appena ho copiato tutto il codice sorgente su un nuovo form con i rispettivi pulsanti immagini, suoni etc..?
forse perchè da ufficio avevo lavorato al progetto con visual studio 2010 mentre da casa ci lavoro col visual studio 2008?  comunque non mi ha mai dato nessun tipo di avviso magari di conversione o incompatibilità tra i due software, quindi non so spiegarmi ancora il perchè.


filippo
PM Quote
Avatar
Thejuster (Member)
Guru^2


Messaggi: 1704
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 1:18
Lunedì, 28/03/2011
il perchè ti è stato già detto :)

problemi con i percorsi relativi.
magari boh non saprei qualche strano errore nell'apertuta, oppure semplicemente il file veniva compilato in relase mentre tu lanciavi quello nella cartella debug.

poi ricopiando tutto in un nuovo progetto il percorso e cambiato e di conseguenza ha svolto il suo normale lavoro


PM Quote