تبدیل متن به عدد

تبدیل متن فارسی به عدد

دوستان کدی که گفتم تا جمعه آماده میکنم ورژن اولش رو همین امروز آماده کردم ولی خوب بازم زمان نیازه که کاملش کنم ولی همین ورژن اولش نسبتا جواب میده

موفق باشید! (Ti-amo )

دانلود کد و نمونه برنامه برای نحوه استفاده از کد

تبدیل عدد به متن فارسی

دوستان این Module که براتون گذاشتم تابعی هست برای تبدیل عدد به معادل فارسی آن هستش امید وارم که به کار دوستان بخوره

البته این رو بگم که فعلا تا 18 عدد رو تبدیل میکنه یعنی 999,999,999,999,999,999

دانلود ماژول

نحوه استفاده از این کد:

MsgBox(NumToFarsi(TextBox1.Text))

راستی اینم بگم که دارم روی تبدیل حروف فارسی به اعداد کار میکنم و احتمال خیلی زیاد تا جمعه آماده میشه!

کلاسی برای کار با بانک اطلاعاتی SQL

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی SQL هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده

Imports System.Data
Imports System.Data.SqlClient

Public Class SQLDatabase

Private ObjCon As New SqlConnection
Private ObjCom As New SqlCommand
Private da As New SqlDataAdapter
Public dt As New DataTable

Public Sub doConnect(ByVal Server As String, ByVal Database As String, ByVal Password As String, ByVal Username As String)

   Dim cs As String = "Data Source=" & Server & ";Initial Catalog=" & Database & ";User      ID=" & Username & "Sa;Password=" & Password 
   ObjCon.ConnectionString = cs
   ObjCon.Open()  
End Sub

Public Function doSelect(ByVal Str As String)
   dt.Reset()
   ObjCom.Connection = ObjCon 
   ObjCom.CommandText = Str 
   da.SelectCommand = ObjCom 
   dt = New DataTable 
   da.Fill(dt) 
   Return dt 
End Function

Public Sub doCommand(ByVal str As String)
   ObjCom.Connection = ObjCon
   ObjCom.CommandText = str
   ObjCom.ExecuteNonQuery()
End Sub

Public Function Docheck(ByVal str As String) As Boolean
   ObjCom.Connection = ObjCon
   ObjCom.CommandText = str
   Dim dr As SqlDataReader = ObjCom.ExecuteReader
   Docheck = dr.Read 
   ObjCon.Close() 
   Return Docheck 
End Function

Public Sub Disconnect()
  ObjCon.Close() 
End Sub

End Class

برای دانلود کلاس اینجا کلیک کنید

برای دانلود نمونه برنامه اینجا کلیک کنید

کلاسی برای کار با بانک اطلاعاتی Access

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی Access هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده

Imports System.Data
Imports System.Data.OleDb

Public Class Mydb

Private ObjCon As New OleDbConnection
Private ObjCom As New OleDbCommand
Private da As New OleDbDataAdapter
Public dt As New DataTable

Public Sub doConnect()
      Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|                                      \Database.mdb;Persist Security Info=True"
      ObjCon.ConnectionString = cs
      ObjCon.Open()
End Sub

Public Function doSelect(ByVal Str As String)
      dt.Reset()
      ObjCom.Connection = ObjCon
      ObjCom.CommandText = Str
      da.SelectCommand = ObjCom
      dt = New DataTable
      da.Fill(dt)   
      Return dt 
End Function

Public Sub doCommand(ByVal str As String)
   ObjCom.Connection = ObjCon
  ObjCom.CommandText = str 
  ObjCom.ExecuteNonQuery() 
End Sub

Public Function Docheck(ByVal str As String) As Boolean
  ObjCom.Connection = ObjCon 
  ObjCom.CommandText = str 
  Dim dr As OleDbDataReader = ObjCom.ExecuteReader 
  Docheck = dr.Read 
  ObjCon.Close() 
  Return Docheck 
End Function

Public Sub Disconnect()
  ObjCon.Close() 
End Sub

End Class

برای دانلود کلاس اینجا کلیک کنید

برای دانلود نمونه برنامه اینجا کلیک کنید

مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff)

 کد مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff) 

Public Function ShamsiDateDiff(ByVal Date1 As String, ByVal Date2 As String, Optional ByVal Seperator As String = "/") As Integer

        Dim pc As New Globalization.PersianCalendar

        Dim da1 = Date1.Split(Seperator)

        Dim da2 = Date2.Split(Seperator)

        Dim dt1 = pc.ToDateTime(da1(0), da1(1), da1(2), 0, 0, 0, 0)

        Dim dt2 = pc.ToDateTime(da2(0), da2(1), da2(2), 0, 0, 0, 0)

        Return DateDiff(DateInterval.Day, dt1, dt2)

    End Function 

طریقه استفاده از کد 

Msgbox(ShamsiDateDiff(“1389/07/09” , ”1389/09/23” , ”/”))