用c#改写一段VB程序

2009-08-18 09:20:09 205 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Private Function OpenCL2018Com(iCom As Integer, sBTl As String) As Boolean
Dim sTmp As String

wskCL2018.Close
wskCL2018.RemoteHost = "193.168.18.1"
wskCL2018.RemotePort = 10003
wskCL2018.Bind 20000 + (iCom - 1) * 2
wskCl2018BTL.Close (wskCl2018BTL是winsock控件)
wskCl2018BTL.RemoteHost = "193.168.18.1"
wskCl2018BTL.RemotePort = 10003
wskCl2018BTL.Bind 20001 + (iCom - 1) * 2

If InStr(sBTl, ",") Then sTmp = "init " & Replace(sBTl, ",", " ")
If InStr(sBTl, "-") Then sTmp = "init " & Replace(sBTl, "-", " ")

“Init 19200 8 1 0 “

Call wskCl2018BTL.SendData(sTmp) (初始化端口波特率)
txtMsg.Text = Time & "-->打开端口COM" & CStr(iCom) & "成功,初始化波特率：" & sBTl & vbCrLf & txtMsg.Text
OpenCL2018Com = True
bOpenCom = True
End Function

说明：
wskCL2018是winsock 采用的是UDP的通讯方式

...全文

使用vb6解析word当中的visio对象 http://www.liyonghome.cn/ 做这个当初是接农业银行的一个文档转换的小工具，当时和那边略微谈了谈，感觉也挺简单的。于是信誓旦旦的拿回来几天搞定，可惜回来之后才发现，没想象中的简单。前期考虑的时候，主要有2个问题需要解决： 1.如何从word对象当中取出visio对象； 2.如何解析出visio对象的高度、宽度和内容等。因为自己是做ja 阅读详情

lostowner

C# 111,129 成员 642,540 内容

+ 关注 + 加入社区

切换为时间正序

yuyingying1986 2009-08-19

打赏
举报



        private bool OpenCL2018Com(int iCom, string sBTl)

        {

            string sTmp;

            System.Net.Sockets.Socket wskCL2018 = null;

            wskCL2018 = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Udp);

            wskCL2018.Connect("193.168.18.1", 10003);

            System.Net.IPEndPoint endpoint = new System.Net.IPEndPoint(0, 20000 + (iCom - 1) * 2);

            wskCL2018.Bind(endpoint);



            System.Net.Sockets.Socket wskCl2018BTL = null;

            wskCl2018BTL = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Udp);

            wskCl2018BTL.Connect("193.168.18.1", 10003);

            System.Net.IPEndPoint endpoint1 = new System.Net.IPEndPoint(0, 20001 + (iCom - 1) * 2);

            wskCl2018BTL.Bind(endpoint1);



            if (sBTl.IndexOf(",") > -1) sTmp = "init " + sBTl.Replace(",", " ");

            if (sBTl.IndexOf("-") > -1) sTmp = "init " + sBTl.Replace("-", " ");



            "Init 19200 8 1 0 ";

            wskCl2018BTL.Send(Encoding.ASCII.GetBytes(sTmp));





        }

大概就是这样吧,wskCl2018BTL.SendData(sTmp)的编码机制我不清楚,所以我就用的Ascii码,你可以自己改一下

lostowner 2009-08-19

打赏
举报

这么个问题都2天了还没人解决哎

Zeilone 2009-08-18

打赏
举报

InStr和Replace这两个函数好像C#里没有，记不太清了
如果没有，可以用string类的find和replace函数替换

Zeilone 2009-08-18

打赏
举报



private bool OpenCL2018Com(int iCom, string  sBTl) 

{

    string  sTmp;

   

    wskCL2018.Close();

    wskCL2018.RemoteHost = "193.168.18.1";

    wskCL2018.RemotePort = 10003;

    wskCL2018.Bind(20000 + (iCom - 1) * 2);

    wskCl2018BTL.Close();              //(wskCl2018BTL是winsock控件)

    wskCl2018BTL.RemoteHost = "193.168.18.1";

    wskCl2018BTL.RemotePort = 10003;

    wskCl2018BTL.Bind(20001 + (iCom - 1) * 2);

   

    if ( InStr(sBTl, ",") ) { sTmp = "init " + Replace(sBTl, ",", " ")

    if ( InStr(sBTl, "-") ) { sTmp = "init " + Replace(sBTl, "-", " ")



  “Init 19200 8 1 0 “;



    wskCl2018BTL.SendData(sTmp);    //(初始化端口波特率)

    txtMsg.Text = Time + "-->打开端口COM" + CStr(iCom) + "成功,初始化波特率：" + sBTl + vbCrLf + txtMsg.Text;

    bOpenCom = true;



    return true;

}

lostowner 2009-08-18

打赏
举报

wangjun8868:
你就把函数名翻译一下啊赚分也不是这样赚的

马老虎 2009-08-18

打赏
举报

spices 反编译.rar
+QQ 发个你 124339316

编程有钱人了 2009-08-18

打赏
举报

翻译完毕



private bool OpenCL2018Com(int iCom, string  sBTl) 

{

 string  sTmp;

   

    wskCL2018.Close                   ;

    wskCL2018.RemoteHost = "193.168.18.1"       ;

    wskCL2018.RemotePort = 10003               ;

    wskCL2018.Bind 20000 + (iCom - 1) * 2             ;

    wskCl2018BTL.Close                          (wskCl2018BTL是winsock控件);

    wskCl2018BTL.RemoteHost = "193.168.18.1";

    wskCl2018BTL.RemotePort = 10003;

    wskCl2018BTL.Bind 20001 + (iCom - 1) * 2     ;

   

    if ( InStr(sBTl, ",") ) { sTmp = "init " + Replace(sBTl, ",", " ")

    if ( InStr(sBTl, "-") ) { sTmp = "init " + Replace(sBTl, "-", " ")



  “Init 19200 8 1 0 “;



    Call wskCl2018BTL.SendData(sTmp)    (初始化端口波特率);

    txtMsg.Text = Time + "-->打开端口COM" + CStr(iCom) + "成功,初始化波特率：" + sBTl + vbCrLf + txtMsg.Text;

    OpenCL2018Com = true;

    bOpenCom = true;

}

yeaicc 2009-08-18

打赏
举报

强烈建议：

用sharpdevelop代码转换

上一个好像打不开

yeaicc 2009-08-18

打赏
举报

强烈建议：

用sharpdevelop代码转换

编程有钱人了 2009-08-18

打赏
举报

[Quote=引用 5 楼 lostowner 的回复:]
wangjun8868:
你就把函数名翻译一下啊赚分也不是这样赚的
[/Quote]

不好意思

翻译完了没仔细看也没运行

有些东西在VB有的c#没有

lostowner 2009-08-18

打赏
举报

VB里的程序是另一个系统里的 ...

robin521 2009-08-18

打赏
举报

有必要吗?.NET平台下运行进来都是中间语言,不转换不一样用.C#+VB一起用.

lostowner 2009-08-18

打赏
举报

InStr和Replace 这两个函数无关紧要关键是(wskCl2018BTL是winsock控件)
里面用到了2个port 我没明白是啥意思。。

wskCl2018BTL.RemotePort = 10003;
wskCl2018BTL.Bind 20001 + (iCom - 1) * 2 ;
谁能解释下。。

还有就是c#中socket怎么用这两个端口。。。

用c#改写一段VB程序

相关推荐