将DELPHI代码变为BCB代码
有时Delphi应用程序与C＋＋Builder应用程序可能需要相互转换。这种转换虽然费时，但并不困难（顺便说一句，进行转换时，我将Delphi与C＋＋Builder同时运行）。
这里只介绍将Delphi变为C＋＋Builder的过程，反过来也差别不大。
将Delphi变为C＋＋Builder主要有两步。
第一步是将Delphi应用程序窗体复制到C＋＋Builder项目中，第二步是修改Delphi 代码。一般情况下这都是没有必要的，除非你想改写为C++代码。
下面详细介绍这两个步骤：
首先要复制Delphi窗体到C＋＋Builder应用程序中。Delphi窗体与C＋＋Builder窗体使用相同的基本格式，但至少有一大差别。显然，窗体文件包含窗体本身和窗体上每个构件的尺寸和位置。但窗体文件中也还包含事件信息。具体地说，窗体文件包括窗体及其构件所建事件处理器的描述。在Delphi窗体文件中，事件引用的事件处理器是Delphi方法，而在C＋＋Builder窗体文件中，事件指向C＋＋Builder事件处理器。自然，要删除Pascal 引用才能在C＋＋Builder中使用窗体。你不一定要知道这些细节，但将Delphi转为C＋＋Builder时必须考虑这个因素。
复制Delphi主窗体的步骤如下：
1.打开Delphi项目并记下主窗体文件名及其Name属性。
2.切换到C＋＋Builder中，选择主窗体，将Name属性变为与Delphi项目主窗体同
名。保存C＋＋Builder项目，保存主窗体单元，用Delphi中窗体的同一文件名
（除去.PAS扩展名）。将项目存为与Delphi项目相同的名称。
3.切换到Windows Explorer中，将Delphi的项目目录中的主窗体窗体文件(.DFM文件）
复制到C＋＋Builder项目目录中。一定要复制文件并不是移动文件。Windows
Explorer警告说目标目录中已经有同名文件。单击Yes改写C＋＋Builder目录中
的窗体文件。如果没有这个警告，则一定是保存C＋＋Builder项目时出了错。
4.切换回C＋＋Builder，出现一个对话框，说Module xxx.cpp's time／date has changed.
Reload?单击Yes重装窗体。窗体重装后，即会包含Delphi窗体中的构件。
5.确保窗体选中并选择C＋＋Builder主菜单中的Edit|Select All选择所有窗体的构
件。然后选择主菜单中的Edit|Cut和Edit|Paste，这样就把各个构件的所有声明放到
主窗体的头文件中。
6.这时要从C＋＋Builder窗体文件中删除所有Delphi的事件处理器的引用，这很简
单：
a)选择C＋＋Builder主菜单中的File|Save或单击工具条上的Save File
b)C＋＋Builder会显示每个事件处理器的消息框。每次出现对话框时单击Yes，
以便删除所有事件处理器。也许要单击Yes几十次才能删除所有事件处理器
（我曾为一个窗体删除100个事件处理器!)。
这样就复制了窗体，可以转入代码转换了。说明：Delphi应用程序中的每个窗体都要重复上述步骤。
转换代码从Delphi向C＋＋Builder转换代码要比复制窗体复杂得多，有许多方法可用，但我用的方法如下：
首先要找出编程人员（而不是Delphi）生成的各个变量和方法。找到Delphi单元中的主窗体类声明。记下private或public部分声明的各个变量和方法。将这些声明复制到剪贴板上。
例如，Delphi类声明可能如下所示：
Private
{
Private declarations
}
DrawColor:TColor;procedure
DoDrawing;function
SetDrawColor:Integer;
这里要复制DrawColor、DoDrawing和SetDrawColor的声明。切换回C＋＋Builder，在代码编辑器中显示主窗体的头。找到private部分并粘贴剪贴板中的代码。
将粘贴的声明转换为C＋＋语法。
例如，第3步的声明可能转换为如下：
private://User declarations
TColor DrawColor;
void DoDrawing();
int SetDrawColor();
切换回Delphi。在Delphi单元的implementation部分，找到类声明中声明的方法（这里为DoDrawing和SetDrawColor)，将Delphi单元中的方法复制到剪贴板上。
切换到C＋＋Builder中，将第6步复制到剪贴板上的方法粘贴到窗体源单元中。将方法的Pascal语法转换为C＋＋语法。别管函数体和begin与end语句，这些将在后面处理。
下一步要将Delphi单元中的事件处理器的代码复制到C＋＋Builder单元中。我认为最好的办法是从Delphi单元的implementation部分开始往下干。遇到Delphi单元中事件处理器时的做法如下：
1.记下事件处理器名，如果是Button1Click，则表示构件Button1的OnClick事件的事件处理器。
2.将事件处理器代码复制到剪贴板上。
3.切换到C＋＋Builder中，产生与复制代码的事件处理器相符的事件处理器。
4.将Delphi代码从剪贴板粘贴到事件处理器中。对Delphi单元中每个事件处理器重复1到4步。
完成之后，C＋＋Builder项目中就有几个事件处理器了。这些事件处理器包含Pascal 代码，还要变成C＋＋代码。这可以利用C＋＋Builder Replace Text对话框进行。
下表列出了寻找的Pascal语法和替换的C＋＋语法文本。寻找和替换文本中的空格用小句号表示。通常应按表的顺序进行寻找和替换操作。
Delphi转化为BCB的替换文本:
说明Delphi文本替换为BCB文本
等于操作符====
赋值操作符:==
不等操作符<>!=
成员操作符.->
字串引号‘“
开始说明{//
结束说明}无
Pascal True关键字True true
Pascal True关键字False false
if语句if if(
块首begin{
块尾end;}
块尾（第2种形式）end}
Pascal then语句then)
Pascal do语句do.无
Pascal not语句not.!
Pascal nil关键字nil NULL
Pascal case语句case switch(
Pascal case语句of){
Pascal self关键字Self this
进行寻找与替换时，应使用Replace All选项，但使用时应小心。例如:不能在文件开头将所有句号换成>，因为每个C＋＋Builder源单元前几行包含带文件名的include语句。一定要先将Pascal说明语句(以{开头,}结束)换成C＋＋说明，然后再替换begin和end语句。替换as end之类的单词时，应在Replace Text对话框中打开Whole words only选项，这样就保证不会误换长字中的各个字符。注意，有些寻找与替换会带来不良的后果（如把分开文件名及其扩展名的句号换成>）。进行寻找替换操作后，文件就混合了Pascal和C＋＋，接下来要手工完成余下的转换工作，要对每种语言有充分的了解，才能将Pascal语法转换成C＋＋语法。
从此你可以随心所欲地处理了，我只想指出转换时要注意的几点。
首先，C＋＋没有对应Pascal with语句的项目，以下列代码为例：
with MyForm do
begin
Width:=200;
Height:=500;
Caption:='Hello there';
end;
转换成C＋＋Builder时，要具体引用每个属性：
MyForm>Width:=200;
MyForm>Height:=500;
MyForm>Caption:='Hello there';
另一个较难转换的Pascal语句是as语句。Delphi程序中通常会这么干：
with Sender as TButton doClick;
转换成C＋＋Builder时则应这么干：
TButton*button=dynamic_cast(Sender);
if(button)button->Click();
另一个需要特别注意的是字串处理。Pascal的字串操作函数能处理String数据类型，而C＋＋Builder则用AnsiString类的字串操作函数。
以下列Pascal语句为例：
x:=StrToInt(Edit.Text);
转换成C＋＋Builder时代码如下：
x=Edit>Text.ToInt();
集合也是Delphi的转换成C＋＋Builder时的一个难题。
复用窗体:
也可以不把Delphi转换成C＋＋，可以在C＋＋Builder中直接使用Delphi窗体。只要将窗体的.PAS文件直接加进C＋＋Builder项目中。C＋＋Builder即会生成Delphi单元的头，可以在任何引用Delphi窗体的C＋＋Builder单元中使用。说明尽管可以将Delphi窗体直接加进C＋＋Builder项目中，但不能用C＋＋Builder窗体设计器编辑这个窗体。窗体的图形化修改只能在Delphi IDE中进行，而C＋＋Builder IDE中只能对窗体进行文本式编辑。为了对窗体进行文本式编辑，选择C＋＋Builder窗体设计器弹出菜单中的View As Text选项。
——Delphi与C＋＋Builder的竞争性小于互补性。如果知道如何用C＋＋Builder编程，就很容易用Delphi编程。从Delphi转向C＋＋Builder的困难在于C＋＋语言的复杂性，但如果要从Delphi转向C＋＋Builder，则至少比从头学一个新的框架快。毫无疑问，同时熟悉C＋＋Builder和Delphi能使你的编程水平更高。
excel合并工作簿和工作表的代码
把多个工作簿合并到一个工作簿作为新工作簿的一张表（宏代码） Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = https://www.wendangku.net/doc/3f7614067.html, Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & https://www.wendangku.net/doc/3f7614067.html, Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub 具体操作：在工作簿目录下新建一工作簿，工具---宏----编辑器----插入—模块---粘贴代码==运行 excel如何将一个工作簿中的多个工作表合并到一张工作表上 打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False
简易计算器的设计与实现
沈阳航空航天大学 课程设计报告 课程设计名称：单片机系统综合课程设计课程设计题目：简易计算器的设计与实现 院（系）： 专业： 班级： 学号： 姓名： 指导教师： 完成日期：
沈阳航空航天大学课程设计报告 目录 第1章总体设计方案 (1) 1.1设计内容 (1) 1.2设计原理 (1) 1.3设计思路 (2) 1.4实验环境 (2) 第2章详细设计方案 (3) 2.1硬件电路设计 (3) 2.2主程序设计 (7) 2.2功能模块的设计与实现 (8) 第3章结果测试及分析 (11) 3.1结果测试 (11) 3.2结果分析 (11) 参考文献 (12) 附录1 元件清单 (13) 附录2 总电路图 (14) 附录3 程序代码 (15)
第1章总体设计方案 1.1 设计内容 本设计是基于51系列的单片机进行的十进制计算器系统设计，可以完成计算器的键盘输入，进行加、减、乘、除1位无符号数字的简单四则运算，并在6位8段数码管上显示相应的结果。 设计过程在硬件与软件方面进行同步设计。硬件方面从功能考虑，首先选择内部存储资源丰富的8751单片机，输入采用4×4矩阵键盘。显示采用6位8段共阳极数码管动态显示。软件方面从分析计算器功能、流程图设计，再到程序的编写进行系统设计。编程语言方面从程序总体设计以及高效性和功能性对C语言和汇编语言进行比较分析，最终选用汇编语言进行编程，并用protel99se涉及硬件电路。 1.2 设计原理 在该课程设计中，主要用到一个8751芯片和串接的共阳数码管,和一组阵列式键盘。作为该设计的主要部分，下面将对它们的原理及功能做详细介绍和说明。 1)提出方案 以8751为核心，和数码管以及键盘用实验箱上已有的器件实现计算器的功能。 2) 总体方案实现 (1)要解决键值得读入。先向键盘的全部列线送低电平，在检测键盘的行线，如果有一行为低电平，说明可能有按键按下，则程序转入抖动检测---就是延时10ms再读键盘的行线，如读得的数据与第一次的相同，说明真的有按键按下，程序转入确认哪一键按下的程序，该程序是依次向键盘的列线送低电平，然后读键盘的行线，如果读的值与第一次相同就停止读，此时就会的到键盘的行码与列码
用delphi编写的记事本代码.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls, ToolWin, ImgList; type TForm1 = class(TForm MainMenu1: TMainMenu; RichEdit1: TRichEdit; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; FontDialog1: TFontDialog; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; PopupMenu1: TPopupMenu; FindDialog1: TFindDialog; N21: TMenuItem; PrintDialog1: TPrintDialog; N22: TMenuItem; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N31: TMenuItem; N32: TMenuItem; S1: TMenuItem; Timer1: TTimer; StatusBar2: TStatusBar; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; ImageList1: TImageList; procedure N2Click(Sender: TObject; procedure N3Click(Sender: TObject; procedure N7Click(Sender: TObject; procedure N8Click(Sender: TObject; procedure N9Click(Sender: TObject; procedure N14Click(Sender: TObject; procedure N21Click(Sender: TObject; procedure N16Click(Sender: TObject; procedure N17Click(Sender: TObject; procedure N18Click(Sender: TObject; procedure N12Click(Sender: TObject; procedure N20Click(Sender: TObject; procedure N6Click(Sender: TObject; procedure S1Click(Sender: TObject; procedure FindDialog1Find(Sender: TObject; procedure Timer1Timer(Sender: TObject; procedure N24Click(Sender: TObject; procedure N25Click(Sender: TObject; procedure N26Click(Sender: TObject; procedure N27Click(Sender: TObject; procedure N28Click(Sender: TObject; procedure RichEdit1MouseMove(Sender: TObject; Shift:
EXCEL多个相同的表格合成一个表格
EXCEL多个相同的表格合成一个表格 先将30多个表合并到一个工作薄中，再将工作薄中的30多个表合并到一个工作表中，具体如下：1.新建一个excel文件并打开，按ALT+F11-->插入-->模块，将下面的代码复制到模块中： Sub merge() Dim FileSet Dim i As Integer Dim filename On Error GoTo 0 Application.ScreenUpdating = False FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xls x),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件") If TypeName(FileSet) = "Boolean" Then GoTo ExitSub End If For Each filename In FileSet Workbooks.Open filename Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next ExitSub: Application.ScreenUpdating = True End Sub 点击运行，类似于播放的那个按钮，或者点击菜单上的运行下的运行子过程，将需要合并的表全部选上，（最好是将需要合并的工作表放到一个文件中，便于选择）确定。 2.再一次的插入模块，左边会显示插入模块2，同样将下面代码复制到模块2中，如下： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> https://www.wendangku.net/doc/3f7614067.html, Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True
VC_与Delphi源代码的互译详解
Computer Knowledge and Technology 电脑知识与技术第7卷第32期(2011年11月)VC++与Delphi 源代码的互译详解 许苗村，陈业恩 （海南软件职业技术学院软件工程系，海南琼海571400） 摘要：以大量举例的形式给出了VC++与Delphi 的代码互译，首次做到了对VC++与Delphi 程序的沟通，为算法研究及软件开发人员提供了可靠的代码转换依据，具有非常重要的意义和应用价值。 关键词：VC++；Delphi ；互译 中图分类号：TP311文献标识码：A 文章编号：1009-3044(2011)32-7924-04 VC++and Delphi Source Code Mutual Translation XU Miao-cun,CHEN Ye-en (Hainan College of Software Technology,Qionghai 571400,China) Abstract:The article gives VC++and the Delphi code mutually translation by the massive examples,for the first time to do the VC++and the Delphi code communication,which provides the reliable code conversion basis for the algorithm research and the software develop?er and has the extremely vital significance and the application value. Key words:VC++;Delphi;Mutually translation 一个程序开发员常常手中掌握了一种语言的代码，但却需要以另一种开发平台进行开发，为解决此问题，本文通过举出大量实 例对VC++与Delphi 语言中的一些不同之处进行了对应互译，解决了不同开发平台之间沟通难的问题[1-4]。 1运算符互译 表1为VC++与Delphi 的算术、位、逻辑运算符 互译对照表。2源代码的互译详解 2.1单元的引用 VC++中单元引用部分include 用于列出该单元要引用的标准库单元（诸如①）和其它库单元 （诸如②），这类似于Delphi 中的uses 语句，可以把外部的已声明过的常量、类型、变量、过程或函数引入到本单元中使用，使得功能更加强大，使用更加方便。VC++：#include
excel多个文件合并代码
然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示： Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = https://www.wendangku.net/doc/3f7614067.html, Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536") .End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & https://www.wendangku.net/doc/3f7614067.html,
Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub
MFC做的一个简单的计算器
目录 一.设计题目。 (1) 二.设计目的和内容。 (1) 三.基本功能描述。 (2) 四.设计思路。 (2) 五.软件设计：设计步骤、界面设计、关键功能的实现。 (3) a)设计步骤。 (3) b)界面设计。 (4) c)关键功能的实现。 (5) 六.附录。 (8) 一.设计题目。 小型计算器程序的编写. 二.设计目的和内容。 【设计目的】 1学习Visual C++的MFC开发程序的步骤。 2综合运用所学的类、继承和多态的知识。 3进一步掌握程序的调试方法。 【设计内容】 1利用MFC的向导，创建基于对话框的应用程序，添加按钮、编辑框等控件； 第1页
2实现算术加、减、乘、除等运算； 3选做：三角函数的运算、对数运算、指数运算、进制转换等。 三.基本功能描述。 具备整型数据、浮点型数据的算术（加、减、乘、除）运算功能。依次输入第一个运算数、运算符（+，-，*，/）、第二个运算数，然后输出结果，按‘C E’键清屏。 四.设计思路。 a)首先考虑对所有按键分为两类，数字类和符号类。0,1,2,3,4,5,6,7,8,9为 数字类，+，-，*，/为符号类。数字在计算过程中最多需要保存两个，所以定义了两个double型变量num1和num2来进行存储，符号需要一个char型变量cal来存储。 b)为显示数字的编辑框设立一个double型的关联变量m_Num，为显示符号的编 辑框设立一个CString型的关联变量m_result，设立一个int型的小数点标志dotflag，设立一个int型的键入数字标志numflag，设立一个long型的小数部分权值quan,最后为了防止用户输入错误，设立一个判断输入是否为数字的int型标志mark。 c)然后考虑到在计算过程中num1和num2的储存状态有三种，num1==0和 num2==0，也就是程序开始运行还没有开始录入数字的状态；num1!=0和num2==0，也就是第一个数字已经录入，第二个数字还没有录入的状态这时候把m_Num的值赋给num1，m_Num归零；num1!=0和num2!=0,把m_Num的值赋给num2,m_Num归零，令m_Num等于num1和num2合并后的值。
图片压缩大小的方法,在线压缩图片的方法
图片压缩大小的方法，在线压缩图片的方法图片怎么压缩大小，在线压缩图片大小的方法你知道吗？现在的科技比较发达，图片文件都会超过很多网站的规定大小，其实图片压缩的方法还是比较多的，就看能不能选择对压缩软件了，下面教给大家一种压缩图片的方法，大家一起来看吧。 操作选用工具：迅捷压缩软件 迅捷压缩软件：https://https://www.wendangku.net/doc/3f7614067.html,/compress 具体操作步骤如下： 1：将压缩软件安装到自己的电脑中，打开软件就可以看到三个选项，点击左边的图片压缩进入到压缩的页面。 2：在压缩的页面可以看到选择文件，选择需要进行压缩的图片文件，可以选择多张图片一起压缩，也可以添加文件夹，将文件夹中的图片文件添加到压缩页面。
3：在添加文件后，在下面可以看到压缩选项以及压缩的输出格式，将压缩的选项设置到自己需要的类型，输出格式设置为原格式，也可以设置为其它的格式，随自己的需要进行即可。 4：在底部可以找到，保存至，将文件压缩完成的保存路径设置
到指定的位置，方便找寻即可。 5：点击开始压缩，需要压缩的文件就会在压缩的过程中，压缩完成的图片文件会直接保存到指定的文件夹路径中。
在线压缩图片的方法。 1：在浏览器搜索图片压缩，找到这样一种在线网站，进入到网网站中，
2：在网站的首页导航栏的位置可以找到文档处理，点击文档处理就可以找到图片压缩，点击图片压缩进入到压缩的页面。 3：在压缩的页面可以找到选择文件，选择需要进行压缩的图片文件，可以选择四张图片文件。 4：添加图片后，在下面找到压缩的选项以及输出格式，将压缩选项和输出格式设置到自己需要的选项即可。
第02讲 简易计算器的设计
第02讲计算器 2.1 计算器简介 大家都知道，计算器是日常生活中不可缺少的一个工具，在Microsoft的Windows操作系统中，附带了一个计算器程序，有标准型和科学型两种模式。Windows XP下的标准型和科学型计算器程序分别如图2-1和图2-2所示。 图2-1 Windows XP下的标准型计算器 图2-2 Windows XP下的科学型计算器 Windows操作系统下附带的计算器程序功能相当的强大，本课我们将模仿Windows的计算器，使用Visual C# 2005开发平台开发一个功能相对简单的计算器应用程序，它能完成加、减、乘、除运算。 接下来详细的介绍简易计算器的设计方法和步骤。
2.2 界面设计及属性设置 用户界面设计是软件开发中非常重要的一个部分，用户界面的好坏直接影响软件的质量，本节将介绍如何设计简易计算器的用户界面以及界面上各控件的属性设置。 2.2.1 界面设计 打开Visual Studio 2005开发工具，新建一个Windows应用程序，然后在窗体上依次放置1个TextBox和17个Button控件，如图2-1所示（设置好属性后）。 图2-1 计算器用户界面 2.2.2 属性设置 窗体和各控件的属性设置如表2-1所示。 表2-1 窗体和各控件的属性
2.3 编写代码 本程序需要用到一些公共变量，例如用来接收操作数、运算结果，判断输入的是否为小数等，因此首先在代码的通用段声明以下变量： //****************************************************************** double num1, num2, result; // 操作数及运算结果 bool decimalFlag = false; // 判断输入的是否为小数 string myOperator; // 操作类型 //******************************************************************
宏代码-合并工作表
宏代码—工作表合并 一、关于宏的EXCEL设置 1.设置快捷宏图标：文件—EXCEL选项-常用-在功能区显示“开发工具”选项卡打钩 2.删除宏：宏-选中相应的宏-删除
3.取消出现安全隐私警告：EXCEL选项-信任中心-信任中心设置-个人信息选项-将”保存时从文件属性中删除个人信息“前面的勾去掉
二、合并当前工作簿下的所有工作表 1.我们现在开始合并，首先要在最前页新建一个工作表。如图： 2.在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。如图所示：
看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> https://www.wendangku.net/doc/3f7614067.html, Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub 或者如下： Sub 合并() For I = 2 To Sheets.Count '如果工作表的第一行都一样，就把下 Rows("1" & 的1改成2就好了 Sheets(I).Rows("1" & ":" & Sheets(I).Range("A60000").End(xlUp).Row). _ Copy Range("A" & Range("A60000").End(xlUp).Row + 1) Next End Sub
简易计算器
单片机十进制加法计算器设计 摘要 本设计是基于51系列的单片机进行的十进制计算器系统设计，可以完成计 算器的键盘输入，进行加、减、乘、除3位无符号数字的简单四则运算，并在LED上相应的显示结果。 设计过程在硬件与软件方面进行同步设计。硬件方面从功能考虑，首先选择内部存储资源丰富的AT89C51单片机，输入采用4×4矩阵键盘。显示采用3位7段共阴极LED动态显示。软件方面从分析计算器功能、流程图设计，再到程序的编写进行系统设计。编程语言方面从程序总体设计以及高效性和功能性对C 语言和汇编语言进行比较分析，针对计算器四则运算算法特别是乘法和除法运算的实现，最终选用全球编译效率最高的KEIL公司的μVision3软件，采用汇编语言进行编程，并用proteus仿真。 引言 十进制加法计算器的原理与设计是单片机课程设计课题中的一个。在完成理论学习和必要的实验后，我们掌握了单片机的基本原理以及编程和各种基本功能的应用，但对单片机的硬件实际应用设计和单片机完整的用户程序设计还不清楚，实际动手能力不够，因此对该课程进行一次课程设计是有必要的。 单片机课程设计既要让学生巩固课本学到的理论，还要让学生学习单片机硬件电路设计和用户程序设计，使所学的知识更深一层的理解，十进制加法计算器原理与硬软件的课程设计主要是通过学生独立设计方案并自己动手用计算机电路设计软件，编写和调试，最后仿真用户程序，来加深对单片机的认识，充分发挥学生的个人创新能力，并提高学生对单片机的兴趣，同时学习查阅资料、参考资料的方法。 关键词：单片机、计算器、AT89C51芯片、汇编语言、数码管、加减乘除
目录 摘要 (01) 引言 (01) 一、设计任务和要求............................. 1、1 设计要求 1、2 性能指标 1、3 设计方案的确定 二、单片机简要原理............................. 2、1 AT89C51的介绍 2、2 单片机最小系统 2、3 七段共阳极数码管 三、硬件设计................................... 3、1 键盘电路的设计 3、2 显示电路的设计 四、软件设计................................... 4、1 系统设计 4、2 显示电路的设计 五、调试与仿真................................. 5、1 Keil C51单片机软件开发系统 5、2 proteus的操作 六、心得体会.................................... 参考文献......................................... 附录1 系统硬件电路图............................ 附录2 程序清单..................................
Delphi7.0中如何用代码访问数据库的方法
Delphi7.0中如何用代码访问数据的方法 一、第一种方法： 1、设计的界面如下： 2、主要代码： （1）启动窗口中的主要代码： Se:= ExtractFilePath(Application.ExeName) + 'data\jczk.mdb'; //动态取出系统文件的路径ADOADOQuery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ Se+';Persist Security Info=False'; ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add('select * from yhz'); ADOADOQuery1.Open;//ADOADOQuery1.ExecSQL;本句表示不返回值时的记录集合ADOADOQuery1.Active:=true; （2）查询其它表时的代码： ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add('select * from jf11'); ADOADOQuery1.Open; ADOADOQuery1.Active:=true; （3）提示窗口：Application.MessageBox('ss','提示',64); （4）说明：DataSource1必须要与ADOADOQuery1连接在一起；DBGrid1必须要与DataSource1连接在一起。 （5）取值：EDIT1.Text:=ADOADOQuery1.FieldByName('yhz04').AsString （6）怎么使用ADOQuery1给数据库添加数据? ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into "Tab_Contron_record"'); ADOQuery1.SQL.Add('('+str_V+')'); ADOQuery1.SQL.Add('values('+str_T+')'); ADOQuery1.ParamByName('用户名').AsString:='admin'; ADOQuery1.ParamByName('连接设备IP').AsString:='192.168.18.66'; ADOQuery1.ParamByName('用户类型').AsString:='管理员'; ADOQuery1.ParamByName('连接时间').AsString:=datetimetostr(now); ADOQuery1.ParamByName('备注').AsString:='无'; ADOQuery1.ExecSQL; （7）、怎么样查询数据库中表的值，即条件查询(注意：Quotedstr()函数的使用)：cnn:='select * from sinfo where sid=200601001'; //“sid”字段为数值型可以直接使用； cnn:='select * from sinfo where sclass='+Quotedstr('高一一');//“sclass”字段为字符类型； //多条件进行查询的例子 cnn:='select * from sinfo where sclass='+Quotedstr('高一一')+' and ssex='+quotedstr('男'); ADOQuery1.Close ;
简易计算器课程设计
评阅教师评语：课程设计成绩 考勤成绩 实做成绩 报告成绩 总评成绩指导教师签名： 课程设计报告 论文题目基于ARM的简易计算器设计 学院（系）：电子信息与自动化学院 班级：测控技术与仪器 学生姓名：同组同学： 学号：学号： 指导教师：杨泽林王先全杨继森鲁进时间：从2013年 6 月10 日到2013年 6 月28 日 1
目录 1、封面—————————————————————P1 2、目录—————————————————————P2 3、前言—————————————————————P3 4、关键字————————————————————P3 5、原理与总体方案————————————————P3 6、硬件设计———————————————————P6 7、调试—————————————————————P10 8、测试与分析——————————————————P11 9、总结—————————————————————P13
10、附件—————————————————————P14 前言 近几年，随着大规模集成电路的发展，各种便携式嵌入式设备，具有十分广阔的市场前景。嵌入式系统是一种专用的计算机系统，作为装置或设备的一部分。通常，嵌入式系统是一个控制程序存储在ROM中的嵌入式处理器控制板。事实上，所有带有数字接口的设备，如手表、微波炉、录像机、汽车等，都使用嵌入式系统，有些嵌入式系统还包含操作系统，但大多数嵌入式系统都是是由单个程序实现整个控制逻辑。在嵌入式系统中，数据和命令通过网络接口或串行口经过ARM程序处理后，或显示在LCD上，或传输到远端PC上。 本文通过周立功的LPC2106芯片完成的简易计算器，正是对嵌入式应用的学习和探索。 一、摘要： 计算器一般是指“电子计算器”，是能进行数学运算的手持机器，拥有集成电路芯片。对于嵌入式系统，以其占用资源少、专用性强，在汽车电子、航空和工控领域得到了广泛地应用。本设计就是先通过C语言进行相应程序的编写然后在ADS中进行运行最后导入PROTUES进行仿真。最后利用ARM中的LPC2106芯片来控制液晶显示器和4X4矩阵式键盘，从而实现简单的加、减、乘、除等四则运算功能。 关键字：中断，扫描，仿真，计算 二、原理与总体方案： 主程序在初始化后调用键盘程序，再判断返回的值。若为数字0—9，则根据按键的次数进行保存和显示处理。若为功能键，则先判断上次的功能键，根据代号执行不同功能，并将按键次数清零。程序中键盘部分使用行列式扫描原理，若无键按下则调用动态显示程序，并继续检测键盘；若有键按下则得其键值，并通过查表转换为数字0—9和功能键与清零键的代号。最后将计算结果拆分成个、十、百位，再返回主程序继续检测键盘并显示；若为清零键，则返回主程序的最开始。 电路设计与原理：通过LPC2106芯片进行相应的设置来控制LCD显示器。 而通过对键盘上的值进行扫描，把相应的键值通过MM74C922芯片进行运算从而
Delphi 组件使用及其代码
Delphi 组件使用及其代码 1.数组定义 (1)一维数组数组名：array[n1 . . n2] of 数据类型； (2)二维数组数组名：array[n1 . . n2，m1 . . m2] of 数据类型； 或者数组名：array[n1 . . n2] of array[m1 . . m2] of 数据类型； (3)动态数组数组名：array of 数据类型； 使用前要用SetLength（数组名，数组长度）；来动态申请空间。 2.使用math数学函数： 需要在uses引用里面添加math; 其中power(a,b)函数是求a的b次幂。 RandomRange(a,b)函数是随机产生一个a、b之间的数。 3.声明全局变量 需要在implementation之后声明； 初始化格式需要在最后一个end之后： 语句：initialization 赋值语句; 4.常量 在var后使用const关键字声明常量：如const PI = 3.14； 5.枚举类型使用 声明：type 枚举类型名=（枚举值1，枚举值2，……）； 定义：var 变量名：枚举类型名； 6.指针类型 （1）@运算符：放在变量的前面，获得变量的地址； ^ 运算符：放在指针变量的后面，取得该指针变量中所存放地址变量的数据；（2）声明：type 指针类型名= ^数据类型； var 指针变量名：指针类型名； 或者var 指针变量名：^数据类型； 7.日期时间函数 function Now：TDateTime；//返回系统当前日期和时间 function Date：TDateTime；//返回系统当前日期 function Time：TDateTime；//返回系统当前时间 function DateTimeToStr（DateTime：TDateTime）：string；//将日期时间数据转换为字符串function StrToDateTime（const s：string）：TDateTime；//将字符串转换为日期时间数据function DateToStr（DateTime：TDateTime）：string；//将日期数据转换为字符串function TimeToStr（DateTime：TDateTime）：string；//将时间数据转换为字符串
自动合并xls的代码
自动合并同目录下的excel文件内容(附完整代码) 新建Excel文件: 合并.xls 在sheet1中增加一个按钮: 点击按钮即可开始合并: Sheet1显示文件数及每个文件的sheet数量 Sheet2即为所有文件sheet中的内容的集合: Sheet1的vba代码: Public Sub CommandButton1_Click() '点击开始合并 Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim myFile As String Dim myExtension As String Dim FldrPicker As FileDialog Dim myPath As String Dim fileno, sheetcount, a, b As Integer Sheets("Sheet1").Rows.Delete Sheets("Sheet2").Rows.Delete myPath = ThisWorkbook.path & "\" '当前路径 myFile = Dir(myPath & "*.xls*") '获取文件列表 i = 0 Do While myFile <> "" And i < 50 i = i + 1 Sheet1.Cells(i, 3) = myFile myFile = Dir Loop For j = 1 To i If Sheet1.Cells(j, 3).Text = "合并xls.xls" Then Sheet1.Rows(j).Select Selection.Delete End If
delphi代码
实验7： Begin If RadoButton1.Checked=true then Begin With Open Dialog1 do Begin Filter:=’文本文件’(*.txt)*.txt’ ; DefaultExt:=’txt’; Filename:=”; Options:=[ofHideReadOnly,ifFilemustexist,ofpathmustexist]; If execute then If ofextensiondifferent in options then Messigedlg(不存在扩展名为.txt的文件’,mterror,[mbok],0) Else Memol1.Lines.loadfromfile(filename); End; End If radiobutton2.cheaked=true then Begin With optiondialog1 do Begin Filter:=’任何类型文件（*.*）|*.*‘；
Filename:=”; Options:=[]; If execute then Memo1.lines.loadfromfile(filename); End; End; End; Procedure tform1.button2click(sender:tobject); Begin If radiobutton1.checked=true then Begin With savedialog1 do Begin Filter:=’文本文件(*.txt)|*.txt’; Defaultext:=’txt’; Filename:=”; Options:=[ofhidereadonly,ofpathmustexist]; If execute then If ofextensiondifferent in options then Messagedlg(‘不是扩展名为.txt的文件’,mterror,[mbok],0) Else Memo1.lines.savetofile(filename);
一分钟教会你图片文件怎么保持清晰度压缩的方法
一分钟教会你图片文件怎么保持清晰度压缩的方法图片怎么保持清晰度压缩呢？在很多的时候，我们想要将图片进行保持清晰度压缩，但是找不到好的方法，图片保持清晰度压缩的方法很简单，下面教给大家保持清晰度的图片压缩的方法。 操作选用工具：迅捷压缩软件 迅捷压缩软件：https://https://www.wendangku.net/doc/3f7614067.html,/compress 具体操作步骤如下： 1：先在浏览器搜索图片压缩，找到在线压缩图片的网站，进入到网站的首页。 2：在网站的首页可以找到文档处理，鼠标移动到文档处理，就会看到图片压缩，点击图片压缩进入到压缩的页面。
3：在压缩的页面找到选择文件，点击选择文件选择需要进行压缩的图片文件，最多可以选择四张。 4：添加文件后，在下面会看到压缩的选项，将选项调整到清晰度优先的格式，点击开始压缩，你需要进行压缩的文件就会在压缩的过程中。
在线网站进行压缩图片可以添加的图片少，可以使用下面方法进行多张图片压缩 1：找到一款压缩软件，将压缩软件下载到指定的电脑位置中。打开软件，找到图片压缩，进入到压缩的页面。 2：在压缩的页面可以看到添加文件以及添加文件夹，将需要压
缩的图片文件添加到压缩的页面中。 3：在下面会看到压缩的选项以及输出的格式，将压缩选项调整到清晰度优先即可。 4：在底部可以看到保存至，设置好自己文件需要保存的路径，
最好是可以随时找到的文件夹。 5：点击开始压缩，需要进行压缩的图片文件就会在压缩的过程中，请耐心等待。压缩完成的文件会直接保存带指定的文件夹中。
希望以上的操作对您有所帮助。按照上面的方法操作会比较简单。
- Delphi7.0中如何用代码访问数据库的方法
- delphi指针大全
- delphi到处EXCEL代码例子
- ERP管理系统Delphi源代码设计文档源代码大小M
- 用delphi编写的记事本代码.
- delphi 气泡提示相关代码.
- Delphi代码编写标准详解
- Delphi教程(完整版)
- 作业2-Delphi二维码程序源代码
- 最新Delphi教程(完整版)
- Delphi教程(清华版)
- 常用代码(Delphi 自我复制自我删除)
- delphi用户登录相关代码
- DelphiX
- delphi代码
- 中国象棋Delphi版本程序代码
- Delphi作的程序的源代码中常见的文件扩展名
- Delphi7基础语法教程
- delphi代码
- Delphi常见错误代码