بالا
 تعرفه تبلیغات




 دانلود نمونه سوالات نیمسال دوم 93-94 پیام نور

 دانلود نمونه سوالات آزمونهای مختلف فراگیر پیام نور

صفحه 3 از 4 اولیناولین 1234 آخرینآخرین
نمایش نتایج: از شماره 21 تا 30 از مجموع 33

موضوع: نا گفته هاي كاربردي و جالب در Visual Basic.Net

  1. #21
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } تبدیل تاریخ از/به شمسی و دیگر تقویم ها :

    تبدیل به میلادی:
    کد:

    کد:
    Dim x As New  System.Globalization.PersianCalendar
    Dim dt As Date = x.ToDateTime(1386, 1,  1, 0, 0, 0, 0, 0)
    تبدیل از میلادی

    کد:

    کد:
      
    Dim x As New System.Globalization.PersianCalendar() Dim dt As Date dt = #1/1/2007# 'Or یا dt = New Date(2007, 1, 1) 'Or یا dt = CDate("1/1/2007") Dim y As Integer = x.GetYear(dt) Dim m As Integer = x.GetMonth(dt) Dim d As Integer = x.GetDayOfMonth(dt)

    دات نت 2 با تقویم میلادی در کل شامل 11 تقویم است!
    مثلاً PersianCalendar تقویم ایرانی یا همان هجری شمسی است
    یا HijriCalendar تقویم هجری قمری است
    JapaneseCalendar ژاپنی
    KoreanCalendar کره ای
    TaiwanCalendar تایوانی
    و...

    برای تبدیل تاریخ های تقویم های دیگر به هم (که یک سرش میلادی نباشد) باید اول تاریخ مورد نظر را به میلادی تبدیل کرد و سپس میلادی را به تقویم دوم تبدیل کرد.

  2. #22
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    برای اینکه برنامه ایی که نوشتین فقط یک بار باز بشه (به صورت همزمان) تنظیمات زیر را انجام بدین
    در داخل ویژوال استادیو در Solution Explorer بر روی آیتم My Project دابل کلیک کنید تا یک پنجره برگه دار (tabbed window) باز شود. در این پنجره تنظیمات برنامه شما قرار دارد.بر روی برگه tab Application کلیک کنید و در قسمت windows application framework properties بر روی چک باکس Make Single instance application کلیک کنید تا انتخاب گردد.

    در صورت انجام دادن مراحل بالا دیگر شما قادر نخواهید بود که کپی‌های دیگری از این برنامه را به صورت هم زمان بر روی آن کامپیوتر اجرا کنید و در صورت اجرا کردن نسخه‌های دیگر هیچ اتفاقی روی نخواهد داد و آنها فورا بسته خواهند شد.

  3. #23
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } تا حالا در مورد کلاس System.Management چیزی شنیدید؟
    اصلا کار این کلاس چیه؟
    تا حالا شده که اطلاعاتی در مورد سیستم عامل ، سخت افزار ، نرم افزار های موجود در ویندوز و .... لازم داشته باشید و Api ها هم جواب گوی شما نباشند یا مشخصات اون Api رو بلد نباشین؟
    حالا من قصد دارم چیز جدید و جالبی رو معرفی کنم. (لازمه که بگم من خودم تازه مطالعه روی این زمینه رو شروع کردم و اگه اشتباهی در گفته های من است از اساتید خواهش میکنم که به بزرگی خودشون ببخشند و اون رو اصلاح کنند.)
    شما میتونید به وسیله ی زبان اسکریپتی WQL که همانند زبان SQL است کار های خارق العاده ایی انجام بدین. (نمونه کدی که روی اون کار میکنیم گرفتن مشخصات کارت گرافیکه)
    کد زیر رو ببینید :



    کد:
    Imports  System.Management
    Public Class Form1
        Dim ObjMng As  Management.ManagementObject
        Private Sub Form1_Load(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim c  As New Management.ManagementObjectSearcher("SELECT * FROM  Win32_DisplayConfiguration")
            Dim DeviceName As String
            Dim  DisplayFlags As String
            Dim DisplayFrequency As String
            Dim  DriverVersion As String
            Dim PelsHeight As String
            Dim  PelsWidth As String
            '--------------------
            For Each ObjMng  In c.Get
                PelsWidth =  ObjMng("DisplayFlags").ToString
                DeviceName =  ObjMng("DeviceName").ToString
                DisplayFrequency =  ObjMng("DisplayFrequency").ToString
                DriverVersion =  ObjMng("DriverVersion").ToString
                PelsHeight =  ObjMng("PelsHeight").ToString
                PelsWidth =  ObjMng("PelsWidth").ToString
            Next
             '---------------------------
            MsgBox(PelsWidth)
             MsgBox(DeviceName)
            MsgBox(DisplayFrequency)
             MsgBox(DriverVersion)
            MsgBox(PelsHeight)
             MsgBox(PelsWidth)
        End Sub
    End Class



    در ابتدا باید رفرنس System.Management رو به برنامه اضافه کنیم.
    ما به وسیله ی این کد یک جستجو با دستورات WQL انجام میدیم که حاصل اون در یک حلقه ی ForEach در متغیر ریخته میشه.

  4. #24
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    Icon140


    این هم تمامی کلید های ترکیبی که در VisualBasic 2005 وجود دارند.

    از لينك هاي دانلود زير استفاده كنيد

    يا
    يا
    يا
    يا
    يا

  5. #25
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    Icon140

    یک نمونه برنامه برای کار با مقادیر پولی



    به صورت همزمان هنگام تایپ عدد این امکانات رو به شما میده:
    1- 3 رقم 3 رقم جدا کردن عدد
    2- نمایش معادل به تومان
    3- استفاده از مقدار عددی بدون علامت در انجام محاسبات عددی
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: zip CurrencyTextBox.zip (94.9 کیلو بایت, این فایل 0 مرتبه دانلود شده است )

  6. #26
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    اضافه کردن رویداد سه بار کلیک به یک کنترل


    کد:
      
    Dim WithEvents Click3 As New TripleClick Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Click3.Click() End Sub Private Sub Click3_TplClick(ByVal Text As String) Handles Click3.TplClick TextBox1.Text = Text End Sub Public Class TripleClick Public Event TplClick(ByVal Text As String) Public Sub Click() Static intCount As Integer = 0 intCount += 1 If intCount >= 3 Then intCount = 0 RaiseEvent TplClick("The Button was triple clicked.") End If End Sub End Class

  7. #27
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } یکی از مشکلاتی که افراد زیادی با اون درگیر هستند اینه که :
    ما در بانک یک جدول داریم که مشخصات افراد رو در اون ثبت میکنه

    حالا میخوایم رو فرم یک ComboBox داشته باشیم که در اون نام افراد نشان داده بشه و با انتخاب هر فرد از این ComboBox یک ID که مربوط به همون فرد هست رو به ما نشون بده
    خب برای این کار در ابتدا ما اطلاعات جدول را در یک DataSet یا DataTable میریزیم سپس کد زیر رو مینویسیم

    کد:
       
     
    ComboBox1.DataSource=Dt ComboBox1.DisplayMember="Name" ComboBox1.ValueMember="ID" ComboBox1.Show()

  8. #28
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } دفعه یک پروپرتی جالب از TextBox رو میگم

    پروپرتی ShortcutsEnabled که از نوع Boolean هست
    بعضی وقتها میخواین که کاربر نتونه از تو TextBox متنی رو کپی کنه یا Undo کنه و ...
    برای انجام اینکار این پروپرتی رو برابر False قرار بدین
    عملیاتی که این پروپرتی مانع از انجام اونها میشه اینها هستند


    • کد:
      • CTRL+Z
      • CTRL+E
      • CTRL+C
      • CTRL+Y
      • CTRL+X
      • CTRL+BACKSPACE
      • CTRL+V
      • CTRL+DELETE
      • CTRL+A
      • SHIFT+DELETE
      • CTRL+L
      • SHIFT+INSERT
      • CTRL+R





  9. #29
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } سلام
    حتما" تا حالا عبارت Region# را دیدید؟ و این سوال براتون پیش اومده که این عبارت چی هست و چه کاری انجام میده !!!
    این دفعه میخوام در باره ی Directive ها توضیح بدم

    Directive ها دستوراتی هستند که کامپایل نمیشوند بلکه کامپایلر رو هدایت میکنند تا دستور خاصی را کامپایل کنه. تمامی Directive ها با علامت # اغاز میشوند. تعداد این دستورات در C#‎ از VB بیشتره. من در این پست دستوراتی که در vb به کار میروند را توضیح میدم

    کد:
    #Region  "Name"
    
    #End Region
    این Directive برای دسته بندی قسمت هایی از کد استفاده میشه. مثلا شما یک کلاس دارید که در اون اعمال مختلفی انجام میشه مثلا قسمتی از این کلاس اعمال مربوط به اساتید رو انجام میده و قسمت دیگری اعمال مربوط به دانشجویان. با این Directive میتونین این اعمال را دسته بندی کنید.

    کد:
    کد:
    C#‎onst
    کار این Directive تعریف یک مقدار ثابته مثلا" در دستور زیر شما به جای عدد 3.14 میتونید بنویسید PI . از این پس کامپایلر هر کجا که کلمه PI رو دید به جای آن مقدار 3.14 را قرار میدهد
    کد:
    کد:
    C#‎onst PI = 3.14


    کد:
    #If   Then
    
    #Else
    
    #End If



    عمل این Directive ها هم مثل if معمولی هست و فقط تفاوت اون هم در اینه که کامپایل نمیشه. پس شرط اون هم نباید کامپایل بشه. مثلا شما میتونید به این صورت از اون استفاده کنید


    کد:
      
    #If Pi = 3.14 Then 'Return True #Else 'Return False #End If

    Directive اخری که هست اینه :


    کد:
    #ExternalSource("FilePath", 1)
            MsgBox("In  FilePath")
    #End ExternalSource



    راستش من هر کاری کردم بفهمم دقیقا" کار این Directive چیه نفهمیدم
    ولی تا اونجا که دستگیرم شد هنگامی که قسمتی از کد ما در یک فایل دیگر باشد با این Directive میتونیم از اونها استفاده کنیم و از خطا های احتمالی جلوگیری کنیم
    (اگه اشتباه میگم دوستان اصلاح کنند)

  10. #30
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    پیش فرض

    .wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle }
    سلام
    شاید شما هم از نوشتن دستورات SQL در برنامه خسته شده باشید.
    نوشتن این دستورات (Insert,Update,Delete) باعث بروز مشکلات زیادی برای برنامه نویس میشه که خودتون بهتر میدونید
    حالا روشی را معرفی میکنم که دیگه احتیاجی به نوشتن این دستورات نداشته باشین
    تعریف متغیر ها و مقدار دهی اولیه:


    کد:
     Dim con As  SqlClient.SqlConnection = New  SqlClient.SqlConnection("StrConnection")
            con.Open()
            Dim da  As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select * From  Table1", con)
            Dim dt As DataTable = New DataTable
             da.Fill(dt)
            Dim cmdbuild As SqlClient.SqlCommandBuilder



    اضافه کردن سطر به DataTable :

    کد:
    Dim dr As  DataRow
            dr = dt.NewRow
            dr("Fild 1") = "Value 1"
             dr("Fild 2") = "Value 2"
            dr("Fild N") = "Value N"
             dt.Rows.Add(dr)
            cmdbuild = New  SqlClient.SqlCommandBuilder(da)
            da.Update(dt)


    ویرایش :

    کد:
      
    dt.Rows(0)("Fild 1") = "Value 1" dt.Rows(0)("Fild 2") = "Value 2" dt.Rows(0)("Fild N") = "Value N" cmdbuild = New SqlClient.SqlCommandBuilder(da) da.Update(dt)

    حذف:

    کد:
    dt.Rows(0).Delete()
            cmdbuild = New  SqlClient.SqlCommandBuilder(da)
            da.Update(dt)
    شی SqlCommandBuilder ، تغییراتی که در DataTable داده شده است را به صورت دستورات SQL تبدیل میکند و در Da میریزد

برچسب برای این موضوع

مجوز های ارسال و ویرایش

  • شما نمی توانید موضوع جدید ارسال کنید
  • شما نمی توانید به پست ها پاسخ دهید
  • شما نمی توانید فایل پیوست ضمیمه کنید
  • شما نمی توانید پست های خود را ویرایش کنید
  •