Dotnetcharting کاملاً مجانی-Free Dotnet Charting

مطمئنم که تعجب می کنین وقتی ببینین دیگه توی object های dotnetcharting دیگه آرم وجود نداره و دیگه گوشه سمت راست بالا ننوشته Not for production use.باید از پسر عموم تشکر کنم که راهنماییم کرد تا پیداش کنم.

لینک دانلود:DotnetCharting Winforms 5 Download

 

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

فکر کنم احتیاجی به توضیح نداره....جواب یکی از خوانندگان محترم

لینک دانلود :  Khayam_Pascal VB Triangle Download

پیدا کردن بالا مثلثی یا پایین مثلثی بودن ماتریس

سوال:barname ee ke tedadi adad daryaft va dar matrise 3*3 gharar dahad
sepas in matriks ra neshan dade va begooyad paeen mosalasi ast ya bala mosalasi?

---

اینم برنامه ای رو که خواسته بودین :

لینک : Matrix Triangles Download

 

سوال یک خواننده:برنامه بنویسید که ماترسیس 4×4 بگیرد و ...

سوال :برنامه بنویسید که ماترسیس 4×4 بگیرد و بعد از پرسیدن یک عدد مشخص کند که چند بار در ماتریس تکرار شده.

---

برنامه ای که خواستید رو نوشتم و می تونین دانلودش کنین .

لینک دانلود : Matrixs Items Count

یک Function برای ساختن یک لیست گرافیکی و زیبا...

همانطور که در شکل زیر نشان داده شده است Object ی به نام ListView در VB  وجود دارد که استفاده های آن بسیار زیاد می باشد...یکی از این کاربرد ها ساختن یک لیست و نمایش لیست مانند هر نوع اطلاعاتی می باشد....

                                              

 

برای راحتی بیشتر پروژه ای برای کار با این Object تهیه کردم که می تونین Download  کنین.

در ضمن Module ی در این برنامه به نام  Format List  که دارای تابع  SetListViewColor است وجود دارد که با  یک ListView  و PictureBox که در فرم وجود دارد ListBox ی زیبا تولید می کند .کار این تابع و همچنین تصویری از برنامه رو تو این 2 شکل می بینید.

 

لینک Download :

                                     VB ListView Sample Download   

 

 

 

کار با تابع SetListViewColor:

 

SetListViewColor [نام listview], [picturebox نام], [شماره رنگ 1], [شماره رنگ 2]

 

دلیل استفاده از یک PictureBox   در این تابع این است که در واقع تابع بعد از گرفتن 2 رنگ ابتدا PictureBox را به اندازه ListView بزرگ کرده سپس با توجه به اندازه Font در ListView  خطوط یک در میان رو روی PictureBox رسم می کنه و اون رو BackGround واسه ListView قرار میده.

 

 

بازیابی Resource ها

این قسمتها رو به سفارش آقای رضا از خواننده های خوبم نوشتم و امروز این فایل OCX رو نوشتم واسشون....

سوال :امیدوارم تو پست بعدی به من یاد بدید چه طور یک فایل رو از بین تمام فایل های موجود در دنیا بشناسم؟مثلا" یه نشونه توش بذارم یا نمی دونم.

---

در جواب باید بگم که بهترین نشونه ایجاد یک Resource String هست که به روش قبلی می تونین ایجاد کنین.البته میشه نام فایل رو هم به عنوان نشونه در نظر گرفت ولی مطمئن نیس چون ممکنه نام فایل EXE عوض بشه.

این ActiveX Object رو Download کنینوالبته تازه تازس هنوز داغه ماله امروز بعد از ظهره .....

تفهیم عملکرد: این OCX در واقع String Resource هارو چک میکنه با ID که شما اونو میخواین ازش چک میکنه .اگه باشه بهتون میده.پس یادتون باشه که ID اون String چی بوده.(تو مثال قبل 101 ) .

البته در زمینه کاملتر Resource ها فقط String ها نیستن و می تونن ICon -Form-و .... هزار تا چیز دیگه.

لینک دانلود : Resourrce String Loader Ocx Download

مثال :

Text1.Text = LoadResString1.ResString("c:\project1.exe", 101)

اگه کار با ActiveX Dll ها که تو فایل های OCX هستند رو یاد ندارین به مطالب قبل مراجعه کنین جون جند بار توضیح دادمشون....

موفق باشین و پر سوال.....

ایجاد منابع مستقل (Resources) در EXE ها

این کار همونطور که در مطلب قبلی توضیحش رو دادم استفاده زیادی داره.

آموزش تصویری:

1-وارد VB بشین و طبق تصویر برین گزینه رو از تو Add-Ins انتخاب کنین.

2-اعمال زیر رو انجام بدین

