B4R Library rSevSeg

Discussion in 'B4R Libraries' started by Johan Schoeman, Jun 22, 2019.

  1. Johan Schoeman

    Johan Schoeman Expert Licensed User

    It is a B4R wrap for this Github Project.
    See this post for wiring diagram

    I am using a 4 dig x 7 segment display SMA420364L (hard wired i.e no display controller)

    ".....This library allows an Arduino to easily display numbers and characters on a 4 digit 7-segment display without a separate 7-segment display controller. It works for any digital pin arrangement, common anode and common cathode displays. It also has character support including letters A-F and many symbols.

    Hardware Setup
    4 digit 7 segment displays use 12 digital pins. You may need more pins if your display has colons or apostrophes.

    There are 4 digit pins and 8 segment pins. Digit pins are connected to the cathodes for common cathode displays, or anodes for common anode displays. 8 pins control the individual segments (seven segments plus the decimal point)....."

    Library files (rSevSeg.zip) attached. Add the extracted folder to your additional libs folder and place the xml in the root of your additional libs folder.

    Sample project attached (enable rSevSeg in the libs tab of the B4R IDE)

    Sample Code:
    #Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 300
    #End Region

    Sub Process_Globals
    'These global variables will be declared once when the application starts.
        'Public variables can be accessed from all modules.
        Public Serial1 As Serial
    Dim svg As SevSeg
    Dim t As Timer
    Dim cnt As Byte = 0
    End Sub

    Private Sub AppStart
    svg.Begin(svg.CommonCathode, 41312111023456789)
        t.Enabled = 

    End Sub

    Sub t_tick
        cnt = cnt + 
    If cnt <= 127 Then
    Dim data() As Byte = "1234"
    svg.DisplayB4RByteArray(data, 0)
    else if cnt <= 255 Then
    Dim mystring As String = "5678"
    svg.DisplayB4RString(mystring, 0)
    End If
    If cnt = 255 Then
           cnt = 
    End If
    End Sub

    Attached Files:

    Last edited: Jun 22, 2019
    Mark Thorndyke, Mostez and Erel like this.
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice