请教下M8程序中1602如何修改驱动

benli · 发表于 2016-2-1 22:07

本帖最后由 benli 于 2016-2-1 23:04 编辑

原贴：【用M8制作电感、电容、电解电容测量仪表】：
http://www.amobbs.com/forum.php?mod=viewthread&tid=3279392

由于使用的1602是非标准的，LCD需要略加修改驱动程显示行地址，第一行0x80，0x90才能正常显示，可是找不到哪里修改

下面是程序

'****************************************************
'* 电感电容电解电容测量仪 *
'* 电容:1P-2.5uF *
'* 电感:1uH-2.0H *
'* 电解电容:0.1uF-20000uF *
'* 吕军省天津大港 *
'* junsheng427@126.com *
'* 20081217 *
'****************************************************
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Config Timer1 = Counter , Edge = Falling '配置T/C1为计数
Config Timer2 = Timer , Prescale = 64 '配置T/C2定时
Config Int0 = Falling
Config Timer0 = Timer , Prescale = 8
On Ovf0 Tim0_isr
On Int0 T1_isr
On Ovf2 Tim2_isr
Enable Ovf2
On Ovf1 Tim1_isr
Enable Ovf1
Enable Interrupts
Tcnt2 = &H83
Start Timer2
Counter1 = 0
Start Counter1
Dim F1 As Long
Dim F2 As Long
Dim C1 As Single
Dim Ca1 As Single
Dim Ca2 As Single
Dim Cx As Single
Dim L1 As Single
Dim Lx As Single
Dim F11 As Single
Dim V1 As String * 11
Dim V2 As String * 11
Dim Vf As String * 6
Dim Vs As String * 8
Dim Z1 As String * 2
Dim J As Bit
Dim I As Byte
Dim K As Bit
Dim M As Bit
Dim Vl As Byte
Dim Tc As Byte
Dim Tc1 As Long
Dim Te As Long
Ddrd.7 = 0 '键初始
Portd.7 = 1
Ddrd.4 = 1 '继电器初始化
Ddrd.3 = 1
Portd.4 = 1
Portd.3 = 1
Ddrd.6 = 1
Portd.6 = 1
J = 1
K = 1
M = 1
I = 1
Tc1 = 0
Cls
Cursor Off
'/////主程序/////
Do
'/////按键处理/////
If Pind.7 = 0 Then 'S1
Waitms 40
If Pind.7 = 0 Then
Incr I
Bitwait Pind.7 , Set
End If
End If
'/////电感L1，电容C1计算/////
If I = 1 Then
If J = 1 Then
Lcd " L_C_CE meter"
Lowerline
Lcd " 20081217"
Waitms 1500 '等待F1计数
Portd.3 = 0 '接入标准电容C2
Waitms 1500 '等待f2计数
Ca1 = F1 * F1
Ca2 = F2 * F2
C1 = Ca1 - Ca2
C1 = Ca2 / C1
C1 = C1 * 1800 '1800是标准电容C2 ；单位pF
L1 = 3.1416 * 3.1416
L1 = L1 * 4
L1 = L1 * Ca1
L1 = L1 * C1
L1 = 1 / L1
L1 = L1 * 1000000000000000000 '单位uH
Portd.3 = 1 '断开标准电容C2
End If
J = 0
Vf = Str(f1) '显示f1
Vf = Format(vf , " ")
Locate 1 , 7
Lcd "F=" ; Vf ; "Hz"
Locate 1 , 1
Lcd "SetOK "
V1 = Fusing(c1 , "#.#")
V2 = Fusing(l1 , "#.#")
Locate 2 , 1
Lcd V1 ; "pF " ; V2 ; "uH"
End If
'/////电容Cx计算/////
If I = 2 Then
Vf = Str(f1)
Vf = Format(vf , " ")
Locate 1 , 7
Lcd "F=" ; Vf ; "Hz"
F11 = F1 * F1
Cx = Ca1 / F11
Cx = Cx - 1
Cx = Cx * C1
V1 = Fusing(cx , "#.#")
Vl = Len(v1)
Z1 = "pF"
If Vl = 6 Then
V1 = Mid(v1 , 1 , 4)
Z1 = "pF"
End If
If Vl = 7 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "00.00")
Z1 = "nF"
End If
If Vl = 8 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "000.0")
Z1 = "nF"
End If
If Vl = 9 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "0.000")
Z1 = "uF"
End If
Vs = Space(8)
Locate 2 , 1
Lcd " Cx=" ; V1 ; Z1 ; Vs
Locate 1 , 1
Lcd "TestC "
End If
'/////电感Lx计算/////
If I = 3 Then
Vf = Str(f1)
Vf = Format(vf , " ")
If F1 < 50 Then
Vf = " 0"
End If
Locate 1 , 7
Lcd "F=" ; Vf ; "Hz"
Portd.4 = 0 '输入端切换到测电感
If F1 > 1000 Then
F11 = F1 * F1
Lx = Ca1 / F11
Lx = Lx - 1
Lx = Lx * L1
Else
Lx = 0
End If
V1 = Fusing(lx , "#.##")
Vl = Len(v1)
Z1 = "uH"
If Vl = 6 Then
V1 = Mid(v1 , 1 , 5)
Z1 = "uH"
End If
If Vl = 7 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "0.000")
Z1 = "mH"
End If
If Vl = 8 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "00.00")
Z1 = "mH"
End If
If Vl = 9 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "000.0")
Z1 = "mH"
End If
If Vl = 10 Then
V1 = Mid(v1 , 1 , 4)
V1 = Format(v1 , "0.000")
Z1 = "H "
End If
Vs = Space(8)
Locate 2 , 1
Lcd " Lx=" ; V1 ; Z1 ; Vs
Locate 1 , 1
Lcd "TestL "
End If
'/////电解电容器测量(<500uF) /////
If I = 4 Then
Portd.4 = 1
If K = 1 Then
Disable Ovf1
Disable Ovf2
Enable Int0
Enable Ovf0
Locate 1 , 1
Lcd "TestCE [<500uF]"
Locate 2 , 1
Lcd " CEx= "
End If
K = 0
Portd.6 = 0 '开始充电
Start Timer0 '开始计时
End If
'/////电解电容测量(2) /////
If I = 5 Then
If M = 1 Then
Portd.3 = 0
Locate 1 , 1
Lcd "TestCE [>500uF]"
Locate 2 , 1
Lcd " CEx= "
End If
M = 0
Portd.6 = 0 '开始充电
Start Timer0 '开始计时
End If
'/////返回到电容测量//////
If I = 6 Then
I = 2 '返回到电容测量
Enable Ovf1
Enable Ovf2
Disable Int0
Disable Ovf0
Portd.3 = 1
K = 1
M = 1
End If
Loop
End
'/////计数中断/////
Tim1_isr:
Incr Tc1 '这么作可使计数分辩率最高到1Hz
Return
'/////定时中断/////
Tim2_isr:
Tcnt2 = &H83 '定时器T2初值
Incr Tc
If Tc = 250 Then '定时250mS
Stop Counter1
Tc1 = Tc1 * 65535
If Portd.3 = 1 Then
F1 = Counter1
F1 = F1 + Tc1
F1 = F1 * 4
End If
If Portd.3 = 0 Then
F2 = Counter1
F2 = F2 + Tc1
F2 = F2 * 4
End If
Counter1 = 0
Start Counter1
Tc = 0
Tc1 = 0
End If
Return
'/////定时中断，测电解电容/////
Tim0_isr:
Incr Te '定时器0中断次数
Return
'/////外部中断，测电解电容/////
T1_isr:
Stop Timer0
Te = Te * 256
Te = Te + Tcnt0
Te = Te / 2 '时间/充电电阻=被测电容
V1 = Str(te)
Vl = Len(v1)
If Portd.3 = 1 Then '充电电阻R9接入，<500uF
If Vl = 2 Then
V1 = "NO"
End If
If Vl = 3 Then
V1 = Mid(v1 , 1 , 3)
V1 = Format(v1 , "0.000")
End If
If Vl = 4 Then
V1 = Mid(v1 , 1 , 3)
V1 = Format(v1 , "0.00")
End If
If Vl = 5 Then
V1 = Mid(v1 , 1 , 3)
V1 = Format(v1 , "0.0")
End If
If Vl = 6 Then
V1 = Mid(v1 , 1 , 3)
End If
If Vl = 7 Then
V1 = " OL "
End If
End If
If Portd.3 = 0 Then
If Vl = 2 Then
V1 = Mid(v1 , 1 , 2)
V1 = Format(v1 , "0.00")
End If
If Vl = 3 Then
V1 = Mid(v1 , 1 , 3)
V1 = Format(v1 , "0.00")
End If
If Vl = 4 Then
V1 = Mid(v1 , 1 , 2)
End If
If Vl = 5 Then
V1 = Mid(v1 , 1 , 3)
End If
If Vl = 6 Then
V1 = Mid(v1 , 1 , 4)
End If
If Vl = 7 Then
V1 = Mid(v1 , 1 , 5)
End If
End If
Vs = Space(7)
If Te > 1 And Te < 10 Then
Locate 2 , 1
Lcd " CEx=" ; "0" ; "uF" ; Vs
End If
If Te > 10 Then
Locate 2 , 1
Lcd " CEx=" ; V1 ; "uF" ; Vs
End If
Portd.6 = 1 '开始放电
If Portd.3 = 1 And Te > 10 Then
Waitms 100
End If
If Portd.3 = 0 And Te > 10 Then
Waitms 500
End If
Tcnt0 = 0 '定时计数器清零
Te = 0 '定时中断次数清零
Return

