紧急救命。。。想问coding问题。有谁会PicBasic Pro Progamming code 的？？？

gab102001

紧急救命。。。

有谁会PicBasic Pro Progamming code 的？？？
以下几楼是我和其他大大讨论的过程。我已采用了PIC大大提供的circuit , 但是我是用PicBasic Pro 来program 16F877A 的。。。。

以下是我的coding...但是却遇到了convert hex code 和binary code 的问题。。

' PicBasic Pro program to measure voltage (0-5VDC)
' and display on LCD with 2 decimal places. A
' 60 segment bargraph is also displayed using
' custom LCD characters.
'
' This program uses the */ operator to scale the
' ADC result from 0-1023 to 0-500.  The */ performs
' a divide by 256 automatically, allowing math which
' would normally exceed the limit of a word variable.
'
' Connect analog input to channel-0 (RA0)

' Define LCD registers and bits
DEFINE  LCD_DREG                PORTD
DEFINE  LCD_DBIT                4
DEFINE  LCD_RSREG                      PORTD
DEFINE  LCD_RSBIT               0
DEFINE  LCD_EREG                PORTD
DEFINE  LCD_EBIT                2
DEFINE        LCD_RWREG                PORTD
DEFINE        LCD_RWBIT                1
DEFINE        LCD_COMMANDUS                2000
DEFINE        LCD_DATAUS                50

' Define ADCIN parameters
DEFINE  ADC_BITS        10             ' Set number of bits in result
DEFINE  ADC_CLOCK       3             ' Set clock source (3=rc)
DEFINE  ADC_SAMPLEUS    50            ' Set sampling time in uS

' Declare variables
adval                  VAR WORD                        ' Create adval to store result

TRISA = %11111111                ' Set PORTA to all input
ADCON1 = %10000010                ' Set PORTA analog and right justify result
      
        Low PORTD.1                                ' LCD R/W line low (W)
        Pause 500                       ' Wait .5 second
        

loop:         ADCIN 0, adval                        ' Read channel 0 to adval (0-1023)

        adval = (adval */ 500)>>2        ' equates to: (adval * 500)/1024
        LCDOut $fe, 1           ' clear lcd sreen.
        LCDOut $FE,$C0          ' clear lcd screen.
        LCDOut $FE,1,"volt METER"
        LCDOut $FE,$C0,"volt=",DEC (adval/100),".", DEC2 adval,"uW"
' Display the decimal value
        Pause 100                                       ' Wait .1 second
        GoTo loop                                       ' Do it forever


End


________________________________________________________

adval = (adval */ 500)>>2        ' equates to: (adval * 500)/1024
LCDOut $FE,$C0,"volt=",DEC (adval/100),".", DEC2 adval,"uW"

就是这两行coding ，因为我要拿的result是必须要有5个decimal point 的 ，但是无论我如何改 ： 把“DEC2 adval”改成“DEC5 adval” ，又或者改advl=(adval*/500)>>5 都不行。。。有谁可以教教我？？？？？


各位大大帮帮忙啦！！！

[ 本帖最后由 gab102001 于 20-12-2006 12:24 AM 编辑 ]

pic

68HC11A8（48pin) 的output pin可以直接connect到lcd display 吗？？
lcd display 是 parallel input 的 16*2 character lcd display ...
(JHD162A series).....

如你的68HC11A8 和JHD162A 都是用5V的电源，那是可以直接连接LCD的。

我问过了好几个lecturer，有些说可以，有些说不可以。。。。

想知道你是在那里求学的？

gab102001

原帖由 pic 于 21-11-2006 06:43 PM 发表

如你的68HC11A8 和JHD162A 都是用5V的电源，那是可以直接连接LCD的。

想知道你是在那里求学的？

谢谢啦。。我试下看吧。。因为68HC11A8 好贵哦。。。我短路烧掉啊。。。
在拉曼啊。。。。有问题吗？？

[ 本帖最后由 gab102001 于 22-11-2006 09:31 AM 编辑 ]

coolpix5100

原帖由 gab102001 于 22-11-2006 09:30 AM 发表


谢谢啦。。我试下看吧。。因为68HC11A8 好贵哦。。。我短路烧掉啊。。。
在拉曼啊。。。。有问题吗？？

为何不用PIC？ 价钱便宜很多。 还有，要小心你的LCD DISPLAY很容易坏。我用的
LCD DISPLAY刚刚瓜了。

sgcheng

原帖由 gab102001 于 21-11-2006 11:03 AM 发表
紧急救命。。。
68HC11A8（48pin) 的output pin可以直接connect到lcd display 吗？？
lcd display 是 parallel input 的 16*2 character lcd display ...
(JHD162A series).....

