Racket语言
Racket语言
我是猎豹
这个作者很懒,什么都没留下…
展开
-
Racket,Guess the Number
#lang racket (define guesses-taken 0) (display "Hello! What is your name?\n") (define my-name (read-line (current-input-port) 'any)) (define number (random 1 21)) (define guess-int 0) (printf "Well, ~a, I am thinking of a number between 1 and 20.\n" my-nam原创 2021-01-13 15:47:51 · 111 阅读 · 0 评论 -
Racket,Read standard input
#lang racket/gui (define r (random 100)) (let loop() (display "Input your guess: ") (define your-guess (read-line (current-input-port) 'any)) (define your-guess-number (string->number your-guess)) (printf "(~a)your guess ~a " r your-guess-number...原创 2021-01-12 18:06:42 · 131 阅读 · 0 评论 -
Racket GUI,命令按钮
#lang racket/gui (define frame (new frame% [label "Test"][width 600][height 400])) (define message (new message% [label "hello world"][parent frame])) (define text-field (new text-field% [label ""][parent frame])) (define button (new button% [label "Click原创 2020-10-15 11:36:50 · 204 阅读 · 0 评论 -
Racket GUI,使用message%显示图片
#lang racket/gui (define frame (new frame% [label ""])) (define cat-image (read-bitmap "cat.jpg")) ;(define message (new message% [label "Hello World"] [parent frame])) ;显示文字 (define message (new message% [label cat-image] [parent frame])) ;显...原创 2020-10-15 09:41:27 · 292 阅读 · 0 评论 -
Racket GUI,在画布上画直线
#lang racket (require racket/gui/base) (define frame (new frame% [label "Test"] [width 500] [height 500])) (define canvas (new canvas% [parent frame] [paint-ca...原创 2020-10-15 07:32:06 · 179 阅读 · 0 评论 -
Racket GUI,设置窗口居中显示
#lang racket (require racket/gui) (define-values (screen-width screen-height) (get-display-size)) (define app-width 600) (define app-height 400) (define frame (new frame% [label "Test"] [width app-width] ...原创 2020-10-14 22:45:06 · 162 阅读 · 0 评论 -
Racket GUI,设置窗口图标
Racket GUI,设置窗口图标 #lang racket (require racket/gui) (define root (new frame% [label "Test"] [width 600] [height 400] [x 100] [y 100])) (define root-icon (read-bitma...原创 2020-10-14 20:53:50 · 125 阅读 · 0 评论 -
Racket GUI,设置窗口的背景颜色
设置Racket窗口的背景颜色 #lang racket (require racket/gui) (define-values (screen-width screen-height) (get-display-size)) (define *app-width* 400) (define *app-height* 125) (define *vm-frame* (new frame% [label "Test"] ...原创 2020-10-14 20:21:09 · 249 阅读 · 0 评论