LED 회로 다 만들다.

 우여곡절 끝에 이제서야 회로를 만든다고 투닥투닥. 드디어 완성했다. 하지만 아직 프로그램을 만들어야 하는 일이 남았다. 하드웨어 만드는 것보다 소프트웨어 만드는게 더 힘들 줄이야.

 만능기판이 작아서 LED Array를 살짝 걸친게 흠이라면 흠.

 이제 프로그램을 만들려고 투닥투닥. 어떻게 만들어야 할까 고민고민.

p.s. LOVE 4글자가 표기되는 프로그램을 작성~. LED 매트릭스의 핀번호를 잘못 연결해서 잠시 고생. 그리고 갑자기 완전한 동작을 하지 않은 IC-Prog 때문에 한참 고민. 결국 모두 해결하고 동작하는 모습을 +_+;



 최종 프로그램 코드. gcbasic으로 만들어짐.

;Chip Settings
#chip 16F676,4
#config OSC=INTRC_OSC_NOCLKOUT

;Variables
Dim bitcnt As byte
Dim xx As byte
Dim yy As byte
Dim ReadByte As byte
Dim ByteIdx As byte
Dim tmpIdx As byte
Dim sceneloop As byte
Dim IsRedOnly As byte
Dim DataInvert As byte

;Data tables - 글자의 8x8 비트맵 한글자당 8바이트로 4글자. 32바이트
Table BitmapData
 0
 32
 32
 32
 32
 32
 60
 0
 0
 24
 36
 36
 36
 36
 24
 0
 0
 36
 36
 36
 36
 24
 24
 0
 0
 60
 32
 56
 32
 32
 60
 0
End Table

InitPorts
ByteIdx = 1
IsRedOnly = 0
DataInvert = 0
001:
' 데이터포인터가 32를 넘어서면 녹색으로 전환, 전환한 후에 다시 전/배경 반전

If ByteIdx > 31 Then
    ByteIdx = 1
    IsRedOnly = 1 - IsRedOnly
    If IsRedOnly = 0 Then
        DataInvert = 1 - DataInvert
    End If
End If
' 초당 60 프레임 구현.
For sceneloop = 0 To 59
tmpIdx = ByteIdx

'output bitmap - LED Line수 만큼 반복
For yy = 0 To 7
    DoVisibleLine yy
    ReadTable BitmapData, tmpIdx, ReadByte
    If DataInvert = 1 Then
        ReadByte = Not ReadByte
    End If
    DoHideLine
    ' RED 색 표시. 처음의 164
    If IsRedOnly = 0 Then
        PulseByte ReadByte
        PulseByte 0
    Else
    ' GREEN 색 표시. 두번째 164
        PulseByte 0
        PulseByte ReadByte
    End If
    DoEnableLine
    ' 1/60/8 ~= 2ms
    Wait 2 ms
    ResetCol
    tmpIdx = tmpIdx + 1
Next
Next
' 다음 글자의 비트맵 시작으로 데이터테이블 위치를 증가.
ByteIdx = ByteIdx + 8
Goto 001

Sub InitPorts
    '238 G signal
    Set PORTA.2 Off
    Wait 1 ms
    Set PORTA.2 On

    '164 Reset
    Set PORTC.5 Off
    Wait 1 ms
    Set PORTC.5 On

    'Init 164 CLK
    Set PORTA.1 Off
    Wait 1 ms
End Sub

Sub DoVisibleLine (LineNum)
    If (LineNum And 1) <> 0 Then
        Set PORTC.0 On
    Else
        Set PORTC.0 Off
    End If
    If (LineNum And 2) <> 0 Then
        Set PORTC.1 On
    Else
        Set PORTC.1 Off
    End If
    If (LineNum And 4) <> 0 Then
        Set PORTC.2 On
    Else
        Set PORTC.2 Off
    End If
End Sub

' 8비트의 데이터를 164에 전송. 2색 LED 매트릭스이기에 메인에서 2번 사용해야 한다.
Sub PulseByte (DataByte)
    'init for CLK
    Set PORTA.1 Off
    For xx = 0 To 7

        'DATA BIT
        If (DataByte And 128) <> 0 Then
            Set PORTA.0 On
        Else
            Set PORTA.0 Off
        End If

        'CLK
        PulseOut PORTA.1, 1 us
        Rotate DataByte Left
    Next
End Sub

Sub ResetCol
    Set PORTC.5 Off
    Wait 1 10us
    Set PORTC.5 On
End Sub

' 시프트 데이터를 전송 중 번쩍임을 보이지 않게 하려면 238의 G 신호를 Low로 만들어서 출력이 모두 Low가 되게 만들어야 함.
Sub DoHideLine
    Set PORTA.2 Off
    Wait 1 us
End Sub

Sub DoEnableLine
    Set PORTA.2 On
    Wait 1 us
End Sub