5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

ΨΨΨ Smalltalk/ Squeak 教えろゴルァ ΨΨΨ

264 :まま、バージョン3:01/11/01 07:37
要らない音が鳴るようになりました

Object subclass: #Janken
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'My-Games'

Janken class>>play
"Janken play"
| table player computer result |
table _ #((TIE WIN LOSE) (LOSE TIE WIN) (WIN LOSE TIE)).
player _ (PopUpMenu labelArray: #(GU CHOKI PAR) lines: #())
startUpWithCaption: 'What is your choice?'.
computer _ 3 atRandom.
result _ (table at: player) at: computer.
"Transcript show: result; cr."
[:each ||sound|
sound _ (Dictionary new)
at: #TIE put: 'clink';
at: #LOSE put: 'peaks';
at: #WIN put: (AbstractSound stereoBachFugue);
at: each.
(each == #WIN)
ifTrue: [sound play]
ifFalse: [Smalltalk beep: sound]] value: result.
PopUpMenu inform: result, '.
computer''s choice is ', (#(GU CHOKI PAR) at: computer)

232 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)