在示例12中，我在OOP中创建了LCD1602驱动程序，但在测试过程中发现它显示不正确。 研究很久没有解决了。 另外，我们发现OOP代码比非OOP代码长400字节以上。 对于单片机来说有点太多了。 还是放回非OPP吧。 电路图是同一个例子，代码如下。
//test液晶屏1602 notoop {//51单片机pascal语言示例//LCD1602刻写字符使用Turbo51编译器} program test液晶屏1602 notoop； uses液晶屏1602 notoop； begin LCD1602_Init； LCD1602_Clear； LCD1602_print1(2，' Hello First '； LCD1602_print2(3，' Good Two '； end.//LCD 1602 port def.incvarlcd 1602 _ RS : booleanabsolutep 0.4； LCD 1602 _ rw : booleanabsolutep 0.3； LCD 1602 _ en : booleanabsolutep 0.2； LCD 1602 _ data : byte absolute p2； //LCD1602NotOOP.PAS{ //51单片机pascal语言示例//LCD1602刻写字符使用Turbo51编译器}单元液晶屏1602 notoop； 接口类型str 16=string [ 16 ]； LCD1602_X=0.15； 产品级液晶屏1602 _ init； 产品级液晶屏1602 _ clear；//第1行显示procedure LCD 1602 _ print1(x : LCD 1602 _ x； AStr:STR16； 不能使用字符串。 否则无法编译。//在第2行显示procedure LCD 1602 _ print2(x 3360 LCD 1602 _ x； AStr:STR16； implementationconstlcd 1602 _ display _ mode _ 16x2=