'------------------------------------------------------------
'Programın adı: Uyg_11_3.bas
'Programın işlevi: PortB.0'a bağlı potansiyometre değerini 
'okuyup LCD ekranda gösterir.
'Tarih:22/08/2007	Uyarlama:1.00		Derleyici:PBP
'------------------------------------------------------------
INCLUDE "LCD_tanim.bas"

	X	var	byte
	Pause	100								' LCD'nin açılmasını bekle
Anadongu: 
	Pot PORTB.6, 127, x				' Pot değerini x'e yaz.
	Lcdout $fe, 1, "pot=", #x		' x değerini LCD'ye yaz
	Pause   100								' İşlemi 10 sn de 1 defa yap.
	Goto    Anadongu						' İşlemi sürekli yap

	End
'------------------------------------------------------------