Notice
Recent Posts
Recent Comments
Link
- Korea times
- 끌리면 오라...BGM 광고음악 라이브러리
- KartOO visual meta search engi…
- E-Book
- Channel9
- MSDN
- 여리의 작업실
- 유경상의 .NET 블로그
- window 쪼물딱 거리기
- 블루 홈(소현이 누님)
- IT 관련 전반 내용(정환이네)
- 비너스의 정보 공유(유틸리티들)
- 형기의 자료공간(디지털ERA에서 콘텐츠ERA로)
- EzineArticles (여러 분야의 글들이 올라옴)
- Relationship을 보여주는 라이브러리
- OpenRCE
- 젠틀의 블로그(무선 통신의 모든것)
- 헐랭이와 IT보안
- 워니. 추억ㅇㅔ ㅂㅣ추ㅇㅓ.
- Computer Forensics
- 토익 광장(YBM)
- Korea Times 이용하기
- Larkware Software
- TCP/UDP
- Black Hat
- DEF CON
- Slashdot
- ReallyUsefulEbooks.com Update
- 실리콘밸리 뉴스
- Application Development Trends
- Visual Studio Hacks
- MIT OCW
- Redmond Developer News
- SecurityFocus
- Microsoft Window Hacking Porta…
- Darknet - Don't Learn to Hack …
- Windows Tips, Tricks and Hacks
- Hack In the Box
- (IN)SECURE Magazine
- SuperSite Windows Vista
- Government Security
- Life is Still Talking (Good)
- PHRACK
- Found+Read(resource for startu…
- Jonathan Boutelle
- Venture Hacks
- 스마트플레이스
- All about Intellipedia
- Undocumented Windows 2000 Secr…
- HexBlog (Decompiler)
- TED (Ideas worth spreading)
- Crash Dump Analysis and Debugg…
- Rootkit
- DDK Developers(MS)
- 미친 감자의 블로그
- The Art of Assembly Language
- Chpie (키보드 후킹)
- Drivers Online
- (음악) Delicate SONG
- Reverse Engineering Community
- Software Best Practices
- Sara Ford's WebLog
- Cheat Happens
- Debugging,Unpacking,Assembling…
- 윤석찬님 블로그
- OK 괜찮아 다 잘 될거야
- RingBlog
- Art Life :: 하늘소
- IT's Paradise
- John Robbins!
- Wintellect
- Hacked Gadgets
- 소프트웨어 이야기
- Ryan Naraine's Zero Day
- VULN
- Stay Secure
- EBS 영어 공부(블루워터)
- 101BLoG : "Bright Size Life" o…
- Hacker Challenge
- Hackers Center
- White Hat, Chicago Con
- Ethical Hacker Network
- ChaseNet (Security)
- TechTarget
- Entrepreneur
- Infopackets
- Popular Science
- Dark Reading - The Business of…
- How Stuff Works
- codeDriver - Crack (역공학)
- Gadget (Windows)
- Serious Code
- Iguacu Blog(블루문)
- SecurityProof
- Power of Community(Hacker)
- Crack ?
- Security Freak
- Data Network Resource
- FoundStone - Security Consulti…
- Google Online Security Blog
- (BOOK) Cool DogBooks
- SachaBarber (좋은 개발자)
- System Software Incorporation
- 스카이 벤처
- NewsTorrent
- 글로벌 IT 네트워크
- Ethical Hacking and Infosec
- Realms of Hacking tricks
- CodeBreakers Journal
- Anti Rootkit Blog
- The Reverse Code Engineering C…
- Anti-Debug Tools
- Reverse Code Engineering Video…
- Damn Vulnerable linux
- Security Problems
- French Reverse Engineering Tea…
- Monac
- Open Source Vulnerability Data…
- Viruschaser 검사(바이러스)
- Windows Tips
- 보안 대처 연습
- [Download] Kartz CD
- [Download] FlMS Download
- [Download] DDL2
- 중국 해킹 사이트(안전중국)
- 바이러스 분석
- Javascript 전문가
- Virus Alert Zone (바이러스 분석)
- Computer World
- 문스랩닷컴(보안)
- Unpack China
- Black Storm Reverse Engineerin…
- 역공학 Reverser
- 문화 망명지 - 시, 소설
- WPF MVP
- Research Channel
- The Problem Solver - C# MVP
- Reversing - 리버스 엔지니어링
- Nigel Spencer's Blog (.NET)
- Kirill Osenkov (.NET C# IDE Te…
- H33T (BitTorrnet 검색 사이트)
- ITL (해킹, 보안)
- ITL (Invisible Things Lab) Blo…
- ebook, pdf, chm
- 주식 - 멘토클리닉
- CherryLove - 바이러스, 백신, 악성코드
- PMP
- 영원한 해커, hacker
- 리버싱, PE
- 신호철 - dsphome
- TechEd 2009
- SHOUT
- [도서] 오디오북
- [도서] 전자책
- [도서] 국내도서요약
- [도서] 해외도서요약
- TopCorder - 프로그래밍 연습
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
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 |
Tags
- 역공학
- 닷넷
- 보안
- 디버깅
- .net framework 4
- 책
- .net
- 비주얼스튜디오
- .NET Framework
- visual studio 2010
- C#
- Windows 7
- 비주얼 스튜디오
- 구글
- MVP
- VSTS 2010
- security
- 해킹
- Windows
- english
- Microsoft
- 디버그랩
- debugging
- Visual Studio
- 마이크로소프트
- WPF
- VSTS
- hacking
Archives
- Today
- Total
NaggingMachine
SmallBasic Example [TurtleMachine] - 30분만에 만들어본 간단한 SmallBasic 예제 본문
Visual Studio
SmallBasic Example [TurtleMachine] - 30분만에 만들어본 간단한 SmallBasic 예제
naggingmachine 2009. 7. 1. 00:42
On the previous article, you can download the latest SmallBasic version(currently 0.5) from MSDN site. This time, I made a simple program to get the idea of the way to use SmallBasic. There is no simpler way to feel and smell the new feature of a programming language than learning through example. In this simple code, you can learn a few programming technique like using Timer object and implemeting mouse event.
Very funny and easy. You can download the full source code from here.
SmallBasic이 어떤놈인지 알아볼겸 간단한게 만들어봤습니다. 역시나 예제를 만들어보면서 배우는것 만큼 확실한 방법도 없는것 같네요. Basic 생각도 나고 말입니다. 예제는 SmallBasic에서 기본제공하는 Turtle 객체를 마우스 움직임에 따라 이동시킵니다. Timer등을 사용해서 이벤트 처리하는 방법, GraphicsWindow에서 마우스 이벤트 처리하는 방법등을 배우실 수 있습니다.
참 쉽죠~ 전체 소스 코드는 http://smallbasic.com/smallbasic.com/program/?QLM601에서 확인하실 수 있습니다.
'-----------------------
' Author: Naggingmachine
' Blog: http://naggingmachine.tistory.com
' Email: wooseok.seo@gmail.com
'-----------------------
'-----------------------
' Timer setup
'-----------------------
Timer.Interval = 50
Timer.Tick = onTimerTick
'-----------------------
' Mouse setup
'-----------------------
GraphicsWindow.MouseMove = onMouseMove
mouseX = GraphicsWindow.MouseX
mouseY = GraphicsWindow.MouseY
'-----------------------
' Turtle setup
'-----------------------
turtleX = GraphicsWindow.Width/2
turtleY = GraphicsWindow.Height/2
Turtle.X = turtleX
Turtle.Y = turtleY
Turtle.Show()
'-----------------------
' Initialize
'-----------------------
GraphicsWindow.Title = "Having fun with Turtle"
GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(127,127,127)
GraphicsWindow.FontName="arial"
GraphicsWindow.FontSize=30
GraphicsWindow.Fontbold="true"
GraphicsWindow.DrawText(0, 0, "Move mouse, then the turtle will follow you.")
moveHorizontal = 5
moveVerticle = 5
Sub onTimerTick
' Get the new X position of the turtle
If (mouseX < turtleX) Then
If (turtleX - mouseX < 5) Then
turtleX = mouseX
Else
turtleX = turtleX - moveHorizontal
EndIf
ElseIf (mouseX > turtleX) Then
If (mouseX - turtleX < 5) Then
turtleX = mouseX
Else
turtleX = turtleX + moveHorizontal
EndIf
EndIf
' Get the new Y position of the turtle
If (mouseY < turtleY) Then
If (turtleY - mouseY < 5) Then
turtleY = mouseY
Else
turtleY = turtleY - moveVerticle
EndIf
ElseIf (mouseY > turtleY) Then
If (mouseY - turtleY < 5) Then
turtleY = mouseY
Else
turtleY = turtleY + moveVerticle
EndIf
EndIf
' Move the turtle to new position
Turtle.X = turtleX
Turtle.Y = turtleY
EndSub
Sub onMouseMove
mouseX = GraphicsWindow.MouseX
mouseY = GraphicsWindow.MouseY
EndSub
'Visual Studio' 카테고리의 다른 글
Undo/Redo C# 프레임워크 (0) | 2009.07.08 |
---|---|
C# 4.0 스펙 정보 업데이트 (0) | 2009.07.02 |
SmallBasic 0.5 출시 (2) | 2009.06.30 |
Visual Studio 애드인으로 작성된 Mono Tools (0) | 2009.06.29 |
C# Interactive Shell (0) | 2009.06.29 |