我是猎豹-CSDN博客

原创 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 93

原创 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 116

原创 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 185

原创 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 275

原创 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 166

原创 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 150

原创 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 111

原创 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 234