22/11 14:43
nightwolf
buongiorno a tutti, sto continuando con il mio progetto, ho ampliato il mio progetto aggiungendo un vumeter x l audio, la stazione radio e la possibilità di vedere i video, adesso ho aggiunto il collegamento con arduino e più precisamento il controllo del volume con un potenziometro, il tutto funziona ma non so perchè la tackbar del volume se uso arduino si attiva e disattiva in modo irregolare,
mi spiego meglio, la trackbar del volume è attivata attraverso 2 timer, uno x visualizzarla e uno x nasconderla, e se uso i button + e - non ci sono problemi, ma quando attivo arduino i timer si attivano e disattivano in modo irregolare, questo è dovuto dal potenziometro?
posto i vari codice
questo invece è il codice quando faccio la comunicazione seriale
mi spiego meglio, la trackbar del volume è attivata attraverso 2 timer, uno x visualizzarla e uno x nasconderla, e se uso i button + e - non ci sono problemi, ma quando attivo arduino i timer si attivano e disattivano in modo irregolare, questo è dovuto dal potenziometro?
posto i vari codice
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click trc_volume.Value += 2 AxWindowsMediaPlayer1.settings.volume = trc_volume.Value lb_volume.Text = trc_volume.Value.ToString + "%" Timer3.Start() End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click trc_volume.Value -= 2 AxWindowsMediaPlayer1.settings.volume = trc_volume.Value lb_volume.Text = trc_volume.Value.ToString + "%" Timer3.Start() End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick Label1.Visible = True trc_volume.Visible = True lb_volume.Visible = True Timer4.Start() End Sub Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick Timer3.Stop() Label1.Visible = False trc_volume.Visible = False lb_volume.Visible = False End Sub
questo invece è il codice quando faccio la comunicazione seriale
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Try Dim i As Single = SerialPort1.ReadExisting media_pleyer.lb_volume.Text = i.ToString + "%" media_pleyer.trc_volume.Value = i.ToString media_pleyer.Timer3.Start() media_pleyer.AxWindowsMediaPlayer1.settings.volume = media_pleyer.trc_volume.Value Catch ex As Exception End Try End Sub
aaa