1 ده عدد را گرفته تعیین کند کدام زوج و کدام فرد است.
Private Sub Command13_Click() '16
Cls
Dim i As Integer, n As Integer
For i = 1 To 10
n = InputBox("Enter the num")
Print n; Tab(10); IIf(n Mod 2 = 0, "Even", "Odd")
Next
End Sub
بقیه برنامه ها در ادامه مطالب
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub Command1_Click()
tapiRequestMakeCall Text1.Text, "", "", ""
End Sub
حالا برنامه رو اجرا کنید TextBox شماره تلفن رو وارد کنید و کلید Command1 رو بزنید، میبینید که شماره گیری توسط خود ویندوز انجام میشه و احتیاجی نیست که شما کاری انجام بدید. موفق باشید.
یک پروژه جدید باز کنید و تو فرمتون یک Timer بذارید و Interval اونو ۱۰۰۰ بذارید، حالا کد زیر رو تو قسمت جنرال فرمتون کپی کنید :
Private Sub Form_Load()
Me.BackColor = vbBlack
End Sub
Private Sub Timer1_Timer()
Form1.Refresh
X = Form1.Width / 2
Y = Form1.Height / 2.2
Circle (X, Y), Y - 200, vbWhite
Circle (X, Y), Y - 220, vbWhite
For i = 1 To 12
Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
Next
h = Hour(Time())
If h > 12 Then
h = h – ۱۲
End If
m = Minute(Time())
s = Second(Time())
Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite
End Sub
حالا برنامه رو اجرا کنید و ببینید که ساعت به چه زیبایی کار میکنه. موفق باشید.
Private Sub Command1_Click()
Line (1000, 2000)-(3000, 2000)
Line (3000, 2000)-(3000, 4000)
Line (3000, 4000)-(1000, 2000)
Line (3000, 2000)-(2500, 2500), vbRed, BF
Line (2500, 2500)-(2000, 3000), vbGreen, B
Me.FillStyle = 0
Me.FillColor = vbBlue
Circle (500, 2000), 500, vbBlue
Circle (3000, 4500), 500
End Sub