کمک در تبدیل کد C# به VB.NET

[HM2020]

سلام کسی میتونه کد زیر رو به C#‎‎‎‎‎‎‎ برام تبدیل کنه ؟ :خجالت:



private OutgoingSmsPdu[] CreateConcatMessage(bool showParts)
{
OutgoingSmsPdu[] pdus = null;

if (showParts)
{
for (int i = 0; i < pdus.Length; i++)
{
LogText("Part #" + (i + 1).ToString() + ": " + Environment.NewLine + pdus[i].ToString());
}
}
LogText(pdus.Length.ToString() + " message part(s) created.");
LogText("");
}

return pdus;
}


'



private bool SendMultiple(OutgoingSmsPdu[] pdus)
{
int num = pdus.Length;
try
{
// Send the created messages
int i = 0;
foreach (OutgoingSmsPdu pdu in pdus)
{
i++;
LogText("Sending message " + i.ToString() + " of " + num.ToString() + "...");
comm.SendMessage(pdu);
}
LogText("Done.");
LogText("");
return true;
}
catch (Exception ex)
{
LogText("Message sending aborted because of an error." + ex.Message);
LogText("");
return false;
}


}


با تشکر

[docendo]

کد دوم و سوم ایراد دارد
اما کد اول و آخری به تزتیب زیر است



Dim pdus As OutgoingSmsPdu()



For Each pdu As OutgoingSmsPdu In pdus
CommSetting.comm.SendMessage(pdu)
Next

[docendo]

ابن هم کد اولی و دومی با رفع ایراد



pdus = GsmComm.PduConverter.SmartMessaging.SmartMessageFa ctory.CreateConcatUnicodeTextMessage(messagetext, PhoneNumber.Text)


pdus = GsmComm.PduConverter.SmartMessaging.SmartMessageFa ctory.CreateConcatTextMessage(messagetext1, textBox8.Text)

[sh-eng]

http://www.developerfusion.com/tools/convert/vb-to-csharp/
:لبخندساده:

[HM2020]

http://www.developerfusion.com/tools.../vb-to-csharp/

از کد ها خطا میگیره


کد ها رو اصلاح کردم

[HM2020]

یعنی کسی نیست بتونه این کد رو به vb.net تبدیل کنه ؟ :متعجب:


:گریه:

[ghayour]

این کد دوم با سایت: http://www.developerfusion.com/tools/convert/csharp-to-vb/
Private Function SendMultiple(pdus As OutgoingSmsPdu()) As Boolean
Dim num As Integer = pdus.Length
Try
' Send the created messages
Dim i As Integer = 0
For Each pdu As OutgoingSmsPdu In pdus
i += 1
LogText("Sending message " & i.ToString() & " of " & num.ToString() & "...")
comm.SendMessage(pdu)
Next
LogText("Done.")
LogText("")
Return True
Catch ex As Exception
LogText("Message sending aborted because of an error." + ex.Message)
LogText("")
Return False
End Try


End Function

از کد اولت خط یک اشکال میگیره.

[HM2020]

از کد اولت خط یک اشکال میگیره.

دلیل خطاش چیه آیا کد اشتباه ؟

[ghayour]

چطوره بری توی تالار سی شارپ ببینی اونا اشکالشو میدونن چیه یا ببینی میتونن به vb.net تبدیل کنن.

[arash020]

سلام
یه سری به این پست بزن
یه برنامه تبدیل کد هست,ببین کاری ازش برمیاد...؟!

http://eaglevb.blogfa.com/post-86.aspx

[asghar2008]

نیازی به نصب یرنامه نیست شما میتونید به صورت آنلاین کدهاتونو تبدیل کنید.

تبدیل کدهای #C به VB.Net و بالعکس (http://converter.telerik.com/)

[HM2020]

نیازی به نصب یرنامه نیست شما میتونید به صورت آنلاین کدهاتونو تبدیل کنید.

تبدیل کدهای #C به VB.Net و بالعکس

جواب نداد :گریه: :گریه:

خطا میده

[HM2020]

من همچنان منتظرم .... ... .. . __________________________________________________ _________________________________


:ناراحت: :گریه: