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

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

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

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

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

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

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

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

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

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

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

نظری بدهید

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

14 + سیزده =