ChuckR
- 14th November 2020, 21:30
My last forum code example contribution was about a year ago, and provided sample code for the TM1637 7-Segment LED driver/controller. The TM1637 is used on 4-digit 7-Segment display modules available from a variety of Asian sources online. Two module varieties are available -- 7-Segment with decimal point and 7-Segment with semicolon. The semicolon version is commonly found as the display on digital clocks and microwave ovens. My interest in this display module was its ideal suitability for displaying the revolutions per minute (RPM) for a small engine tachometer device I designed. Having completed this device, I began experimenting with other segment type displays and with the keyboard scan function available on the TM1637. Thereafter, I posted a code sample for the TM1637 4 digit display module and 16 button keypad that provided the primitive task of displaying the key number 01 through 16 on the 4-digit display.
Curiosity led me to acquire some keyboard/display modules, including the "LED&KEY" and the "HCW-132", both easily found and acquired from several online sources. Both of these modules use the TM1638 LED driver/controller instead of the TM1637. While similar, the TM1638 differs in several respects:
- the TM1638 uses a 3-wire interface (similar to SPI) featuring clock, data and strobe signal (the TM1637 uses a 2-wire interface for clock and data)
- the TM1638 accommodates up to 8 digits, while the TM1637 is limited to 6 digits
- the TM1638 is compatible with either common anode or common cathode 7-segment displays, while the TM1637 is common anode only
- the TM1638 accommodates up to 10 segments/digit while the TM1637 accommodates up to 8 segments/digit
- the TM1638 accommodates up to 24 input keys, while the TM1637 accommodates up to 16 input keys.
The first of the two keyboard/display modules, the "LED&KEY" is relatively straight forward inasmuch as its 7-Segment displays are common anode wired. The module (as shown is the picture) has 8 push-button keys, 8 7-segment digits (plus decimal point), and 8 discrete LEDs. This array of features makes it potentially useful in practicable applications, and not just as an experimenter's learning or interface device.
The code sample provided here is fairly primitive in exercising each of the discrete LEDs, displaying the hex digits 0-9 and A-F, and then waiting for a key press. In response to a key closure, the corresponding 7-segment display shows the key number 1-8, and the discrete LED flashes the corresponding number of times. Pressing the 5th key, for example, displays "5" on the fifth digit location and causes the discrete LED to flash 5 times. If the key is held closed, the display action loops continuously.
The code is copiously commented and hopefully is clear in describing how characters are written to the 7-segment digits, and how the keypad is scanned. Further explanation of the sample code structure is included in the introductory header comments. A thorough review of the TM1638 data sheet is essential.
I've interfaced the LED&KEY module with the Microchip Curiosity Board equipped with a PIC16F18346 uC. Your development platform is probably different, so change the configuration "INCLUDE" file at the beginning of the code, and re-specify the port pin assignments as necessary.
The other module, the "HCW-132" is an entirely different creature in that its 7-segment displays are wired in common cathode mode. This variation transposes the digit positions 1-8 with the segment addresses 1-7 (not including the decimal point). I've written a sample code for this module also and will post it in a future contribution to this forum.
As always, comments, corrections and criticisms are welcome!
8965
'************************************************* *******************
'* Name : TM1638_8Digits_8Keys_8LEDs.PBP *
'* Author : Roberts *
'* Notice : Hack it as you wish *
'* : *
'* Date : 10/20/2020 *
'* Version : 1.0 *
'* Notes : Demo program for TM1638 "LED&KEY" PCB that has 8 *
'* : 7-segment LED digits, 8 pushbutton switchs and 8 *
'* : discrete LEDs. *
'* : THIS VERSION FOR MICROCHIP CURIOSITY BOARD PIC16F18346*
'* : *
'************************************************* *******************
' This is a primitive demo program that exercises the functions of the TM1638 7-Segment LED driver IC as it is
' used in a "LED&KEY" experimenter's printed circuit board (available from many online sources). The LED&KEY PCB
' features 8 7-segment display characters, 8 discrete LEDs, and 8 pushbutton switches, and the TM1638 controller. This
' PCB interfaces a microcontroller with a 3-wire (data, clock, and strobe) interface, and resembles industry standard
' SPI so that PIC Basic's SHIFTIN and SHIFTOUT commands are usable.
'
' The TM1638 data sheet provides the essential information for commands, addressing, and timing. Experimentation with
' PIC Basic's modes resulted in finding mode 0 is optimal for SHIFTOUT and mode 1 is optimal for SHIFTIN.
'
' The demo program is segmented in two parts:
'
' "MAIN" demonstates sending LED ON/OFF states and characters to the LED&KEY. Specifically, the program starts by
' clearing the TM1638 memory by sending "-" characters via the Subroutine "CLEARALL". Then, each of the 8 LED's is
' individually turned on for 1/2 second in sequence. Then, the digits 0 thru 7 are sent to the display and cleared.
' Then, the digits 8 through F are sent to the display and cleared.
'
' "READKEY" demonstrates use of the 8 keys. The LED&KEY is cleared so that the display shows all "-" characters.
' Pressing any key causes that key's number ("5" for example) to appear on the corresponding display location, while
' the corresponding discrete LED flashes that number of times. Pressing the key momentarily induces one such display
' and flash sequence, while holding the key depressed induces looping digit and flashing.
'
' The TM1638 spec sheet indicates that combination key presses are not possible with keys wired in the manner as they
' are on the LED&KEY board (e.g., all share "K3").
'
' The LED&KEY device resembles the TM1638 spec sheet's schematic on page 13 (Section XI), but without the 16 switches
' connected to the TM1638's K1 and K2 pins, and with 8 discrete LEDs wired in common anode per TM1638 Figure(8).
'
' The TM1638 is designed to accommodate 7-segment LED displays that are wired as common anode or common cathode. This
' LED&KEY device has its 7-segment displays wired in common cathode.
'
' The 8 7-segment characters thus appear at 8 address locations (each address designating a Grid#) each with 7 data
' bits (8 including the decimal designated by SEG1-SEG8) while the 8 LEDs appear at 8 address locations (each address
' designating a Grid#) with 1 data bit designated by the value of SEG9.
'
' There are some similar TM1638 PCBs that have bi-color LEDs that use the capability of SEG10. Thus the LED color can
' be altered by the value of the data bits set for SEG9 and Seg10. This demo code does not accommodate bi-color LEDs
' but can be easily modified to do so.
'
' A THORUGH READING AND COMPREHENSION OF THE TM1638 DATA SHEET IS HELPFUL!
'
' Below are the hexadecimal segment codes corresponding to decimal values
' 0 1 2 3 4 5 6 7 8 9
' 0x3F 0x06 0x5B 0x4F 0x66 0x6D 0x7D 0x07 0x7F 0x67
'
'********************************Declare Variables and Constants***************************************** *****
'
' Place the PIC initialization INCLUDE file here (See PBP PIC Configuration Files)
INCLUDE "PIC16F18346_Initialize.pbp"
'
ANSELB = 000000 'Port B is used for all interface pins
TRISB = 000000
SDA Var PORTB.4 'Serial data port pin (bi-directional)
SCK Var PORTB.6 'Serial clock port pin (uC output)
STB Var LATB.5 'Chip Select/Stobe (uC output/active low)
HIGH SDA 'Initialize Data Output
HIGH STB 'Initialize Strobe Output
i VAR BYTE 'loop variable for multiple use
j VAR BYTE 'loop variable for multiple use
'These are 3 of the 4 commands used by the TM1638 controller: ($40 not used)
CMD1 CON $44 'CMD1=$44 is the write command for fixed addressing
CMD2 CON $42 'CMD2=$42 is the read key matrix command
CMD3 CON $89 'CMD3=$89 is the end command that turns the display on and sets brightness at 2/16
'(CMD3=$8F for max brightness - see TM1638 spec sheet)
B1 VAR BYTE 'B1 is the first byte value from the keypad
B2 VAR BYTE 'B2 is the second byte value from the keypad
B3 VAR BYTE 'B3 is the third byte value from the keypad
B4 VAR BYTE 'B4 is the fourth byte value from the keypad
KEYNO VAR BYTE 'KEYNO is the key number or key number hex code
'
'************************************************* ** MAIN ************************************************** *******
GOSUB CLEARALL 'Clear the display with all "-" characters
MAIN: 'This rountine flashes each LED and sends hex digits to the display
'This section activates each discrete LED sequentially for 1/2 second
For i = $C1 to $CF Step 2 'LEDs are located at $Cn where "n" are odd values 1 thru F
LOW STB 'Turn on/off each LED in sequence one time
SHIFTOUT SDA, SCK, 0, [i,$01] 'Turn on the LED for 1/2 second
PAUSE 500
HIGH STB
PAUSE 1
LOW STB
SHIFTOUT SDA, SCK, 0, [i,$00] 'Turn off the LED
HIGH STB
PAUSE 5
Next i 'Sequence thru all 8 LEDs
'This loop sends characters 0 thru 7 to the 8 digit display
For i = 0 to 7
LOOKUP i,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07],j 'Lookup the hex code for each display digit
Low STB
SHIFTOUT SDA, SCK, 0, [$C0 + 2*i,j] 'Send even number addresses for 7-segment digits & output digit
High STB
PAUSE 500 'Pause 1/2 second
Next i
GOSUB CLEARALL 'Clear the display to all "-" characters
'This loop sends characters 8 thru F to the 8 digit display
For i = 0 to 7
LOOKUP i,[$7F,$67,$77,$7C,$39,$5E,$79,$71],j 'Lookup the hex code for each display digit
LOW STB
SHIFTOUT SDA, SCK, 0, [$C0 + 2*i,j] 'Send even number addresses for 7-segment digits & output digit
HIGH STB
PAUSE 500 'Pause 1/2 second
Next i
GOSUB CLEARALL 'Clear the display to all "-" characters
'The following section of code reads the keypad byte. If no key is pressed the KEYNO byte default value is $00
'Delete this section of code if keypad reading is not required
'************************************************* ************************************************** **************
READKEY: 'READKEY processes only single key inputs
'Send the key read command and shiftin the 4 key matrix bytes
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD2] 'Send the Read keypad command CMD2 = $42
PAUSEUS 10
SHIFTIN SDA, SCK, 1, [B1,B2,B3,B4] 'Shiftin all 4 keypad bytes
PAUSEUS 1
HIGH STB
PAUSE 50 'Delay to allow for key release
'Shift each byte left incrementally so all key codes appear in a single byte
KEYNO = B1 | B2<<1 | B3<<2 | B4<<3 'KEYNO = shifted & OR'd 4 bytes for a composite single byte
'where each bit represents one of the 8 keys
IF KEYNO = $00 THEN 'If all Bn's = $00 this means no key is pressed
GOTO READKEY 'If no key is pressed, loop to top and read key bytes again
ELSE 'When KEYNO is not $00, then assign a key number
LOOKDOWN KEYNO,[$01,$02,$04,$08,$10,$20,$40,$80],i 'This converts the byte value to the key number 0 thru 7
ENDIF 'Ex: the byte value $08 is key #4, so i=3
'Convert the key number 0 thru 7 to a 7-segment hex code 1 thru 8
LOOKUP i,[$06,$5B,$4F,$66,$6D,$7D,$07,$7F],KEYNO 'Redefine KEYNO as the display hex code
LOW STB 'Enable chip select
SHIFTOUT SDA, SCK, 0, [CMD1] 'This shifts out the 8-bit write command character $44
HIGH STB 'for fixed mode (random access) addressing
PAUSE 1
'Display the key number at the corresponding display location and flash the LED that many times
LOW STB
SHIFTOUT SDA, SCK, 0, [$C0+(2*i),KEYNO] 'Shiftout the key number to the 7-segment digit at the
HIGH STB 'corresponding key location
PAUSE 1
For j = 0 to i 'Flash the LED the number of times of the key
LOW STB
SHIFTOUT SDA, SCK, 0, [$C1+(2*i),$01] 'Shiftout Address byte and data byte to discrete LED
HIGH STB 'to turn ON the LED for 1/4 second
PAUSE 250
LOW STB
SHIFTOUT SDA, SCK, 0, [$C1+(2*i),$00] 'Shiftout Address byte and data byte to discrete LED
HIGH STB 'to turn OFF the LED for 1/4 second
PAUSE 250
Next j 'Repeat the number of times equal to the key number
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD3] 'The output command sends CMD3 which turns on the display
HIGH STB
GOSUB CLEARALL
GOTO READKEY 'Return to beginning and wait for another key press
'******************************************* Subroutine CLEARALL ************************************************** **
'This section clears the LEDs and sets the 7-segments digits to "-" in TM1638's display memory
CLEARALL:
LOW STB 'Enable chip select
SHIFTOUT SDA, SCK, 0, [CMD1] 'This shifts out the 8-bit write command character $44
HIGH STB 'for fixed mode (random access) addressing
PAUSE 1
For i = $C0 to $CF 'This loop clears the display by writing 0x40 to each digit and LED
LOW STB 'LEDs remain OFF with this input / 7-segments show "-"
SHIFTOUT SDA, SCK, 0, [i,$40] '$40 is the 7-segment "-" character (0x40)
HIGH STB
PAUSE 1
Next i
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD3] 'The output command sends CMD3 which turns on the display
HIGH STB 'and sets the brightness level
PAUSE 500 'Wait 1/2 second after clearing the display
RETURN
' NOTES ON THE KEY MATRIX:
' On this display/key assembly, the 8 switches are wired in the K3/KS1-KS8 matrix column (see TM1638 data sheet V1.3
' Figures(3)&(4) on page 7). This means switches S1-S4 activate the lsb "B0" in Bytes 1-4 respectively, and switches
' S5-S8 activate bit "B4" in Bytes 1-4 respectively. The code above shifts each of the 4 Bytes left by an incremental
' bit and ORs them to create a single byte KEYNO with all 8 switch bits present.
'
' Bit Number: B7 B6 B5 B4 B3 B2 B1 B0
' Switch #1 0 0 0 0 0 0 0 1 Byte 1 - not shifted left
' Switch #2 0 0 0 0 0 0 1 0 Byte 2 - shifted left 1 bit
' Switch #3 0 0 0 0 0 1 0 0 Byte 3 - shifted left 2 bits
' Switch #4 0 0 0 0 1 0 0 0 Byte 4 - shifted left 3 bits
' Switch #5 0 0 0 1 0 0 1 0 Byte 1 - not shifted left
' Switch #6 0 0 1 0 0 0 1 0 Byte 2 - shifted left 1 bit
' Switch #7 0 1 0 0 0 0 1 0 Byte 3 - shifted left 2 bits
' Switch #8 1 0 0 0 0 0 1 0 Byte 4 - shifted left 3 bits
'
' KEYNO OR's Value 1 1 1 1 1 1 1 1 ONLY SINGLE KEY PRESSES ARE ALLOWED
' SO ONLY 1 OF 8 BITS WILL = 1
'
' LOOKDOWN SEARCH $80 $40 $20 $10 $08 $04 $02 $01 LOOKDOWN converts KEYNO to key number
' LOOKDOWN VALUE 7 6 5 4 3 2 1 0
'
' Key: S8 S7 S6 S5 S4 S3 S2 S1 Switch Numbers 1 - 8
' Matrix Loc: K3/KS8 K3/KS6 K3/KS4 K3/KS2 K3/KS7 K3/KS5 K3/KS3 K3/KS1 TM1638 Matrix Location
' Byte Number: B4 B3 B2 B1 B4 B3 B2 B1 Following Key Read 0x42 command
' Key Hex Code: 0x10 0x10 0x10 0x10 0x01 0x01 0x01 0x01 Non-shifted hex code
' Shifted Left: 0x80 0x40 0x20 0x10 0x08 0x04 0x20 0x01 Shifted hex code
' Key# Code: 0x7F 0x07 0x7D 0x6D 0x66 0x4F 0x5B 0x06 Digit value and LED 7 Seg Code
' Displayed Digit: 8 7 6 5 4 3 2 1
'
'************************************** End of Keypad Reading ************************************************** **
Curiosity led me to acquire some keyboard/display modules, including the "LED&KEY" and the "HCW-132", both easily found and acquired from several online sources. Both of these modules use the TM1638 LED driver/controller instead of the TM1637. While similar, the TM1638 differs in several respects:
- the TM1638 uses a 3-wire interface (similar to SPI) featuring clock, data and strobe signal (the TM1637 uses a 2-wire interface for clock and data)
- the TM1638 accommodates up to 8 digits, while the TM1637 is limited to 6 digits
- the TM1638 is compatible with either common anode or common cathode 7-segment displays, while the TM1637 is common anode only
- the TM1638 accommodates up to 10 segments/digit while the TM1637 accommodates up to 8 segments/digit
- the TM1638 accommodates up to 24 input keys, while the TM1637 accommodates up to 16 input keys.
The first of the two keyboard/display modules, the "LED&KEY" is relatively straight forward inasmuch as its 7-Segment displays are common anode wired. The module (as shown is the picture) has 8 push-button keys, 8 7-segment digits (plus decimal point), and 8 discrete LEDs. This array of features makes it potentially useful in practicable applications, and not just as an experimenter's learning or interface device.
The code sample provided here is fairly primitive in exercising each of the discrete LEDs, displaying the hex digits 0-9 and A-F, and then waiting for a key press. In response to a key closure, the corresponding 7-segment display shows the key number 1-8, and the discrete LED flashes the corresponding number of times. Pressing the 5th key, for example, displays "5" on the fifth digit location and causes the discrete LED to flash 5 times. If the key is held closed, the display action loops continuously.
The code is copiously commented and hopefully is clear in describing how characters are written to the 7-segment digits, and how the keypad is scanned. Further explanation of the sample code structure is included in the introductory header comments. A thorough review of the TM1638 data sheet is essential.
I've interfaced the LED&KEY module with the Microchip Curiosity Board equipped with a PIC16F18346 uC. Your development platform is probably different, so change the configuration "INCLUDE" file at the beginning of the code, and re-specify the port pin assignments as necessary.
The other module, the "HCW-132" is an entirely different creature in that its 7-segment displays are wired in common cathode mode. This variation transposes the digit positions 1-8 with the segment addresses 1-7 (not including the decimal point). I've written a sample code for this module also and will post it in a future contribution to this forum.
As always, comments, corrections and criticisms are welcome!
8965
'************************************************* *******************
'* Name : TM1638_8Digits_8Keys_8LEDs.PBP *
'* Author : Roberts *
'* Notice : Hack it as you wish *
'* : *
'* Date : 10/20/2020 *
'* Version : 1.0 *
'* Notes : Demo program for TM1638 "LED&KEY" PCB that has 8 *
'* : 7-segment LED digits, 8 pushbutton switchs and 8 *
'* : discrete LEDs. *
'* : THIS VERSION FOR MICROCHIP CURIOSITY BOARD PIC16F18346*
'* : *
'************************************************* *******************
' This is a primitive demo program that exercises the functions of the TM1638 7-Segment LED driver IC as it is
' used in a "LED&KEY" experimenter's printed circuit board (available from many online sources). The LED&KEY PCB
' features 8 7-segment display characters, 8 discrete LEDs, and 8 pushbutton switches, and the TM1638 controller. This
' PCB interfaces a microcontroller with a 3-wire (data, clock, and strobe) interface, and resembles industry standard
' SPI so that PIC Basic's SHIFTIN and SHIFTOUT commands are usable.
'
' The TM1638 data sheet provides the essential information for commands, addressing, and timing. Experimentation with
' PIC Basic's modes resulted in finding mode 0 is optimal for SHIFTOUT and mode 1 is optimal for SHIFTIN.
'
' The demo program is segmented in two parts:
'
' "MAIN" demonstates sending LED ON/OFF states and characters to the LED&KEY. Specifically, the program starts by
' clearing the TM1638 memory by sending "-" characters via the Subroutine "CLEARALL". Then, each of the 8 LED's is
' individually turned on for 1/2 second in sequence. Then, the digits 0 thru 7 are sent to the display and cleared.
' Then, the digits 8 through F are sent to the display and cleared.
'
' "READKEY" demonstrates use of the 8 keys. The LED&KEY is cleared so that the display shows all "-" characters.
' Pressing any key causes that key's number ("5" for example) to appear on the corresponding display location, while
' the corresponding discrete LED flashes that number of times. Pressing the key momentarily induces one such display
' and flash sequence, while holding the key depressed induces looping digit and flashing.
'
' The TM1638 spec sheet indicates that combination key presses are not possible with keys wired in the manner as they
' are on the LED&KEY board (e.g., all share "K3").
'
' The LED&KEY device resembles the TM1638 spec sheet's schematic on page 13 (Section XI), but without the 16 switches
' connected to the TM1638's K1 and K2 pins, and with 8 discrete LEDs wired in common anode per TM1638 Figure(8).
'
' The TM1638 is designed to accommodate 7-segment LED displays that are wired as common anode or common cathode. This
' LED&KEY device has its 7-segment displays wired in common cathode.
'
' The 8 7-segment characters thus appear at 8 address locations (each address designating a Grid#) each with 7 data
' bits (8 including the decimal designated by SEG1-SEG8) while the 8 LEDs appear at 8 address locations (each address
' designating a Grid#) with 1 data bit designated by the value of SEG9.
'
' There are some similar TM1638 PCBs that have bi-color LEDs that use the capability of SEG10. Thus the LED color can
' be altered by the value of the data bits set for SEG9 and Seg10. This demo code does not accommodate bi-color LEDs
' but can be easily modified to do so.
'
' A THORUGH READING AND COMPREHENSION OF THE TM1638 DATA SHEET IS HELPFUL!
'
' Below are the hexadecimal segment codes corresponding to decimal values
' 0 1 2 3 4 5 6 7 8 9
' 0x3F 0x06 0x5B 0x4F 0x66 0x6D 0x7D 0x07 0x7F 0x67
'
'********************************Declare Variables and Constants***************************************** *****
'
' Place the PIC initialization INCLUDE file here (See PBP PIC Configuration Files)
INCLUDE "PIC16F18346_Initialize.pbp"
'
ANSELB = 000000 'Port B is used for all interface pins
TRISB = 000000
SDA Var PORTB.4 'Serial data port pin (bi-directional)
SCK Var PORTB.6 'Serial clock port pin (uC output)
STB Var LATB.5 'Chip Select/Stobe (uC output/active low)
HIGH SDA 'Initialize Data Output
HIGH STB 'Initialize Strobe Output
i VAR BYTE 'loop variable for multiple use
j VAR BYTE 'loop variable for multiple use
'These are 3 of the 4 commands used by the TM1638 controller: ($40 not used)
CMD1 CON $44 'CMD1=$44 is the write command for fixed addressing
CMD2 CON $42 'CMD2=$42 is the read key matrix command
CMD3 CON $89 'CMD3=$89 is the end command that turns the display on and sets brightness at 2/16
'(CMD3=$8F for max brightness - see TM1638 spec sheet)
B1 VAR BYTE 'B1 is the first byte value from the keypad
B2 VAR BYTE 'B2 is the second byte value from the keypad
B3 VAR BYTE 'B3 is the third byte value from the keypad
B4 VAR BYTE 'B4 is the fourth byte value from the keypad
KEYNO VAR BYTE 'KEYNO is the key number or key number hex code
'
'************************************************* ** MAIN ************************************************** *******
GOSUB CLEARALL 'Clear the display with all "-" characters
MAIN: 'This rountine flashes each LED and sends hex digits to the display
'This section activates each discrete LED sequentially for 1/2 second
For i = $C1 to $CF Step 2 'LEDs are located at $Cn where "n" are odd values 1 thru F
LOW STB 'Turn on/off each LED in sequence one time
SHIFTOUT SDA, SCK, 0, [i,$01] 'Turn on the LED for 1/2 second
PAUSE 500
HIGH STB
PAUSE 1
LOW STB
SHIFTOUT SDA, SCK, 0, [i,$00] 'Turn off the LED
HIGH STB
PAUSE 5
Next i 'Sequence thru all 8 LEDs
'This loop sends characters 0 thru 7 to the 8 digit display
For i = 0 to 7
LOOKUP i,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07],j 'Lookup the hex code for each display digit
Low STB
SHIFTOUT SDA, SCK, 0, [$C0 + 2*i,j] 'Send even number addresses for 7-segment digits & output digit
High STB
PAUSE 500 'Pause 1/2 second
Next i
GOSUB CLEARALL 'Clear the display to all "-" characters
'This loop sends characters 8 thru F to the 8 digit display
For i = 0 to 7
LOOKUP i,[$7F,$67,$77,$7C,$39,$5E,$79,$71],j 'Lookup the hex code for each display digit
LOW STB
SHIFTOUT SDA, SCK, 0, [$C0 + 2*i,j] 'Send even number addresses for 7-segment digits & output digit
HIGH STB
PAUSE 500 'Pause 1/2 second
Next i
GOSUB CLEARALL 'Clear the display to all "-" characters
'The following section of code reads the keypad byte. If no key is pressed the KEYNO byte default value is $00
'Delete this section of code if keypad reading is not required
'************************************************* ************************************************** **************
READKEY: 'READKEY processes only single key inputs
'Send the key read command and shiftin the 4 key matrix bytes
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD2] 'Send the Read keypad command CMD2 = $42
PAUSEUS 10
SHIFTIN SDA, SCK, 1, [B1,B2,B3,B4] 'Shiftin all 4 keypad bytes
PAUSEUS 1
HIGH STB
PAUSE 50 'Delay to allow for key release
'Shift each byte left incrementally so all key codes appear in a single byte
KEYNO = B1 | B2<<1 | B3<<2 | B4<<3 'KEYNO = shifted & OR'd 4 bytes for a composite single byte
'where each bit represents one of the 8 keys
IF KEYNO = $00 THEN 'If all Bn's = $00 this means no key is pressed
GOTO READKEY 'If no key is pressed, loop to top and read key bytes again
ELSE 'When KEYNO is not $00, then assign a key number
LOOKDOWN KEYNO,[$01,$02,$04,$08,$10,$20,$40,$80],i 'This converts the byte value to the key number 0 thru 7
ENDIF 'Ex: the byte value $08 is key #4, so i=3
'Convert the key number 0 thru 7 to a 7-segment hex code 1 thru 8
LOOKUP i,[$06,$5B,$4F,$66,$6D,$7D,$07,$7F],KEYNO 'Redefine KEYNO as the display hex code
LOW STB 'Enable chip select
SHIFTOUT SDA, SCK, 0, [CMD1] 'This shifts out the 8-bit write command character $44
HIGH STB 'for fixed mode (random access) addressing
PAUSE 1
'Display the key number at the corresponding display location and flash the LED that many times
LOW STB
SHIFTOUT SDA, SCK, 0, [$C0+(2*i),KEYNO] 'Shiftout the key number to the 7-segment digit at the
HIGH STB 'corresponding key location
PAUSE 1
For j = 0 to i 'Flash the LED the number of times of the key
LOW STB
SHIFTOUT SDA, SCK, 0, [$C1+(2*i),$01] 'Shiftout Address byte and data byte to discrete LED
HIGH STB 'to turn ON the LED for 1/4 second
PAUSE 250
LOW STB
SHIFTOUT SDA, SCK, 0, [$C1+(2*i),$00] 'Shiftout Address byte and data byte to discrete LED
HIGH STB 'to turn OFF the LED for 1/4 second
PAUSE 250
Next j 'Repeat the number of times equal to the key number
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD3] 'The output command sends CMD3 which turns on the display
HIGH STB
GOSUB CLEARALL
GOTO READKEY 'Return to beginning and wait for another key press
'******************************************* Subroutine CLEARALL ************************************************** **
'This section clears the LEDs and sets the 7-segments digits to "-" in TM1638's display memory
CLEARALL:
LOW STB 'Enable chip select
SHIFTOUT SDA, SCK, 0, [CMD1] 'This shifts out the 8-bit write command character $44
HIGH STB 'for fixed mode (random access) addressing
PAUSE 1
For i = $C0 to $CF 'This loop clears the display by writing 0x40 to each digit and LED
LOW STB 'LEDs remain OFF with this input / 7-segments show "-"
SHIFTOUT SDA, SCK, 0, [i,$40] '$40 is the 7-segment "-" character (0x40)
HIGH STB
PAUSE 1
Next i
LOW STB
SHIFTOUT SDA, SCK, 0, [CMD3] 'The output command sends CMD3 which turns on the display
HIGH STB 'and sets the brightness level
PAUSE 500 'Wait 1/2 second after clearing the display
RETURN
' NOTES ON THE KEY MATRIX:
' On this display/key assembly, the 8 switches are wired in the K3/KS1-KS8 matrix column (see TM1638 data sheet V1.3
' Figures(3)&(4) on page 7). This means switches S1-S4 activate the lsb "B0" in Bytes 1-4 respectively, and switches
' S5-S8 activate bit "B4" in Bytes 1-4 respectively. The code above shifts each of the 4 Bytes left by an incremental
' bit and ORs them to create a single byte KEYNO with all 8 switch bits present.
'
' Bit Number: B7 B6 B5 B4 B3 B2 B1 B0
' Switch #1 0 0 0 0 0 0 0 1 Byte 1 - not shifted left
' Switch #2 0 0 0 0 0 0 1 0 Byte 2 - shifted left 1 bit
' Switch #3 0 0 0 0 0 1 0 0 Byte 3 - shifted left 2 bits
' Switch #4 0 0 0 0 1 0 0 0 Byte 4 - shifted left 3 bits
' Switch #5 0 0 0 1 0 0 1 0 Byte 1 - not shifted left
' Switch #6 0 0 1 0 0 0 1 0 Byte 2 - shifted left 1 bit
' Switch #7 0 1 0 0 0 0 1 0 Byte 3 - shifted left 2 bits
' Switch #8 1 0 0 0 0 0 1 0 Byte 4 - shifted left 3 bits
'
' KEYNO OR's Value 1 1 1 1 1 1 1 1 ONLY SINGLE KEY PRESSES ARE ALLOWED
' SO ONLY 1 OF 8 BITS WILL = 1
'
' LOOKDOWN SEARCH $80 $40 $20 $10 $08 $04 $02 $01 LOOKDOWN converts KEYNO to key number
' LOOKDOWN VALUE 7 6 5 4 3 2 1 0
'
' Key: S8 S7 S6 S5 S4 S3 S2 S1 Switch Numbers 1 - 8
' Matrix Loc: K3/KS8 K3/KS6 K3/KS4 K3/KS2 K3/KS7 K3/KS5 K3/KS3 K3/KS1 TM1638 Matrix Location
' Byte Number: B4 B3 B2 B1 B4 B3 B2 B1 Following Key Read 0x42 command
' Key Hex Code: 0x10 0x10 0x10 0x10 0x01 0x01 0x01 0x01 Non-shifted hex code
' Shifted Left: 0x80 0x40 0x20 0x10 0x08 0x04 0x20 0x01 Shifted hex code
' Key# Code: 0x7F 0x07 0x7D 0x6D 0x66 0x4F 0x5B 0x06 Digit value and LED 7 Seg Code
' Displayed Digit: 8 7 6 5 4 3 2 1
'
'************************************** End of Keypad Reading ************************************************** **