سورس کدهای ویژوال بیسیک دات نت
نمایش نتایج: از 1 به 3 از 3

موضوع: سورس کدهای ویژوال بیسیک دات نت

  1. #1
    کاربر عادی

    تاریخ عضویت
    2013/12/21
    نوشته ها
    11
    پسندیده
    13
    تشکر شده 17 بار در 8 ارسال.
    میزان امتیاز
    0

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

    سلام.دوستان در این بخش سورس کدهای مفید + توضیحات در باره کد مورد نظر رو قرار بدید.

    سورس های موجود در بخش نت فریم ورک به این بخش منتقل میشه

    موفق باشید


    - - - - - - - - - -

    سلام
    با تیکه کد زیر میشه از انتقال اطلاعات به درایو usb جلوگیری کرد
    پس از قفل کردن usb یک بار سیستم عامل خود را ری استارت کنید.
    کد:
    Public Function LockUSB()
       My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\  SYSTEM\CurrentControlSet\Control\StorageDevicePoli  cies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
    End Function

    اینک کد غیر فعال کردنش
    کد:
    Public Function UnlockUSB()
       My.Computer.Registry.LocalMachine.DeleteSubKey("SY  STEM\CurrentControlSet\Control\StorageDevicePolici  es")
    End Function
    - - - - - - - - - -

    تابعي براي تفريق كردن دو ماتريس:
    کد:
    #Region "Subtract Matrices"
    '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''
    ' Subtracts two matrices from each other, their
    ' dimensions should be compatible!
    ' Function returns the solution or errors due to
    ' dimensions incompatibility
    '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''
    Public Shared Function Subtract(ByVal Mat1(,) As Double, ByVal Mat2(,) As Double) As Double(,)
    Dim i, j As Integer
    Dim sol(,) As Double
    Dim Rows1, Cols1 As Integer
    Dim Rows2, Cols2 As Integer
    On Error GoTo Error_Handler
    Find_R_C(Mat1, Rows1, Cols1)
    Find_R_C(Mat2, Rows2, Cols2)
    If Rows1 <> Rows2 Or Cols1 <> Cols2 Then
    GoTo Error_Dimension
    End If
    ReDim sol(Rows1, Cols1)
    For i = 0 To Rows1
    For j = 0 To Cols1
    sol(i, j) = Mat1(i, j) - Mat2(i, j)
    Next j
    Next i
    Return sol
    Error_Dimension:
    Err.Raise("5007", , "Dimensions of the two matrices do not match !")
    Error_Handler:
    If Err.Number = 5007 Then
    Err.Raise("5007", , "Dimensions of the two matrices do not match !")
    Else
    Err.Raise("5022", , "One or both of the matrices are null, this operation cannot be done !!")
    End If
    End Function
    #End Region

  2. 4 کاربر زیر از 4RM4N عزیز به خاطر این پست مفید تشکر کرده اند .


  3. #2
    Forum Member
    SaEeD آواتار ها
    تاریخ عضویت
    2013/07/31
    محل سکونت
    زیره اسمونه شهر
    نوشته ها
    169
    پسندیده
    591
    تشکر شده 668 بار در 151 ارسال.
    میزان امتیاز
    0
    سورس دانلود منیجر به زبان Vb.net

    dl.jpg
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. 5 کاربر زیر از SaEeD عزیز به خاطر این پست مفید تشکر کرده اند .


  5. #3
    Titular Member
    [Z]aratho[s] آواتار ها
    تاریخ عضویت
    2014/05/19
    محل سکونت
    var/crash/
    نوشته ها
    473
    پسندیده
    316
    تشکر شده 6,154 بار در 384 ارسال.
    میزان امتیاز
    0
    سورس کد یک آپدیتر برنامه ...
    برای دوستانی که میخوان برنامه هاشون قابل آپدیت شدن داشته باشه .
    فايل هاي پيوست شده فايل هاي پيوست شده

  6. 2 کاربر زیر از [Z]aratho[s] عزیز به خاطر این پست مفید تشکر کرده اند .


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

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

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

اکانت پرمیوم

کینگ مووی

بیاتوموویز

مای موویز

سینما