这段代码是什么意思？

-2

Filename = ".\characters.txt" 
LoadCharacters() 

While MenuOption <> "x" 
    TextWindow.Write("Menu : (a) adjust characters, (v) view 

characters, (x) exit, (c) Create Character : ") 
    MenuOption = TextWindow.Read() 
    MenuOption = Text.ConvertToLowerCase(MenuOption) 
    If MenuOption = "a" Then 
    TextWindow.WriteLine("Adjusting Characters") 
    AdjustCharacters() 
    EndIf 

    If MenuOption = "v" Then 
    TextWindow.WriteLine("Viewing Characters") 
    ViewCharacters() 
    EndIf 

    If MenuOption = "x" Then 
    TextWindow.WriteLine("Exiting program") 
    Program.Delay(500) 
    Program.End() 
    EndIf 

    If MenuOption = "c" Then 
    TextWindow.WriteLine("Creating Characters") 
    Createcharacter() 
    EndIf 
EndWhile 

'================================================ 
'c: 

sub Createcharacter 
    TextWindow.WriteLine("Please enter the number of 

characters you want") 
    Characternum = TextWindow.ReadNumber() 
    For x = 1 To Characternum 
    TextWindow.WriteLine("Please enter the name of the 

character" + x) 
    Character[x] = TextWindow.Read() 
    Strength[x] = 10 
    Skill[x] = 10 
    EndFor 
    AdjustCharacters() 
EndSub 

'================================================ 
'a: 

Sub AdjustCharacters 
    For X = 1 To Characternum 
    Strength[x] = Strength[x] + Math.Floor 

(Math.GetRandomNumber(12)/Math.GetRandomNumber(4)) 
    Skill[x] = Skill[x] + Math.Floor(Math.GetRandomNumber 

(12)/Math.GetRandomNumber(4)) 
    EndFor 
    SaveCharacters() 
EndSub 

'================================================ 
'v: 

Sub ViewCharacters 
    For X = 1 To Characternum 
    TextWindow.WriteLine("Character " + x + " - " + 

Character[x] + ", stength = " + Strength[x] + ", skill = " 

+ Skill[x]) 
    EndFor 
EndSub 

'================================================ 

Sub LoadCharacters 
    ' Requires Filename to be set 
    Characternum = File.ReadLine(Filename,1) 
    TextWindow.WriteLine("Number of characters = " + 

Characternum) 
    For x = 1 To Characternum 
    Character[x] = File.ReadLine(Filename,x * 3 - 1) ' Get 

name 
    Strength[x] = File.ReadLine(Filename,x * 3) ' Get 

strength 
    Skill[x] = File.ReadLine(Filename,x * 3 + 1) ' Get 

skill 
    EndFor 
EndSub 

'================================================ 

Sub SaveCharacters 
    ' Requires Filename and TotalCharacters to be set 
    File.WriteLine(Filename,1,Characternum) 
    For x = 1 To Characternum 
    File.WriteLine(Filename,x * 3 - 1,Character[x]) ' Set 

name 
    File.WriteLine(Filename,x * 3, Strength[x]) ' Set 

strength 
    File.WriteLine(Filename,x * 3 + 1, Skill[x]) ' Set 

skill 
    EndFor 
    EndSub

真的停留在它上面，需要让我的头绕它。它的基础小，我必须教孩子们如何写在伪代码。如果有人可以解释这个代码可以用于它会非常感激。这段代码是什么意思？

欢呼

来源

2013-10-07 Tristan Kirkpatrick

你不明白哪一点？你从哪里得到代码？当你运行它会发生什么？ – doctorlove

如果您不完全理解此代码的作用，您打算如何编写伪代码？更重要的是：你打算如何教别人去做你自己做不到的事情？ – varocarbas

我得到了我正在工作的一所学校的代码，但从未教过VB课程，因此学习了它。 - 这就是我计划教授它的方式。 –

这是一场游戏，在这里玩家呈现一个菜单来创建，调整和查看游戏人物的一部分。 Createcharacter向玩家询问角色的名字，调整角色给出角色的随机强度和技能点，保存角色将角色写入文件，Load从文件中加载它们并将它们放入内存中，查看角色输出角色名称和统计在屏幕上。

来源

2013-10-07 10:22:03

谢谢。这真的很有帮助。它为我提供了一些工作依据。在我教授它之前，我将会学习这一点。 –

这段代码是什么意思？

回答

相关问题