用VFP写一个爱心表白代码,可以输入人名
时间: 2024-05-31 17:08:27 浏览: 14
以下是使用VFP编写的爱心表白代码:
CLEAR
SET CONSOLE OFF
SET SAFETY OFF
* 定义函数
FUNCTION drawHeart(x, y, size)
LOCAL angle, radian, a, b, i
angle = 0
DO WHILE angle <= 360
radian = angle * PI() / 180
a = size * (16 * POWER(SIN(radian), 3))
b = size * (13 * COS(radian) - 5 * COS(2 * radian) - 2 * COS(3 * radian) - COS(4 * radian))
? CHR(3) + TRANSFORM(x + a) + CHR(3) + TRANSFORM(y - b)
angle = angle + 1
ENDDO
ENDFUNC
* 主程序
PUBLIC name
name = INPUTBOX("请输入你心爱的人名:")
DO WHILE EMPTY(name)
name = INPUTBOX("请输入你心爱的人名:")
ENDDO
CLS
SET COLOR TO RED
? SPACE(20) + "我"
drawHeart(50, 10, 5)
? SPACE(10) + "你"
drawHeart(150, 10, 5)
SET COLOR TO WHITE
? SPACE(20) + "爱"
drawHeart(100, 50, 5)
SET COLOR TO RED
? SPACE(20) + name
drawHeart(100, 90, 5)
SET SAFETY ON
SET CONSOLE ON
运行代码后,会弹出一个输入框让用户输入心爱的人名。然后程序会在屏幕上绘制出一个爱心,上面分别写着“我”、“你”、“爱”和输入的人名。爱心的大小可以通过调整drawHeart函数的第三个参数来改变。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)