/ در آموزش ویژوالبیسیک, اشتراک رایگان, ویژوالبیسیک / توسط
آخرین زمان ویرایش:

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۴

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید

چاپ اعداد فرد ۱ تا ۲۰

Private Sub Command1_Click()

Inti = 1

Do While Inti <= 20

Print Inti;

Inti = Inti + 2

Loop

End Sub

چاپ اعداد بصورت نزولی (برعکس)

Private Sub Command1_Click()

For inti = 10 To 1 Step -1

Print inti

Next inti

End Sub

چاپ اعداد بصورت نزولی (صحیح)

Private Sub Command1_Click()

Dim inti As Integer

For inti = 1 To 10

Print inti

Next inti

End Sub

 چاپ معادله کوسینوس ۳۶۰ درجه

Private Sub Command1_Click()

For i = 0 To 360 Step 45

rad = i * 3.14 / 180

Print Cos(rad)

Next i

End Sub

بدست آوردن کوسینوس ، سینوس ، تانژانت یک عدد

ابتدا ۴ کادر متن (TextBox ) روی فرم قرار می دهیم سپس یک کنترل فرمان (Command Button) را به پروژه افزوده و کد زیر را در رویداد کلیک مربوط به دکمه قرار می دهیم :

Private Sub Command1_Click()

Dim DblDegree As Double, DvlRadian As Double

Const Pi As Double = 3.14159265358979

DblDegree = Val(Text1)

dblradian = Pi * DblDegree / 180

Text2 = Sin(dblradian)

Text3 = Cos(dblradian)

Text4 = Tan(dblradian)

End Sub

آموزش ثبت فایل های DLL , OCX

۱ – ابتدا یک پرونده در NotePad ایجاد نمایید
۲ – سپس فایل ocx یا dll را در پوشه ای قرار دهید و همین فایل notepad را به یک نام دلخواه در همون پوشه ولی با پسوند .bat ذخیره کنید
۳ – نام ocx یا dll را کپی همراه با پسوند و کنار تکه کد زیر قرار دهید به تعداد ocx ها و dll ها همین کار رو انجام بدید

مثال :

regsvr32 VistP.ocx

regsvr32 TrayIcon Ctrl.ocx

regsvr32 MSMASK32.OCX

 ساخت پوشه در ویژوالبیسیک

Private Sub Command1_Click()

MkDir (“C:TestFolder1”)

End Sub

نوشته های مشابه

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۳

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید (بیشتر…)

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۵

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید (بیشتر…)

 ممبر تضمینی تلگرام کانال تلگرام داده باران شارژ آنلاین

نظری بدهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

2 × 3 =