سورس برنامه نویسی ، آموزش ، قالب وردپرس ، اسکریپت ، گرافیک ، آموزش کاربردی، دانلود رایگان ، قالب

تبليغات شما در داده باران
تبلیغات در داده باران

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

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۴Reviewed by داده باران on Sep 25Rating:

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

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

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

لينك كوتاه اين مطلب : http://www.dadebaran.ir/?p=484

رمز فايل : DADEBARAN.IR




تبلیغات در داده باران
ارسال دیدگاه

قبل از نوشتن دیدگاه به نکات زیر توجه کنید:
    » نظراتی که با تایپ فارسی نباشند تایید نخواهند شد
    » نظرات تبلیغاتی اسپم محسوب میشوند و IP شخص مسدود خواهد شد.

پاسخ دهید

نکته: نظر شما در انتظار بررسی است و پس از تایید مدیریت در سایت نمایش داده میشود..