易语言模拟按键精灵源码
一般编程问题
开发语言：Others
实例大小：0.90M
下载次数：
浏览次数：
发布时间：
实例类别：一般编程问题
发 布 人：
所需积分：1
&相关标签：
同类人气实例
实例下载地址
易语言模拟按键精灵源码
不能下载？内容有错？ 点击这里报错
好例子网口号：伸出你的我的手 & 分享！
感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。
类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。
Copyright &
好例子网(www.haolizi.net).All Rights Reserved备案编号:冀ICP备号 石公备号(10)&>&&>&&>&&>&c2f(把C语言的程序翻译成FORTRAN 90语言).zip
c2f(把C语言的程序翻译成FORTRAN 90语言).zip
上传大小：431KB
把C语言的程序翻译成FORTRAN 90语言
综合评分：4.5（2位用户评分）
所需积分：2
下载次数：17
审核通过送C币
创建者：nigelyq
创建者：aexisun
创建者：hanlizhong85
课程推荐相关知识库
上传者其他资源上传者专辑
开发技术热门标签
VIP会员动态
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
android服务器底层网络模块的设计方法
所需积分：0
剩余积分：720
您当前C币：0
可兑换下载积分：0
兑换下载分：
兑换失败，您当前C币不够，请先充值C币
消耗C币：0
你当前的下载分为234。
c2f(把C语言的程序翻译成FORTRAN 90语言).zip
会员到期时间：
剩余下载次数：
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
wangshangtao12
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动***等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：全部家当求人帮忙，吧这个delphi语言写的翻译成易语言的源码！谢谢大家了跪拜!(知识就是财富)
60zhuayi112]
全部家当求人帮忙，吧这个delphi语言写的翻译成易语言的源码！谢谢大家了跪拜!(知识就是财富)
60zhuayi112]
发布时间： 1:09:43
编辑：www.fx114.net
本篇文章主要介绍了"全部家当求人帮忙，吧这个delphi语言写的翻译成易语言的源码！谢谢大家了跪拜!(知识就是财富)
60zhuayi112]"，主要涉及到全部家当求人帮忙，吧这个delphi语言写的翻译成易语言的源码！谢谢大家了跪拜!(知识就是财富)
60zhuayi112]方面的内容，对于全部家当求人帮忙，吧这个delphi语言写的翻译成易语言的源码！谢谢大家了跪拜!(知识就是财富)
60zhuayi112]感兴趣的同学可以参考一下。
unit&Unit1;
&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,
&&Dialogs,&ComCtrls,&StdCtrls,&B
&&TForm1&=&class(TForm)
&&&&PageControl1:&TPageC
&&&&TabSheet1:&TTabS
&&&&TabSheet2:&TTabS
&&&&TabSheet3:&TTabS
&&&&ListView1:&TListV
&&&&Label1:&TL
&&&&Edit1:&TE
&&&&SpeedButton1:&TSpeedB
&&&&Button1:&TB
&&&&OpenDialog1:&TOpenD
&&&&ListView2:&TListV
&&&&Label2:&TL
&&&&Edit2:&TE
&&&&SpeedButton2:&TSpeedB
&&&&Button2:&TB
&&&&OpenDialog2:&TOpenD
&&&&OpenDialog3:&TOpenD
&&&&ListView3:&TListV
&&&&Label3:&TL
&&&&Edit3:&TE
&&&&SpeedButton3:&TSpeedB
&&&&Button3:&TB
&&&&Button4:&TB
&&&&Button5:&TB
&&&&Button6:&TB
&&&&procedure&SpeedButton1Click(Sender:&TObject);
&&&&procedure&Button1Click(Sender:&TObject);
&&&&procedure&SpeedButton2Click(Sender:&TObject);
&&&&procedure&Button2Click(Sender:&TObject);
&&&&procedure&SpeedButton3Click(Sender:&TObject);
&&&&procedure&Button3Click(Sender:&TObject);
&&&&procedure&Button4Click(Sender:&TObject);
&&&&procedure&Button5Click(Sender:&TObject);
&&&&procedure&Button6Click(Sender:&TObject);
&&&&{&Private&declarations&}
&&&&{&Public&declarations&}
&&Form1:&TForm1;
implementation
{$R&*.dfm}
procedure&TForm1.SpeedButton1Click(Sender:&TObject);
&&if&OpenDialog1.Execute&then&Edit1.Text&:=&OpenDialog1.FileN
procedure&TForm1.Button1Click(Sender:&TObject);
&&fs:&TFileS
&&ObjectId:&DWORD;
&&ObjectName:&
&&ObjectDesc:&
&&Address:&I
&&Data:&array[0..99]&of&B
&&ListView1.Items.C
&&fs&:=&TFileStream.Create(Edit1.Text,&fmOpenRead);
&&Address&:=&$;
&&while(Address&&&$00066AE8)&do
&&&&fs.Seek(Address,&soFromBeginning);
&&&&fs.Read(Data,&4);
&&&&ObjectId&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&fs.Seek(Address&+&$00A0,&soFromBeginning);
&&&&fs.Read(Data,&100);
&&&&ObjectDesc&:=&Copy(WideCharToString(@(Data[0])),1,&100);
&&&&fs.Seek(Address&+&$04A0,&soFromBeginning);
&&&&fs.Read(Data,&100);
&&&&ObjectName&:=&Copy(WideCharToString(@(Data[0])),1,&100);
&&&&with&ListView1.Items.Add&do
&&&&&&Caption&:=&IntToHex(Address,&8);
&&&&&&SubItems.Add(IntToHex(ObjectId,&8));
&&&&&&SubItems.Add(ObjectName);
&&&&Address&:=&Address&+&$04E0
procedure&TForm1.SpeedButton2Click(Sender:&TObject);
&&if&OpenDialog2.Execute&then&Edit2.Text&:=&OpenDialog2.FileN
procedure&TForm1.Button2Click(Sender:&TObject);
&&fs:&TFileS
&&DataSize:&DWORD;
&&DataCount:&DWORD;
&&ObjectId:&DWORD;
&&ObjectName:&
&&i,&j,&n:&I
&&Address:&I
&&Data:&array[0..10240]&of&B
&&ListView2.Items.C
&&fs&:=&TFileStream.Create(Edit2.Text,&fmOpenRead);
&&Address&:=&$;
&&while(N&&&85)&do
&&&&fs.Seek(Address,&soFromBeginning);
&&&&fs.Read(Data,&4);
&&&&Address&:=&Address&+&4;
&&&&DataSize&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&fs.Read(Data,&4);
&&&&Address&:=&Address&+&4;
&&&&DataCount&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&for&i&:=&0&to&DataCount&-&1&do
&&&&&&fs.Seek(Address,&soFromBeginning);
&&&&&&fs.Read(Data,&4);
&&&&&&ObjectId&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&&&fs.Read(Data,&DataSize&-&4);
&&&&&&case&N&of
&&&&&&&&3,&6,&11,&36,&57:&j&:=&8;
&&&&&&&&19,&33,&45:&j&:=&4;
&&&&&&&&else&j&:=&0;
&&&&&&ObjectName&:=&Copy(WideCharToString(@(Data[j])),1,&DataSize&-&4&-&j);
&&&&&&with&ListView2.Items.Add&do
&&&&&&begin
&&&&&&&&Caption&:=&IntToHex(Address,&8);
&&&&&&&&SubItems.Add(IntToHex(ObjectId,&8));
&&&&&&&&SubItems.Add(ObjectName);
&&&&&&Address&:=&Address&+&DataS
&&&&&&if&Address&=&$000FEF50&then&&Address&:=&Address&+&$17;
&&&&&&if&Address&=&$002601EB&then&&Address&:=&Address&+&$6B;
&&&&Inc(N);
procedure&TForm1.SpeedButton3Click(Sender:&TObject);
&&if&OpenDialog3.Execute&then&Edit3.Text&:=&OpenDialog3.FileN
procedure&TForm1.Button3Click(Sender:&TObject);
&&fs:&TFileS
&&TaskAddr:&DWORD;
&&TaskId:&DWORD;
&&TaskName:&
&&Address:&I
&&Data:&array[0..29]&of&B
&&ListView3.Items.C
&&fs&:=&TFileStream.Create(Edit3.Text,&fmOpenRead);
&&Address&:=&$;
&&while(Address&&&$)&do
&&&&fs.Seek(Address,&soFromBeginning);
&&&&fs.Read(Data,&4);
&&&&TaskAddr&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&fs.Seek(TaskAddr,&soFromBeginning);
&&&&fs.Read(Data,&4);
&&&&TaskId&:=&Data[3]&shl&24&+&Data[2]&shl&16&+&Data[1]&shl&8&+&Data[0];
&&&&fs.Seek(TaskAddr&+&4,&soFromBeginning);
&&&&fs.Read(Data,&30);
&&&&TaskName&:=&Copy(WideCharToString(@(Data[0])),1,&30);
&&&&with&ListView3.Items.Add&do
&&&&&&Caption&:=&IntToHex(TaskAddr,&8);
&&&&&&SubItems.Add(IntToHex(TaskId,&8));
&&&&&&SubItems.Add(TaskName);
&&&&Address&:=&Address&+&$04
procedure&TForm1.Button4Click(Sender:&TObject);
&&f&:=&TStringList.C
&&for&i:=&0&to&ListView2.Items.Count&-&1&do
&&&&f.Add(ListView2.Items[i].Caption&+&'&&&&&&'&+&ListView2.Items[i].SubItems.Strings[0]&+&'&&&&&&'&+&ListView2.Items[i].SubItems.Strings[1]);
&&f.SaveToFile(ExtractFilePath(Edit2.Text)&+&'\elements.txt');
procedure&TForm1.Button5Click(Sender:&TObject);
&&f&:=&TStringList.C
&&for&i:=&0&to&ListView3.Items.Count&-&1&do
&&&&f.Add(ListView3.Items[i].Caption&+&'&&&&&&'&+&ListView3.Items[i].SubItems.Strings[0]&+&'&&&&&&'&+&ListView3.Items[i].SubItems.Strings[1]);
&&f.SaveToFile(ExtractFilePath(Edit3.Text)&+&'\tasks.txt');
procedure&TForm1.Button6Click(Sender:&TObject);
&&f&:=&TStringList.C
&&for&i:=&0&to&ListView1.Items.Count&-&1&do
&&&&f.Add(ListView1.Items[i].Caption&+&'&&&&&&'&+&ListView1.Items[i].SubItems.Strings[0]&+&'&&&&&&'&+&ListView1.Items[i].SubItems.Strings[1]);
&&f.SaveToFile(ExtractFilePath(Edit1.Text)&+&'\gshop.txt');
end.呵呵，会DELPHI的人怎么可能去研究易语言饿地神呀...
脑子被门挤了......看样子大家看不起易语言？别的不说，你有本事先做一个编译器出来才有资格看不起人家。我感觉易语言还不错啊！很多人都写出很好的东西易语言可以说是我们自己的语言，不用学习英语就能看懂中国人的语言，任何一个语言都是慢慢成长的&，可能它成长比较慢&是因为关注的人太少了不太会哦。。。。好一个易语言代码有点复杂，涉及到基本的进制转换，帮楼主顶了E语言我朋友是在用的。我看不习惯。帮顶了感觉E语言不错，上面的代码貌似很复杂啊引用&3&楼&hhbbyy2000&的回复:看样子大家看不起易语言？别的不说，你有本事先做一个编译器出来才有资格看不起人家。
引用&5&楼&zhuayi112&的回复:易语言可以说是我们自己的语言，不用学习英语就能看懂中国人的语言，任何一个语言都是慢慢成长的&，可能它成长比较慢&是因为关注的人太少了
不是看不起，而是非常看不起，我真还专门花了半个小时看了易语言的语法，看看到底怎么个汉语编程法。看了一会儿就明白了，不就是java/c#宏替换版本么？除了不知道怎么想出来的多返回值（这不吃饱了撑的么），需要在编译器中处理稍微麻烦点儿，剩下好像也就只有&A&x&B&和&x&=&y&之类改改预编译器就能搞定的语法，跟java/c#不太一样而已
不过据说类库做的倒是很强大，拖拖放放一个程序就出来了，连最简单的工作都包装好了。怀疑这些不懂英语的“汉编程序员”遇到类库中没有的东西的时候，除了跪求控件或者到处问怎么翻成“易语言”外，还有没有别的办法解决问题了。不知道易语言的类库是不是都用易语言写的呢？
这些类库有没有提供源代码给人学习呢？你是想请人把pascal语言，加一些中文注释吧。自已慢慢做吧？？？我来翻译吧
那是一个单元
单元里面有一些函数
编译以后是一个窗体
有需要的再补充没有用过E语言……易语言，害人！！！
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：