İlk aklıma gelen şu oldu:
;___________________________
define adc_bits 8 'adc 8 bit
define adc_clock 3 'clock kaynaĞi
define adc_sampleus 50 'Örnekleme zamani 50us
trisa=%00000001 'a portunun a0 ucu gİrİŞ
trisb=0 'b portu ÇikiŞ
porta=0 'a portunun İlk deĞerİ 0
portb=0 'b portunun İlk deĞerİ 0
adcon1=%0001000 '8 bit değişken tipi seçtik kullanacağımız değer 8 bit
temp var byte
adc_eski var byte
adc_yeni var byte
basla:
gosub olcum
adc_eski=temp
gosub olcum
adc_yeni = temp
if adc_yeni > adc_eski then basla ;sİnÜs hala yÜkselİyor
portb.0=1 ;sİnÜs dÜŞmeye baŞlar baŞlamaz buradan devam eder
;________________________________________________
olcum:
adcin 0, temp ; oku ve temp değişkenine aktar.
return
end