Public Sub Suona(nomeWav As String)
Dim err, channel As Integer
 Dim audio_rate As Integer = 44100   ' Imposta la frequenza che verrà usata da "SDL_mixer"
 Dim audio_buffers As Short = 4096   ' Determina la quantità di blocchi di memoria utilizzati per incamerare ed eseguire i campioni audio
 Dim fl, psound As Pointer

' Inizializza il dispositivo SDL audio:
   err = SDL_Init(SDL_INIT_AUDIO)
   If err < 0 Then Error.Raise("Impossibile inizializzare la libreria SDL: " & SDL_GetError())

' Inizializza la libreria "SDL_mixer" con specifiche impoostazioni audio:
   err = Mix_OpenAudio(audio_rate, AUDIO_S16SYS, STEREO, audio_buffers)
   If err <> 0 Then Error.Raise("Impossibile inizializzare l'audio: " & Mix_GetError())
   
' Carica il file WAV:
   fl = SDL_RWFromFile(VP.AppPath & "suoni/" & nomeWav, "rb")
   If fl = 0 Then Error.Raise("Errore nel caricamento del file !")

   psound = Mix_LoadWAV_RW(fl, 1)

' Esegue il file WAV caricato, ed intercetta il canale sul quale viene eseguito.
' Passando il valore -1 al primo argomento della funzione, il campione audio sarà eseguito sul primo canale audio disponibile:
   channel = Mix_PlayChannelTimed(-1, psound, 0, 0)
   If channel = -1 Then Error.Raise("Impossibile eseguire il file WAV: " & Mix_GetError())

' Attende che sia terminato il file WAV:
   While Mix_Playing(channel) <> 0
     Wait 0.01
   Wend

' Libera la memoria precedentemente allocata per l'esecuzione sonora:
   Mix_FreeChunk(psound)
 
' Chiude l'interfaccia audio SDL e SDL_mixer:
   Mix_CloseAudio()
 
   SDL_Quit()
  End Sub

Public Sub Button1_Click()
'------------------------------->correzione file csv

Dim pFile, tmp, prima, seconda, terza As String
Dim partial As String[]
Dim Fil As File
partial = New String[]
pFile = vp.AppPath & "DB/merce.csv"
Fil = Open pFile For Read
    While Not Eof(Fil)
      
    Line Input #Fil, tmp
    If Len(tmp) > 1 Then
      partial = Split(tmp, ";")                                                       'il carattere ; suddivide i campi nel file csv
      If Len(partial[0]) > 1 Then
        prima = Conv(partial[0], "WINDOWS-1253", "UTF-8")   'corrisponde a campo NOME  
      Endif
      If Len(partial[1]) > 1 Then
        seconda = Conv(partial[1], "WINDOWS-1253", "UTF-8") '    "               CODICE    
      Endif
      If Len(partial[2]) > 1 Then
        terza = Conv(partial[2], "WINDOWS-1253", "UTF-8")   '    "               DITTA  
      Endif

      $Con.Begin
      res = $Con.Create("prova")
      If res.Available Then
        res!nome = prima
        res!codice = seconda
        res!ditta = terza
        res.Update
      Endif
      $Con.Commit 
    Endif
    Wend
    Fil.Close
Catch
  $Con.Rollback
  Message.Error(Error.Text)   
End