Device = 16F877
XTAL 20
'**********************************************************
ADCON1 = 7
define ic2_slow 1
DEFINE I2C_HOLD 1
Declare LCD_DTPIN PORTB.0
Declare LCD_ENPIN PORTB.5
Declare LCD_RSPIN PORTB.4
Declare LCD_INTERFACE 4
Declare LCD_LINES 2
Symbol SCL = PORTD.7
Symbol SDA = PORTD.6
Dim adress As Byte
adress=%10001000
PORTA=0
TRISA = %00010 'Set portA as o/p pin 1 i/p
TRISC = %11111111 'set ports as i/p
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"merhaba"
MAIN:
If PORTC = %00000001 Then GoSub ONE
GoTo MAIN
ONE:
I2COut SDA,SCL,%10001000,[%01011000]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"Volume=0"
DelayMS 3000
I2COut SDA,SCL,adress,[%10100000]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"RF =0"
DelayMS 3000
I2COut SDA,SCL,adress,[%01000000]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"ST1 Gain=18"
DelayMS 3000
I2COut SDA,SCL,adress,[%01100000]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"Bass -14"
DelayMS 3000
I2COut SDA,SCL,adress,[%01101111]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"Bass 0"
DelayMS 3000
I2COut SDA,SCL,adress,[%01101000]
DelayMS 100
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"Bass 14"
DelayMS 5000
Cls
Print $FE,1,"7318Test "
Print $FE,$C0,"bitti"
DelayMS 3000
Return
GoTo MAIN
End