basic_html.pb

来自「Delphi脚本控件」· PB 代码 · 共 39 行

39 行

<?pax
Dim num_tries, num_to_guess = 40, Message = ""

#define declare_off

If HasProperty("number_tries") Then
  num_tries = number_tries + 1
Else
  num_tries = 0
End If

If Not HasProperty("guess") Then
  Message = "Welcome to the guessing machine !"
ElseIf toInteger(guess) > num_to_guess then
  Message = guess + " is to big. Try a smaller number"
ElseIf toInteger(guess) < num_to_guess then
  Message = guess + " is too small. Try a large number"
Else
  Message = "Well done!"
End If

#define declare_on

?>

<html>
<body>
\%s=Message
<br>
Guess number: <?pax print num_tries: ?>

<form action="<?pax print PAX_SELF: ?>" method="POST">
Type your guess here: <input type="text" name="guess">
<input type="hidden" name="number_tries" value="<?pax print num_tries: ?>">
</form>
</body>
</html>

basic_html.pb - 源码说明

本页面展示了「Delphi脚本控件」中的 basic_html.pb 源码文件，采用 PB 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?