'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 19.11.2017 * '* Version : 1.0 * '* Notes : doesn´t work ,just shows "HELLO WORLD" * '* : * '**************************************************************** '* Notes : 16F88 LCD 2x8 connected as ususal * '* : Portb.0 for Serin '************************************************* *************** CMCON = 7 ' Disable analog comparator ANSEL = %00000000 ' set all to digital Include "modedefs.bas" adval1 VAR BYTE TRISA = 0 ' PORT A is output TRISB = %00000001 ' RB0 Input others output CMCON = 7 ' Disable analog comparator PAUSE 500 ' lcd settle time LCDOUT $FE, 1 LCDOUT $FE, 2, "HELLO" LCDOUT $FE, $C0, "WORLD" pause 3000 LOOP: SERIN PORTB.0,5,[adval1] Lcdout $fe, 2,"Val:",dec3 adval1 ' Clear the LCD and show result Goto LOOP End