编译原理课程设计，词法自动机。

hofy — 2006-05-24 19:19:00

//编译原理课程设计，词法自动机。 import java.awt.*;import java.awt.event.*;import javax.swing.*;import javax.swing.event.*;import java.io.*;import java.util.*;class frame extends JFrame implements ActionListener{ JButton button1=new JButton("打开现有文件"); JButton button2=new JButton("现场输入文件"); Choice ch=new Choice(); JButton button=new JButton("执行"); TextArea ta=new TextArea(); TextArea tb=new TextArea(); JFileChooser chooser=new JFileChooser(); FileInputStream readfile=null; int b; byte buffer[]=new byte[25000]; String str=null; String id[]={"asm","cout","main","FALSE","TRUE","include","boolean","default","float","operator","abs","static_cast","union","auto","delete","for","private","struct","unsigned","bool","do","friend","protected","switch","using","break","double","goto","public","template","virtual","case","dynamic_cast","if","register","this","void","catch","else","inline","reinterpret_cast","throw","volatile","char","enum","int","

中央空调模拟器(客户端全面版)(无图片)

hofy — 2006-05-24 19:17:00

import java.awt.*;import java.awt.event.*;import java.net.*;import javax.swing.*;import javax.swing.event.*;import java.io.*;import java.util.*; public class ktclient{ public static void main(String args[]) { jiemian j=new jiemian(); }} class jiemian extends JFrame implements ActionListener{ String[] wsettem={ "初使状态","18.0 ℃","19.0 ℃","20.0 ℃","21.0 ℃","22.0 ℃","23.0 ℃","24.0 ℃","25.0 ℃","25.0 ℃","26.0 ℃","27.0 ℃","28.0 ℃","29.0 ℃","30.0 ℃","31.0 ℃","32.0 ℃" }; JButton connect=new JButton("打开"); JButton disconnect=new JButton("关上"); JButton settem=new JButton("调节温度"); JPanel jp=new JPanel(); JPanel jpwdj=new JPanel(); JTextField jtconnect=new JTextField(); JComboBox jcbsettem1=new JComboBox(wsettem); JLabel title=new JLabel("中央空调管理系统客户端程序"); JTextArea ltnr=new JTextArea(); JLabel jl1=new JLabel("当前温度"); JLabel jl2=new JLab

中央空调模拟器(客户端简单版)

hofy — 2006-05-24 19:15:00

//中央空调模拟器的客户端 import java.net.*;import javax.swing.*;import javax.swing.event.*;import java.awt.*;import java.awt.event.*;import java.io.*;public class c{ public static void main(String args[]) { c_win w=new c_win(); w.setVisible(true); }}class c_win extends JFrame implements ActionListener{ Label label1=new Label("房间号:"); TextField tf1=new TextField(); Label label2=new Label("目标温度:"); TextField tf2=new TextField(); Label label3=new Label("当前温度："); TextField tf3=new TextField(); Button button1=new Button("连接"); Button button2=new Button("取消"); Button button3=new Button("保持"); Button button4=new Button("改变"); String s1=null,s2=null; c_win() { Container c=this.getContentPane(); c.setLayout(new GridLayout(5,3)); c.add(label1); c.add(tf1); c.add(label2); c.add(tf2);

中央空调模拟器(服务器端)

hofy — 2006-05-24 19:14:00

//中央空调模拟器的服务器端，最简模拟客户端为c.java import javax.swing.*;import javax.swing.event.*;import javax.swing.Timer;import java.awt.*;import java.awt.event.*;import java.io.*;import java.net.*;import java.util.*;class dialog extends JDialog implements ActionListener{ JLabel label; JPanel p1,p2; JButton button1,button2; JFrame f; boolean flag=false; dialog(JFrame f,String t,String s,boolean m) { super(f,t,m); this.f=f; label=new JLabel(s); p1=new JPanel(); p2=new JPanel(); button1=new JButton("确定"); button2=new JButton("取消"); p1.add(label); p2.add(button1); button1.addActionListener(this); p2.add(button2); button2.addActionListener(this); this.getContentPane().add(p1,BorderLayout.CENTER); this.getContentPane().add(p2,BorderLayout.SOUTH); this.getContentPane().setVisible(true); this.setModal(

UTF8编码解码

hofy — 2006-05-24 19:10:00

{******************************************************************************* UTF-8就是以8位为单元对UCS进行编码。从UCS-2到UTF-8的编码方式如下： UCS-2编码(16进制) UTF-8 字节流(二进制) 0000 - 007F 0xxxxxxx 0080 - 07FF 110xxxxx 10xxxxxx 0800 - FFFF 1110xxxx 10xxxxxx 10xxxxxx 例如“汉”字的Unicode编码是6C49。6C49在0800-FFFF之间，所以肯定要用3字节模板了：1110xxxx 10xxxxxx 10xxxxxx。将6C49写成二进制是：0110 110001 001001，用这个比特流依次代替模板中的x，得到：11100110 10110001 10001001，即E6 B1 89。 *******************************************************************************} unit uUnicodeUtils; interfaceuses SysUtils, windows; function Gb2Utf8(const GbStr:String):String;function Utf82Gb(const Utf8Str:String):String; implementation function Gb2Utf8(const GbStr:String):String;var wideStr:array[0..2048] of WideChar; SourceLength:integer; DoneLength:integer; AscNo:integer; Byte1,Byte2,Byte3:integer;begin Result := ''; //不做变化 //Result:=GbStr; //exit; SourceLength := Len

写日志的接口

hofy — 2006-05-24 18:58:00

unit uProgLog; interface uses Windows, SysUtils, SyncObjs; const C_LOG_LEVEL_TRACE = $00000001; C_LOG_LEVEL_WARNING = $00000002; C_LOG_LEVEL_ERROR = $00000004;type EnumSeverity = (TraceLevel, WarningLevel, ErrorLevel, LogLevel); function SeverityDesc(severity: EnumSeverity): string; type TLogFile = class private FLogKeepDays: Integer; //日志保存时间 FLogLevel: DWORD; //日志级别 FLogPath: string; //日志保存路径，以"\"结尾 FLogAppName: string; //应用程序名(日志文件前缀) FCsWriteLogFile: TCriticalSection; FLogFile: TextFile; //日志文件句柄 FLogOpened: Boolean; //日志文件是否打开 FFileTimeStamp: TTimeStamp; //当前日志文件创建或打开时间 function GetLogKeepDays(): Integer; procedure Se

读写注册表的接口程序

hofy — 2006-05-24 18:56:00

替换掉红色部分 unit uReadWriteReg; interface uses registry, Windows; Const SOFT_NAME = 'ScFltSearch'; function OpenRootKey(var Reg: TRegistry; canCreate: boolean): boolean; procedure SetReg(Key: string; Value: string); overload; procedure SetReg(Key: string; Value: integer); overload; procedure SetReg(Key: string; Value: boolean); overload; function GetReg(Key: string; var Value: string; default: string = ''): boolean; overload; function GetReg(Key: string; var Value: integer; default: integer = 0): boolean; overload; function GetReg(Key: string; var Value: boolean; default: boolean = false): boolean; overload;implementation function OpenRootKey(var Reg: TRegistry; canCreate: boolean): boolean;begin result := true; Reg := TRegistry.Create; Reg.RootKey := HKey_CURRENT_USER; if not Reg.KeyExists('SoftWare\' + SOFT_NAME) then begin Reg.OpenKey('SoftWare\' + SOFT_NAME, true); &n

预防打开多个窗口的小程序

hofy — 2006-05-24 18:42:00

以下红字部分是比一般程序多加入的部分,在编写时把相应部分加入工程文件的原代码并替换相应部分即可: program HotelSMS; uses Windows, Forms, fmHotelSMS in 'fmHotelSMS.pas' {fmHotelSMSF}, dmData in 'dmData.pas' {dmDataM: TDataModule}, uReadWriteReg in 'uReadWriteReg.pas', uProgLog in 'uProgLog.pas'; {$R *.res} const strCaption = '酒店系统短信发送';var MainHWnd,ChildHWnd: THandle;begin //以查找窗口以保证只能同时启动一个实例 MainHWnd := FindWindow('TApplication', strCaption); if IsWindow(MainHWnd) then begin ChildHWnd := GetLastActivePopUp(MainHWnd); //激活已有的实例 SetForeGroundWindow(MainHWnd); if (IsWindow(ChildHWnd)) and (ChildHWnd <> MainHWnd) and IsWindowVisible(ChildHWnd) and IsWindowEnabled(ChildHWnd) then begin SetForeGroundWindow(ChildHWnd); end; Halt; end; Application.Initialize

多位数乘法的汇编实现（二）

hofy — 2005-08-19 17:31:00

addition proc near start3:sub ax,ax sub dx,dx mov bx,offset op1 mov al,[bx+1] mov si,ax mov bx,offset op2 cmp byte ptr[bx],al jbe calc mov di,ax mov al,[bx+1] mov si,ax mov ax,0 push ax popf ;------------------------------------------------------初始化运算 calc: mov al,[bx+si+2] mov dl,[bx+di+2] adc al,dl ;--------------------

多位数乘法的汇编实现（一）

hofy — 2005-08-19 17:31:00

.model small .stack 64 .data op1 db 11,?,11 dup(0) op2 db 11,?,11 dup(0) pro1 db 12 dup(0),'$' pro2 db 11 dup(0),'$' pro3 db 22 dup(0),'$' pro4 db 11 dup(0),'$' pro5 db 11 dup(0),'$' msg1 db 0dh,0ah,'**************************************************************' db 0dh,0ah,' This calculator only can bear 10 digits of operand!' db 0dh,0ah,' And the oprand shuld be no sign!' db 0dh,0ah,'**************************************************************',0dh,0ah,'$' msg2 db 0dh,0ah,'Please input the FIRST operand(Press ENTER to finish):','$' msg3 db 0dh,0ah,'Please input the SECOND operand(Press ENTER to finish):','$' msg4 db 0dh,0ah,'The summation is: ','$' msg5 db 0dh,0ah,'The margin is: ','$' msg6 db 0dh,0ah,'The product is: ',

汇编语言实现二叉树的存储和遍历（三）

hofy — 2005-08-17 17:12:00

;------------------------------------------------------------------------------------------------------------------------------------ midrr proc near start10:push ax push dx cmp byte ptr[si+2],0 jz exit3 push si mov si,offset binary add si,cx add cx,3 call midr pop si exit3: sub si,3 pop dx pop ax ret midrr endp ;------------------------------------------------------------

汇编语言实现二叉树的存储和遍历（四）

hofy — 2005-08-17 17:12:00

prompt proc near ;give the prompt information start5:push ax push dx mov ax,0900h mov dx,offset hey2 int 21h mov ax,0200h mov dl,[si] int 21h mov ax,0900h mov dx,bx int 21h &

汇编语言实现二叉树的存储和遍历（三）

hofy — 2005-08-17 17:09:00

;--------------------------------------------------------- Inroot proc near ;the procedure of input root start2:push ax push dx CMP CX,186 jz quit mov [si],al call leftchild call rightchild pop ax pop dx ret quit: mov ax,0900h mov dx,offset hey9

汇编语言实现二叉树的存储和遍历（一）

hofy — 2005-08-17 17:06:00

;；；；；；；；；；；；；；；；；二叉树的遍历 .model small .stack 64 .data ;-------------------------------------------------------------------------------------------------------------------------------- binary db 63 dup (0,0,0) hey1 db 'Please input the root of the binary:',0dh,0ah,'$' hey2 db 0dh,0ah,'Does ',27h,'$' hey3 db 27h,' have a leftchild?(If it no leftchild,please press ENTER)',0dh,0ah,'$' hey4 db 27h,' have a rightchild?(If it no rightchild,please key in ENTER)',0dh,0ah,'$' hey5 db 'The first root traversing:',0dh,0ah,'$' hey6 db 'The middle root traversing:',0dh,0ah,'$' hey7 db 'The last root traversing:',0dh,0ah,'$' hey8 db 0dh,0ah,'$' hey9 db 0dh,0ah,'The input is over!','$' hey10 db 0dh,0ah,'Pree anykey to continue,ESC to finish...',0dh,0ah,'$' ;--------------------------------------------------------------------------------------------------------------------------------- .code main proc far &n