3-Resource Editor رو باز کنین.

4-این کارارو واسه اجاد یک String با Id مخصوص به خودش بکنین.این رشته همون رشته ی قابل مجزا شدن از تو فایل های EXE است.

5-Save ش کنین .

6-حالا به پروژتون اضافه میشه .

7-خود برنامه مهم نیس تو این مثال .بدئن کار دیگه فقط Compile کنینش تا نتیجه رو ببینین.

---

نحوه استفاده : خوب این کارارو انجام دادیم.حالا میخوایم از این رشته استفاده کنیم .خیلی آسونه ....مثلاً میریزیمش تو یک TextBox.

Text1.Text = LoadResString(101)

 

 

تغییر مبنای اعداد در مبناهای 10 -2 - 8 -16

سوال : سلام....خدا خیرتون بده .....من
برنامه تبدیل مبناهای  2و8و10و16  به همدیگه با وی بی دات نت رو میخوام.....شما میتونید کمک کنید.....
التماس دعا...
یا علی مدد...

---

این یک برنامه واسه تغییر مبناهای ۲ و ۸ و ۱۰ و ۱۶ هست که باید به این دوست خوبم بگم که VB برای مبناهای 8 و 16 توابع Oct و Hex رو داره .می مونه فقط مبنای 2 که تو این برنامه توابعش هست.....زحمت .Net ی کردن و Copy Paste ش رو هم خودتون بکشین دیگه کاری نداره که.....

لینک دانلود : VB How to Oct Hex Binary Download

محاسبه انتگرال و رسم توابع

این یکی از برنامه های خوبیه که خودم نوشتم .روش کار کردم و ترجیح می دم به جای اینکه واسه خودم نگهش دارم واسه بقیه رایگان بدارم تا استفاده کنن ازش.....هر چند که ارزشش زیاده واسه خودم....این برنامه هر تابعی را رسم میکنه....در مجانبها مشگلی نداره.... و به روش ذوزنقه ای انتگرال رو محاسبه میکنه.......توجه کنید مجهول برای رسم فقط X می باشد......ضرایب X را به صورت 2 * X بنویسید .

لینک دانلود : VB Antegral Calculator and Grapher Download -By pooya sarraf

 

ترسیم نمودار هایچ 2 و 3 بعدی از روی Database یا VB

این یک برنامه کامل و جالبه .می تونین اطلاعات بانک اطلاعاتیتون رو به صورت یک نمودار کرده و توسط همین برنامه آن را برای چاپ آماده نمایید .....

این برنامه امکانات زیادی برای رسم انواع نمودار دارد و با بان اطلاعاتی Access کار می کند ...

لینک دانلود :  Vb Graph Download

نمایی از Print Preview برنامه :

آموزش ساخت ActiveX Object با VB

اصولا ً افرادی که با برنامه نویسی زیاد سر و کار دارن باید بدونن که چطوری اشیائی درست کنن که به دردشون بخوره و ازش تو برنامه هاشون استفاده کنن .از مزایای ساختن ActiveX Objects نسبت به استفاده کد ها در رویه های داخلی برنامه میشه به موارد زیر اشاره کرد :

1)       بالا رفتن سرعت برنامه نویسی برنامه نویس.

2)       امکان استفاده از  OCX  های ایجاد شده در چند پروژه.

3)       کاهش Bug  های برنامه.

4)       نظم و انسجام بیشتر برنامه و کدها و خواناتر شدن برنامه.

5)       پایین آمدن تعداد خطوط برنامه و کم حجم تر شدن و  Compile  بهتر.

 

تفهیم موضوعی:

ما به عنوان نمونه می خوایم یک Object  درست کنیم که دارای 2 عمل کرد باشد .هنگامی که دستور میدیم زمان رو نشون بده و وقتی می خوایم تاریخ رو نشون بده .

برای اینکار مراحل زیر رو رنبال کنید .

1)       مطابق شکل  VB رو باز کنید و گزینه ActiveX Control رو انتخاب نمایید.

 

 

2)       حالا یک Label  روی فرم با این خصیصه ها ایجاد کنید .

Alignment                   2-Center

Backcolor                    &H00FFC0C0&

Border Style                1-Fixed Single

Caption                       [Empty]

 

3)حالا یک تایمر با interval 100  ایجاد کنید .و Enabled اون رو برابرFalse  قرار بدین .

 

4)مطابق شکل عرض و طول فرم User Control  (همونی که روش همه اشیا رو گذاشتین)رو با عرض و طول Label1 یکی کنین و Label 1 رو به گوشه بالا سمت چپ ببرین تا فقط Label دیده بشه .

5)درون پنجره کد این دو Function  رو بنویسین.

Public Function SetTime()

