B4J Question Ignore SelectedChange True at first runtime cycle [SOLVED]

ThRuST · Jul 4, 2019

Since I am implementing sound themes to events, the sound is played automatically once the application runs - if SelectedChange is set to True.

Sound is played each time it is changed. Any clever advice how to prevent sound to play at first runtime cycle?

EDIT I've made an example that illustrates the problem.

Note that state.dat is saved to drive D:\ in v1.0

v1.0 is the first example that doesn't have any Bool checking.
v1.1 implements bool check but the sound does not play at first click (when state is Disabled)
v1.2 I finally nailed it, it works yay

Mashiane · Jul 4, 2019

B4X:

Process_Globals
Private bLoading As Boolean

B4X:

Sub Initialize
bLoading = True

blah blah blah
blah blah blah.

bLoading = False
End Sub

B4X:

Sub SelectChange
if bLoading = True then Return

#JustAthought

ThRuST · Jul 4, 2019

Ok I see your point, but I've allready a step ahead even though I didn't mention it initiallity

This is a mess, but you'll get the idea what I am trying to achieve. It works (almost) except that sound is never played the first time the button toggles from false to true, in that case the selection is turned off. So this makes it slightly more complicated, so I need to think about this some more. Perhaps a Boolean will be enough? The storestate is a boolean to save my confusion state

B4X:

Private StoreState1 As Boolean = Selected
   
If TempStopSound = 0 Then
        TempStopSound = TempStopSound + 1
        'restore state
        BtnFilterSQL.Selected = StoreState1
        Return
End If

'If BtnFilterSQL.Selected = False Then
        'TempStopSound = TempStopSound + 1
'        Return
'End If
   
    If TempStopSound >=1 Then
        TempStopSound = 1
   
            If Selected = True Then
                PlaySound.Filter_enabledSnd
       
                else if Selected = False Then
                    PlaySound.Filter_disabledSnd
           
   
            Log ("Tempstopsound main sub : " & TempStopSound)
   
        End If
       
    End If
   

    'SaveFilterSelection
    SQLite.SQLite_StoreSetting_SaveFilterSelection

Mashiane · Jul 4, 2019

Tip: I have learned the hard way never to set variable assignments in Process / Class Globals unless they are constants.

I will check this stuff out...

ThRuST · Jul 4, 2019

I'll put together a source code example to illustrate the problem. Here's the two sound files I generated in case you want to try it yourself.

And of course it uses a ToggleButton

ThRuST · Jul 4, 2019

Ok, I've made an example. SelectionChange v1.0 Drop it like it's hot

Oh and I almost forgot.. Switch to Enabled state and restart the program.
She's talking, when she shouldn't. Any programmer teach her a lesson ASAP

ThRuST · Jul 4, 2019

btw what values do you get from running the source code v1.0? Here's what I got (Release mode)

ThRuST · Jul 4, 2019

It's done, download v1.2 and behold the poetry in motion...

ThRuST · Jul 5, 2019

@Mashiane I have now successfully implemented the structure into my project Athena and it works as expected.

All together now : say YAY, say Hooh, Say YAY, Say Hooh

ThRuST · Jul 5, 2019

Advice for anyone who will use the SelectedChange solution in v1.2. My advice is to set ToggleButton.Tag = "Enabled" or "Disabled" directly after the selection value has been loaded. This way you can use a materialize icon on the button instead of depend on text. I learned this from a tutorial by Erel, and it works extremely well

Here's my own solution to this

SQLite

B4X:

Sub SQLite_LoadSetting_LoadFilterSelection
   
    Try
        Private Logic As Byte
        Dim ReadData As ResultSet = SQLiteSettings.ExecQuery("SELECT * FROM Settings where Id = 16")
        Logic = ReadData.GetString("Data")
       
        If Logic = 0 Then
            Main.BtnFilterSQL.Selected = False
            Main.BtnFilterSQL.Tag = "Disabled"
        End If
       
        If Logic = 1 Then
            Main.BtnFilterSQL.Selected = True
            Main.BtnFilterSQL.Tag = "Enabled"
        End If
       
    Catch
        Log(LastException)
    End Try
       
End Sub

B4J Question Ignore SelectedChange True at first runtime cycle [SOLVED]

ThRuST

Well-Known Member

Attachments

Mashiane

Expert

ThRuST

Well-Known Member

Mashiane

Expert

ThRuST

Well-Known Member

Attachments

ThRuST

Well-Known Member

ThRuST

Well-Known Member

ThRuST

Well-Known Member

ThRuST

Well-Known Member

ThRuST

Well-Known Member

Similar Threads

B4J Question Ignore SelectedChange True at first runtime cycle [SOLVED]

Well-Known Member

Attachments

Expert

Well-Known Member

Expert

Well-Known Member

Attachments

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency