bu kodları vb net kodlarına çevirmem lazım

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Cevapla
vigor37
Üye
Mesajlar: 1
Kayıt: 27 Mar 2018 04:40

bu kodları vb net kodlarına çevirmem lazım

Mesaj gönderen vigor37 » 27 Mar 2018 04:42

procedure TForm1.FormCreate(Sender: TObject);
var t:pchar;
i,len:Integer;
begin
ApdComPort1.Output:=chr($0C);
t:=pchar(Edit1.Text);
len:=9-strlen(t);
for i:=0 to strlen(t) do
begin
if t='.' then
begin
len:=len+1;
break;
end;
end;
//钱数在顾显屏右对齐。(默认是左对齐,不好看)
case len of
1: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($31);
2: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($32);
3: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($33);
4: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($34);
5: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($35);
6: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($36);
7: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($37);
8: ApdComPort1.Output:=chr($1B)+chr($6C)+chr($38);
end;
ApdComPort1.Output:=Edit1.Text;
end;

Cevapla