둘째날, CUBLOC 프로그래밍과의 싸움

  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값을 알아냈지만, 직접 바로 측정이 가능한 측정기기가 있어 신기 했다.