还是需要什么特别的电路设 ...

可以啦，没问题。。。
只是比较难progam,pic就比较容易。。。

gab102001

用PIC真的比较容易吗？16F628行吗？？我要有analog to digital signal的function 的。。。因为我的inputsignal是detect light 的voltage，然后转换成
digital signal display power value 在 lcd 。。。。时间紧迫啊。。。帮帮忙！！如果有电路设计
（pic connect lcd ） 的话 ，通知我吧！！！！！

各位大大帮帮忙啦！！！

chan1314

拉曼什么系？
如果是 microelectronics , 就去找 Chan Fung lin

sgcheng

原帖由 gab102001 于 9-12-2006 11:25 AM 发表
用PIC真的比较容易吗？16F628行吗？？我要有analog to digital signal的function 的。。。因为我的inputsignal是detect light 的voltage，然后转换成
digital signal display power value 在 lcd 。。。。时间紧 ...

真的啦，只是instuction太过simple....analog to digital signal没问题，只要你的voltage不超过vcc就可以了。。。


“pic connect lcd “ direct connect to lcd can liao..if you 8 bit data you can use like porta or portb and plus two io port for  read and write port ...

[ 本帖最后由 sgcheng 于 9-12-2006 09:41 PM 编辑 ]

pic

原帖由 gab102001 于 9-12-2006 11:25 AM 发表
用PIC真的比较容易吗？16F628行吗？？我要有analog to digital signal的function 的。。。因为我的inputsignal是detect light 的voltage，然后转换成
digital signal display power value 在 lcd 。。。。时间紧 ...

时间紧迫? 呵呵。。。

16F628A没有ADC ，当然用测量RC充电时间，用内建comparator 可以简单测量光的变化，但我不建议初学者。
用16F877A， 采用C语言比较容易实现你要的功能。

LCD电路，用4bit mode, 接去PIC16F877A的PortD。
PortD.0-> RS
PortD.1-> RW
PortD.2-> E
PortD.3
PortD.4-> D4
PortD.5-> D5
PortD.6-> D6
PortD.7-> D7

用什么MCU， 什么语言，在说说你要怎样做吧。。。

sgcheng

原帖由 pic 于 10-12-2006 08:35 AM 发表

时间紧迫? 呵呵。。。

16F628A没有ADC ，当然用测量RC充电时间，用内建comparator 可以简单测量光的变化，但我不建议初学者。
用16F877A， 采用C语言比较容易实现你要的功能。

LCD电路，用4bit mode, 接 ...

采用C语言,need c language compliler, Do you have it?

gab102001

原帖由 pic 于 10-12-2006 08:35 AM 发表

时间紧迫? 呵呵。。。

用16F877A， 采用C语言比较容易实现你要的功能。

LCD电路，用4bit mode, 接去PIC16F877A的PortD。
PortD.0-> RS
PortD.1-> RW
PortD.2-> E
PortD.3
PortD.4-> D4
PortD.5-> D5
PortD.6-> D6
PortD.7-> D7

用什么MCU， 什么语言，在说说你要怎样做吧。。。

