汇编经典小程序

合集下载

python小程序200例

python小程序200例Python是一种简单易学、功能强大的编程语言，被广泛应用于不同领域的软件开发和数据分析中。

下面是200个Python小程序的相关参考内容，这些例子涵盖了Python的基础语法、常用库的使用和常见的编程问题解决技巧。

1. Hello World程序：打印出"Hello, World!"。

```pythonprint("Hello, World!")```2. 计算器程序：实现两个数字的加法、减法、乘法和除法。

```pythonnum1 = 5num2 = 3sum = num1 + num2difference = num1 - num2product = num1 * num2quotient = num1 / num2print("Sum:", sum)print("Difference:", difference)print("Product:", product)print("Quotient:", quotient)```3. 求平方根：计算一个数的平方根。

```pythonimport mathnumber = 16sqrt = math.sqrt(number)print("Square root of", number, "is", sqrt)```4. 判断奇偶数：判断一个数是奇数还是偶数。

```pythonnumber = 7if number % 2 == 0:print(number, "is even")else:print(number, "is odd")```5. 判断闰年：判断一个年份是否为闰年。

```pythonyear = 2020if year % 4 == 0:if year % 100 == 0:if year % 400 == 0:print(year, "is a leap year")else:print(year, "is not a leap year")else:print(year, "is a leap year")else:print(year, "is not a leap year")```6. 阶乘计算：计算一个数的阶乘。

用IDA反汇编个STM32小程序

本帖最后由yjmwxwx 于2014-12-11 00:12 编辑
想仿制别人的一款产品，但是只有固件没有源码无法修改程序，于是研究了一下反汇编。

下面把过程贴出来，方法对错我也不知道，我小学文化不懂英文操作这款软件有困难。

目标某开发的一个LED小程序
把HEX文件转为BIN文件
打开IDA
打开刚刚的BIN文件
选择ARM：
然后还有个高级选项选择Cortex-M （忘记截图）
ROM地址
反汇编
开头的是数据，第一个是站顶，第二个是复位向量，我们从他解开程序按D健转换
跳转到复位向量指向的地址
按C键转换成代码
反汇编完成，观看程序结构
2014-12-10 23:31 上传下载附件(72.81 KB)。

(完整版)8086汇编经典例程,推荐文档

sub bl,26 mov al,'a' add al,bl
MOV CX,00H WAIT1: LOOP WAIT1
;延时计数器 ;延时
DW 2 DUP (25*8,25*8,50*8) DW 12 DUP (25*8),100*8
jmp next40
DEC DX
next24: sub bl,52
==========================================
MAIN ENDP
MOV AX,[SI]
5. 编写一个数组排序（从小到大)的小程序，数组在程
序中定义，程序先将原数组显示一遍，然后排序，再
DISP PROC
将排好序的数组显示一遍。
PUSH SI
==========================================
MUS_TIME2 DW 3 DUP(50),25,25,50,25,25,100 DW 2 DUP(50,50,25,25),100 DW 3 DUP(50,25,25),100
crlf proc push ax push dx
音演奏歌曲 ========================================== ;这是一个音乐程序，按大写字母“A”，唱乐曲“玛丽
ccc segment assume cs:ccc,ds:qqq
main proc far start: mov ax,qqq
mov ds,ax
next3:
jmp next10 cmp al,'a' jnae next4 cmp al,'z' ja next4 sub al,'a'

如何用代码制作小程序

如何用代码制作小程序在当今数字化时代，小程序已成为许多企业和个人开发者提供服务和产品的一个重要方式。

借助代码，我们可以轻松地制作出功能强大、用户体验良好的小程序。

本文将介绍如何利用代码制作小程序。

第一步：选择开发工具在制作小程序之前，我们需要选择合适的开发工具。

目前市面上有许多流行的小程序开发工具，例如微信小程序开发者工具、支付宝开放平台、百度智能小程序IDE等。

根据自己的需求和技术背景选择一款合适的开发工具是非常重要的。

第二步：编写代码在选择好开发工具之后，接下来就要开始编写代码了。

小程序的代码通常使用类似于HTML、CSS和JavaScript的语法进行编写。

开发者可以根据小程序的需求，编写不同的功能和交互效果。

编写代码需要耐心和细心，确保代码逻辑正确。

第三步：调试和测试完成代码编写后，我们需要进行调试和测试。

在开发工具中，我们可以模拟用户的操作，检查小程序的显示效果和交互效果。

同时，我们也需要对不同的设备和平台进行测试，确保小程序在各种情况下都能正常运行。

第四步：发布小程序当小程序开发完成并通过测试后，就可以考虑发布小程序了。

在发布前，需要准备好小程序的名称、描述、图标等信息，并按照开发工具的指引，上传代码和提交审核。

审核通过后，小程序就可以正式上线供用户使用了。

结语通过上述步骤，我们可以使用代码制作出功能强大、用户体验良好的小程序。

在制作小程序的过程中，编写代码、调试测试都是需要仔细处理的环节，只有确保每个步骤都正确无误，才能制作出令人满意的小程序。

希望本文能帮助你更好地理解如何用代码制作小程序。

怎么用代码写微信小程序

怎么用代码写微信小程序微信小程序是一种轻量级的应用程序，用户无需下载安装即可直接使用，对于开发者来说，通过编写代码来实现微信小程序的功能是非常重要的。

本文将介绍如何用代码写微信小程序。

1. 准备工作在开始编写微信小程序代码之前，首先需要进行一些准备工作。

首先，确保你已经安装好了微信开发者工具，并且拥有一个微信开发者账号。

其次，了解微信小程序的基本概念和开发规范，这样才能更好地编写代码。

2. 创建项目打开微信开发者工具，点击新建项目，填写项目名称、AppID等信息，选择一个合适的模板作为项目基础。

微信开发者工具会自动生成一些预置的代码和文件，包括app.json、app.js、app.wxss等，这些文件是微信小程序的入口和配置文件。

3. 编写代码在微信开发者工具中，可以通过编辑app.json、app.js、app.wxss等文件来编写微信小程序的代码。

在这些文件中，你可以定义小程序的页面结构、页面逻辑和样式，以及与后台交互的功能。

比如，通过编写Page对象的方法来定义页面的逻辑，通过引入组件来构建页面的结构，通过wx.request方法来实现网络请求等。

4. 调试和测试在编写完代码后，可以通过微信开发者工具提供的调试功能来测试微信小程序的运行效果。

在调试过程中，可以查看控制台输出、页面结构、样式和逻辑等信息，以确保小程序的功能和界面都能正常运行。

5. 发布上线当微信小程序开发完成并通过测试后，就可以将其发布上线。

在微信开发者工具中，点击上传按钮即可将小程序代码上传到微信开发平台，然后在微信开发平台中设置小程序的基本信息、版本号等，最后提交审核等待审核通过后，小程序即可正式上线。

结语通过以上步骤，你可以使用代码编写微信小程序，并将其发布上线供用户使用。

