首页 > 编程语言 >中文编程为女友制造一场浪漫的邂逅

中文编程为女友制造一场浪漫的邂逅

时间:2024-07-02 00:00:33浏览次数:21  
标签:邂逅 编程 整数型 女友 标识 花瓣 画框 目录

用中文编程来为女友制造一场浪漫的邂逅,

效果如下

花瓣是随机掉落的,女友图片是多张动态切换的,启动之后会是全屏模式,还有喜欢的音乐播放

环境:

易语言

代码如下

主代码

.版本 2
.支持库 shellEx
.支持库 spec
.支持库 iext2

.程序集 窗口程序集1
.程序集变量 花瓣集, 落花, , "0"
.程序集变量 数量, 整数型
.程序集变量 目录, 文本型
.程序集变量 esc, 整数型
.程序集变量 女友, 落花
.程序集变量 当前女友, 整数型
.程序集变量 女友集, 文本型, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 次数, 整数型
.局部变量 背景, 文本型
.局部变量 临时, 文本型

esc = 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)
播放MP3 (-1, 取运行目录 () + “\” + 读配置项 (取运行目录 () + “\配置.ini”, “配置参数”, “音乐”, ))
' 动画框1.背景图片 = 读入文件 (取运行目录 () + “\3.jpg”)
背景 = 读配置项 (取运行目录 () + “\配置.ini”, “配置参数”, “背景”, )
临时 = 读配置项 (取运行目录 () + “\配置.ini”, “配置参数”, “女友”, )
女友集 = 分割文本 (临时, “,”, )
当前女友 = 1
调试输出 (“背景”, 背景)
.判断开始 (背景 = “”)
    动画框1.背景图片 = 快照 (, , )
.判断 (背景 ≠ “”)
    动画框1.背景图片 = 读入文件 (取运行目录 () + “\” + 背景)
.默认

.判断结束
目录 = 取运行目录 () + “\” + 读配置项 (取运行目录 () + “\配置.ini”, “配置参数”, “花瓣”, “img”) + “\”
_启动窗口.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
动画框1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
数量 = 50

置随机数种子 ()
重定义数组 (花瓣集, 假, 数量)
女友.x = 100
女友.y = 100
女友.标识 = 动画框1.创建物体 (动画物体1, 女友.x, 女友.y, , )
女友.角度 = 5
女友.速度 = 5
动画框1.置图片 (女友.标识, 读入文件 (取运行目录 () + “\” + 女友集 [当前女友]), )

.计次循环首 (数量, 次数)
    花瓣集 [次数].x = 取整 (取随机数 (0, 取屏幕宽度 ()) ÷ 30) × 30
    花瓣集 [次数].y = -取整 (取随机数 (0, 取屏幕高度 ()) ÷ 30) × 30
    花瓣集 [次数].标识 = 动画框1.创建物体 (动画物体1, 花瓣集 [次数].x, 花瓣集 [次数].y, , )
    花瓣集 [次数].角度 = 花瓣集 [次数].角度 + 取整 (取随机数 (-1, 1))
    花瓣集 [次数].速度 = 取随机数 (1, 5)
    动画框1.置图片 (花瓣集 [次数].标识, 读入文件 (目录 + 到文本 (取整 (取随机数 (1, 40))) + “.png”), )
.计次循环尾 ()


.子程序 _时钟1_周期事件
.局部变量 i, 整数型

' 窗口_鼠标穿透 (_启动窗口.取窗口句柄 (), 真)

.计次循环首 (数量, i)
    花瓣集 [i].y = 花瓣集 [i].y + 花瓣集 [i].速度
    花瓣集 [i].角度 = 花瓣集 [i].角度 + 取整 (取随机数 (-1, 1))
    .如果真 (花瓣集 [i].y > 取屏幕高度 ())
        花瓣集 [i].y = 取整 (取随机数 (0, 30))
        花瓣集 [i].x = 取整 (取随机数 (0, 取屏幕宽度 ()) ÷ 30) × 30
        动画框1.置图片 (花瓣集 [i].标识, 读入文件 (目录 + 到文本 (取整 (取随机数 (1, 40))) + “.png”), )
    .如果真结束
    动画框1.置角度 (花瓣集 [i].标识, 花瓣集 [i].角度)

    动画框1.置物体位置 (花瓣集 [i].标识, 花瓣集 [i].x, 花瓣集 [i].y, )

.计次循环尾 ()
' 动画框1.背景图片 = 快照 (, , )

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 = esc)
    结束 ()
.如果真结束


.子程序 _时钟2_周期事件

