آموزش برنامه نویسی به زبان ویژوال بیسیک 6 و VB.NET
برای ساختن یک فایل xml از کد زیر استفاده می کنیم


Dim Writer As New Xml.XmlTextWriter("c:\test.xml", System.Text.Encoding.UTF8) With {.Formatting = Xml.Formatting.Indented, .Indentation = 2}
Writer.WriteStartDocument(True)
Writer.WriteStartElement("MainElement")
Writer.WriteStartElement("SubElement1")
Writer.WriteStartElement("ChildElement1")
Writer.WriteString("Value1")
Writer.WriteEndElement() '\ChildElement1
Writer.WriteStartElement("ChildElement2")
Writer.WriteString("Value2")
Writer.WriteEndElement() '\ChildElement2
Writer.WriteEndElement() '\Element1
Writer.WriteEndElement() '\MainElement
Writer.WriteEndDocument()
Writer.Close()

که خروجی کد بالا یک فایل xml به صورت زیر است

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<MainElement>
<Element1>
<ChildElement1>Value1</ChildElement1>
<ChildElement2>Value2</ChildElement2>
</Element1>
</MainElement>

 برای خوندن اطلاعات یک فایل xml از دستورات زیر استفاده می کنیم

Dim xDoc As System.Xml.XmlDocument = New Xml.XmlDocument
xDoc.Load("setting.xml")
Dim Value1 As String = xDoc.SelectSingleNode("/MainElement/Element1/ChildElement1").InnerText.ToString
Dim Value2 As String = xDoc.SelectSingleNode("/MainElement/Element1/ChildElement2").InnerText.ToString

   برای تغییر اطلاعات در فایل xml از کد زیر استفاده می کنیم

Dim xDoc As System.Xml.XmlDocument = New Xml.XmlDocument
xDoc.Load("c:\test.xml")
xDoc.SelectSingleNode("/MainElement/Element1/ChildElement1").InnerText = "NewValue1"
xDoc.SelectSingleNode("/MainElement/Element1/ChildElement2").InnerText = "NewValue2"
xDoc.Save("c:\test.xml")
+ نوشته شده در  یکشنبه 12 آذر1391ساعت   توسط مرتضی | 
چون هر کاربری ممکنه ویندوز خودشو توی درایوی غیر از C  نصب کرده باشه برای بدست آوردن آدرس پوشه های مهم مثل صفحه دسکتاپ، مای داکیومنت و ...  باید از دستورات زیر استفاده کنیم


Dim Desktop As String = My.Computer.FileSystem.SpecialDirectories.Desktop
Dim MyDocuments As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim MyMusic As String = My.Computer.FileSystem.SpecialDirectories.MyMusic
Dim ProgramFiles As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
Dim Temp As String = My.Computer.FileSystem.SpecialDirectories.Temp
+ نوشته شده در  سه شنبه 7 آذر1391ساعت   توسط مرتضی | 
برای مینیمایز کردن پنجره از دستور زیر استفاده می کنیم

Me.WindowState = FormWindowState.Minimized

برای ماکسیمایز کردن پنجره از دستور زیر استفاده می کنیم

Me.WindowState = FormWindowState.Maximized

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

Me.WindowState = FormWindowState.Normal
+ نوشته شده در  سه شنبه 7 آذر1391ساعت   توسط مرتضی | 
برای دریافت تاریخ به شمسی اول باید یه متغیر تقویم فارسی تعریف کرد. به صورت زیر

Dim PD As New System.Globalization.PersianCalendar

بعد از تعریف متغیر می تونیم از اون استفاده کنیم
 مثال

Dim Sal As Integer = PD.GetYear(Now)
Dim Mah As Integer = PD.GetMonth(Now)
Dim Rooz As Integer = PD.GetDayOfMonth(Now)
+ نوشته شده در  سه شنبه 7 آذر1391ساعت   توسط مرتضی | 
VB Decompiler Pro 8.3 Retail نرم افزاری است قدرتمند که قادر به برگرداندن سورس برنامه های(Exe,Dll,Ocx) نوشته شده با ویژوال بیسیک ۵٫۰ و ۶٫۰ است و نیز برنامه های نوشته شده با دات نت(.NET). همانطور که می دانید ، برنامه ها در ویژوال بیسیک را می توان به P-code یا زبان ماشین کمپایل نمود. اسبلی دات نت همیشه تنها در مفسر ایل کد(IL code) کمپایل می شود.



