visual basic

Visual Basic

Sub canal mas-click
If
val(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 then
Nrocanal.caption=val(nrocanal.caption)-1

Else
Nro canal.caption=13
End if
End sub

Sub bot tv catv.click
If tv catv.caption=”tv”then
Tvg catv.caption=”catv”
Else

Tvcatv.caption=”tv”
End if
End sub

Sub enter-click
If val(canal aux.caption)>13then
Canal aux.caption=””
Else

Nrocanal.caption=canal aux.caption
Canal aux.caption=””
End if
End sub