现在穷呀，穷得只剩下分了！

2004-11-25 11:53:33 397 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Ships Dataset：解锁海洋探索的数字宝库在海上交通管理中，通过对船舶的持续跟踪，可以及时发现船舶的异常行为，如偏离航线、超速等，保障海上航行的安全。例如，通过分析船舶的航行数据和位置信息，合理安排船舶的停靠时间和装卸货物顺序，避免港口拥堵，提高船舶的周转率。同时，还精确标注了船舶在图像中的位置坐标，通过这些坐标，我们可以准确地定位船舶在图像中的具体位置，为后续的分析和处理提供了精确的依据。从繁忙运输货物的货船，到承载着能源使命的油轮，再到穿梭于海洋寻找鱼群的渔船，每一种船舶都有着独特的外形和功能，在数据集中留下了它们的身影。阅读详情

谁帮我把下面的代码转成VB的，200分就是他的！ (我要一定能调试通过)
function registBoth(softwareSerialNum: PChar; EntName: PChar; LinkMan: PChar; Phone: PChar; Mobile: PChar; Email: PChar; Fax: PChar; sAddress: PChar; Postcode: PChar):boolean; stdcall; external 'CustsmsAPI.dll';
function sendSMS(mobileNums: array of PChar; softwareSerialNum: PChar; smsContent: PChar): boolean; stdcall; external 'CustsmsAPI.dll';
function getBalance(softwareSerialNum: Pchar; out unitPrice: real): real; stdcall; external 'CustsmsAPI.dll';

procedure TForm1.Button2Click(Sender: TObject);
var
sPhone: array of PChar;
sMSG, sSN: PChar;
s1: string;
begin
SetLength(sPhone, 1);

sPhone[0]:=PChar(Edit11.Text); // 手机号码数组；
sMSG:=PChar(Edit12.Text); // 短信内容；
sSN:=PChar(Edit10.Text); // 软件序列号；

if sendSMS(sPhone,sSN,sMSG) then
ShowMessage('发送成功')
else ShowMessage('发送失败');
end;

...全文

Cursor+Playwright MCP实战：如何用自然语言一键生成UI自动化测试脚本本文探讨了如何利用Cursor与Playwright MCP实现自然语言驱动的UI自动化测试脚本生成。通过智能IDE与浏览器自动化协议的结合，开发者可以高效创建稳定的测试脚本，显著提升测试效率与维护性。重点介绍了MCP架构的优势、项目结构最佳实践及团队协作规范，为自动化测试带来革命性改进。阅读详情

wwqna

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

glsoft1 2004-11-27

打赏
举报

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶
顶顶顶顶顶顶
顶顶顶顶顶
顶顶顶顶
顶顶顶
顶顶
顶

submak 2004-11-27

打赏
举报

delphi东西？
没学过~~

就看在没见过的份上~顶顶吧~~

51365133 2004-11-27

打赏
举报

当然不能转化了，郁闷ing.....
你说到 SDK不对，郁闷里边的函数都是 D里边用的，你拿哪个给vb里的sendmsg 肯定不行了。

越想越晕。！！！！！！

你至少把不对的发出来，把程序出错的代码给发出来看看撒!!!

莫情莫钱 2004-11-27

打赏
举报

也有同感，帮你顶，我也看不懂你的代码，没学过dephi语言

Andy__Huang 2004-11-27

打赏
举报

vbangle 2004-11-27

打赏
举报

不是别人转换为VB不对，不能调试通过在于你其它的Function，例如sendSMS是否转换正确等等

江语 2004-11-26

打赏
举报

看来delphi和VB的对立性很强啊~

newsuperstar 2004-11-26

打赏
举报

顶..............................

francais 2004-11-26

打赏
举报

其实dephi也很清晰的哦

zhizlm 2004-11-26

打赏
举报

呵呵，没人会~~ 帮你再up up!!

sssss342072 2004-11-26

打赏
举报

不懂就要顶

wwqna 2004-11-26

打赏
举报

行云边 2004-11-25

打赏
举报

这个代码就是 delphi，不过偶以前只学过 pascal 可能翻译的不是很好

BladeMaster_Lee 2004-11-25

打赏
举报

这种语言难道是失传已久的乾坤大挪移心法的波斯版本？不知道可否帮忙翻译成CN版本。我送你全部家当！

行云边 2004-11-25

打赏
举报

Private Declare Function registBoth Lib "CustsmsAPI.dll" (softwareSerialNum As String, EntName As String, LinkMan As String, Phone As String, Mobile As String, Email As String, Fax As String, sAddress As String, Postcode As String) As Boolean
Private Declare Function sendSMS Lib "CustsmsAPI.dll" (mobileNums() As String, softwareSerialNum As String, smsContent As String) As Boolean
Private Declare Function getBalance Lib "CustsmsAPI.dll" (softwareSerialNum As String, unitPrice As Double) As Double

Private Sub Command1_Click()
Dim sPhone() As String, sMSG, sSN As String, s1 As String
ReDim sPhone(1)
sPhone(0) = CStr(Text11.Text) ' 手机号码数组
sMSG = CStr(Text12.Text) ' 短信内容
sSN = CStr(Text10.Text) ' 软件序列号

If sendSMS(sPhone, sSN, sMSG) Then
Call ShowMessage("发送成功")
Else
Call ShowMessage("发送失败")
End If
End Sub

LittleLittleBoy 2004-11-25