مشخصات کلیدی VB Decompiler Pro 8.3 Retail :
بازگردانی برنامه های کاربردی فشرده شده با استانداردهای جهانی(پشتیبانی از UPX، NSPack و اغلب فشرده سازهای فایل EXE محبوب)
بازگردانی فرم های کامپایل شده (frm وfrx) وفایل آبجکت های کنترل کاربر(ctl)
بازگردانی کامل P-code (با تجزیه پی کدها به دستورالعمل های استاندارد ویژوال بیسیک با ابزار GUID بازگردانی)
دو روش بازگردانی سورس P-codeها (با بازگردانی کتابخانه ای یا بدون بازگردانی کتابخانه ای)
جداسازی قطعات روال زبان ماشین (با قدرت جداسازی Pentium Pro، پشتیبانی آموزشی از MMX وFPU)
جداسازی کد روالهای زبان ماشین با منابع رشته ای و فراخوانی API ها
بازگردانی جزئی سورس(با استفاده از موتور شبیه سازی)
ترکیب و رنگ آمیزی کدهای بازگردانی شده
لیست مرجع رشته ها و موتور جستجو
سرعت بالای بازگردانی سورس
دارای Obfuscator جهت برنامه های ویژوال بیسیک ۵و۶
دارای Patcher برای برنامه های ویژوال بیسیک ۵و۶
ذخیره اطلاعات بازیافتی در فایل DB مجزا
بازیابی برنامه های دات نت

ذخیره لیست پروسه ها در MAP فایل، فایل IDC جهت اسکریپت یا HIEW فایل برای نامها

دانلود

منبع کمیاب آنلاین



+ نوشته شده در  پنجشنبه 15 دی1390ساعت   توسط مرتضی | 
سلام
اینا یه سری از کتابا و مقالاتی هست که رو سیستمم داشت

بقیشو تا چند روز آینده میزارم

http://vbasic6.persiangig.com/vb/ACTIVEX(m-vb6.blogfa.com).PDF

http://vbasic6.persiangig.com/vb/API%20Load%20Tutorial(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/API(m-vb6.blogfa.com).PDF

http://vbasic6.persiangig.com/vb/AutoStart(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/Directx(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/FarsiSazi(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/Learning-VB.Net-Functions_(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/MENU(m-vb6.blogfa.com).PDF

http://vbasic6.persiangig.com/vb/MultiMedia(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/MySQL%20In%20VB.NET(m-vb6.blogfa.com).pdf

http://vbasic6.persiangig.com/vb/Visual_Basic_N%2B1.pdf

http://vbasic6.persiangig.com/vb/multimedia2(m-vb6.blogfa.com).pdf



+ نوشته شده در  شنبه 10 دی1390ساعت   توسط مرتضی | 
کتاب ویژوال بیسیک در N+1 روز

کتاب خوبیه

دانلود

http://vbasic6.persiangig.com/vb/Visual_Basic_N%2B1.pdf




+ نوشته شده در  چهارشنبه 23 آذر1390ساعت   توسط مرتضی | 

دستورات پایه ای برای برنامه نویسی

1-دستور شرطی if

در برنامه نويسی مواردی پیش می آيد که بخواهيم دستور یا دستوراتی، هنگامی که شرط خاصی برقرار است، توسط برنامه به اجرا در آيد. اين مورد در زندگی روزمره نيز ديده می شود؛ به عنوان مثال " اگر فردا باران نيايد، من به کوه خواهم رفت." شرط مورد نظر نيامدن باران است و عملی که قرار است انجام شود رفتن به کوه می باشد.در برنامه نویسی ویژوال بیسیک این شرط به صورت زیر نوشته می شود

If  شرط مورد نظر   Then   دستور مورد نظر

حالا مثال خودمون رو روی این دستور پیاده می کنیم

If  فردا باران نیاید    Then   من به کوه خواهم رفت

دستور if  در ویژوال بیسیک به دو صورت نوشته میشه

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

If    شرط مورد نظر    Then    دستور مورد نظر

ب- در این حالت ما می توانیم یک یا چند دستور را اجرا کنیم.باید توجه داشت که در پایان دستور ها باید کلمه End if  را برای اتمام کار بنویسیم در غیر این صورت برنامه پیغام خطا می دهد.

If   شرط مورد نظر    Then

دستور شماره1

دستور شماره 2

دستور شماره3

دستور شماره......

End if

2-دستور شرطی If & Else

گاهی اوقات نياز داريم که در صورت برقرار بودن شرط خاصی يک سری دستورات اجرا و در صورت برقرار نبودن آن شرط دسته ای ديگر از دستورات اجرا گردند. به عنوان مثال اگر فردا باران بيايد من به کوه نمی روم در غير اين صورت من به کوه خواهم رفت.

If  شرط مورد نظر   Then

دستور اول

Else

دستور دوم

End if

حالا مثال رو روی این دستور پیاده می کنیم.

If   فردا باران بیاید   Then

من به کوه نمی روم

Else

من به کوه می روم

End if

حالا ویژوال بیسیک رو اجرا کنید و از پنجره ی باز شده  New Project رو انتخاب کنید تا یک پروژه ی جدید باز شود.

وقتی پروژه ی جدید باز شد از طریق منوی سمت چپ یک Command Button به فرمتون اضافه کنید.

روی command button دو بار کلیک کنید تا پنجره ی کد نویسی باز بشه.

در این قسمت ما می خواهیم دستور if  را برسی کنیم پس کد نویسی را شروع می کنیم.در پنجره ی کدنویسی هر چقدر متن هست رو پاک کنید و به جای اون این کدهارو بزارید.

Private Sub Command1_Click()

If     50 < 100    Then    Beep

End Sub

خط اول و آخر مربوط به اینه که مشخص میکنه در چه جایی این شرط بررسی بشه که ما به برنامه گفتیم در موقعی که بر روی  command button کلیک میشه این شرط رو بررسی کن.

خط دوم هم به برنامه میگه اگر عدد 50 کمتر از 100 بود در اون صورت بوق بزن(Beep)


حالا می خواهیم دستور  If  &Else را بررسی کنیم.

مانند قبل یک پروژه ی جدید باز کنید و در یک command Button به اون اضافه کنید.

با دوبل کلیک بر روی Command Button پنجره ی کدنویسی را باز کنید و کدهای داخل اون رو پاک کنید و این کدها رو بهش اضافه کنید.

Private Sub Command1_Click()

If   50 < 100   Then

MsgBox "50 kamtar az 100 ast"

Else

MsgBox   "50 bishtar az 100 ast"

End If

End Sub

در خط اول و آخر مثل قبل به برنامه گفتیم که در چه جایی شرط بررسی بشه.

در خط دوم شرط مورد نظر رو نوشتیم"اگر عدد 50 کمتر از 100 بود" در اون صورت

در خط سوم دستوری رو نوشتیم که در ازای درست بودن شرط اجرا میشه پیغام "50 kamtar az 100 ast" رو نشون بده

خط چهارم هم کلمه ی Else  یا "در غیر این صورت " رو نوشتیم

در خط پنجم هم دستوری رو نوشتیم که به ازای درست نبودن شرط اجرا میشه "پیغام 50 bishtar az 100 ast رو نشون بده"

در خط ششم هم پایان شرط رو اعلام کردیم




نکته:دستور MsgBox  برای نشان دادن یک پیغام استفاده می شود که دستور ساده ی آن به این صورت است

MsgBox "پیغام مورد نظر"


+ نوشته شده در  پنجشنبه 5 بهمن1385ساعت   توسط مرتضی | 
یکی از دوستان یه سوال پرسیدند که"چطوری می تونم توی برنامم آهنگ بزارم که آدرس نخواد و با فایل exe باشه؟"

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

