FLOW CONTROL in VB

[ellemoo]

Hoe programmeer ik in VB probleempje in bijlage:

 

[marti901]

Je bijlage werkt niet

 

[dnties]

Je bijlage werkt niet

Bij mij wel. Hieronder wat er in staat:

Ik heb overigens geen antwoord op de vraag, maar anderen hopelijk wel.

Tijs.

 

[ReneDirks]

Zoiets?

if FirstCondition or not SecondCondition then
   FirstAction   
else
   if SecondAction then SecondAction
end if

 

[ellemoo]

Bij mij wel. Tijs.

Dank voor de omzetting.
Ton

 

[ellemoo]

Zoiets?

Omgeveer!


(SECOND = false)
Mijn bedoeling is, bij FIRST is true -> FIRST ACTION

Bij eerste FIRST = false -> FIRST ACTION

Pas bij tweede FIRST = false -> SECOND ACTION

 

[ReneDirks]

Dan klopt je flowchart niet helemaal

 

[ReneDirks]

Zoiets dan:

static iCcounter as integer =0

If Condition Or iCcounter = 0 Then
   FirstAction
   'if needed reset counter here (so that F-T-F doesn't trigger 2nd action)
End If
iCcounter = iCcounter + IIf(Condition, 0, 1)
If iCcounter = 2 Then
    SecondAction
    iCcounter = 0
End If

 

[ellemoo]

Dan klopt je flowchart niet helemaal

Dat zie ik dan even niet!

Maar hoe ga ik dat in VB oplossen?

 

[ReneDirks]

Wellicht zo?

Module test

static iCcounter as integer =0

Public Sub testje(myCondition as Boolean)
If myCondition Or iCcounter = 0 Then
   msgbox("FirstAction")
   'if needed reset counter here (so that F-T-F doesn't trigger 2nd action)
End If
iCcounter = iCcounter + IIf(Condition, 0, 1)
If iCcounter = 2 Then
    msgbox("SecondAction")
    iCcounter = 0
End If
end sub
End Module

 

[ellemoo]

Rene,

Dank voor je reactie.
Hier moet ik toch even op studeren, met name die llf(Condition, 0, 1).
Verder wist ik niet dat je een true of false kan orren met een integer.
Ik dacht niet dat mijn probleempje zo ingewikkeld was.

Ton