复制代码

桃之夭夭 · 发表于 2016-2-1 23:42

本帖最后由桃之夭夭于 2016-2-1 23:46 编辑

源程序没有显示部分的代码~自己找个1602的对照写一下~
许老师的电桥不比这个好？还有C的源码……

桃之夭夭 · 发表于 2016-2-1 23:50

本帖最后由桃之夭夭于 2016-2-1 23:51 编辑

         lcd1602写入字符串函数
------------------------------------------------*/
void LCD_Write_String(unsigned char x,unsigned char y,unsigned char *s) //x代表列，y代表行
{
      if (y == 1) //y==1代表显示在LCD1602第一行
               {
               LCD_Write_Com(0x80 + x);    //表示第一行
               }
      else                //否则就是第二行，就是必须y==2
               {
               LCD_Write_Com(0xC0 + x);    //表示第二行
               }
      while (*s)
               {
                     LCD_Write_Data( *s);    //写入字符
                     s ++;                            //指向下一个地址
               }
}

说的是这个里面的~可以参考C：
http://wenku.baidu.com/link?url= ... qrgMBLAIoZqR9c5gt2G

fujiachun · 发表于 2016-2-2 06:28

这个是BASIC AVR写的，基本函数在函数库里。

benli · 发表于 2016-2-2 08:04

