RDVV Versi 3,2MHz, 1x16LCD
Kita mulai dari header file...
Aslinya :
Device = 16F628a 'Seri IC PICnya
XTAL = 4 'Frekuensi XTALL PIC
Config XT_OSC , WDT_OFF , PWRTE_OFF ,MCLRE_ON , BOdEN_ON , LVP_OFF , CP_OFF 'KONFIG PIC
Kalo di GCBASIC mustinuya begini:
---------------------------------------------------
#chip 16F628a,4 'seri,speed
#Config XT_OSC , WDT_OFF , PWRTE_OFF ,MCLRE_ON , BOdEN_ON , LVP_OFF , CP_OFF 'config
----------------------------------------------------
Aslinya:
---------------------------------------------------------------------
Declare I2C_SCLOUT On 'deklarasi komunikasi via I2C
'---------------------------LCD--------------------------------
LCD_DTPIN = PORTB.0
LCD_RSPIN = PORTB.4
LCD_ENPIN = PORTA.3
LCD_INTERFACE = 4 ' 4-bit Interface
LCD_LINES = 2
LCD_TYPE = 0
'---------------------------Adresler----------------------------
Dim FREKANS_step As Word 'Frekans Onda say