CUBLOC Basic 프로그래밍 책을 가지고 박사님 컴퓨터를 내에 프로그래밍을 실행시키면서 조금씩 습득해가는 시간을 가졌다. 지난 2학기때도 수강과목 중 마이크로프로세서 설계 과목에서 배운 Atmega 프로그램을 배우다가 갑자기 어려워져서 포기했었는데, 역시나 이 프로그래밍도 처음에는 잘 따라가나 싶었는데, 갑자기 난이도가 높아졌다.
하지만 주어진 임무는 프로그래밍뿐이니 계속 시간을 투자해보니 약간의 그림이 보였다. 공부를 하며 나 나름대로 정리를 해보았다. 다음과 같이 ...
소스를 구성할 때, 선언부 + 명령부 + 출력부
# 선언부
- device 선언
- 변수와 변수형 선언
- 변수 초기값 선언
# 메인 함수
- do문 ~ loop문
- 명령어
# 출력부
- debug 출력 변수 형태 출력 변수, 출력 형태
메인 함수에서는, 명령문 실행하고 출력하는 것으로 진행된다.
===========================================================================
' FOR ~ NEXT문 활용법
' 구구단 만들기
Const Device = cb220 ' Device를 cb220 으로 사용하겠다.
Dim A As Integer
Delay 200
For A=2 To 9 ' 변수A
Delay 200
Gosub prtcnt
Next
Delay 200
Do
Delay 200
Incr A
Delay 200
Debug Dec A, Cr
Delay 200
Exit Do
Loop Until A < 20
prtcnt :
Debug "counter = " , Dec A , Cr
Return
End
=======================================================================
Const Device = cb220
Dim A As Integer
Delay 100
A = 8
Delay 100
Select Case A
Delay 100
Case 0
Debug " result is 0 " , Cr
Case 1
Debug " result is 1 " , Cr
Case 2
Debug " result Is 2 " , Cr
Case 3
Debug " result is 3 " , Cr
Case 4
Debug " result is 4 " , Cr
Case 5
Debug " result is 5 " , Cr
Case 6
Debug " result is 6 " , Cr
Delay 100
End Select
If A >6 Then
Debug " RESULT IS MORE THAN 7. ", Cr
Endif
프로그래밍 작업이 끝나고, 박사님이 주문하신 세라믹 170mm shell capacitor 를 측정해보았다.
2학년 때, 프로젝트로 R,L,C 공진회로를 설계 및 직접 제작을 했었는데, 그 당시, 공진주파수를 측정하여 L,C를 계산하여 L값과 C값을 알아냈지만, 직접 바로 측정이 가능한 측정기기가 있어 신기 했다.