コメント - Rmake

このコメントは、【トピック】暗証番号入力へのコメントです。

コメントの内容

ikosami(投稿日：2010/11/21 18:11/21/10)

shirosabotenさんの書いたものを
もう少し応用が利くような形にしてみました。
これなら何桁の暗証番号でも
すこし数字を変えるだけで簡単にできます。

#↓パスワード
p = 1234
#↓パスワードの桁数
k = 4

a = 0
b = 1
c = "0"
i = 1
while i < k
b = b * 10
c = c + "0"
i = i + 1
end

loop = true
while loop 
 case speakWithSelect(10,"0","1","2","3",
"4","5","6","7","8","9", 
    "暗証番号を答えよ\n" + c)
  when 0
    a = a + b * 0
  when 1
    a = a + b * 1
  when 2
    a = a + b * 2
  when 3
    a = a + b * 3
  when 4
    a = a + b * 4
  when 5
    a = a + b * 5
  when 6
    a = a + b * 6
  when 7
    a = a + b * 7
  when 8
    a = a + b * 8
  when 9
     a = a + b * 9
 end
 b = b / 10
 k = k - 1
 c = a
 if k == 0
   loop  = false
 end
end

speak("入力した番号 : ", a)  
speak("暗証番号と照合します") 
if a == p
 speak("登録番号と一致しました")
else
 speak("番号が違います")
end

コメントの内容(一番最初の投稿)

ikosami(投稿日：2010/11/21 18:11/21/10)

#↓パスワード
p = 1234
#↓パスワードの桁数
k = 4

a = 0
b = 1
c = "0"
i = 1
while i < k
b = b * 10
c = c + "0"
i = i + 1
end

loop = true
while loop 
 case speakWithSelect(10,"0","1","2","3",
"4","5","6","7","8","9", 
    "暗証番号を答えよ\n" + c)
  when 0
    a = a + b * 0
  when 1
    a = a + b * 1
  when 2
    a = a + b * 2
  when 3
    a = a + b * 3
  when 4
    a = a + b * 4
  when 5
    a = a + b * 5
  when 6
    a = a + b * 6
  when 7
    a = a + b * 7
  when 8
    a = a + b * 8
  when 9
     a = a + b * 9
 end
 b = b / 10
 k = k - 1
 c = a
 if k == 0
   loop  = false
 end
end

speak("入力した番号 : ", a)  
speak("暗証番号と照合します") 
if a == p
 speak("登録番号と一致しました")
else
 speak("番号が違います")
end