تکنیکهای برنامه نویسی

[behnam_kh2002]

سلام

برای دوستانی که الکترونیک کار میکنند (عمده کارشون با الکترونیکه) و دانش آنها از برنامه نویسی کامپیوتر، محدود به برنامه نویسی با یکی از پورتها هست و کمتر به مسائل و تکنیکهای برنامه نویسی کامپیوتر تسلط دارند، این تاپیک را زدم تا بتونم اینجا با کمک شما دوستان و اساتید، تکنیکهایی را در این مورد در اختیار همه قرار دهیم.

هدف من از ایجاد این تاپیک صرفا برقراری ارتباط با پورتها نیست!!!! چون مطلب راجع به این زیاده.

مثلا ممکنه یه برنامه کامپیوتری برای مدارمون درست کنیم که اون برنامه نیاز داشت که به یه وب سرویس تو اینترنت وصل بشه و اطلاعاتی رو بگیره و بده به میکرو! خوب چه کنیم؟؟؟ یا هر مثال دیگری...

در این تاپیک ما به طرح و بررسی و آموزش این مسائل می پردازیم...

عمده توجه من روی زبانهای VB.Net و #C هست. چرا که از نظر قدرت جایگاه بالایی دارند.
برای شروع... در اینجا یه تابع آوردم که تاریخ شمسی رو خیلی راحت بدست میاره...
چون راحته توضیح زیادی راجع بهش نمیدم....

به زبان VB.NET

Private Function GetPersianDate() As DateTime
    Dim PDate As New System.Globalization.PersianCalendar
    Return Convert.ToDateTime(PDate.GetYear(Today) & "/" & PDate.GetMonth(Today) & "/" & PDate.GetDayOfMonth(Today))
  End Function

به زبان #C

private DateTime GetPersianDate()
    {
      System.Globalization.PersianCalendar PDate = new System.Globalization.PersianCalendar();
      return Convert.ToDateTime(PDate.GetYear(DateTime.Now) + "/" + PDate.GetMonth(DateTime.Now) + "/" + PDate.GetDayOfMonth(DateTime.Now));
    }

[behnam_kh2002]

پاسخ : تکنیکهای برنامه نویسی

این تابع هم روش ارسال ایمیل از طریق سرور GMAIL رو نشون میده...

وی بی دات نت:

Public Function SendMail(ByVal SendTo As Collection, ByVal Subject As String, ByVal Body As String, ByVal IsBodyHTML As Boolean) As Boolean
   Try
   
    Dim client As System.Net.Mail.SmtpClient
    If (ServerMail.ServerPort <> 0) Then
      client = New SmtpClient("smtp.gmail.com",587)
      client.EnableSsl = True
      client.Timeout = 100000
    Else
      client = New SmtpClient("smtp.gmail.com")
    End If
    client.UseDefaultCredentials = False
    client.Credentials = New NetworkCredential("GmailID", "GMailPass")

    Dim message As MailMessage
    Dim I As Integer

    For I = 1 To SendTo.Count
      message = New MailMessage(ServerMail.MailFrom, SendTo(I), Subject, Body)
      message.IsBodyHtml = IsBodyHTML
      client.Send(message)
    Next

    SendMail = True

 Catch ex As Exception
    SendMail = False
 End Try
  End Function

سی شارپ:

public bool SendMail(Collection SendTo, string Subject, string Body, bool IsBodyHTML)
{
	try {

		System.Net.Mail.SmtpClient client;
		if ((ServerMail.ServerPort != 0)) {
			client = new SmtpClient("smtp.gmail.com", 587);
			client.EnableSsl = true;
			client.Timeout = 100000;
		}
		else {
			client = new SmtpClient("smtp.gmail.com");
		}
		client.UseDefaultCredentials = false;
		client.Credentials = new NetworkCredential("GmailID", "GMailPass");

		MailMessage message;
		int I;

		for (I = 1; I <= SendTo.Count; I++) {
			message = new MailMessage(ServerMail.MailFrom, SendTo(I), Subject, Body);
			message.IsBodyHtml = IsBodyHTML;
			client.Send(message);
		}

		SendMail = true;
	}

	catch (Exception ex) {
		SendMail = false;
	}
}