Buangsentuhan / Malaybasic

BuangSentuhan

BuangSentuhan()

Kembali

Arahan ini tidak mengembalikan nilai.

Penerangan

Arahan ini memadam semua sentuhan yang dilaporkan dan menunggu sentuhan baru.

Contoh:

gerak=0
edge=LebarSkrin()
Fungsi GelungUtama()
     CuciSkrin
     jika gerak=1
          edge=edge-50
          jika edge<0 maka edge=0:gerak=0
     Dah
     jika gerak=-1
          edge=edge+50
          jika edge>LebarSkrin() maka edge=LebarSkrin():gerak=0
     Dah
     warna 255,0,0
     kotak edge-LebarSkrin(),0,LebarSkrin(),TinggiSkrin(),1
     warna 0,0,255
     kotak edge,0,LebarSkrin(),TinggiSkrin(),1
     warna 255,255,255
     tulis "PAN KIRI atau KANAN",20,20
     semak sentuhan()
     kalau 4
          tulis "PAN KIRI",20,40
          gerak=1
          BuangSentuhan()
     kalau 6
          tulis "PAN KANAN",20,40
          gerak=-1
          BuangSentuhan()
     dahsemak
Tamat

Lihat juga: sentuh , sentuhan