۱۹
اسفند

جلسه ۳۲-۰۳ : برنامه نویسی وب – VB.NET

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

فهرست

مقدمه

وقت بخیر دوستان، با آموزش برنامه نویسی (Visual Basic.‌NET (VB.NET از وب سایت پی وی لرن همراه هستیم. در بخش آخر مبحث برنامه نویسی وب، به مباحث ایجاد Service Contract و تعریف عملیات ، پیاده سازی Contract ، استفاده از Service و … می پردازیم.

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

ایجاد Service Contract و تعریف عملیات

یک service contrac عملیاتی را که یک سرویس انجام می دهد تعریف می کند. در برنامه WCF Service ، متوجه می شوید که دو فایل به طور خودکار در پوشه App_Code در Solution Explorer ایجاد می شود.

IService.vb – این service contract را خواهد داشت. به عبارت ساده تر ، این رابط (interface) برای سرویس خواهد داشت ، با تعریف متدهایی که سرویس ارائه می دهد ، که شما در سرویس خود پیاده سازی خواهید کرد.
Service.vb – این service contract را پیاده سازی می کند.

ایجاد Service Contract و تعریف عملیات

کد فایل IService.vb را با کد مشخص شده جایگزین کنید.

مثال :

Public Interface IService
   <OperationContract()>
   Function GetPrice(ByVal symbol As String) As Double

   <OperationContract()>
   Function GetName(ByVal symbol As String) As String
End Interface

Public Interface IService

<OperationContract()>

Function GetPrice(ByVal symbol As String) As Double

<OperationContract()>

Function GetName(ByVal symbol As String) As String

End Interface

پیاده سازی Contract

در فایل Service.vb ، یک کلاس به نام Service پیدا خواهید کرد که Service Contract تعریف شده در رابط IService را اجرا می کند.

کد IService.vb را با کد زیر جایگزین کنید.

مثال :

' NOTE: You can use the "Rename" command on the context menu to change the class name "Service" in code, svc and config file together.
Public Class Service
   Implements IService
   Public Sub New()
   End Sub
   Dim stocks As String(,) =
   {
      {"RELIND", "Reliance Industries", "1060.15"},
      {"ICICI", "ICICI Bank", "911.55"},
      {"JSW", "JSW Steel", "1201.25"},
      {"WIPRO", "Wipro Limited", "1194.65"},
      {"SATYAM", "Satyam Computers", "91.10"}
   }

   Public Function GetPrice(ByVal symbol As String) As Double _
   Implements IService.GetPrice

      Dim i As Integer
      'it takes the symbol as parameter and returns price
      For i = 0 To i = stocks.GetLength(0) - 1

         If (String.Compare(symbol, stocks(i, 0)) = 0) Then
            Return Convert.ToDouble(stocks(i, 2))
         End If
      Next i
      Return 0
   End Function

   Public Function GetName(ByVal symbol As String) As String _
   Implements IService.GetName

      ' It takes the symbol as parameter and 
      ' returns name of the stock
      Dim i As Integer
      For i = 0 To i = stocks.GetLength(0) - 1

         If (String.Compare(symbol, stocks(i, 0)) = 0) Then
            Return stocks(i, 1)
         End If
      Next i
      Return "Stock Not Found"
   End Function
End Class

' NOTE: You can use the "Rename" command on the context menu to change the class name "Service" in code, svc and config file together.

Public Class Service

Implements IService

Public Sub New()

End Sub

Dim stocks As String(,) =

{

{"RELIND", "Reliance Industries", "1060.15"},

{"ICICI", "ICICI Bank", "911.55"},

{"JSW", "JSW Steel", "1201.25"},

{"WIPRO", "Wipro Limited", "1194.65"},

{"SATYAM", "Satyam Computers", "91.10"}

}

Public Function GetPrice(ByVal symbol As String) As Double _

Implements IService.GetPrice

Dim i As Integer

'it takes the symbol as parameter and returns price

For i = 0 To i = stocks.GetLength(0) - 1

If (String.Compare(symbol, stocks(i, 0)) = 0) Then

Return Convert.ToDouble(stocks(i, 2))

End If

Next i

Return 0

End Function

Public Function GetName(ByVal symbol As String) As String _

Implements IService.GetName

' It takes the symbol as parameter and

' returns name of the stock

Dim i As Integer

For i = 0 To i = stocks.GetLength(0) - 1

If (String.Compare(symbol, stocks(i, 0)) = 0) Then

Return stocks(i, 1)

End If

Next i

Return "Stock Not Found"

End Function

End Class

تست Service

برای اجرای WCF Service، مراحل را انجام دهید. گزینه Debug → Start Debugging را از نوار منو انتخاب کنید. خروجی خواهد بود:

تست Service

برای تست service operation ها ، بر روی نام عملیات از نمودار درخت در پن سمت چپ دابل کلیک کنید. یک تب جدید در پن سمت راست ظاهر می شود.

مقدار پارامترها را در قسمت Request پن سمت راست وارد کرده و روی دکمه “Invoke” کلیک کنید.

نمودار زیر نتیجه ی تست عملکرد GetPrice را نشان می دهد.

تست Service

نمودار زیر نتیجه ی تست عملکرد GetName را نشان می دهد.

تست Service

استفاده از Service

حال بگذارید یک صفحه پیش فرض ، فرم وب ASP.NET در همان solution اضافه کنیم که از WCF Service که اخیراً ایجاد کرده ایم استفاده خواهیم کرد.

مراحل زیر را انجام دهید.

بر روی نام solution در Solution Explorer کلیک راست کرده و یک فرم وب جدید به solution اضافه کنید. آن را Default.aspx می نامند.
دو برچسب ، جعبه متن و یک دکمه روی فرم اضافه کنید.

استفاده از Service

ما باید به سرویس WCF که اخیراً ایجاد کردیم یک مرجع سرویس اضافه کنیم. بر روی وب سایت در Solution Explorer راست کلیک کرده و گزینه Add Service Reference را انتخاب کنید. با این کار کادر گفتگوی Add Service Reference باز می شود.
( URL(location سرویس را در کادر متن Address وارد کرده و روی دکمه Go کلیک کنید. این یک مرجع خدمات با نام پیش فرض ServiceReference1 ایجاد می کند. روی دکمه OK کلیک کنید.

استفاده از Service

با افزودن مرجع ، دو کار برای پروژه شما انجام می شود.
Address و Binding را برای سرویس در فایل web.config ایجاد می کند.
یک کلاس پروکسی برای دسترسی به سرویس ایجاد می کند.
روی دکمه Get Price در فرم دابل کلیک کنید تا قطعه کد زیر را در رویداد Click آن وارد کنید.

مثال :

Partial Class _Default
   Inherits System.Web.UI.Page

   Protected Sub Button1_Click(sender As Object, e As EventArgs) _
   Handles Button1.Click
      Dim ser As ServiceReference1.ServiceClient = _ 
      New ServiceReference1.ServiceClient
      Label2.Text = ser.GetPrice(TextBox1.Text).ToString()
   End Sub
End Class

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Button1_Click(sender As Object, e As EventArgs) _

Handles Button1.Click

Dim ser As ServiceReference1.ServiceClient = _

New ServiceReference1.ServiceClient

Label2.Text = ser.GetPrice(TextBox1.Text).ToString()

End Sub

End Class

وقتی کد بالا با استفاده از دکمه Start موجود در نوار ابزار Microsoft Visual Studio کامپایل و اجرا می شود، صفحه زیر در مرورگر باز می شود.

استفاده از Service

نمادی را وارد کرده و روی دکمه Get Price کلیک کنید.

استفاده از Service

کلام پایانی

ایجاد Service Contract و تعریف عملیات ، پیاده سازی Contract و مباحث دیگری را در بخش آخر برنامه نویسی وب و آموزش VB.net مورد بررسی قرار دادیم. امیدوارم مباجث مورد توجه قرار گرفته باشد. موفق باشید.

جلسه ۳۲-۰۲ : برنامه نویسی وب – VB.NET

QR: جلسه ۳۲-۰۳ : برنامه نویسی وب – VB.NET

به اشتراک بگذارید

دیدگاه کاربران

تعداد دیدگاه : 0

پی وی لرن – آموزش برنامه نویسی و طراحی وب سایت

دوره های آموزشی آکادمی پی وی لرن (پروژه محور و ویژه بازار کار)

جلسه ۳۲-۰۳ : برنامه نویسی وب – VB.NET

مقدمه

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

ایجاد Service Contract و تعریف عملیات

پیاده سازی Contract

تست Service

استفاده از Service

کلام پایانی

لیست مطالب دوره

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