作者changjeimin (小张)
看板Visual_Basic
标题[.NET] 别的语言转 net续-补前半段
时间Sun Jan 24 15:26:04 2010
※ 引述《changjeimin (小张)》之铭言：
: 请问各位前辈们，不知道这区是否请教别的语言转换成vb.net?
: 如有冒犯请迳行砍文...
: 以下是 Delphi 文 想转换 vb.net
: =========================================
: const opcodecount=1036;
: const opcodes: array [1..opcodecount] of topcode =(
: {ok}
: (mnemonic:'AAA';opcode1:eo_none;paramtype1:par_noparam;bytes:1;bt1:$37),
: //no param
: {ok}
: (mnemonic:'AAD';opcode1:eo_none;paramtype1:par_noparam;bytes:2;bt1:$d5;bt2:$0a),
: {ok} (mnemonic:'AAD';opcode1:eo_ib;paramtype1:par_im
: ==========================================
: 上面那段我比较不能理解要怎麽转换成vb.net ?
原始回文 有前辈提出没有前半段
以下就是前半段....
=================
unit Assemblerunit;
interface
uses windows,sysutils,imagehlp;
const invalidtoken=0;
const register8bit=1;
const register16bit=2;
const register32bit=3;
const registerMM=4;
const registerXMM=5;
const registerST=6;
const registerSreg=7;
const registerCR=8;
const registerDR=9;
const memorylocation=10; //in case I cant find out (user forgot to say byte
ptr, word ptr or dword ptr)`
const memorylocation8=11;
const memorylocation16=12;
const memorylocation32=13;
const memorylocation64=14;
const memorylocation80=15;
const memorylocation128=16;
const value=17;
//opcode part (bytes)
type Textraopcode=(eo_none,
eo_reg0,eo_reg1,eo_reg2,eo_reg3,eo_reg4,eo_reg5,eo_reg6,eo_reg7, // /digit
eo_reg, // /r
eo_cb,eo_cw,eo_cd,eo_cp,
eo_ib,eo_iw,eo_id,
eo_prb,eo_prw,eo_prd,
eo_pi
);
//parameter part
type tparam=(par_noparam,
//constant
par_1,
par_3,
par_al,
par_ax,
par_eax,
par_cl,
par_dx,
par_cs,
par_ds,
par_es,
par_ss,
par_fs,
par_gs,
//regs
par_r8,
par_r16,
par_r32,
par_mm,
par_xmm,
par_st,
par_st0,
par_sreg,
par_cr,
par_dr,
//memorylocs
par_m8,
par_m16,
par_m32,
par_m64,
par_m80,
par_m128,
par_moffs8,
par_moffs16,
par_moffs32,
//regs+memorylocs
par_rm8,
par_rm16,
par_rm32,
par_r32_m16,
par_mm_m32,
par_mm_m64,
par_xmm_m32,
par_xmm_m64,
par_xmm_m128,
//values
par_imm8,
par_imm16,
par_imm32,
//relatives
par_rel8,
par_rel16,
par_rel32);
type topcode=record
mnemonic: string;
opcode1,opcode2: textraopcode;
paramtype1,paramtype2,paramtype3: tparam;
bytes:byte;
bt1,bt2,bt3: byte;
end;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.36.33.174
1F：→ MOONRAKER:那麽你不理解的那段就是宣告新的记录同时指定值嘛。 01/24 18:00
2F：→ MOONRAKER:完全可以转换为VB.NET的class，或custom type。 01/24 18:00
3F：→ changjeimin:TYPE 方式我知道怎麽转.NET只是就有如我一开始说的 01/24 22:20
4F：→ changjeimin:後半段DELPHI那种写法我不清楚要怎用才好 01/24 22:20
5F：→ changjeimin:用FUNCTION方式也不对，因为这个程式码是 01/24 22:21
6F：→ changjeimin:ASM TO Opcode,然而原始的程式码也没法完整的编译 01/24 22:24
7F：→ changjeimin:只是这段程式码总共牵扯到ASM , Delphi 01/24 22:25
8F：→ changjeimin:光组合语言指令就几百种，总不是用select case 01/24 22:26
9F：→ changjeimin:慢慢分别吧？且又容易出错 01/24 22:27
10F：→ MOONRAKER:那些就是建一个array of records，再输入每一项的初值 01/24 22:40
11F：→ MOONRAKER:asm to opcode的程式那麽多人都写过了，你伯我也写过 01/24 22:40
12F：→ MOONRAKER:什麽几百种的根本就不是真正的问题 你自己想一想吧 01/24 22:41
13F：→ MOONRAKER:用不用select case看原始程式怎麽写就怎麽写，想那麽多 01/24 22:42
14F：→ changjeimin:原始程式就是卡在上面我一开头那边不会转.net 01/24 23:02
15F：→ changjeimin:至於原始程式 的判断方式用了function方法在加上 01/24 23:04
16F：→ changjeimin:if endif 01/24 23:04
17F：→ changjeimin:至於你说的 几百种指令不是问题，没错！这点我也认同 01/24 23:05
18F：→ changjeimin:可能因为我前面有说错了一些话吧,才让你这样回答 01/24 23:06