当然，除了上述步骤外，还有许多其他内容需要注意，比如小程序的性能优化、安全等问题，希望你在编写微信小程序的过程中能够不断学习和提升，创造出更加优秀的小程序作品。

钢结构计算小程序

参数资料 LH型电动葫芦起重机参数资料
结构常用计算程序汇编
钢筋混凝土结构
钢结构
矩形截面单双筋--抗弯抗剪验算
单筋T形截面--抗弯验算
深梁与短梁--抗弯验算
矩形截面受弯剪扭--抗扭验算
雨蓬板配筋裂缝计算
雨蓬梁配筋裂缝计算
软弱下卧层验算
地下室外墙计算单(双)柱锥形基础计算墙高厚比验算灌注桩单桩竖向承载力计算柱体积配箍率计算筏基底板冲切计算楼面荷载计算楼梯间荷载计算砌体梁端局部受压计算双柱条基计算螺旋楼梯计算板式楼梯计算一字形剪力墙配箍计算 L形剪力墙配箍计算无翼墙L形剪力墙配箍计算牛腿计算
支撑系统---ST梁，墙面斜撑，风拉杆计算
工型拉（压）弯构件强度及稳定性校核计算
箱形拉（压）弯构件强度及稳定性校核计算
工字型、T型、箱型截面斜撑计算
框架柱计算长度（有侧移及无侧移）
砼-钢组合梁计算
钢梁（工字型、箱型）受扭计算
工型梁加劲肋计算地震反映谱高强度螺栓连接计算格构式双工截面参数计算(I I) 实腹式双工截面参数计算(十字）实腹式工型组合截面参数计算(|—I) 箱型(工型帖板)截面参数计算简支梁温度变化引起内力钢梁受扭计算梁柱固结计算次梁与主梁铰接计算程式钢管混凝土柱计算摩擦型高强螺栓拉剪连接计算

VB小程序代码

VB小程序代码VB小程序是使用Visual Basic语言编写的小型应用程序。

它可以在Windows操作系统上运行，并提供了丰富的图形用户界面和功能。

本文将详细介绍如何编写一个简单的VB小程序代码，并提供一些示例来帮助您更好地理解。

1. 程序结构一个VB小程序通常由以下几个部分组成：a) 引用：您可以引用其他程序集或库来扩展您的程序功能。

b) 命名空间：命名空间用于组织和管理程序中的类和对象。

c) 类：类是VB程序的基本构建块，它包含了变量、属性、方法和事件等成员。

d) 窗体：窗体是用户界面的容器，您可以在窗体上添加控件来实现交互功能。

2. 示例代码下面是一个简单的VB小程序代码示例，演示了如何创建一个窗体，并在窗体上添加一个按钮和一个文本框。

```vbImports System.Windows.FormsNamespace MyProgramPublic Class MainFormInherits FormPrivate WithEvents myButton As ButtonPrivate myTextBox As TextBoxPublic Sub New()myButton = New Button()myButton.Text = "点击我"myButton.Location = New Point(50, 50)myTextBox = New TextBox()myTextBox.Location = New Point(50, 100)Controls.Add(myButton)Controls.Add(myTextBox)End SubPrivate Sub MyButton_Click(sender As Object, e As EventArgs) Handles myButton.ClickmyTextBox.Text = "Hello, World!"End SubPublic Shared Sub Main()Application.Run(New MainForm())End SubEnd ClassEnd Namespace```3. 代码解析上述代码创建了一个名为`MainForm`的窗体类。

常用的结构计算小程序

