← Back to branch summary

~arcachofo/simulide/1.1.0

« back to all changes in this revision

Viewing changes to resources/examples/Pic/SevSeg_Pic16F876A/sevseg_Pic16F876A.gcb

  • Committer: arcachofo
  • Date: 2021-01-01 14:23:42 UTC
  • Revision ID: arcachofo@simulide.com-20210101142342-ozfljnll44g5lbl3
Initial Commit 0.5.15-RC3

Show diffs side-by-side

added added

removed removed

Lines of Context:
resources/examples/Pic/SevSeg_Pic16F876A/sevseg_Pic16F876A.gcb
 
1
'''A demonstration program for GCGB and GCB.
 
2
'''--------------------------------------------------------------------------------------------------------------------------------
 
3
'''This program will display the value of a potentiometer, respresenting a light sensor, on a 7 Segment display.
 
4
'''The 7 Segment display is connected to connection PORTB7-PORTB0 for segments A-G respectively.
 
5
'''The 7 Segment display enable pin connected to PORTC.7.
 
6
'''A potentiometer is connected to port A0.
 
7
'''@author      EvanV plus works of HughC
 
8
'''@licence     GPL
 
9
'''@version     1.0a
 
10
'''@date        31.01.2015
 
11
'''********************************************************************************
 
12
 
 
13
''' Modified by Santiago Gonzalez
 
14
 
 
15
 
 
16
; ----- Configuration
 
17
 
 
18
  #chip 16F876a, 16
 
19
  #config HS_OSC, WDT_OFF, LVP_OFF
 
20
 
 
21
; ----- Define Hardware settings
 
22
  Dir PORTB   Out
 
23
  DIR PORTA.0 In
 
24
  DIR PORTC.7 Out
 
25
 
 
26
; ----- Constants
 
27
  ; You need to specify the port settings
 
28
  #define DISP_COUNT 1
 
29
  #define DISP_SEG_A PORTB.7
 
30
  #define DISP_SEG_B PORTB.6
 
31
  #define DISP_SEG_C PORTB.5
 
32
  #define DISP_SEG_D PORTB.4
 
33
  #define DISP_SEG_E PORTB.3
 
34
  #define DISP_SEG_F PORTB.2
 
35
  #define DISP_SEG_G PORTB.1
 
36
  #define DISP_SEG_DOT PORTB.0
 
37
  #define DISP_SEL_1 PORTC.7
 
38
  
 
39
; ----- Variables
 
40
  ' No Variables specified in this example. All byte variables are defined upon use.
 
41
 
 
42
 
 
43
; ----- Main body of program commences her
 
44
 
 
45
  Main:
 
46
    Value = ReadAD(AN0)/26
 
47
    DisplayValue( 1, Value )
 
48
    wait 10 ms
 
49
  goto Main
 
50
 
 
51
 
 
52
 
 
53
 
 
54
 
 
55