桃之夭夭发表于 2016-2-1 23:42
源程序没有显示部分的代码~自己找个1602的对照写一下~
许老师的电桥不比这个好？还有C的源码……

这个硬件做好了，就是换个1602，

benli · 发表于 2016-2-2 08:07

桃之夭夭发表于 2016-2-1 23:42
源程序没有显示部分的代码~自己找个1602的对照写一下~
许老师的电桥不比这个好？还有C的源码……

这个硬件做好了，就是换个1602，

benli · 发表于 2016-2-2 08:09

fujiachun 发表于 2016-2-2 06:28
这个是BASIC AVR写的，基本函数在函数库里。

傅老师知道如何修改吗？

luckroll · 发表于 2016-2-2 08:27

建议楼主学C语言，嵌入式用bisic各种蛋疼

benli · 发表于 2016-2-2 09:27

luckroll 发表于 2016-2-2 08:27
建议楼主学C语言，嵌入式用bisic各种蛋疼

C程序还好解决，这个摸不到头脑

桃之夭夭 · 发表于 2016-2-2 12:12

benli 发表于 2016-2-2 08:07
这个硬件做好了，就是换个1602，

不是换个硬件……是作者没有给你这个源代码，只给你部分代码~

		自动登录	找回密码
密码			请使用微信账号登录和注册会员

[avr] 请教下M8程序中1602如何修改驱动