结构常用计算程序汇编
钢筋混凝土结构
钢结构
矩形截面单双筋--抗弯抗剪验算
单筋T形截面--抗弯验算ห้องสมุดไป่ตู้
深梁与短梁--抗弯验算
矩形截面受弯剪扭--抗扭验算
雨蓬板配筋裂缝计算
雨蓬梁配筋裂缝计算
软弱下卧层验算
地下室外墙计算单(双)柱锥形基础计算墙高厚比验算灌注桩单桩竖向承载力计算柱体积配箍率计算筏基底板冲切计算楼面荷载计算楼梯间荷载计算砌体梁端局部受压计算双柱条基计算螺旋楼梯计算板式楼梯计算一字形剪力墙配箍计算 L形剪力墙配箍计算无翼墙L形剪力墙配箍计算牛腿计算
支撑系统---ST梁，墙面斜撑，风拉杆计算
工型拉（压）弯构件强度及稳定性校核计算
箱形拉（压）弯构件强度及稳定性校核计算
工字型、T型、箱型截面斜撑计算
框架柱计算长度（有侧移及无侧移）
砼-钢组合梁计算
钢梁（工字型、箱型）受扭计算
工型梁加劲肋计算地震反映谱高强度螺栓连接计算格构式双工截面参数计算(I I) 实腹式双工截面参数计算(十字）实腹式工型组合截面参数计算(|—I) 箱型(工型帖板)截面参数计算简支梁温度变化引起内力钢梁受扭计算梁柱固结计算次梁与主梁铰接计算程式钢管混凝土柱计算摩擦型高强螺栓拉剪连接计算
常用资料
双吊钩桥式起重机参数资料 LH型电动葫芦起重机参数资料

新闻类小程序规章制度汇编

新闻类小程序规章制度汇编第一条：为营造一个健康、有序、安全的新闻类小程序环境，保障用户的合法权益，维护社会公共利益，制定本规章制度。

第二条：新闻类小程序的设立须符合国家相关法律法规的规定，不得违反国家法律、法规及政策。

第三条：新闻类小程序应当严格履行主体责任，加强内容审核，不得传播有害信息，不得传播虚假信息，不得传播违法信息。

第四条：新闻类小程序应当保护用户隐私，不得故意泄露用户个人信息，不得将用户个人信息用于违法活动。

第五条：新闻类小程序应当遵守社会公序良俗，不得传播色情、暴力、低俗等不良信息，不得传播恐怖主义、极端思想等违法信息。

第六条：新闻类小程序应当依法保护知识产权，不得侵犯他人的知识产权，不得传播侵权信息。

第七条：新闻类小程序应当保障用户权益，及时回应用户反馈，并根据用户需求不断改进服务质量。

第八条：新闻类小程序应当建立用户信用评价机制，对发布虚假信息、进行违法活动的用户进行信用惩罚。

第九条：新闻类小程序不得利用技术手段干扰其他竞争对手的正常运营，不得利用不正当手段获取用户信息、推广商品等。

第十条：新闻类小程序应当配备专业的安全防护措施，保障用户信息安全，防范黑客攻击、数据泄露等风险。

第十一条：新闻类小程序应当建立健全的管理制度，加强人员培训，提高从业人员的法律意识和道德水平。

第十二条：新闻类小程序在发布广告时，应当遵守法律法规，做到真实宣传，不得发布虚假广告，不得侵犯他人商标权、肖像权等权益。

第十三条：新闻类小程序应当保障公共利益，配合政府开展相关监督检查工作，及时整改存在的问题，维护社会公共秩序。

第十四条：新闻类小程序应当依法纳税，履行社会责任，不得逃避税收，不得从事违法经营活动。

第十五条：本规章制度自发布之日起执行，对于已经存在的新闻类小程序，应当在规定的时间内按照本规章制度进行整改，逐步完善管理制度，保障用户合法权益。

第十六条：对违反本规章制度的新闻类小程序，应当按照法律法规进行处理，依法取缔、处罚，直至吊销营业执照。

10个经典的C语言小程序

10个经典的C语言小程序大家知道有哪些经典的C语言小程序吗？下面店铺为大家整理了10个经典的C语言小程序，希望能帮到大家。

1、题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？程序分析：可填在百位、十位、个位的数字都是1、2、3、4。

组成所有的排列后再去掉不满足条件的排列。

程序源代码：main(){int i,j,k;printf(" ");for(i=1;i<5;i++) ／*以下为三重循环*/for(j=1;j<5;j++)for (k=1;k<5;k++){if (i!=k&&i!=j&&j!=k) /*确保i、j、k三位互不相同*/printf("%d,%d,%d ",i,j,k);}}2、题目：企业发放的奖金根据利润提成。

利润(I)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的'部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润I，求应发放奖金总数？程序分析：请利用数轴来分界，定位。

注意定义时需把奖金定义成长整型。

程序源代码：main(){long int i;int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;scanf("%ld",&i);bonus1=100000*0.1;bonus2=bonus1+100000*0.75;bonus4=bonus2+200000*0.5;bonus6=bonus4+200000*0.3;bonus10=bonus6+400000*0.15;if(i<=100000)bonus=i*0.1;else if(i<=200000)bonus=bonus1+(i-100000)*0.075;else if(i<=400000)bonus=bonus2+(i-200000)*0.05;else if(i<=600000)bonus=bonus4+(i-400000)*0.03;else if(i<=1000000)bonus=bonus6+(i-600000)*0.015;elsebonus=bonus10+(i-1000000)*0.01;printf("bonus=%d",bonus);}3、题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？程序分析：在10万以内判断，先将该数加上100后再开方，再将该数加上268后再开方，如果开方后的结果满足如下条件，即是结果。

vba小程序实例

vba小程序实例VBA小程序实例VBA（Visual Basic for Applications）是一种用于宏编程的编程语言，常用于Microsoft Office软件中。

通过编写VBA小程序，我们可以实现自动化处理数据、操作软件等功能。

本文将通过几个实例来展示VBA小程序的具体应用。

一、实例一：批量处理Excel表格数据假设我们需要对一个包含大量数据的Excel表格进行处理，例如筛选、排序、求和等操作。

使用VBA小程序可以大大提高工作效率。

我们打开Excel软件，按下“Alt + F11”快捷键，打开VBA编辑器。

然后在工程资源管理器中选择“插入”-“模块”，在新建的模块中编写VBA代码。

代码示例：Sub Data_Processing()' 定义变量Dim ws As WorksheetDim rng As Range' 设置工作表和数据范围Set ws = ThisWorkbook.Worksheets("Sheet1")Set rng = ws.Range("A1:E10")' 进行数据处理rng.AutoFilter Field:=1, Criteria1:=">100" ' 筛选大于100的数据' 其他数据处理操作...End Sub上述代码中，我们首先定义了两个变量ws和rng，分别表示工作表和数据范围。

然后通过设置工作表和数据范围，我们可以对指定范围内的数据进行处理。

例如，上述代码中使用了“AutoFilter”方法对第一列数据进行筛选，只显示大于100的数据。

二、实例二：自动发送邮件在日常工作中，我们经常需要发送邮件给固定的收件人。

使用VBA 小程序，我们可以编写一个自动发送邮件的程序，实现批量发送邮件的功能。

我们同样需要打开VBA编辑器。

然后在工程资源管理器中选择“插入”-“模块”，在新建的模块中编写VBA代码。

精选10个汇编语言程序案例集

精选10个汇编语言程序案例集
1. 汇编语言编写的计算器程序，这个程序可以接受用户输入的两个数字，然后执行加减乘除等运算，并将结果输出到屏幕上。

2. 文件复制程序，这个程序可以使用汇编语言编写，实现将一个文件的内容复制到另一个文件中的功能。

3. 简单的操作系统内核，使用汇编语言编写一个简单的操作系统内核，可以包括基本的文件管理和进程调度功能。

4. 汇编语言写的游戏，例如经典的贪吃蛇游戏或者俄罗斯方块游戏，这些游戏可以使用汇编语言编写。

5. 串口通信程序，使用汇编语言编写一个可以通过串口进行通信的程序，可以实现数据的发送和接收。

6. 硬件驱动程序，编写一个简单的汇编语言程序，可以控制硬件设备，例如控制LED灯的亮灭。

7. 汇编语言编写的加密解密算法，实现一个简单的加密解密算
法，例如凯撒密码或者简单的异或运算。

8. 简单的图形界面程序，使用汇编语言编写一个简单的图形界面程序，可以实现基本的窗口和按钮等功能。

9. 汇编语言编写的网络通信程序，实现一个简单的网络通信程序，可以进行基本的数据传输和接收。

10. 汇编语言编写的嵌入式系统程序，例如可以编写一个控制LED灯的嵌入式系统程序，可以通过按键控制LED的亮灭。

汇编语言小程序例子

盛年不重来，一日难再晨。

及时宜自勉，岁月不待人。

1.编写统计AX中1、0个数的源程序。

1的个数存入CH,0的个数存入CL。

CODE SEGMENTASSUME CS:CODESTART: MOV CX, 0MOV DX,17AA1: SUB DX, 1JZ AA3SHL AX, 1JNC AA2INC CHJMP AA1AA2: INC CLJMP AA1AA3: MOV AH,4CHINT 21HCODE ENDSEND START2.编写比较两个字符串STRING1和STRING2所含字符是否完全相同的源程序，若相同则显示“MATCH”，若不相同则显示“NO MATCH”。

程序：DATA SEGMENTR1 DB 'MATCH',0AH,0DHR2 DB 'NO MATCH',0AH,0DH STRING1 DB 'XXXXX'N1 EQU $-STRING1STRING2 DB 'YYYYY'N2 EQU $-STRING2DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START: MOV AX,DATAMOV DS,AXMOV AX,N1CMP AX,N2JNZ AA1ADD AX,1LEA SI,STRING1LEA DI,STRING2AA2: MOV BL,[SI]MOV BH,[DI]INC SIINC DISUB AX,1JZ AA3CMP BL,BH JZ AA2JMP AA1AA3: LEA BX,R1 MOV CX,7 AA4: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA4JMP EAA1: LEA BX,R2 MOV CX,10 AA5: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA5INT 21HCODE ENDSEND START3.从键盘读入一个四位的十六进制数，CRT显示等值的二进制数.由于每个十六进制数位对应4个二进制，所以每读入一个十六进制位后，即可将其对应的4个二进制位依次输出。

程序手工汇编过程及应用

程序手工汇编过程及应用嘿，朋友们！今天咱就来聊聊程序手工汇编这档子事儿。

你想想看啊，程序手工汇编就像是搭积木，一块块不同的指令积木，咱得把它们精准地摆在一起，才能搭出咱想要的那个“城堡”。

这可不是随随便便就能干好的事儿，得有耐心，还得有那么点技巧。

先说这过程吧，那真的是要特别细心。

每一条指令都得认真对待，就好像对待宝贝似的。

一个不小心，放错了位置，那整个程序可能就乱套啦！就好比你盖房子，一块砖放错地方，那房子能结实吗？这程序也是一个道理呀！而且在汇编的过程中，你得对各种指令了如指掌。

这可不像背课文，死记硬背就行。

你得理解它们，知道它们能干啥，啥时候用最合适。

这就跟咱平时交朋友似的，你得了解朋友的脾气性格，才能更好地和他们相处嘛。

再说说这应用，那可太广泛啦！小到咱手机里的一个小程序，大到那些超级复杂的工业控制系统，都离不开程序手工汇编。

你想想，要是没有这个，咱的手机能这么智能吗？那些工厂里的机器能那么听话地干活吗？举个例子吧，就说咱平时玩的游戏。

那里面的各种场景、人物动作，可都是通过程序手工汇编实现的呀。

是不是很神奇？你在游戏里的每一个操作，背后都有无数条汇编指令在支撑着呢！程序手工汇编可不只是技术活，还是个艺术活呢！为啥这么说呢？因为你得把那些指令组合得恰到好处，既要高效，又要简洁。

这就跟画家画画一样，用简单的线条和色彩，画出一幅让人惊叹的作品。

这可不是谁都能随便干好的事儿啊！得经过长时间的学习和实践。

就像学骑自行车，一开始你可能会摔得七荤八素，但慢慢地你就掌握技巧啦，能骑得又稳又快。

所以啊，程序手工汇编真的是很有意思也很有挑战性的一件事。

它就像一个神秘的世界，等着你去探索，去发现其中的奥秘。

咱可别小看了这程序手工汇编，它可是推动科技发展的重要力量呢！没有它，哪来的那些高科技产品？哪来的我们现在这么便捷的生活？朋友们，你们说是不是这么个理儿？让我们一起好好钻研程序手工汇编，为科技的进步贡献自己的一份力量吧！。

(汇编语言)电梯程序完整版

ioport equ 0cc00h-0280hls273a equ ioport+2a8h;74ls273芯片地址ls273b equ ioport+2b0h;ls273c equ ioport+2b8hio8255a equ ioport+288h;8255控制端以及a,c端口地址io8255b equ ioport+289hio8255c equ ioport+28ahio8255 equ ioport+28bhio8253a equ ioport+280h;8253控制端以及0,1计数端口地址io8253b equ ioport+281hio8253c equ ioport+283hled db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh;七段码MENU DB '************************************************',0DH,0AHDB ' * 电梯*',0DH,0AHdb ' * 8255b--pb6~pb0--led6~led0 *',0Dh,0Ahdb ' * *',0Dh,0Ahdb ' * pa0~pa7-----a~g *',0Dh,0Ahdb ' * 8255CS~288H 8253cs~280hls273~2a8,2b0 *',0Dh,0Ahdb ' * 08006127 凌学梦*',0Dh,0Ahdb '************************************************',0Dh,0AhDB '1~8------1 ~ 8FLOOR!',0DH,0AHDB 'P----------STOP!',0DH,0AHDB 'V----------DIRECT ARRIVE!',0DH,0AHDB 'ESC----------EXIT!',0DH,0AHDB 'ENTER----------RUN!',0DH,0AH,'$'data endscode segmentassume cs:code,ds:datastart: mov ax,datamov ds,axmov dx,offset menumov ah,09int 21hmov dx,io8255;8255初始化，a口输出，c口输入mov al,89hout dx,almov cl,31h;cl代表当前电梯所在楼层，初始值设为1main: mov al,0call disp;显示当前楼层mov bl,0;bl为第一次输入的要去的楼层mov ch,0;ch为在中途中再次输入的要去的楼层call disp8ledmov ah,01;键盘输入blint 21hcmp al,1bh;是esc则退出je exit1cmp al,31h;在1-8之间？如不是重新输入jl maincmp al,38hjg mainmov bl,alcall disp8led;8led显示bl对应的楼层cmp bl,cl;bl与cl比较je main;相等则返回重新输入jg up;大于则向上运行jl down;小于则向下运行up: call stop;调用暂停子程序goup: add cl,1call updelay;调用向上运行延时子程序call disp;调用显示子程序，用于显示当前楼层clcmp cl,bl;cl,bl不等则继续je main;相等则返回jmp goupexit1: jmp exittomain:jmp mainupgetch:mov ah,1;在上升过程中如在有按键则跳转此处int 21hcmp al,73h;s键断电待修，验收时改用开关改变8253门控信号实现该功能je uprepaircmp al,70h;p键急停键je urgentcmp al,31h;在1-8之间？如不是继续上行jl gotoupcmp al,38hjg gotoupmov ch,alcall disp8led;显示cl对应楼层ledcall delay2;两秒计时时间到call disp;显示当前楼层call blequcl;判断bl与cl是否相等cmp ch,cl;比较ch与cl的区别je stopupbl;相等着在该层停，等待运行信号输入jl upbldownch;ch小于cl则先上行至bl在下行至chcmp ch,bl;ch大于cl则在判断ch与bl的大小关系je jmpupbl;相等则一直上行至bljl upchupbl;ch大于cl小于bl则先上行到ch在上行到bl jg toupblupch;ch大于bl则先上行到bl在上行到ch gotoup:call delay2jmp goupuprepair:mov al,0;验收时未用mov ah,1int 21hcmp al,73hjne uprepaircall delay2call dispjmp goupurgent: call delay2;急停功能call dispjmp mainupdelay proc near;向上运行延时子程序call delay;用于初始化8253push dxud: mov ah,1;键盘是否有输入int 16hjne upgetch;如有则跳转到输入处理mov dx,io8255c;8255c口输入in al,dxand al,01;是否计时结束jz udpop dxretupdelay endptoupblupch:jmp upblupchdown: call stop;调用暂停子程序godown: sub cl,1call downdelay;调用向下运行延时子程序call disp;调用显示子程序，用于显示当前楼层clcmp cl,bl;cl,bl不等则继续je tomain;相等则返回jmp godownstopupbl:call dispmov ch,0call disp8ledcall stop2call upbljmp mainupbldownch:call disp8ledcall upblmov bl,0call disp8ledcall stop2call downchjmp mainjmpupbl:mov ch,0call disp8ledcall upbljmp mainupchupbl:call disp8ledcall upchmov ch,0call disp8ledcall stop2call upbljmp mainupblupch:call disp8ledcall upblmov bl,0call disp8ledcall stop2call upchjmp maindowndelay proc near;向下运行延时子程序，与向上运行延时子程序大体相同 call delaypush dxddy: mov ah,1int 16hjne downgetchmov dx,io8255cin al,dxand al,01jz ddypop dxretdowndelay endpdowngetch:mov ah,1;在下降过程中如在有按键则跳转此处int 21hcmp al,73h;s键断电待修，验收时改用开关改变8253门控信号实现该功能je downrepaircmp al,70h;p键急停键je urgent2cmp al,31h;在1-8之间？如不是继续下降jl gotodowncmp al,38hjg gotodownmov ch,alcall disp8led;显示cl对应楼层ledcall delay2;两秒计时时间到call disp;显示当前楼层call blequcl;判断bl与cl是否相等cmp ch,cl;比较ch与cl的区别je stopdownbl;相等着在该层停，等待运行信号输入jg downblupch;ch大于cl则先下行至bl在上行至chcmp ch,bl;ch小于cl则在判断ch与bl的大小关系je jmpdownbl;相等则一直下行至bljl downbldownch;ch小于cl小于bl则先下行到bl在下行到chjg downchdownbl;ch大于bl则先下行到ch在下行到bl gotodown:call delay2jmp godowndownrepair:mov al,0mov ah,1int 21hcmp al,73hjne downrepaircall delay2call dispjmp godownstopdownbl:call disp8ledmov ch,0call disp8ledcall stop2call downbljmp maindownblupch:call disp8ledcall downblmov bl,0call disp8ledcall stop2call upchjmp mainurgent2:call delay2;急停功能call dispjmp mainjmpdownbl:mov ch,0call disp8ledcall downbljmp maindownbldownch:call disp8ledcall downblmov bl,0call disp8ledcall stop2call downchjmp maindownchdownbl:call disp8ledcall downchmov ch,0call disp8ledcall stop2call downbljmp mainvip: cmp bl,cl;直达功能jl vipdownjg vipupjmp mainvipup: add cl,1call vipdelaycall dispjmp vipvipdown:sub cl,1call vipdelaycall dispjmp vipvipgetch:mov ah,1;直达过程中对急停以及断电待修的处理 int 21hcmp al,73hje viprepaircmp al,70hje urgent2call delay2jmp vipviprepair:mov al,0mov ah,1int 21hcmp al,73hjne viprepaircall delay2call dispjmp vipvipdelay proc near;直达的延时子程序call delaypush dxvd: mov ah,1int 16hjne vipgetchmov dx,io8255cin al,dxand al,01jz vdpop dxretvipdelay endpstop proc near;暂停子程序，实现按回车继续和判断是否为直达键gostop: mov al,0mov ah,1int 21hcmp al,76h;是否为直达键je vipcmp al,13;是否为运行键jne gostopmov al,0retstop endpupbl proc near;上行到bl的子程序upbl1: add cl,1call dirdelaycall dispcmp cl,bljl upbl1retupbl endpupch proc near;上行到ch的子程序upch1: add cl,1call dirdelaycall dispcmp cl,chjl upch1retupch endpdownbl proc near;下行到bl的子程序downbl1:sub cl,1call dirdelaycall dispcmp cl,bljg downbl1retdownbl endpdownch proc near;下行到ch的子程序downch1:sub cl,1call dirdelaycall dispcmp cl,chjg downch1retdownch endpdelay proc near;初始化8253的子程序，两计数器连级 push dxmov dx,io8253c;8253的计数器0置方式3mov al,36hout dx,almov dx,io8253a;计数器0初始值为10000mov ax,10000out dx,almov al,ahout dx,almov dx,io8253c;8253的计数器1置方式0mov al,70hout dx,almov dx,io8253b;计数器1初始值为200mov ax,200out dx,almov al,ahout dx,alpop dxretdelay endpurgent3:call delay2call dispjmp mainblequcl proc nearcmp bl,cljne backje blequchmov bl,0call dispcall disp8ledcall stop2cmp ch,cljg upchherejl downchhereupchhere:call upchjmp maindownchhere:call downchjmp mainblequch:mov ch,0call disp8ledcall delay2jmp mainback: retblequcl endpdirdelay proc near;直接上下行的延时子程序 call delaypush dxdirback:mov ah,1int 16hjne dirgetchmov dx,io8255cin al,dxand al,01jz dirbackpop dxretdirdelay endpdirgetch:mov ah,1;直接上下行对按键的处理 int 21hcmp al,73hje dirrepaircmp al,70hje urgent3jmp dirbackdirrepair:mov al,0mov ah,1int 21hcmp al,73hjne dirrepaircall dispjmp dirbackstop2 proc near;没有直达键的暂停子程序gostop2:mov al,0mov ah,1int 21hcmp al,13jne gostop2mov al,0retstop2 endpdelay2 proc near;判断延市时是否结束的子程序push dxdelay3: mov dx,io8255cin al,dx ;查询8255的Pc0是否为高电平 and al,01jz delay3pop dxretdelay2 endpdisp proc near;显示当前楼层的子程序mov dl,clmov ah,2int 21h;用于在屏幕上显示mov dl,0dhmov ah,2 ;回车符int 21hmov dl,0ahmov ah,2 ;换行符int 21hsub cl,30h;七段码显示mov al,clpush bxpush dxmov dx,io8255bout dx,almov bx,offset ledxlatmov dx,io8255aout dx,alpop dxpop bxadd cl,30hmov al,0retdisp endpdisp8led proc near;8led显示，显示bl与cl对应的楼层push axcmp bl,0hje n0cmp bl,31hje n1cmp bl,32hje n2cmp bl,33hje n3cmp bl,34hje n4cmp bl,35hje n5cmp bl,36hje n6cmp bl,37hje n7cmp bl,38hje n8n0: mov al,0bjmp chledn1: mov al,1bjmp chledn2: mov al,10bjmp chledn3: mov al,100bjmp chledn4: mov al,1000bjmp chledn5: mov al,10000bjmp chledn6: mov al,100000bjmp chledn7: mov al,1000000bjmp chledn8: mov al,10000000bjmp chledchled: cmp ch,0je m0cmp ch,31hcmp ch,32hje m2cmp ch,33hje m3cmp ch,34hje m4cmp ch,35hje m5cmp ch,36hje m6cmp ch,37hje m7cmp ch,38hje m8m0: add al,0bjmp displedm1: add al,1bjmp displedm2: add al,10bjmp displedm3: add al,100bjmp displedm4: add al,1000bjmp displedm5: add al,10000bjmp displedm6: add al,100000bjmp displedm7: add al,1000000b jmp displedm8: add al,10000000b jmp displed displed:push dxpush axmov al,0ffhmov dx,ls273aout dx,almov dx,ls273bpop axout dx,alpop dxpop axmov al,0disp8led endpexit: mov ah,4ch int 21hcode endsend start。

微信小程序——精选推荐

微信⼩程序微信⼩程序⼀、微信模板语⾔WXML微信模板语⾔：⽂件后缀是.wxml.和HTML类似，主要作⽤:内容展⽰，数据渲染<view><checkbox checked></checkbox></view>⼆、数据绑定<view><view>我叫：{{name}}</view><view>今年：{{age}}</view><view>⽉薪：{{salary}}</view><view>爱好：{{likes}}</view><view>婚否：{{isMarry==false? "⼤龄青年":"有对象"}}</view><view>⼥朋友标准：</view><view>{{}}</view><view>{{girl.sala}}</view></view><view id="123"></view><view id="{{salary}}">动态参数值</view><view data-num="123"></view><view data-str="{{name}}"></view><checkbox checked="{{false}}">复选框</checkbox><checkbox checked="false">不写插值</checkbox>三、逻辑语法逻辑运算：取值渲染还是逻辑运算都要写在插值表达是中数字运算字符串拼接三元表达式<view>每⽉总收⼊：{{salary + girl.sala}}</view><view>{{name + "===" + }}</view><view>{{isMarry == false ? "⼤龄青年":"有对象"}}</view>四、列表渲染for循环<view><view wx:for="{{10}}">{{index}} ==== {{item}}</view><view wx:for="{{arr}}" wx:key="index">{{index}} ==== {{item}}</view><view>=====循环对象=====</view><view wx:for="{{girl}}" wx:for-index="key" wx:for-item="value">{{key}} ==== {{value}}</view><view>======循环对象数组======</view><view wx:for="{{girls}}" wx:for-item="obj"><view wx:for="{{obj}}" wx:for-index="key" wx:for-item="value">{{key}} === {{value}}</view></view><block wx:for="{{girls}}" wx:for-item="obj" wx:key="*this"><view wx:for="{{obj}}" wx:for-index="key" wx:for-item="value" wx:key="age">{{key}} === {{value}}</view> </block></view>五、共有属性： wx:if|hidden<view><view wx:if="{{sum >= 10000}}">换⼀个</view><view wx:elif="{{sum >= 8000}}">卖⼀个</view><view wx:elif="{{sum >= 5000}}">不吃饭</view><view wx:else>再买⼀车</view></view>hidden:<view hidden="{{false}}">hidden隐藏测试</view>两者区别六、微信样式语法WXSS：微信样式语法WXSS和css基本⼀致，例如选择器，样式设置，微信样式语法的⽂件后缀是.wxss选择器注意：‘通配选择器⽆法在微信⼩程序中使⽤，可以使⽤’⼩程序组件与事件处理组件是在 WXML 模板⽂件声明中使⽤的，WXML 的语法和 HTML 语法相似，⼩程序使⽤标签名来引⽤⼀个组件，通常包含开始标签和结束标签，该标签的属性⽤来描述该组件组件是来构造WXML页⾯结构。

VB编写各种趣味小程序(附代码)

VB编写各种趣味小程序（附代码）一、鸟巢绘制二、加密三、解密四、蝴蝶飞舞五、文本编辑六、统计七、小球跳动八、计算器（彩票摇奖）九、学生信息录入十、矩阵转置十一、带有进度条的倒计时程序十二、加减乘除随机数题十三、计算器十四、抽奖一、鸟巢绘制Private Sub Form_Click()ClsDim r, xi, yi, xj, yj, x0, y0, aif As Singler = Form10.ScaleHeight / 2x0 = Form10.ScaleWidth / 2y0 = Form10.ScaleHeight / 2n = 16aif = 3.14159 * 2 / nFor i = 1 To nxi = r * Cos(i * aif) + x0yi = r * Sin(i * aif) + y0For j = i To nxj = r * Cos(j * aif) + x0yj = r * Sin(j * aif) + y0Line (xi, yi)-(xj, yj), QBColor(i - 1)PSet (xi, yi)Print i - 1Next jNext iEnd SubPrivate Sub Form_Load()Print "要求：";Print "1.将圆周等分成16份；"Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。

"End Sub附图：二、加密Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc%code = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc(c) + keyIf iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) + keyIf iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case Elsecode = code + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form11.HideForm1.ShowEnd SubPrivate Sub Jiami_Click()Text2 = code(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea)ProgressBar1.max = UBound(workarea)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.TextClose #1End Sub三、解密Function UnCode(ByVal s$, ByVal key%)Dim c As String * 1, iAsc%UnCode = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc("c") - keyIf iAsc < Asc("A") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) - keyIf iAsc < Asc("a") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case ElseUnCode = UnCode + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Jiemi_Click()Text2 = UnCode(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text2.TextClose #1End Sub四、蝴蝶飞舞Private Sub Form_Load()Print "蝴蝶飞出窗体后重新定位到左下方再向右上方飞" End SubPrivate Sub Timer1_Timer()Static PickBmp As IntegerIf PickBmp = 0 ThenImage1.Picture = Image2.PicturePickBmp = 1ElseImage1.Picture = Image3.PicturePickBmp = 0End IfCall mymoveEnd SubSub mymove()Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top <= 0 ThenImage1.Left = 0Image1.Top = 2325End IfEnd Sub图：五、文本编辑Private Sub Copy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub Exit_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4RichTextBox1.FontName = CommonDialog1.FontName RichTextBox1.FontSize = CommonDialog1.FontSize RichTextBox1.FontBold = CommonDialog1.FontBold RichTextBox1.FontItalic = CommonDialog1.FontItalic RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru RichTextBox1.FontUnderline = CommonDialog1.FontUnderline RichTextBox1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Form_Load()Print "注："Print "1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print "文件夹，将提供的xz.txt文件打开；"Print "2.要实现将选定的内容格式化，必须在工具箱中添加" Print "RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）" Print "并在帮助菜单中查阅其字体设置的相关属性。

汇编语言_24个汇编实例小程序

24个汇编小程序题目列表：逆序输出字符串“BASED ADDRESSING”从键盘上输入两个数，分别放到x，y单元，求出它们的和是编写一段程序，要求在长度为10h的数组中，找出大于42h的无符号数的个数并存入地址为up开始区域，找出小于42h的无符号数的个数并存入地址为down的开始区域键盘输入一段字符串，其中小写字母以大写字母输出，其他字符不变输出从键盘上就收一个小写字母，找出它的前导字符和后续字符，在顺序显示这三个字符把一个包含20个数据的数组M分成两组：正整数组P和负整数组N，分别把这两个数组中的数据的个数显示出来求出首地址为data的100个字数组中的最小偶数，并把它放在ax中输入两船字符串string1和string2，并比较两个字符串是否相等，相等就显示“match”，否则显示“no match”从键盘接收一个四位的十六进制数，并在终端显示与它等值的二进制数从键盘输入一系列以$为结束符的字符串，然后对其中的非数字字符计数，并显示计数结果有一个首地址为mem的100个字的数组，试编程序删除数组中所有为零的项，并将后续项向前压缩，最后将数组的剩余部分补上零从键盘上输入一串字符（用回车键结束，使用10号功能调用）放在string中，是编制一个程序测试字符串中是否存在数字。

如有，则把cl的第五位置1，否则将该位置置0在首地址为data的字数组中，存放了100h的16位字数据，试编写一个程序，求出平均值放在ax寄存器中，并求出数组中有多少个数小于此平均值，将结果放在bx寄存器中(f分别考虑有符号数、无符号数情况)一直数组A包含15个互不相等的整数，数组B包含20个互不相等的整数。

试编制一个程序，把既在A中又在B中出现的整数存放于数组C中设在A、B和D单元中分别存放着三个数。

若三个数都不是0，则求出三个数的和并存放在S单元，若其中有一个数为0，则把其它两个单元也清零。

请编写此程序从键盘输入一系列字符（以回车键结束），并按字母、数字和其他字符分类计数，最后显示这三类的计数结果已定义两个整数变量A和B，试编写程序完成以下功能（1）若两个树种有一个是奇数，则将奇数存入A中，偶数存入B中（2）若两个数均为奇数，则将两个数加1后存回原变量（3）若两个数均为偶数，则两个变量均不变写一段子程序skiplines，完成输出空行的功能。

单片机汇编小程序

P1口接8个灯，点亮P1.0ORG 0000HSJMP MAINORG 0030HMAIN:CLR P1.0 /* MOV A,#0FE MOV P1,A*/END/* Eg2:点亮全部小灯ORG 0000HSJMP MAINORG 0030HMAIN:CLR AMOV P1,AEND *//*EG3:点亮小灯，再熄灭小灯ORG 0000HSJMP MAINORG 0030HMAIN: CLR A MOV A,#00HMOV P1,A MOV P1,ACPL A MOV A,#0FFHMOV P1,A MOV P1,AENDEg4:闪烁小灯(点亮小灯，再熄灭小灯)10次ORG 0000HSJMP MAINORG 0030HMAIN: MOV R7,#10LOOP:CLR A MOV A,#00HMOV P1,A MOV P1,ACPL A MOV A,#0FFHMOV P1,A MOV P1,ADJNZ R7,LOOPEND *//*EG3:点亮小灯，再熄灭小灯ORG 0000HSJMP MAINORG 0030HMAIN: CLR A MOV A,#00HMOV P1,A MOV P1,ACPL A MOV A,#0FFHMOV P1,A MOV P1,AENDEg4:闪烁小灯(点亮小灯，再熄灭小灯)10次ORG 0000HSJMP MAINORG 0030HMAIN: MOV R7,#10LOOP:CLR A MOV A,#00HMOV P1,A MOV P1,ACPL A MOV A,#0FFHMOV P1,A MOV P1,ADJNZ R7,LOOPEND*/定时器1工作方式2控制8个灯间隔50ms流水点亮ORG 0HAJMP MAINORG 001BH /*定时器T1入口地址*//*000B定时器T0入口地址*/AJMP T1_SUBMAIN: MOV TMOD, #10H /*设置定时器T1工作方式2*//*#02H设置定时器T0工作方式2*/MOV TH1, #3CH /*设置定时初值3CB0是50ms,B1E0是20ms*/MOV TL1,#0B0HMOV IE,#88H /*等价于开总中断和定时器1中断允许即SETB EA 和SETB ET1*/ /*#82H开总中断和定时器0中断允许*/SETB TR1 /*定时器1开中断*//*TR0定时器T0开中断*/MOV R4,#10MOV A,#0FEH /*设置小灯的初始状态*//*根据题目给定状态输入相应数值*/MOV P1,A /*输入小灯的初始状态给P1口，点亮P1.0*//*可以输入给P0 P2 P3*/SJMP $ORG 0100HT1_SUB: MOV TL1,#0B0HMOV TH1,#3CHDJNZ R4,T1_ENDMOV R4,#10RL A /*左移一位点亮*//*也可以右移*/MOV P1,AT1_END: RETIEND闪烁15次间隔1sORG 0000HSJMP MAINORG 0030HMAIN: MOV R4,#15 /*闪烁的次数*/LOOP: CLR A /*;MOV A,#00H*/MOV P1,A /*;MOV P1,A 8*/ACALL DELAYCPL A /*; MOV A,#0FFH*/MOV P1,A /*; MOV P1,A*/ /*p1口输出*/ACALL DELAYDJNZ R4,LOOPDELAY: MOV R5,#10 /*延时一秒即闪烁间隔*/ L2: MOV R6,#125L1: MOV R7,#200DJNZ R7,$ /*;200*125*10*2=100000us*/DJNZ R6,L1DJNZ R5,L2RETEND四个拨动开关外加一个中断控制8个小灯ORG 0000HSJMP MAINORG 13HSJMP LAMPORG 0030HMAIN: S ETB EASETB EX1SETB IT1SJMP $ORG 0050HLAMP: MOV P1,#0FFHMOV A,P1SWAP AMOV P1,ARETIEND外部中断1低电平触发方式初始化程序ORG 0000HAJMP MAINORG 0013HAJMP PINT1ORG 0100HMAIN: SETB EX1SETB EAHERE: AJMP HEREPINT1: RETIEND外部中断1下降沿P2口控制8个灯4L4M转换ORG 0000H //*外部中断0下降沿触发*/AJMP MAINORG 0013H /*外部中断1入口地址*/ /*0003h*/AJMP PINT1ORG 0100HMAIN: SETB EX1 /*外部中断1开中断*/ /*EX0*/SETB EA /*开总中断*/SETB IT1 /*外部中断1设置下降沿触发*/ /*IT0*/ /*CLR IT1 外部中断1电平触发或CLR IT0外部中断0电平触发*/MOV A,#0FH /*设置灯的初始状态，4亮4灭*/MOV P2,A /*输入小灯状态给P2口，也可以给P0 P1 P3*/ HERE: AJMP HEREPINT1: CPL A /*SWAP A 变换小灯状态，4灭4亮*/MOV P2,ARETIEND闪烁10次间隔0.5sORG 0000HSJMP MAINORG 0030HMAIN: M OV R7,#10LOOP: CLR A /* MOV A,#00H */MOV P1,A /* MOV P1,A*/ACALL DELAYCPL A /*MOV A,#0FFH*/MOV P1,A /*MOV P1,A*/ACALL DELAYDJNZ R7,LOOPDELAY: MOV R5,#5L2: MOV R6,#250L1: MOV R4,#200 ;250*400=100000DJNZ R4,$ ;200*2=400USDJNZ R6,L1DJNZ R5,L2RETEND延时10毫秒DELAY:MOV R6,#100L1: MOV R7,#50DJNZ R7,DELAY ;50*2DJNZ R6,L1RETEND。

创意编程小程序实例

创意编程小程序实例随着科技的发展，编程已经成为一种必备的技能。

编程不仅可以帮助我们解决问题，还可以开发各种有趣的小程序。

本文将为大家介绍几个创意的编程小程序实例，希望能够激发大家对编程的兴趣。

1. 闹钟小程序这个小程序可以帮助我们设置闹钟，并在设定的时间到达时发出提醒。

相比于普通的闹钟，这个小程序还可以根据不同的时间段播放不同的音乐，让我们在每天的早晨都能以美妙的音乐开始新的一天。

2. 健康小程序这个小程序可以帮助我们记录每天的运动情况，并根据我们的身体指标提供合适的健康建议。

它还可以设置定时提醒我们休息，并提供一些简单的健身操视频，让我们在工作学习之余也能保持身体健康。

3. 美食小程序这个小程序可以根据我们的口味和食材，为我们提供各种美食的菜谱。

它还可以根据我们的喜好推荐一些新的菜品，让我们在烹饪的过程中充满乐趣。

4. 旅行小程序这个小程序可以帮助我们规划旅行路线，并提供各种旅游景点的介绍和推荐。

它还可以根据我们的出行时间和预算，为我们提供合适的旅行方案，并帮助我们预订机票和酒店。

5. 学习小程序这个小程序可以帮助我们制定学习计划，并提供各种学习资源和学习方法。

它还可以根据我们的学习情况进行智能推荐，帮助我们更高效地学习。

以上只是几个创意编程小程序实例的简单介绍，实际上，编程的可能性是无限的。

通过编程，我们可以开发出各种有趣的小程序，满足我们的各种需求。

编程不仅可以培养我们的逻辑思维和问题解决能力，还可以帮助我们创造出有趣的东西。

通过编程，我们可以将自己的创意变成现实，让我们的生活更加便捷和有趣。

如果你对编程感兴趣，不妨尝试学习一些编程语言，如Python、Java等。

通过学习编程，你将能够掌握一种强大的工具，为自己的创意找到最好的表达方式。

创意编程小程序是一种有趣而有意义的创作方式。

通过编程，我们可以创造出各种有趣实用的小程序，满足我们的各种需求。

希望本文能够给大家带来一些灵感，激发大家对编程的兴趣和创造力。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

汇编经典小程序(总5页) -CAL-FENGHAI.-(YICAI)-Company One1
-CAL-本页仅作为文档封面，使用请直接删除
实验一：判断一个数X的正，负数，还是零。

（假设是正数，输出+，是负数，输出-，是零，输出This is a zore !）
DATA SEGMENT
X DB 10
CR EQU 0DH
LF EQU 0AH
W DB 'This is a zore!',CR,LF,'$'
ZHENG DB '+',CR,LF,'$'
FU DB '-',CR,LF,'$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV AL,X
AND AL,AL
JZ L1
SHL AL,1
JC L3
JMP L2
L1: MOV DX,OFFSET W
MOV AH,9
INT 21H
JMP L4
L2: MOV DX,OFFSET ZHENG
MOV AH,9
INT 21H
JMP L4
L3: MOV DX,OFFSET FU
MOV AH,9
INT 21H
JMP L4
L4: MOV AH,4CH
INT 21H
CODE ENDS
END START
实验二：求十个数中的最小数，并以十进制输出。

（若要求最大的，只要把JC 改为JNC 即可）（仅局限于0---16间的数比较,因为ADD AL,30H只是针对一位的十六进制转换十进制的算法）
DATA SEGMENT
XDAT DB 0AH,1FH,02H,03H,04H,05H,06H,07H,08H,09H
MIN DB
CR EQU 0DH
LF EQU 0AH
W DB ' is min',CR,LF,'$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV CX,9
MOV SI,OFFSET XDAT
MOV AL,[SI]
L2: CMP AL,[SI+1]
JC L1
MOV AL,[SI+1]
L1: INC SI
LOOP L2
ADD AL,30H
MOV DL,AL
MOV AH,2
INT 21H
MOV DX,OFFSET W
MOV AH,9
INT 21H
CODE ENDS
END START
实验三：设有3个单字节无符号数存放在BUF开始的缓冲区中，编写一个能将它们从大到小从新排列的程序。

DATA SEGMENT
BUF DB 87,234,123
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV SI,OFFSET BUF
MOV AL,[SI] ;把3个数取到寄存器中
MOV BL,[SI+1]
MOV CL,[SI+2]
CMP AL,BL ;排序，将最大数送AL寄存器
JAE NEXT1
XCHG AL,BL
NEXT1:CMP AL,CL
JAE NEXT2
XCHG AL,CL
NEXT2:CMP BL,CL ;将最小输送CL寄存器
JAE NEXT3
XCHG BL,CL
NEXT3:MOV [SI],AL ;从大到小依次存回缓冲区，AL,BL,CL
MOV [SI+1],BL
MOV [SI+2],CL
MOV AH,4CH
INT 21H
CODE ENDS
END START
实验三（2）：设某一数组的长度为N，个元素均为字数据，试编制一个程序使该数组中的数据按照从小到大的次序排列。

（要从大到小排序，只需把JBE改为JAE即可）
ADATA SEGMENT
N EQU 10
DATA DW 87,54,78,45,35,23,04H,12H,03H,21H
ADATA ENDS
ACODE SEGMENT
ASSUME CS:ACODE,DS:ADATA
START:MOV AX,ADATA
MOV DS,AX
MOV DS,AX
MOV BX,0
MOV CX,N
DEC CX
LOP1: MOV DX,CX
LOP2: MOV AX,DATA[BX]
CMP AX,DATA[BX+2]
JBE CONTI
XCHG AX,DATA[BX+2]
MOV DATA[BX],AX
CONTI: ADD BX,2
LOOP LOP2
MOV CX,DX
MOV BX,0
LOOP LOP1
MOV AH,4CH
INT 21H
ACODE ENDS
END START
实验四：求十个数中的最小数，并以十六进制输出。

（若要求最大的，只需把JC 改为JNC 即可）
DATA SEGMENT
XDAT DB 0AH,1FH,0FH,0FH,0EH,0BH,0CH,0DH,0EH,0CH
TAB DB
30H,31H,32H,33H,34H,35H,36H,37H,38H,39H,41H,42H,43H,44H,45H,46H MIN DB
CR EQU 0DH
LF EQU 0AH
W DB ' is min',CR,LF,'$'
DATA ENDS
SSEG SEGMENT STACK
DW 100 DUP()
SSEG ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV CX,9
MOV SI,OFFSET XDAT
MOV AL,[SI]
L2: CMP AL,[SI+1]
JC L1
MOV AL,[SI+1]
L1: INC SI
LOOP L2
CALL DISPP
MOV DX,OFFSET W
MOV AH,9
INT 21H
MOV AH,4CH
INT 21H
DISPP PROC NEAR
PUSH DX
PUSH CX
MOV DL,AL
MOV CL,4
ROL DL,CL
AND DL,0FH
CALL DISP1
MOV DL,AL
AND DL,0FH
CALL DISP1
POP CX
POP DX
RET
DISPP ENDP
DISP1 PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AL,DL
MOV BX,OFFSET TAB MOV AH,0
ADD BX,AX
MOV DL,[BX]
MOV AH,2
INT 21H
POP DX
POP CX
POP BX
POP AX
RET
DISP1 ENDP
CODE ENDS
END START。