ادامه مطلب
ادامه مطلب
+ نوشته شده در  سه شنبه 3 مرداد1385ساعت   توسط مرتضی | 
خواص Label  ها

 1-Auto size=این خاصیت در صورتی که true  باشه باعث میشه تا اندازه label به طور اتوماتیک به اندازه متن اون باشه و اگر false  باشه اندازه به صورت دستی قابل تغییر است.
 2-Back Style= اگر این خاصیت مساوی 0 یا transparent  باشه label  شفاف میشه و فقط متن اون پیدا میشه و اگر 1 یا Opaque باشه label به صورت مات و غیر شفاف در میاد که رنگ اون توسط خاصیت Back color قابل تغییر است
 3-BorderStyle= اگر مقدار این خاصیت 0 یا None باشه label به صورت تخت Flat  تبدیل میشه و اگر مقدارش مساوی 1 یا Fixed Single باشه label به صورت 3بعدی نمایش داده میشه


 4-ToolTipText=این هم توضیحی است که با رفتن موس روی label  نمایش داده میشه
+ نوشته شده در  شنبه 30 اردیبهشت1385ساعت   توسط مرتضی | 
سلام امروز میخوام به سوال یکی از دوستان جواب بدم
سوال ایشون در مورد چگونگی ذخیره کردن متن یک تکست باکس در قسمتی از هارد است
برای دیدن این مطلب روی ادامه مطلب کلیک کنید

ادامه مطلب
ادامه مطلب
+ نوشته شده در  شنبه 22 بهمن1384ساعت   توسط مرتضی | 
به در خواست یکی از دوستان  طریقه ی ساخت یه  

MP3 player

رو آموزش میدم
برای دیدن این مطلب روی ادامه مطلب کلیک کنید
ادامه مطلب
ادامه مطلب
+ نوشته شده در  چهارشنبه 12 بهمن1384ساعت   توسط مرتضی | 
سلام
امروز می خوام براتون از بعضی خواص فرم ها بگم
1-appearance =این خاصیت مشخص میکند که فرم به صورت سه بعدی (3D) باشد یا تخت (flat)
2-Back Color=این خاصیت رنگ زمینه فرم را مشخص میکند
3-Border style=این خاصیت اگر بر روی(0-None)باشد فرم را بدون حاشیه و دکمه های مینیمایز و ماکسیمایز وبستن نشان میدهد و کاربر نمی تواند آن را تغییر اندازه بدهد و اگر بر روی(1-Fixed single)باشد فرم را با حاشیه و دکمه بستن نشان میدهد و کاربر نمی تواند آن را تغییر اندازه بدهد و اگر بر روی(2-Sizable) باشد تمام دکمه ها و حاشیه فرم را نشان میدهد.
4-Icon=این خاصیت آیکون برنامه را مشخص می کند
5-Max button=این خاصیت فعال یا غیر فعال بودن دکمه ماکسیمایز را مشخص می کند
6- Min button=این خاصیت فعال یا غیر فعال بودن دکمه مینیمایز را مشخص می کند
7-Mouse icon=این خاصیت شکل نشانگر موس را تعیین می کند
8-Mouse Pointer=این خاصیت نوع شکل نشانگر موس را مشخص می کند مثل ساعت شنی یا دست شدن نشانگر
9-Movable=این خاصیت مشخص میکند که آیا کاربر اجازه دارد که فرم را جابجا کند یا نه
10-Picture=عکس زمینه فرم را مشخص می کند
11-ShowIn Taskbar=مشخص می کند که برنامه در تسکبار دیده شود یا نه
12-Startup position=محل قرار گرفتن فرم در هنگام شروع برنامه را مشخص می کند
13-Window state=نوع نمایش پنجره در هنگام شروع برنامه(مینیمایز/ماکسیمایز/نرمال)
 
