Etepic

Device 16F88
@CONFIG_REQ
@__CONFIG _CONFIG1, DEBUG_OFF & CPD_ON & LVP_OFF & BODEN_OFF & MCLR_OFF & WDT_OFF & CP_ALL & HS_OSC 
@__CONFIG _CONFIG2, IESO_OFF & FCMEN_OFF

Xtal = 20

TRISB=%11100000
TRISA=%00001011
 
OPTION_REG.7=1               ;PULL UP DİRENCLER İPTAL
ADCON1=%10000000             ;ANALOG DEĞER 10 BİT ,  
ADCON0=%00001001             ;FOSC/32 , ANALOG KANAL 2
ANSEL=%00000011              ; AN0 VE AN1 ANALOG DİĞERLERİ DİJİTAL İNPUT
CMCON=7 
 
Declare Adin_Res = 10 ' 10-bit result required
Declare Adin_Tad = FRC ' RC OSC chosen
Declare Adin_Stime = 50 ' Allow 50us sample time

Declare CCP1_Pin PORTB.0


PORTA=0
PORTB=0

Dim adcvalue As Word
Dim dacvalue As Byte
Dim keypad As Byte
Dim veri1 As Byte
Dim veri2 As Byte
Dim veri3 As Byte
Dim sayi As Byte
Dim x As Byte

Dim deger As Float
Dim akim As Word
Dim oran As Word

Dim giris As Word
Dim cikis As Float  
Dim x1 As Float
Dim x2 As Float
Dim y1 As Float
Dim y2 As Float

Dim i As Byte
Dim say As Byte
Dim toplam As Word
Dim sonuc As Word
Dim ham As Word




Symbol dataout = PORTB.1
Symbol clkout  = PORTB.2
Symbol stbout  = PORTB.3

Symbol menu = PORTB.7
Symbol artir = PORTB.6
Symbol azalt = PORTB.5




anamenu:


 
toplam=0
 
 For i=0 To 19
  ADCIN 0,ham
  toplam=TOPLAM+HAM
  DelayUS 100
Next
ham=toplam/20

 ham=Abs(HAM-511)

  akim=ham

'HPWM 0,dacvalue,20000

GoSub ekran_amp


GoTo anamenu

ekran_amp:

x = Dig akim,0
GoSub AL
veri1 = sayi

x= Dig akim,1
GoSub AL
veri2 = sayi

x= Dig akim,2
GoSub AL
veri3 = sayi

 GoSub ekranyaz
Return

ekranyaz:

SHOut dataout,clkout,1,[veri3,veri2,veri1]
stbout=1
DelayMS 10
stbout=0

Return



AL: sayi = LookUp x,[231,129,214,211,177,115,55,193,247,241,118,54] :Return