Timer1.Enabled = True

End Function

Public Function SetDate()

Timer1.Enabled = False

Label1.Caption = Date

End Function

6)       درون کد تایمر این کد رو تایپ کنین.

Label1.Caption = Time

 

    

7)       کل پروژه رو Save  کنید .

8)       مطابق شکل می خواهیم فایل OCX رو که در واقع همین ActiveX Object ی هست که ساختیم رو ایجاد کنیم تا بتونیم کاراییش رو امتحان کنیم .

برای این کار از منو File  گزینه make  رو انتخاب نمایید.و در هر جایی که دوست داشتین Save کنید.

 

حالا می خوایم از این ActiveX Object  استفاده کنیم .

1)                          VB رو باز کرده و یک پروژه ایجاد نمایید

2)                          در منو ابزار RClick  کنین و Components رو بزنید.

3)                          از قسمت Browse  فایل OCX ی رو که ساختین رو انتخاب و OK کنین.

4)                          همونطور که ملاحظه می کنین یک Object جدید به نوار ابزار اضافه شده که همون ActiveX Object ی هست که ساختیم یکی از اون رو روی فرم بذارین و 2 CommandButton  مثل شکل ایجاد کنین و کدهای زیر رو توشون بذارین .

Private Sub Command1_Click()

UserControl11.SetTime

End Sub

 

Private Sub Command2_Click()

UserControl11.SetDate

End Sub

 

5) برنامه رو اجرا کنین و اون رو امتحان کنین و ببینین چقدر کیف میده.

 

 

 هنگامی که Command1 کلیک می شود ActiveX Object ی که ساختیم زمان رو نشون میده .

وقتی که Command2 کلیک میشه تاریخ رو نشون میده .

توابع Arc

بدون شرح..........

Function fnACOS(Y)
   fnACOS = fnDeg(3.1415927 / 2 - (fnRad(fnASIN(Y))))
End Function

Function fnDeg(z)
   fnDeg = z * 57.295779513
End Function

Function fnASIN(x)
   fnASIN = fnAT(x / ((1 - x ^ 2) ^ 0.5))
End Function

Function fnRad(z)
   fnRad = z / 57.295779513
End Function

Function fnCS(X2)
   fnCS = Cos(fnRad(X2)
End Function

چطوری در Run time کنترل ها را روی Form ایجاد کنیم ؟

شاید دوست داشته باشین به تعداد دلخواه در زمان اجرای برنامه (Run time ) تعدادی کنترل ایجاد کنین.این کد 25 text box به صورت مربعی ایجاد می کنه.با اجاد کمی تغییر می تونین ازش راحت استفاده کنین.

فقط حواستون باشه که برای ایحاد هر کنترل باید یکی از اون رو با Index 0 روی فرمتون ایجاد کنین. کنترل پیش فرض این کد txtinput هست.

Dim i As Integer
   For i% = 1 To 25
       Load txtInput(i%)
       With txtInput(i%)
            .Width = 360: .Height = 240
            .Left = ((i% - 1) Mod 5) * .Width
            .Top = ((i% - 1) \ 5) * .Height
            .Visible = True
            .Text = "test"
       End With
   Next i%

تبدیل تاریخ میلادی به شمسی و استفاده در برنامه های VB

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

Y2 شماره سال شمسی

M2 شماره ماه شمسی

D2 شماره روز شمسی

Datenum نام روز هفته

StrM2 نام ماه شمسی

FirstDayNum شماره اولین روز سال .  0 (شنبه) 1 (یکشنبه) ..... 6 (جمعه)

اینم لینک دانلود : DateShamsi

اگه نظری واسه بهتر شدن مدل دارین بهم بگین.

 

محاسبه n! های خیلی بزرگ

تو المپیاد کامپیوتر گرگان که تابستون 85 برگذار شد یک سوال جالب اومده بود و اون اینکه عدد 500! )فاکتوریل) رو حساب کنید با نمایش کامل ارقام . !!!!! فکر نکنم کسی کامل و بی عیب اونجا تو وقت ده دقیقه ای نوشته باشش ولی من چند روز پیش به فکرش افنادم و با vb نوشتمش . 500!رو 3 ثانیه طول می کشه کامپیوتر حساب کنه و 1000! رو تقریبا 11 ثانیه . چند روز پیش 10000! رو حساب کردم که شاید خودش یه رکورد باشه و 68 دقیقه کامپیوتر فکر کرد تا جواب 9999 رقمی رو داد. این لینک دانلوده برنامس الگوریتم جالبی داره در واقع پیاده سازی ضرب دستی به جای ضری کامپیوتره که بشه همچین عددی رو حساب کرد :

 اینم لینک دانلود برنامه : Big n! Calculator