人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB, 即可引用CashRMB方法. function CashRMB(CashAmount: Double): String 如: procedure TForm1.Button1Click(Sender: TObject) begin QRLabel1.Caption := CashRMB(Table1.FieldByName( 金额 ).AsFloat) end 结果将传回人民币金额大写字符串. 如果 CashAmount = 0 或数值溢出(超出万亿位),结果返回空串. 2.说明: -------- A.本转换程序最大程度只支持到万亿元(位)的金额数值转换操作.如果你的 转换数值超出此极限,你可以在调用前先行判断数据的合法性,如果没有作预 先判断,转换过程中将引发本单元中自带的错误处理例程. b.该转换结果符合标准金额大写书写格式,零角零分等字样不存在于最终的 转换结果中. c.本转换程序自带数据溢出等数据非法及转换错误等处理例程. d.本程序适用于32位的Delphi版本.
上传时间: 2013-12-31
上传用户:hebmuljb
Visual Basic 6.0可以通过调用API函数格式化一个磁盘,无论是软盘还是硬盘。 打开一个新的项目(工程1) ,如果你没有更改过缺省模式,那么Visual Basic 6.0会自动添加一个form1文件,在form1上添加一个命令控件,将下面的代码拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 运行此程序。 注意FormatDisk函数的第一个变量很重要,他的值是0,1,2时代表格式化的分别是:A、B、C盘。
上传时间: 2015-10-05
上传用户:kytqcool
第12章(/12/) BasicUSB.SchDoc 电路原理图 FX2Test/FX2Test.Uv2 Keil C51工程 FX2Test/EZUSB.LIB EZ-USB库文件 FX2Test/dscr.a51 USB描述符 FX2Test/USBJmpTb.OBJ USB中断跳转表 FX2Test/syncdly.h 同步延时 FX2Test/lpregs.h 寄存器声明 FX2Test/lp.h EZ-USB头文件 FX2Test/fw.c C51主程序 FX2Test/periph.c 初始化及任务调度 FX2Test/FX2Test.hex 单片机Hex文件 FX2Test/STARTUP.A51 启动代码 程序描述:使用Cypress提供的EZ-USB开发工具包进行基本的固件程序设计。 安装:把源码拷贝到硬盘特定目录下,使用Keil C编译器运行即可。 注意:这里需要添加完整的头文件及库文件才可以编译。
上传时间: 2016-01-17
上传用户:cooran
VIP专区-嵌入式/单片机编程源码精选合集系列(13)资源包含以下内容:1. CPMinterrupt 860中断管理.2. 菲利普LPC900系列写Flash源码.3. 前段时间做了一个AT91M55800的芯片测试.4. tms320c5402 bootloader.5. tms320c54x realtime os.6. tms320 c5416 boot code.7. MGLS-240128TA液晶点阵显示驱动程序.8. 嵌入式WINDOWSCE的书.9. 嵌入式TCP/IP包.10. sl811hs的host源程序.11. 嵌入式产品中的osip的源代码..12. msp430的FLASH自编程子程序.13. IGNITE开发板说明书.14. 嵌入式实时系统中的优先级反转问题.15. 仅供参考.16. 仅供参考.17. LCD driver 程序.18. 一个能跨页面读写的I2C源码.19. 一个2051控制两个步进电机的源码.20. 1330液晶源码(可直接调用汉字).21. pcf8583 常用时钟芯片的使用.22. 1815 LCD drive IC 类驱动测试程序.23. 内存检测程序源代码.24. 嵌入式系统词汇表.25. demonstrate how to use the bulk endpoint pairing feature of the EZ-USB chip.26. A Simple isochronous transfer. Reads 8051 ports A,B and C, and continuously sends a five byte packet.27. 44b0x bootloader.28. 键盘只有一个键 b.29. tornado安装说明及KEY.30. 6711a板程序的傅立叶变换.31. 6711开发的源程序.32. 6711开发程序例子.33. 6711开发板源程序.34. 6711开发板源程序.35. 智能楼宇自动控制系统.36. YAFFS的升级版本YAFFS2.37. 嵌入开发笔记 用ps阅读器打开.38. 嵌入式系统的重要概念.39. 嵌入式系统的调试方法.40. 一个在mck2407板上控制无刷电机恒速运行的程序.
上传时间: 2013-07-21
上传用户:eeworm
lib
标签: lib
上传时间: 2013-04-15
上传用户:eeworm
EZ-USB2100系列单片机原理,编程及应用 .PDF
上传时间: 2013-06-18
上传用户:eeworm
专辑类----单片机专辑 EZ-USB2100系列单片机原理,编程及应用-353页-10.5M.rar
上传时间: 2013-07-25
上传用户:450976175
专辑类-PCB及CAD相关资料专辑-174册-3.19G lib.zip
上传时间: 2013-04-24
上传用户:海陆空653
专辑类-单片机专辑-258册-4.20G EZ-USB2100系列单片机原理-编程及应用-353页-10.5M.PDF
上传时间: 2013-06-17
上传用户:jhksyghr
近年来,随着多媒体技术、计算机网络与通信技术的的快速发展,传统的监控系统也不断向着新的发展方向进行着不断的更新与发展。进而随着嵌入式技术的出现以及人们对降低监控系统成本和提高可靠性的迫切需求,基于嵌入式系统的网络视频监控系统将成为新的研发热点。 本文的目的是把嵌入式技术与计算机网络技术相结合,构造一个性能稳定且具有较强处理能力的数字化远程视频监控系统。该监控系统以嵌入式Linux系统平台作为服务器端,服务器程序在其上以后台方式运行,等待监控系统环境中的客户机使用浏览器向其发送访问请求,实现在局域网乃至Internet网上对摄像头的远程控制。 文中把系统设计分为三大部分:系统硬件设计、嵌入式Linux在硬件平台的实现和系统软件设计。硬件设计部分首先提出了整个硬件系统的实现方案,接着详细介绍了S3C2410处理器与存储器、以太网控制器芯片以及USB和串口的接口电路设计;第二部分详细叙述了嵌入式Linux在本系统硬件平台的移植实现及应用程序的开发特点,重点讲述了本系统平台上Linux的引导加载程序Bootloader的设计过程;系统软件部分首先介绍了USB接口摄像头驱动在嵌入式Linux下的实现,重点讲述了Video4Linux下视频采集的实现,接着论述了如何实现图像的JPEG压缩,最后针对基于B/S模式的网络通信系统结构,详细阐述了网络通信的具体实现过程和方法。 最后在办公室局域网通过对系统测试,显示了系统运行结果,实现了利用局域网或Internet网对远程环境进行监控的功能。
上传时间: 2013-07-04
上传用户:lgnf