51单片机--PASCAL语言实例3：驱动蜂鸣器

最新推荐文章于 2021-02-22 21:44:05 发布
最新推荐文章于 2021-02-22 21:44:05 发布
阅读量281 收藏
点赞数
分类专栏： 51单片机 Turbo51 文章标签： 单片机 pascal
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43754719/article/details/113821676
版权
本文详细介绍了如何使用PASCAL语言在51单片机上编写程序，实现对蜂鸣器的驱动控制。通过实例代码解析，读者将掌握相关编程技巧和硬件交互方法。
摘要由CSDN通过智能技术生成 
// 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器
// 本程序控制蜂鸣器发声，CPU 电路图 见实例 1
// 蜂鸣器电路图见代码后

// 主程序 Test3.pas
Program NewProgram;
uses
    Delay; // 引用延迟函数单元
var
    FM:Boolean absolute P0.7 ;
   
const 
    BEEP_ON=FALSE;      // 低电平开蜂鸣
    BEEP_OFF=TRUE;      // 高电平关蜂鸣
      
begin
最低0.47元/天 解锁文章
大郭小工
关注
专栏目录
51单片机-PASCAL语言实例 13：非面向对象驱动LCD1602
采菊东篱下
02-23 250
实例12中，我用OOP编写了 LCD1602 驱动，测试时发现不能正确显示，研究很久也没有解决，另外发现OOP代码比非OOP代码长了400多字节，在单片机中有点多了，还是用回非OOP吧。电路图同上例，代码如下： // TestLCD1602NotOOP { // 51单片机 pascal 语言 示例 // LCD1602 写字符 // 使用 Turbo51 编译器 } Program TestLCD1602NotOOP; uses LCD1602NotOOP; .
51单片机-PASCAL语言实例：认识重要单元SYSTEM.PAS
采菊东篱下
02-17 389
// system.pas 单元开发时不用引用，这是编译器核心包含的 // 该单元定义了8051单片机所有资源 // 熟悉该单元是对使用TRUBO51 开发程序的基础
51单片机--PASCAL语言实例 1:亮灭一只LED
采菊东篱下
02-15 345
/* 单片机程序开发，一直以来的都是用C语言开发，对于广大的PASCAL爱好者来说，是一种遗憾。 好在外国有大神开发了TURBO51编译器，详情大家可以在百度一下。 Turbo51编译的HEX文件高效短小，比SDCC小4至5倍，虽不开源，但可免费使用，作为业余应用开发，足够了。 */ //下面的程序用来闪烁一支LED灯 //延时单元 delay.pas unit Delay; interface procedure Delayms(ms:integer); implementation procedu
《Windows高级编程指南(第三版)》(含PASCAL例子)
01-13
本书以详尽资料和大量的范例深入讨论了有关32位Windows编程的高级问题，包括进程和线程的管理、Win32的内存管理、消息处理、动态链接库、文件系统和设备输入输出、结构化异常处理、Unicode等，并重点讨论了Windows 95和Windows NT在实现上的不同之处，其中包含了大量的编程技巧。 本书可供高等院校计算机专业的师生和广大的计算机编程人员使用。----------《Windows高级编程指南(第三版)》 原书: Advanced Windows (3rd Ed) 作者: Jeffrey Richter 译者: 王书洪 刘光明---------- 抽空将书中的C程序用PASCAL写了一遍, 由于水平所限, 可能存在错误, 仅供参考! 感谢网友chinesexing提供PDF电子书! 感谢老朋友savetime兄提供附书代码! 刘麻子 于 05年7月7号----------附上代码列表: CopyData -- 利用WM_COPYDATA跨进程传递数据 VMStat -- 显示虚拟内存状态 VMAlloc -- 使用虚拟内存 (保留、提交、回收、释放) VMMap -- 遍历VMMap.exe进程的虚拟内存空间 DIPS & -- 进入Explorer.exe进程以操作桌面项目 DIPSLib SysInfo -- 显示系统相关信息 MMFShare -- 利用内存映射共享数据 FileRev -- 利用内存映射处理文件 Counter -- 纤程例子 (后台纤程以低优先级作运算) DiskInfo -- 显示本地逻辑驱动器信息 MultInst -- 使用EXE中带有共享属性的PE节存储数据 TInjLib & -- 远程线程装载指定DLL到指定进程空间 ImgWalk LISLab -- 实验"局部输入状态" (Local Input State) TLSStat -- 在EXE模块中使用静态TLS TLSDyn & -- 在DLL模块中使用动态TLS SomeLib ModUse & -- 使用DLL中带有共享属性的PE节存储数据 Module DocStats -- 利用事件对象使多个线程协同工作 (统计文档) Mutexes -- 利用互斥对象使(计算/显示)两个线程同步 DirWalk -- 遍历DirWalk.exe所在磁盘目录树 FileChng -- 监视目录变化 CritSecs -- 利用临界区对象使(计算/显示)两个线程同步 SprMrkt -- 利用互斥对象和信号量对象控制"超市"运转 SEHSum -- 利用SEH机制, 修复堆栈溢出 SEHTerm -- 演示SEH终止处理和异常抛出 SEHExcpt -- 利用SEH机制, 稀疏提交数组内存 SEHSoft -- 抛出自定义异常通知程序清零记录 Bucket -- SWMRG复合同步对象 (单写入/多读取) AlertIO -- 利用"回调通知"进行文件拷贝 (异步&分块) IOCmpPrt -- 利用"完成端口"进行文件拷贝 (异步&分块)
《Windows高级编程指南》PASCAL例子.rar
07-10
《Windows高级编程指南》PASCAL例子，全书实例源码，涉及：SEHExcpt、DIPSLib、MultInst、Module、Counter、CopyData、AlertIO、FileChng、IOCmpPrt、MMFShare等操作，全部是源代码，学习PASCAL的好素材。
51单片机--PASCAL语言实例2:逐一轮流点亮LED
采菊东篱下
02-16 444
// 此程序 电路图 同接 实例1 // 留意 二进制常数、十六进常数的表示方法 // 留意 SHL(在移位） 、按位取反NOT、按位与AND // 主程序单元 Test2.pas Program NewProgram; uses Delay; var Led:byte absolute P1 ; i:byte; begin while True do begin Led:=%11111111 ; //初始化全灭,也可以用16进制表示
51单片机-PASCAL语言实例10：用Lazarus开发串口应用程序
采菊东篱下
02-19 1439
实例9中，我是通过STC-ISP软件中串口助手调试单片机程序的，不太直观，能否在PC上用PASCAL写一个程序通过串口与单片机沟通呢。完全可以，可以用免费的开发环境LAZARUS开发，安装 lazSerial 后，进行快速开发。
51单片机-PASCAL语言实例9：串口编程之多字节收发
采菊东篱下
02-18 983
本程序使用 Turbo51( https://turbo51.com/ ) 单片机 PASCAL 编译器 演示了单片机串口 按自定协议收发串口数据
51单片机-PASCAL语言实例 6：使用定时器0
采菊东篱下
02-16 284
// Test6.pas Program NewProgram; // 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器 // // // 本程序演示 如何对定时器 1 编程 ,每次中断后逐一连续点亮LED灯 // CPU 电路图、LED灯、蜂鸣器电路图请看前面实例 // 8051 单片机有两个定时器/计数器： T0 与 T1 // uses Delay,MyDefine; // 定义定时器0中断程序 ,中断号
51单片机--用PASCAL语言实例4:独立按键检测
采菊东篱下
02-16 282
Program NewProgram; // 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器 // // 开发环境使用 MC-51 集成开发环境 // 本程序对独立按键 KEY1 , KEY2 , KEY3 , KEY4 进行检测并开关对应的LED // uses Delay; var // 定义LED 和 KEY 对应的 I/O KEY1:boolean absolute P3.3 ; KEY2:boole
51单片机-PASCAL语言开发环境搭建
采菊东篱下
02-16 566
要用PASCAL语言开发8051单片机，可以下载推荐的集成开发环境 MC-51 或 Turbo51 studio , 这些 IDE 已集成编译器，无须独立下载。但我不太喜欢这些集成环境，主要是代码编辑器颜色太单调了，我是用pspad 的。搭建步骤如下： 1. 下载编译器。访问 [http://turbo51.com,](http://turbo51.com) 下载解压后放到自己喜欢的目录下。 该编译器是纯命令行的。 2. 下载pspad 安装。 3. 运行PSPAD ,点菜单【设置】-【语法
51单片机-PASCAL语言实例8：串口编程之发送数据
采菊东篱下
02-18 372
// Test8.pas Program NewProgram; // 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器 // // // 实例 7 演示了单片机接收串口数据，本实例演示如何通过串口发送数据 // CPU 电路图请看 实例 1 // // uses Delay,MyDefine; // 串口中断,中断号serial在 system 中定义 procedure OnSerial; interr
51单片机-PASCAL语言实例 12：面向对象驱动LCD1602
采菊东篱下
02-22 396
Turbo51 编译器支持Turbo pascal 7 面向对象语法，虽然不完善，但还是可以一用。 下面代码实现了一个LCD1602类，不是很完美。主要端口指定无法集成在类中，目前只能将端口定义LCD1602PortDef.inc, 在类文件 LCD1602.PAS 中用 {KaTeX parse error: Expected 'EOF', got '}' at position 22: …602PortDef.inc }̲ ，实现一定的灵活性。另外，T…M $0000, $1000, $0000, $.
Pascal实用代码模板
一生悬命
08-23 2998
部分同学对在写Pascal时常常感觉无从下手，忘记某些单词，时不时向老师求助，这些基本上是语法基本功不到位。 解决这类问题方法我认为有两个： 第一，保存好你所有写过并且调试成功的程序代码（pascal文件），一旦遇到同类的程序，可以翻找以前的代码看。 第二，也是我认为学编程最好的方法，就是经常整理一些实用的代码片段，虽不一定要像英语单词那样去背诵，但是你至少要做到信手拈来！不应该常犯一些低级
对比PASCAL和C语言的差异
weixin_34344677的博客
07-04 1846
对比PASCAL和C语言的差异 掌握基本语法之后，快速掌握一种语言的第二技巧是和你熟悉的一种开发语言对比一下。 记得当年学习程序设计语言的时候。我们班也和现在的网络上一样，有喜欢PASCAL的，有喜欢C语言的。两边争得不亦乐乎。其实Turbo C和Turbo Pascal在Borland的调教之下，功能是差不多的。 其实我是先用Turbo Pascal，再转入Borla...
free pascal语言学习笔记（一）
zyzzate的专栏
06-03 2186
最近在学习pascal语言,在这里记录一下学习的进度和学习笔记首先来看一下最简单的pascal语言程序,最经典的helloworldprogram helloworld; begin writeln('hello world!'); end.首先需要强调一点的是,与大多数的程序设计语言不同,pascal语言是大小写不敏感的语言,不仅你定义的标识符是不区分大小写的,连它本身的关键字或者标准标识
grz-Pascal语言：山峰山谷搜索算法详解及教学设计
山峰和山谷（grz）是Pascal语言中的一个重要概念，它涉及到搜索算法的应用。问题来源于实际生活中的爬山体验，Byteasar需要计算给定地图中符合特定条件的山峰和山谷的数量。这些条件包括： 1. 定义： - 山峰和山谷...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值