PB随机数应用与开发心得-优快云博客

PB 随机数的基础代码（打开主窗口进行随机数）

代码：

一个应用的主窗口，进行代码的跳转

open(w_mainone)

实现打开窗口时随机数出现

string a
int t=10
a=string(rand(t))
k1.text=a

string a1
int t1=5
a1=string(rand(t1))
k2.text=a1

实现功能

关于PB随机数的应用；

Rand()
功能得到1与n之间的一个伪随机数。
语法Rand ( n )
参数n：数值型变量或表达式，指定要产生的伪随机数的上界。有效值在1到32,767之间返回值与n的数据类型相同。函数执行成功时返回1与n之间的一个伪随机数，包括1和n在内。如果参数n的值为NULL，Rand()函数返回NULL。

使用起来比较方便
---------------------------------------------------------
Randomize()
功能初始化伪随机数发生器，这样让应用程序每次使用不同的伪随机数序列。
语法Randomize ( n )
参数n：数值型变量或表达式，指定伪随机数生成器使用的起始值，不同的起始值可以生成不同的伪随机数序列。当n的值为0时，该函数把系统时钟作为伪随机数生成器的起始值，这样可以生成不可重复的伪随机数序列。当n的值不为0时，可以产生不同的伪随机数序列，但是，如果两次使用相同的伪随机数生成器起始值，那么两次生成的伪随机数序列相同。n的值在0到32,767之间返回值Integer。极少使用该函数的返回值

目前没有此需求，so没有使用过

-----------------------------------------------

PB的开发心得

任何语言开发起来都是要都敲多练

关于PB

1.熟悉控件，基本的算法基础

2整体框架的思路搭建

3随时找人解决问题进步更快

4熟悉各个页面布局的位置

-----------------------------------

需求：仅有一个按钮实现随机数的加减乘除

解：代码如下

做一个简单的下拉选控件实现需求

string a,b,sum,sum1,bj
long c
//fh.text='+'
//fh.text='-'
//fh.text='*'
//fh.text='/'
if fh.text='+' then
a=k1.text
b=k2.text
c=long(a)+long(b)// 运算
sum=string(c)//
//s.text=sum//赋值操作
bj=s.text
if bj=sum then
//Messagebox("ok","恭喜你答对了")
open(w_1)
else
if bj<>sum1 then
//Messagebox("ok","你答错了")
open(w_0)
end if
end if
//------------------------------------------------
end if
//open(w_1)
//-------------------------
if fh.text='-' then
a=k1.text
b=k2.text
c=long(a)-long(b)// 运算
sum=string(c)//
//s.text=sum//赋值操作
bj=s.text
if bj=sum then
//Messagebox("ok","恭喜你答对了")
open(w_1)
else
if bj<>sum1 then
//Messagebox("ok","你答错了")
open(w_0)
end if
end if
//------------------------------------------------
end if

//open(w_1)

//-----------
if fh.text='*' then
a=k1.text
b=k2.text
c=long(a)*long(b)// 运算
sum=string(c)//
//s.text=sum//赋值操作
bj=s.text
if bj=sum then
//Messagebox("ok","恭喜你答对了")
open(w_1)
else
if bj<>sum1 then
//Messagebox("ok","你答错了")
open(w_0)
end if
end if
//------------------------------------------------
end if

//open(w_1)
//---
if fh.text='/' then
a=k1.text
b=k2.text
c=long(a)/long(b)// 运算
sum=string(c)//
//s.text=sum//赋值操作
bj=s.text
if bj=sum then
//Messagebox("ok","恭喜你答对了")
open(w_1)
else
if bj<>sum1 then
//Messagebox("ok","你答错了")
open(w_0)
end if
end if
//------------------------------------------------
end if

//open(w_1)