+ نوشته شده در  پنجشنبه 24 آذر1384ساعت   توسط مرتضی | 
بازهم سلام
این دفعه می خوام در مورد بعضی از خاصیت های textbox که در پنجره ی properties وجود داره توضیح بدم.
1-Name=این رو که حتما می دونید که اسم اون هستش ولی نکته ای که باید به اون توجه کرد اینه که برنامه نویس های حرفه ای در اول اسم textbox ها txt روهم مینویسند مثلا txtdisplay یا txtname .
2-Alignment=این خاصیت نحوه تراز شدن متن رو در textbox رو نشون می ده (وسط چین،چپ چین،راست چین).
3-Appearance= این خاصیت به شکل و شمایل اون مربوط می شه اگر flat رو انتخاب کردید textbox به صورت تخت در میاد ولی اگر 3d رو انتخاب کنید به صورت سه بعدی و تو رفته در میاد.
4-Backcolor= ای هم مربوط میشه به رنگ داخل textbox.
5-enable= هم مربوط میشه به فعال یا غیر فعال بودن.
6-Forecolor= این هم رنگ متن داخلش رو مشخص می کنه.
7-locked= این خاصیت مشخص می کند که آیا کاربر می تواند متن داخل ان را عوض کند یا نه.
8-Maxlenght= این خاصیت حداکثر تعداد کاراکترهایی را که می توان درون textbox وارد نمود مشخص می کند.
9-Multiline= چنانچه این خاصیت true باشد وقتی در textbox در حال تایپ کردن هستید اگر اینتر را فشار دهید به خط بعد می روید و می توانید متن را در بیشتر از یک خط بنویسید ولی اگر این خاصیت false باشد فقط میتوانید در یک خط متن را وارد کنید.
10-Passwordchar= حتما دیدید که وقتی در حال تایپ کردن پسورد هستید هرچی تایپ می کنید به جاش یه علامت ستاره تایپ میشه که به خاطر اینه که متن به صورت محرمانه باشه وکسی نتونه ببینه.حالا شما در مقابل این خاصیت هر کاراکتری رو وارد کردی به جای متن اون کاراکتر نشون داده میشه.مثلا اگر 3 رو وارد کردید، هرچی تایپ کردید بجای اون 3 میبندید.
11-RightToLef= این خاصیت مشخص می کنه متن از چپ به راست نوشته شود یا از راست به چپ.
12-scrollbar= چنانچه بخواهید میله های مرور روی جعبه متن ظاهر شوند ونیز برای تعیین تعداد انها باید از این خاصیت استفاده کنید.مقدار0-None از ظاهر شدن میله های مرور جلوگیری میکند.مقدار 1-Horizontal فقط یک میله مرور افقی نشان می دهد.مقدار 2-vertical اجازه نمایش میله مرور عمودی را می دهد..مقدار 3-both هر دو میله مرور افقی و عمودی را نشان می دهد.
13-Text=این خاصیت متن اولیه(مقدار پیش فرض) را که درون جعبه متن ظاهر می شود را نشان می دهد. بازم بر می گردم نظر یادتون نره
+ نوشته شده در  شنبه 7 آبان1384ساعت   توسط مرتضی | 
سلام این مطلب در باره ی
1-محل قرار گرفتن خط چشمک زن
2-انتخاب همه یا قسمتی از متن داخل textbox(آبی کردن)
 
برای دیدن این مطلب روی ادامه ی مطلب کلیک کنید

ادامه مطلب
ادامه مطلب
+ نوشته شده در  یکشنبه 1 آبان1384ساعت   توسط مرتضی | 
 
صفحه نخست
پست الکترونیک
آرشیو وبلاگ
عناوین مطالب وبلاگ
درباره وبلاگ
آموزش برنامه نویسی به زبان ویژوال بیسیک+اموزش ویژوال+visual basic+کد برنامه+code

نوشته های پیشین
آذر 1391
دی 1390
آذر 1390
بهمن 1385
مرداد 1385
اردیبهشت 1385
بهمن 1384
آذر 1384
آبان 1384
آرشیو موضوعی
خواص اشیا
پیوندها
گروه گردشگری شاهین کوهستان
اشک سرد نقره ای
آموزش ویژوال بیسیک پیشرفته
طراحی وبWeb Designer
دوست داران فریدون مشیری
فاصله ها
عمو محسن
وبلاگ رز
کابوس شیرین
همه چیز اینجاست
وبلاگ کوچولو
تازه های سخت افزار کامپيوتر
مثل آبي، مثل دريا
:: بزرگترين سايت اموزشي تفريحي ::
300 the movie
300 the movie
300 the movie
 

 RSS

POWERED BY
BLOGFA.COM