블로그 이미지
이비그치면

태그목록

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

calendar

1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31

체스 명국선(Famous Chess Games) 기보 보기

2016. 3. 25. 17:58 | Posted by 이비그치면

list 뒷부분에 딥블루(Deep Blue, IBM 컴퓨터 인공지능 체스프로그램) 카스파로프(Kasparov, 세계 체스챔피온 그랜드마스터)

refresh-helper
대국도 3판 있네요



예를 들어 8:55부터 10:00까지 10초단위로 작성한 모듈내의 특정 procedure를 

아래의 예제에서는 첫번째 쉬트(Sheet1)에 있는 버튼이 클릭되었을 때 지정된  매크로를

실행시키는 방법이다




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub runbtn()
    Application.Run ("Sheet1.CommandButton1_Click")
End Sub
 
Sub setTimer()
    '
    '--- 08:55분부터 10:00까지 10초단위로 실행하도록 타이머 세팅
    Dim nSetCnt As Integer
 
    dTime = TimeValue("08:55:00")
 
    nMax = (60 * 60 + 60 * 5) / 10
 
    For nSetCnt = 0 To nMax
        Application.OnTime dTime, "Sheet1.runbtn"
        dTime = dTime + TimeValue("00:00:10")
    Next
 
End Sub
 
Public Sub CommandButton1_Click()
    Debug.Print "실행시각 : " + CStr(Now())
End Sub


장기 포진 Janggi(Korean Chess) Openings

2016. 3. 16. 14:01 | Posted by 이비그치면
  • 장기 포진
    • 귀마 포진
    • 면상 포진
refresh-helper


'취미생활 > 장기' 카테고리의 다른 글

장기기보(.gib)보기  (0) 2016.03.03