动画框1.置图片 (女友.标识, 读入文件 (取运行目录 () + “\” + 女友集 [当前女友]), )
动画框1.置角度 (女友.标识, 女友.角度)
动画框1.置物体位置 (女友.标识, 女友.x, 女友.y, )
当前女友 = 当前女友 + 1

.如果真 (当前女友 > 取数组成员数 (女友集))
    当前女友 = 1
.如果真结束

自定义类型

.版本 2

.数据类型 落花
    .成员 标识, 整数型
    .成员 x, 整数型
    .成员 y, 整数型
    .成员 速度, 整数型
    .成员 角度, 整数型

下载方式

链接:https://pan.baidu.com/s/1lmLEd8f6RMsede1mdsGMZQ 
提取码:1234

标签:邂逅,编程,整数型,女友,标识,花瓣,画框,目录
From: https://blog.csdn.net/qq_30895747/article/details/140112538

相关文章

  • Java语言编程基础——总结
    目录Java基本语法语句和表达式注释关键字标识符Java基本数据类型整数类型:浮点类型:字符类型:布尔类型:Java的运算符        算术运算符:        赋值运算符:        比较运算符:        逻辑运算符:        位运算符:   ......
  • Java(Spring Boot)编程思想学习进阶书籍
    1、SpringBoot编程思想(核心篇)该书是《SpringBoot编程思想》的核心篇,开篇总览SpringBoot核心特性,接着讨论自动装配(Auto-Configuration)与SpringApplication。《SpringBoot编程思想(核心篇)》的讨论以SpringBoot为中心,议题发散至Spring技术栈、JSR及Java。希望透过全局的视角,......
  • linux高级编程(线程)(1)
    虚拟地址:线程:        概念:线程是轻量级进程,一般是一个进程中的多个任务。        进程是系统中最小的资源分配单位。(竞争计算机资源的最小单位)(进程能分配硬件资源,线程不行)线程是系统中最小的执行单位。   特征:   1、共享资源(除了栈区都共享)-->......
  • KUKA机器人中断编程2—中断相关的指令
    在进行中断编程时,涉及到多个指令,包括:DECL、ON、OFF、GLOBAL、BRAKE、RESUME等。1、中断声明事件和子程序通过INTERRUPTDECL...WHEN..DO..来定义。语法:INTERRUPTDECLPrioWHEN事件DO中断程序例如:INTERRUPTDECL19WHEN$IN[1]==TRUEDOstop1()其中,中断优......
  • 16_C语言编程基础
    目录C语言入门程序段和代码段C语言入门实例英文分号(;)注释标识符保留字C中的空格C数据类型基本类型sizeof获取存储字节void类型变量C数组C枚举C中的左值(lvalue)和右值(rvalue)C常量变量存储类型C常用关键字(保留字)宏定义#defineconst关键字static关......
  • Vue组件化编程
    Vue组件化编程组件的定义:用来实现局部(特定)功能效果的代码集合(html/css/js/image)为什么使用组件:一个界面的功能很复杂作用:复用代码,简化项目编码,提高运行效率组件分为非单文件组件和单文件组件,在开发中一般使用单文件组件非单文件组件1.组件的基本用法组件的使用步骤有三步:定......
  • 用C++解决编程题目:角谷猜想
    学习目标:用C++编写简单的题目学习内容:#include<iostream>usingnamespacestd;intmain(){longlongn;cin>>n;while(n!=1){if(n%2==1){cout<<n<<"*3+1="<<n*3+1<<endl;n=3*n+1;......
  • Mojo — 适用于所有人工智能开发人员的编程语言
    Mojo语言是一个由人工智能公司Modular推出的全新编程语言,专为AI开发者设计。Mojo的语法与Python相似,但结合了Python的易用性和C语言的高性能,旨在解锁AI硬件的可编程性和AI模型的可扩展性。Modular这个公司则是一个非常年轻的新生AI创业公司,于2022年由ChrisLattner和TimDavi......
  • JavaScript 编程语言【 数据类型】过滤|排序|映射|迭代
    文章目录将border-left-width转换成borderLeftWidth过滤范围原位(inplace)过滤范围降序排列复制和排序数组创建一个可扩展的calculator映射到names映射到对象按年龄对用户排序随机排列数组获取平均年龄数组去重从数组创建键(值)对象Iterableobject(可迭代对象)Symbol.......
  • (记得关注哦)国产商用密码:编程实现分组密码体制中的国密算法SM4。
    一、研究SM4算法(一)SM4算法的分组长度、密钥长度、S盒、轮函数①分组长度和密钥长度:分组长度:SM4算法的分组长度为128位(即16字节),这意味着它每次加密或解密的数据块大小为128位。密钥长度:SM4算法的密钥长度为128位(即16字节),与分组长度相同。......