Dilemma Visual basic
  • In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 8 di 8

Discussione: Dilemma Visual basic

Cambio titolo
  1. #1
    Arcimago arcano L'avatar di Icon
    Registrato il
    09-03
    Località
    Sardegna
    Messaggi
    1.242

    Dilemma Visual basic

    Salve.....ho un piccolo problema con visual basic. Se volessi fare un programma con 4 pulsanti, rispettivamente con questa funzione:
    pulsante1: Eseguire un file audio1
    pulsante2:eseguire un file audio2
    pulsante3:eseguire un file udio3
    pulsante 4: far partire un programma (come se fosse un collegamento)

    E' possibile? E se è possibile, come dovrebbe essere il codice dei pulsanti 1,2,3 e quello del 4 ?

  2. #2
    developing... L'avatar di Slimmy
    Registrato il
    07-03
    Località
    NSApplication
    Messaggi
    6.417
    Possibile dovrebbe esserlo!!!

    Il codice preciso non lo so perchè è un po' che non metto le mani su VB

  3. #3
    developing... L'avatar di Slimmy
    Registrato il
    07-03
    Località
    NSApplication
    Messaggi
    6.417
    per il pulsante 4 prova: Shell (Percorso, StileFinestra)
    Percorso = Percorso completo,
    StileFinestra= Normal, minimized, maximized con Focus o senza Focus
    esempio Shell "c:\Programmi\prova.exe", vbMaximizedFocus

    Per l'audio:
    bisogna usare il MS Multimedia Control

    Ora ti copio cosa ho scritto sul libro:
    Per riprodurre file audio (formato wave), si può impostare la seguente proprietà del controllo nell'evento FormLoad:
    Private Sub Form_load ()
    MMControl1.DeviceType = "waveAudio"
    End Sub
    Per far partire la riproduzione del brano:
    Private Sub Command1_click ()
    mmControl1.filename = "c:\.....\ding.wav"
    mmcontrol1.command ="open"
    End Sub
    per un file mp3 dobbiamo:

    mmcontrol1.Devicetype = "MPEGVideo"

  4. #4
    Arcimago arcano L'avatar di Icon
    Registrato il
    09-03
    Località
    Sardegna
    Messaggi
    1.242
    grazie mille Slimmy, ora provo, spero funzioni

  5. #5
    Arcimago arcano L'avatar di Icon
    Registrato il
    09-03
    Località
    Sardegna
    Messaggi
    1.242
    Purtroppo non va, mi da un errore nella linea MMControl1.DeviceType = "waveAudio"
    Mi scrive "object required"

  6. #6
    DoDdaro L'avatar di FRAgNCESCO
    Registrato il
    10-04
    Località
    Barletta
    Messaggi
    279
    Devi richiamare la winmm.dll

    Codice:
    Option explicit
    
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundNome as string, ByVal uFlags as long) as long
    
    Const SYNC = 1
    
    Private Sub cmd1_Click()
    dim iSuona as integer
    iSuona =  sndPlaySound(byval cstr("c:\......"), SYNC)
    end sub
    Dovrebbe essere così (preso dal mio manuale di VB5) Non testato

  7. #7
    Arcimago arcano L'avatar di Icon
    Registrato il
    09-03
    Località
    Sardegna
    Messaggi
    1.242
    Grazie mille FRAqNCESCO......funziona !!!!!

  8. #8
    DoDdaro L'avatar di FRAgNCESCO
    Registrato il
    10-04
    Località
    Barletta
    Messaggi
    279
    Citazione Icon
    Grazie mille FRAgNCESCO......funziona !!!!!
    de nada

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •