جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید
چاپ اعداد فرد ۱ تا ۲۰
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 |