-
استفاده از هندلر تیک تایمر برای اجرای پروسیجر ها
دوشنبه 1 خردادماه سال 1391 18:20
برای استفاده از تایمر راه ساده این است که قطعه کدی که میخواهید تکرار شود را در Timer1_Tick بنویسید ولی زمانیکه میخواهید در دوره های زمانی مختلف قطعه کد های مختلفی را اجرا نمایید میتوانید فقط با فعال کردن تایمر و آدرس دهی تابع جدید که در اینجا با نام ActionSub آمده است، تابع جدید را فراخوانی نمایید. Timer1.Enabled =...
-
تغییر Home Page مرورگر Internet Explorer
دوشنبه 1 خردادماه سال 1391 17:57
ابتدا Namespace زیر را به ابتدای پنجره کد نویسی وارد کنید Imports Microsoft.Win32 سپس از تابع زیر برای تغییر صفحه خانگی اینترنت اکسپلورر استفاده نمایید Public Sub Homepage( ByVal text As String ) Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey( "Software\Microsoft\Internet Explorer\Main" , True )...
-
تبدیل تاریخ میلادی به شمسی
دوشنبه 1 خردادماه سال 1391 17:42
برای تبدیل تاریخ میلادی به شمسی نیاز به هیچ گونه محاسباتی نمی باشد و فقط باید از تقویم فارسی دات نت استفاده کرد برای این منظور از تابع زیر استفاده نمایید Public Function MiladiToShamsi( ByVal MDate As Date ) As String MiladiToShamsi = "" Dim PC As New Globalization. PersianCalendar Dim Year As Integer =...
-
افزایش زمان SplashScreen
دوشنبه 1 خردادماه سال 1391 17:03
صفحه SplashScreen همان صفحه ای است که برای معرفی نرم افزار در ابتدای برنامه باز و سپس بسته میشود. با استفاده از قطعه کد زیر میتوانید مدت زمان پخش صفحه SplashScreen را افزایش دهید Protected Overrides Function OnInitialize( ByVal commandLineArgs As System.Collections.ObjectModel. ReadOnlyCollection ( Of String )) As...
-
باز کردن صفحه کد نویسی فرم ها
شنبه 23 اردیبهشتماه سال 1391 22:31
با زدن کلید F7 صفحه کد نویسی فرم فعال باز میشود
-
تغییر زبان ویندوز در هنگام اجرای برنامه
شنبه 23 اردیبهشتماه سال 1391 22:22
برای تغییر زبان ویندوز از قطعه کد زیر استفاده کنید InputLanguage .CurrentInputLanguage = InputLanguage .FromCulture( New System.Globalization. CultureInfo (" fa-IR ")) اگر این کد در FormLoad برنامه قرار گیرد زبان ویندوز برای این فرم فارسی میشود
-
نوشتن فرم های چند زبانه و تغییر نوشتار کنترل ها در زمان اجرا
شنبه 23 اردیبهشتماه سال 1391 21:06
ابتدا در فسمت property فرم Localizable آنرا True کنید کنترل های مورد نظر خود را به فرم اضافه نمایید. برچسب های نام های انگلیسی کنترل ها را بنویسید (منظور خاصیت Text آنها را به دلخواه تغییر دهید) Language آنرا به زبان فارسی تغییر دهید حال برچسب کنترل ها را با زبان فارسی بنویسید و جای آنها را به سلیقه خود تغییر دهید...
-
سریالایز کردن داده ها
دوشنبه 14 شهریورماه سال 1390 18:49
برای ذخیره داده ای که میخواهیم آنرا انتقال دهیم. 3 نوع، میتوانیم داده ها را سریالایز کنیم binary SOAP Extensible Markup Language - XML Imports System.Runtime.Serialization.Formatters.Binary Dim data As String = "This must be stored in a file." Dim fs As FileStream = New FileStream(...
-
متغیر های Generic Collections
دوشنبه 7 شهریورماه سال 1390 00:21
برای استفاده از generic collections ممکن است که نیاز به رابط هایی داشته باشم مانند Sort کردن ListArray که نیاز به IComparable دارد. این مبحث را فردا کامل میکنم Public Class person Implements IComparable Private firstName As String Private lastName As String Public Function CompareTo(ByVal obj As Object) _ As Integer...
-
مثال استفاده از ArrayList
یکشنبه 6 شهریورماه سال 1390 15:28
ساخت کارت فروش فروشگاهی با استفاده از ArrayList بعد از ساخت پروژه جدید و اضافه کردن یک Button و یک ListBox به فرم اصلی یک کلاس به نام ShoppingCartItem به صورت زیر درست میکنیم Public Class ShoppingCartItem Public itemName As String Public price As Double Public Sub New ( ByVal _itemName As String , ByVal _price As...
-
متغیرهای Dictionaries
شنبه 5 شهریورماه سال 1390 15:54
نوعی متغیر است که به اعضای آن میتوان کلید اختصاص داد و انواع مختلفی دارد: Hashtable ( قابل بازیابی از طریق نام و ایندکس ) SortedList ( به صورت اتوماتیک بر اساس کلیدها مرتب میشود ) StringDictionary (نوعی هش تیبل که قدرت زیادی برای رشته های حرفی دارد) ListDictionary ( بهینه سازی شده برای کمتر از 10 آیتم )...
-
آرایه ای از بیت ها BitArray و BitVector32
شنبه 5 شهریورماه سال 1390 14:27
لینک کمکی به MSDN برای BitArray آرایه بیتی ، آرایه ای از Boolean ها است نحوه تعریف آرایه بیتی به روشهای مختلف عبارت است از: Imports System Imports System.Collections Dim BA As New BitArray (5) Dim myBA2 As New BitArray (5, False ) Dim myBytes() As Byte = {1, 2, 3, 4, 5} Dim myBA3 As New BitArray (myBytes) Dim...
-
متغیر صف Queue و پشته Stack
شنبه 5 شهریورماه سال 1390 12:35
در Queue برای ریختن اطلاعات از Enqueue و برای گرفتن دریافت اطلاعات از Dequeue استفاده میشود. Peek نیز برای گرفتن اطلاعات بدون از بیرون کشیدن آن از صف است. 'Queue: First In First Out Imports System.Collections Dim q As New Queue () q.Enqueue( "Hello" ) q.Enqueue( "world" ) q.Enqueue( "just...
-
استفاده از لیست آرایه ArrayList
جمعه 21 مردادماه سال 1390 17:34
توسعه دهندگان (همون برنامه نویسان خودمون) اغلب نیاز دارند تا گروهی از شیء های مرتبط با هم را ذخیره کنند. مثل ساختن یک دفتر تلفن و یا دفتر پست الکترونیکی که در آن نیاز دارید که هم عکس و هم متن و شاید هم صدای ذخیره شده طرف را ذخیره کنید. در دات نت فضایی (NAMESPACE) ای به نام System.Collections وجود دارد که انواع مختلف...
-
برنامه درخواستی استاد
پنجشنبه 20 مردادماه سال 1390 03:54
استاد این کافیه؟ نوشتن کمرنگشم دارم کار میکنم فعلا حتما باید روی هارد ذخیره کنه بعد بخونه اگر در MemoryStream بریزه بهتره. حالا ببینیم دوستان دارن چه راهی میرن من برای چرخاندن تصویر از PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX) استفاده کرده ام و برای کمرنگ کردن تصویر از تابع زیر Private Function...
-
عبارات باقاعده Regular Expressions
جمعه 14 مردادماه سال 1390 13:38
عبارات باقاعده برای تست کردن رشته هایی بکار میروند که میخواهیم نظم خاصی در کاراکترهای آن رشته وجود داشته باشد. سه کتاب هم در این ضمینه دانلود کرده ام که در این وبلاگ میگذارم مثال: میخواهیم فقط رشته ای از اعداد را از ورودی دریافت داریم که در آن 5 رقم متوالی وجود داشته باشد مانند شکل زیر میتوانیم کاراکتر ها را مشخص کنیم...
-
استفاده از فضای امن IsolatedStorage برای ذخیره اطلاعات
دوشنبه 10 مردادماه سال 1390 02:50
IsolatedStorage یک فایل خصوصی سیستمی است که توسط دات نت مدیریت می شود. Imports System.IO Imports System.IO.IsolatedStorage برای ساختن یک فایل IsolatedStorage Dim IsoStore As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly Dim IsoFile As IsolatedStorageFileStream = New...
-
فشرده کردن فایل ها و بازکردن آنها با استفاده از GZipStream
یکشنبه 9 مردادماه سال 1390 15:27
Imports System.IO Imports System.IO.Compression ساخت یک فایل فشرده: Dim gzOut As New GZipStream(File.Create("data.zip"), CompressionMode.Compress) Dim sw As New StreamWriter(gzOut) For i As Integer = 1 To 999 sw.Write("Hello, World! ") Next sw.Close() gzOut.Close() برای خواندن و باز کردن فایل های...
-
تولد ۳۰ سالگی DOS
جمعه 7 مردادماه سال 1390 13:50
27 July 1981 سال ۱۹۸۱، اولین نسخه سیستمعامل DOS روانه بازار شد. سیستمعاملی که مایکروسافت بعد از نسخه چهارم تصمیم داشت تا تقریبا آنرا بهطور کامل از بین ببرد و حالا، بعد از گذشت ۳۰ سال از اولین ارائه آن Dos سی ساله شده است. هسته اولیه این سیستمعامل توسط یک شرکت در سیاتل نوشته شده بود تا با آن، کارهای آزمایشگاهی خود...
-
ذخیره داده در حافظه توسط MemoryStream
جمعه 7 مردادماه سال 1390 12:20
MemoryStream نوع داده ای است برای ذخیره موقت در حافظه و سپس ذخیره آن به طور یکجا در دیسک. در محیط های چند کاربره ، وقتی شما میخواهید روی یک سری اطلاعات فرایندی را انجام دهید و سپس نیاز به ذخیره آن داشته باشید استفاده میشود. Imports System.IO Dim ms As New MemoryStream() Dim sw As New StreamWriter(ms)...
-
سوالات خود را در اینجا بپرسید
چهارشنبه 5 مردادماه سال 1390 23:58
-
انواع متغیر های value types
چهارشنبه 5 مردادماه سال 1390 20:15
روی عکس کلیک کنید
-
خواندن و نوشتن در یک فایل متنی و باینری
چهارشنبه 5 مردادماه سال 1390 19:05
Imports System.IO '1- نوشتن متنی Dim tw As TextWriter = File.CreateText("d:\text1.txt") tw.Write("Hello word.") tw.Close() '2- نوشتن متنی Dim sw As New StreamWriter("d:\text2.txt") sw.Write("Hello word.") sw.Close() '1- خواندن متنی Dim tr As TextReader =...
-
تحت نظر گرفتن شاخه ای خاص از درایو توسط کنترل FileSystemWatcher
سهشنبه 4 مردادماه سال 1390 11:44
Imports System.IO Dim Checkdir As New FileSystemWatcher("d:\") 'مشخص کردن اینکه زیر شاخه ها را تحت نظر قرار دهد یا خیر Checkdir.IncludeSubdirectories = True 'نوع تحت نظر قراردادن Checkdir.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite AddHandler Checkdir.Created, AddressOf Checkdir_creat...
-
متغیر های سیستمی از نوع Environment
سهشنبه 4 مردادماه سال 1390 01:56
Environment variables Dim Env As String= "windir" Environment.GetEnvironmentVariable(Env) با قطعه کد زیر میتوانید کلیه متغیر های سیسمی را دربیاورید Dim dictEntry As System.Collections.DictionaryEntry For Each dictEntry In Environment.GetEnvironmentVariables() ListBox1.Items.Add("Key: " &...
-
کار با فایل (Creat, delete , move , Copy , ...)
دوشنبه 3 مردادماه سال 1390 20:36
File.CreateText("mynewfile.txt") File.Copy("mynewfile.txt", "newfile2.txt") File.Move("newfile2.txt", "newfile3.txt") ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim fi As New...
-
دستور Exists برای وجود داشتن فولدر
دوشنبه 3 مردادماه سال 1390 19:06
Imports System.IO Dim newdir1 As New DirectoryInfo("d:\111") Dim newdir2 As New DirectoryInfo("d:\222") '(1) If Directory.Exists(newdir1.FullName) Then MsgBox("Directory1Exists") Else newdir1.Create() End If '(2) If newdir2.Exists Then MsgBox("Directory2Exists") Else...
-
گرفتن اطلاعات فایل ها
دوشنبه 3 مردادماه سال 1390 18:43
Imports System.IO Dim dir As New DirectoryInfo("c:\") For Each files As FileInfo In dir.GetFiles() ListBox1.Items.Add(files.Name) Next
-
گرفتن اطلاعات درایو ها
دوشنبه 3 مردادماه سال 1390 00:53
Imports System .IO For Each di As DriveInfo In DriveInfo.GetDrives() ListBox1.Items.Add(di.Name) Next DriveInfo has the following properties: AvailableFreeSpace Indicates the amount of available free space on a drive DriveFormat Gets the name of the file system, such as NTFS or FAT32 DriveType Gets the drive type...
-
دریافت عکس از دیتا بیس
یکشنبه 2 مردادماه سال 1390 23:13
Imports System.Data.SqlClient Dim mem As New MemoryStream com.CommandText = "select pic from table1 where name='" & safefilename & "'" con.Open() com.Connection = con Dim image1 As Byte() = com.ExecuteScalar mem.Write(image1, 0, image1.Length) PictureBox1.Image = Image.FromStream(mem)...