皮皮网

1.用delphi写计算器
2.除了虚幻4还有啥高级引擎
3.Linux中Wi-Fi无线网络和AP无线热点的源码配置教程

用delphi写计算器

       è¿™æ˜¯æºä»£ç ï¼š

       unit Unit1;

       interface

       uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, Buttons, StdCtrls, ExtCtrls;

       type

       TForm1 = class(TForm)

       Panel1: TPanel;

       Panel2: TPanel;

       SpeedButton7: TSpeedButton;

       SpeedButton8: TSpeedButton;

       SpeedButton9: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton4: TSpeedButton;

       SpeedButton5: TSpeedButton;

       SpeedButton6: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton1: TSpeedButton;

       SpeedButton2: TSpeedButton;

       SpeedButton3: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       StaticText1: TStaticText;

       SpeedButton0: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       GroupBox1: TGroupBox;

       procedure SpeedButton1Click(Sender: TObject);

       procedure FormCreate(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       private

       { Private declarations }

       public

       { Public declarations }

       end;

       var

       Form1: TForm1;

       restart: Boolean;

       isfirst: Boolean;

       fir_num,sec_num: String;

       sign: integer;

       result: real;

       save: String;

       implementation

       { $R *.dfm}

       function count(sign: integer):real;

       begin

       case sign of

       1: result:=strtofloat(fir_num)+strtofloat(sec_num); //为加号时

       2: result:=strtofloat(fir_num)-strtofloat(sec_num); //为减号时

       3: result:=strtofloat(fir_num)*strtofloat(sec_num); //为乘号时

       4: begin

       try

       result:=strtofloat(fir_num)/strtofloat(sec_num); //为除号时

       except

       ShowMessage('错误!');

       form1.close;

       end; //除数为0时,做出异常处理

       end;

       end;

       end;

       procedure TForm1.SpeedButton1Click(Sender: TObject);

       var

       i: integer;

       begin

       if restart then //如果是重新开始输入,则清除原来的操作数,并设置isfirst为True

       begin

       isfirst:=True;

       fir_num:='';

       sec_num:='';

       restart:=False;

       end;

       if isfirst then //如果是第一个操作数

       begin

       if (sender as TSpeedButton).Caption='.' then //如果输入的是小数点

       begin

       if (strlen(pChar(fir_num))<=0) then //如果第一个操作数并未输入

       fir_num:='0.'

       else

       for i:= 1 to strlen(pChar(fir_num)) do

       if fir_num[i]='.' then exit;

       //如果第一个中已含有小数点而又输入小数点,则退出

       end;

       if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then //如果最高位为0

       begin

       if ((sender as TSpeedButton).Caption='.') then

       fir_num:='0.'

       else

       begin

       if strlen(pChar(fir_num))>1 then //如果是小数,则继续输入

       fir_num:=fir_num+(sender as TSpeedButton).Caption

       else

       fir_num:=(sender as TSpeedButton).Caption;

       //如果不是小数,则去掉最高位的0

       end;

       end

       else

       fir_num:=fir_num+(sender as TSpeedButton).Caption;

       StaticText1.Caption:=fir_num;

       end

       else

       begin

       if (sender as TSpeedButton).Caption='.' then //如果第二个操作数并未输入

       begin

       if (strlen(pChar(sec_num))<=0) then

       sec_num:='0.'

       else

       for i:= 1 to strlen(pChar(sec_num)) do

       if sec_num[i]='.' then exit;

       //如果第二个中已含有小数点而又输入小数点,则退出

       end;

       if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then //如果最高位为0

       begin

       if ((sender as TSpeedButton).Caption='.') then

       sec_num:='0.'

       else

       begin

       if strlen(pChar(sec_num))>1 then //如果是小数,则继续输入

       sec_num:=sec_num+(sender as TSpeedButton).Caption

       else

       sec_num:=(sender as TSpeedButton).Caption;

       //如果不是小数,则去掉最高位的0

       end;

       end

       else

       sec_num:=sec_num+(sender as TSpeedButton).Caption;

       StaticText1.Caption:=sec_num;

       end;

       end;

       procedure TForm1.FormCreate(Sender: TObject);

       begin

       StaticText1.Caption:='0.'; //设置StaticText1初始显示为0.

       restart:=False;

       Isfirst:=True;

       fir_num:='';

       sec_num:='';

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       if (fir_num<>'') and (sec_num<>'') then

       //如果两各操作数都不为空

       begin

       result:=count(sign); //调用函数,返回计算结果

       fir_num:=floattostr(result);

       sec_num:='';

       StaticText1.Caption:=floattostr(result);

       end;

       sign:=(sender as TSpeedButton).Tag;

       isfirst:=False;

       restart:=False;

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       if (sec_num<>'') then

       //如果第二个操作数不为空则返回结果

       begin

       result:=count(sign);

       fir_num:='';

       fir_num:=fir_num+floattostr(result);

       StaticText1.Caption:=floattostr(result);

       sec_num:='';

       end;

       restart:=true;

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       restart:=True;

       fir_num:='';

       sec_num:='';

       self.StaticText1.Caption:='0.';

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       Close;

       end;

       end.

除了虚幻4还有啥高级引擎

       游戏引擎除了虚幻引擎，还有Unity、源码寒霜引擎、源码Source Engine起源引擎、源码IW无尽引擎、源码Cry Engine 尖叫引擎、源码electron项目源码加密RAGE狂暴引擎、源码Cocos2D、源码Avalanche Engine雪崩引擎、源码The源码 Dead Engine死亡引擎、Naughty Dog Game Engine顽皮狗等。源码

1、源码虚幻引擎

       虚幻引擎是源码美国Epic游戏公司研发的一款3A级游戏引擎，目前世界最知名授权最广的源码顶尖游戏引擎，占有全球商用游戏引擎%的源码市场份额，次世代画面标准最高的一款游戏引擎。

       优点：源代码开源；画质秒杀Unity；蓝图设计；应用范围广；

       缺点：网上教程少；功能太多；开发成本较高；需要精通C++；

2、Unity

       Unity是由Unity Technologies公司开发的一个让玩家能够轻松创建诸如三维视频游戏、建筑可视化、实时三维动画等类型互动内容的多平台的综合型游戏开发工具，是baocms 钻石版源码一个全面整合的专业游戏引擎。

       优点：可定制性高；开发成本较低；网上教程多；入门简单，略懂C#即可；

       缺点：内建工具不够完善源；代码不开源；游戏渲染不如虚幻引擎；控制器支持较差；

3、寒霜引擎

       寒霜引擎是EA旗下的”DICE“工作室所开发的一款3D游戏引擎，自年开始启动研发，也是目前世界上知名度最广的游戏引擎之一。

       优点：可以运作庞大的游戏地图；超强可破坏场景和音效系统；

       缺点：细节粗糙；

4、起源引擎

       起源(source)引擎是一款3D游戏引擎，由Valve软件公司为了第一人称射击游戏《半条命2》开发，并且对其他的游戏开发者开放授权。作为一款整合引擎，源码授权破解版起源引擎可以对开发者提供从物理模拟、画面渲染到服务器管理、用户界面设计等所有服务。

       起源引擎

       优点：优化性比较好，电脑配置要求不高；兼容性强；

       缺点：渲染效率不高，不适合大地图制作；实时光影不好；

5、IW无尽引擎

       IW引擎是一个游戏引擎，中文名为“无尽引擎”，是由动视暴雪旗下游戏工作室Infinity Ward工作室开发应用于使命召唤系列，并作为游戏的asp源码 文件管理系统主要引擎。引擎包含了id Software开发的GtkRadiant关卡开发软件。它已被用于由Infinity Ward，Treyarch，Raven Software开发的游戏中。

       优点：支持DirectX 技术；画质还不错；

       缺点：贴图较为粗糙

6、Cry3引擎

       Cry Engine3，是德国的CRYTEK公司出品一款对应最新技术DirectX的游戏引擎，允许实时创作跨平台游戏。

       优点：音频工具比较强悍；AI代码技术简单；工具齐全；

       缺点：免费榜缺乏客户支持；推出时间相对较晚，开发者社区还不够强大；学习门槛对于初入行这比较高。内存监视器源码

7、RAGE狂暴引擎

       Rockstar高级游戏引擎（简称RAGE）是由电视游戏开发方Rockstar（圣地亚哥）RAGE技术组以及Rockstar其它制作组出资开发的一款游戏引擎，适于在PC、PS3、Wii和Xbox 平台上的游戏开发。

       优点：世界地图流缓冲技术；复杂人工智能管理；快速网络代码；

       缺点：和其他顶级引擎相比界面比较差；对于键盘和鼠标控制优化做的不足。

8、Cocos2D

       Cocos2D是一个基于MIT协议的开源框架，用于构建游戏、应用程序和其他图形界面交互应用。可以让你在创建自己的多平台游戏时节省很多的时间。

       优点：强大灵活；提供成熟的框架和多种工具；开源、免费，社区支持强大；

       缺点：和同类引擎相比比较复杂；学习门槛相对较高；不支持跨平台引擎。

Linux中Wi-Fi无线网络和AP无线热点的配置教程

       0.Linux下的Wi-Fi配置

       无线网络飞速发展的今天，许多设备都提供了连接无线网络的功能。

       那么Linux下的wifi到底该怎么配置、连接呢

       开始配置之前，我们要说说iw家族。iw是linux下常用的wifi配置工具，网上有相应的库和源码。全名为wirelessTools。

       配置wifi模块，并连接相应的无线网络过程：主要使用iwpriv命令

       （1）扫描可用的无线网络：

       代码如下:

iwlist wifi-name scanning  

       其中wifi-name为无线网卡的名字，比如网卡eth0就是系统默认的网卡名字， wifi-name可以用ifconfig查看，一般为ra0。

       （2）看扫描到的网络信息，按要连接的网络类型进行配置。以下为扫描到的网络：

       代码如下:

iwlist ra0 scanning  

       ===rt_ioctl_giwscan. () BSS returned, data-length =  

       ra0       Scan completed :  

        Cell - Address: C4:CA:D9:1D:9E:A0  

          Protocol:.b/g/n  

          ESSID:""  

          Mode:Managed  

          Frequency:2. GHz (Channel 1)  

          Quality=7/  Signal level=- dBm  Noise level=- dBm  

          Encryption key:off  

          Bit Rates: Mb/s  

        Cell - Address: FC:::A1:A9:  

          Protocol:.b/g/n  

          ESSID:"jxj_rd"  

          Mode:Managed  

          Frequency:2. GHz (Channel 9)  

          Quality=/  Signal level=- dBm  Noise level=- dBm  

          Encryption key:on  

          Bit Rates: Mb/s  

          IE: WPA Version 1  

       Group Cipher : TKIP  

       Pairwise Ciphers (2) : TKIP CCMP  

       Authentication Suites (1) : PSK  

          IE: IEEE .i/WPA2 Version 1  

       Group Cipher : TKIP  

       Pairwise Ciphers (2) : TKIP CCMP  

       Authentication Suites (1) : PSK  

        Cell - Address: C4:CA:D9::2A:  

          Protocol:.b/g/n  

          ESSID:""  

          Mode:Managed  

          Frequency:2. GHz (Channel )  

          Quality=/  Signal level=- dBm  Noise level=- dBm  

          Encryption key:off  

          Bit Rates: Mb/s  

        Cell - Address: :D6:4D::CA:9C  

          Protocol:.b/g/n  

          ESSID:"liangym"  

          Mode:Managed  

          Frequency:2. GHz (Channel )  

          Quality=/  Signal level=- dBm  Noise level=- dBm  

          Encryption key:on  

          Bit Rates: Mb/s  

          IE: WPA Version 1  

       Group Cipher : CCMP  

       Pairwise Ciphers (1) : CCMP  

       Authentication Suites (1) : PSK  

          IE: IEEE .i/WPA2 Version 1  

       Group Cipher : CCMP  

       Pairwise Ciphers (1) : CCMP  

       Authentication Suites (1) : PSK  

       如上：ESSID项的值即为无线网络的名字，如上的jxj_rd等。如果值为空，说明在无线路由勾选了隐藏ESSID的选项。

       ESSID是很关键的，如果被隐藏了，也不是不能连接，而是需要破解，用到其他的工具，非常麻烦。至于如何破解，不是本文叙述的内容，有兴趣的朋友可以网上搜索。

       得到了网络的信息，接下来就是配置连接选项了。以连接jxj_rd为例，我们看看具体的过程：

       （1） 设置要连接的网络类型：

       代码如下:

iwpriv ra0 set NetworkType=Infra  

       （2） 设置要连接的无线网络的安全模式：

       代码如下:

iwpriv ra0 set AuthMode=WPA2PSK  

       （3） 设置网络加密方式：（CCMP即为AES）

       代码如下:

iwpriv ra0 set EncrypType=TKIP  

       （4） 设置连接时的密码：