那么，请问pic大大。。我看过了PIC16F877A 的datasheet ，我真的只需要把analog input connect 到 port AN0 (只有一个analog input），然后按照你所说的（portD connection）就行了吗？？
为什么我看朋友用其他的PIC connect LCD 还需要做其他的port termination ？？我需要像他们这样做port termination吗？？？
如这里

http://home.iae.nl/users/pouweha/lcd/lcd2.shtml#PIC_lcd_init

figure 4.4.2 Interface 那样的接法呢？？？？
里头的coding又是否适合我用呢（是不是assembly code来的）？？？

我这几天都被HC11的assembly code弄得头都痛了。。。

[ 本帖最后由 gab102001 于 13-12-2006 12:53 AM 编辑 ]

pic

首先，不要喊救命， 只有你自己可以救自己。。。
我会帮你起个斗，其他的要自己努力，因为是你的功课。

很多网友，尤其是学生，问来问去都是RS232，ADC， LCD，Programmer, VB MSCOMM之类的，所以如有需要，以后我会办教学，但也要得到大家的支持，不然写了也是浪费心血。

以下是一切你需要的， 电路图，C 源码， C编译器。


电路图：


CCS C compiler 下载（ Free Demo， 16F877A，code limit 1K）

C 源码， 含LCD Driver。

1. #include <16F877A.h>
   
2. #device ADC=10
   
3. #fuses HS,NOWDT,NOPROTECT,NOLVP
   
4. #use delay(clock=20000000)
   
5. 
   
6. ///////////////////////////////////////////////////////////////////////////////
   
7. // LCD Driver
   
8. ///////////////////////////////////////////////////////////////////////////////
   
9. // As defined in the following structure the pin connection is as follows:
   
10. /*
    
11. LCD 16 X 2 line
    
12. PortD.0-> RS
    
13. PortD.1-> RW
    
14. PortD.2-> E
    
15. PortD.3
    
16. PortD.4-> D4
    
17. PortD.5-> D5
    
18. PortD.6-> D6
    
19. PortD.7-> D7
    
20. */
    
21. 
    
22. /////////////////////////////////////////////////////////////////
    
23. // LCD Driver
    
24. struct lcd_pin_map {                 // This structure is overlayed
    
25.            boolean rs;               // on to an I/O port to gain
    
26.            boolean rw;               // access to the LCD pins.
    
27.            boolean enable;           // The bits are allocated from
    
28.            boolean unused;           // low order up.  ENABLE will
    
29.            int     data : 4;         // be pin B0.
    
30.         } lcd;
    
31. 
    
32. #byte lcd = 0x08                 // on to port D (at address 0x08)
    
33. byte CONST LCD_INIT_STRING[4] = {0x28, 0xc, 1, 6};
    
34. 
    
35. 
    
36. void lcd_send_nibble( byte n )
    
37. {
    
38.       lcd.data = n;
    
39.       delay_cycles(1);
    
40.       lcd.enable = 1;
    
41.       delay_us(2);
    
42.       lcd.enable = 0;
    
43. }
    
44. 
    
45. 
    
46. void lcd_send_byte( byte address, byte n )
    
47. {
    
48.       lcd.rs = 0;
    
49.       delay_ms(5);
    
50.       lcd.rs = address;
    
51.       delay_cycles(1);
    
52.       lcd.rw = 0;
    
53.       delay_cycles(1);
    
54.       lcd.enable = 0;
    
55.       lcd_send_nibble(n >> 4);
    
56.       lcd_send_nibble(n & 0xf);
    
57. }
    
58. 
    
59. 
    
60. void lcd_init()
    
61. {
    
62.     byte i;
    
63. 
    
64.     set_tris_d(0);
    
65.     lcd.rs = 0;
    
66.     lcd.rw = 0;
    
67.     lcd.enable = 0;
    
68.     delay_ms(15);
    
69.     for(i=1;i<=3;++i) {
    
70.        lcd_send_nibble(3);
    
71.        delay_ms(5);
    
72.     }
    
73.     lcd_send_nibble(2);
    
74.     for(i=0;i<=3;++i)
    
75.     {
    
76.       lcd_send_byte(0,LCD_INIT_STRING);
    
77.     }
    
78. }
    
79. 
    
80. 
    
81. void lcd_gotoxy( byte x, byte y)
    
82. {
    
83.    byte address;
    
84. 
    
85.    if(y!=1)
    
86.      address=0x40;
    
87.    else
    
88.      address=0;
    
89.    address+=x-1;
    
90.    lcd_send_byte(0,0x80|address);
    
91. }
    
92. 
    
93. void lcd_putc( char c)
    
94. {
    
95.    switch (c) {
    
96.      case '\f'   : lcd_send_byte(0,1); //delay_ms(5);
    
97.                     break;
    
98.      case '\n'   : lcd_gotoxy(1,2);          break;
    
99.      default     : lcd_send_byte(1,c);       break;
    
100.    }
     
101. }
     
102. 
     
103. ///////////////////////////////////////////////////////////////////////////////
     
104. 
     
105. 
     
106. void main()
     
107. {
     
108.    long value;
     
109. 
     
110.    lcd_init();
     
111.    delay_ms(6);
     
112. 
     
113.    lcd_putc("\fLight Measure";
     
114.    lcd_putc("\nBy : PIC @ cArI";
     
115.    delay_ms(1000);
     
116.    setup_port_a( ALL_ANALOG );
     
117.    setup_adc( ADC_CLOCK_INTERNAL );
     
118.    set_adc_channel( 0 );
     
119. 
     
120.    while(TRUE)
     
121.    {
     
122.       value = Read_ADC();
     
123.       printf(lcd_putc,"\fReading: %lu ",value);
     
124.       delay_ms(500);
     
125.    }
     
126. }

复制代码

[ 本帖最后由 pic 于 11-2-2009 09:54 AM 编辑 ]

gab102001

原帖由 pic 于 13-12-2006 09:52 AM 发表
首先，不要喊救命， 只有你自己可以救自己。。。
我会帮你起个斗，其他的要自己努力，因为是你的功课。

很多网友，尤其是学生，问来问去都是RS232，ADC， LCD，Programmer, VB MSCOMM之类的，所以如有需要，以 ...

谢谢PIC大大。。。。这几天我都被68HC11的assembly code搞得头都痛了。。。而且hc11的circuit 又比pic的复杂得多了，一不小心拿出来program时，碰到其他的jumper又要一条一条的检查；coding已经够麻烦了，每次拿出来program hc11时还要再检查jumper。。。

不过，我真的好感谢pic 大大啊。。。老实的说。。。我和kevy是认识的啦。。。我们都是同一个course的同学来的。。

放心吧。。。我会介绍junior进来看看前辈们的问题咯。。。

gab102001

紧急救命。。。

有谁会PicBasic Pro Progamming code 的？？？
以上几楼是我和其他大大讨论的过程。我已采用了PIC大大提供的circuit , 但是我是用PicBasic Pro 来program 16F877A 的。。。。

以下是我的coding...但是却遇到了convert hex code 和binary code 的问题。。

' PicBasic Pro program to measure voltage (0-5VDC)
' and display on LCD with 2 decimal places. A
' 60 segment bargraph is also displayed using
' custom LCD characters.
'
' This program uses the */ operator to scale the
' ADC result from 0-1023 to 0-500.  The */ performs
' a divide by 256 automatically, allowing math which
' would normally exceed the limit of a word variable.
'
' Connect analog input to channel-0 (RA0)

' Define LCD registers and bits
DEFINE  LCD_DREG                PORTD
DEFINE  LCD_DBIT                4
DEFINE  LCD_RSREG                      PORTD
DEFINE  LCD_RSBIT               0
DEFINE  LCD_EREG                PORTD
DEFINE  LCD_EBIT                2
DEFINE        LCD_RWREG                PORTD
DEFINE        LCD_RWBIT                1
DEFINE        LCD_COMMANDUS                2000
DEFINE        LCD_DATAUS                50

' Define ADCIN parameters
DEFINE  ADC_BITS        10             ' Set number of bits in result
DEFINE  ADC_CLOCK       3             ' Set clock source (3=rc)
DEFINE  ADC_SAMPLEUS    50            ' Set sampling time in uS

' Declare variables
adval                  VAR WORD                        ' Create adval to store result

TRISA = %11111111                ' Set PORTA to all input
ADCON1 = %10000010                ' Set PORTA analog and right justify result
      
        Low PORTD.1                                ' LCD R/W line low (W)
        Pause 500                       ' Wait .5 second
        

loop:         ADCIN 0, adval                        ' Read channel 0 to adval (0-1023)

        adval = (adval */ 500)>>2        ' equates to: (adval * 500)/1024
        LCDOut $fe, 1           ' clear lcd sreen.
        LCDOut $FE,$C0          ' clear lcd screen.
        LCDOut $FE,1,"volt METER"
        LCDOut $FE,$C0,"volt=",DEC (adval/100),".", DEC2 adval,"uW"
' Display the decimal value
        Pause 100                                       ' Wait .1 second
        GoTo loop                                       ' Do it forever


End


________________________________________________________

adval = (adval */ 500)>>2        ' equates to: (adval * 500)/1024
LCDOut $FE,$C0,"volt=",DEC (adval/100),".", DEC2 adval,"uW"

就是这两行coding ，因为我要拿的result是必须要有5个decimal point 的 ，但是无论我如何改 ： 把“DEC2 adval”改成“DEC5 adval” ，又或者改advl=(adval*/500)>>5 都不行。。。有谁可以教教我？？？？？


各位大大帮帮忙啦！！！

sooyewguan

DEFINE        OSC        4
DEFINE  ADC_BITS        10
DEFINE  ADC_CLOCK       3   
DEFINE  ADC_SAMPLEUS    10            
Define        LCD_DREG        PORTC
Define        LCD_DBIT        4
Define        LCD_RSREG        PORTC
Define        LCD_RSBIT        1
Define        LCD_EREG        PORTC
Define        LCD_EBIT        0
adcVar  VAR WORD
voltage  VAR WORD
voltagerem  VAR WORD

TRISA = %11111111     

ADCON1 = %10000000      

Pause 500               

main:         
  ADCIN 0, adcVar
  voltage = adcVar * 5000
  voltage = DIV32 1022
  LCDOUT        254, 1
  LCDOUT        "adcVar = ",#adcVar
  LCDOUT        254, 192
  LCDOUT        "voltage = ",#voltage DIG 3, ".",#voltage DIG 2,#voltage DIG 1, #voltage DIG 0
  Pause 10               
GoTo main

[ 本帖最后由 sooyewguan 于 31-12-2006 07:50 PM 编辑 ]