برای اینکار 4 command لازم است caption ان ها رو به ترتیب (*,-,+,/)بگذارید.
2 textbox هم لازم است که اعدادی که میخواهید جمع وتفریق کنیددر ان ها باید وارد کنیدو label که برای جواب می خواهیم.
خوب حا لا کد نویسی
در command 1 مینویسیم ;که همان * میشود
(label1.caption=val (text1.text)* val (text2.text
برای کد های بقیه ی command ها همهمین کد ها رو کپی کنید فقط برای هر کدام بجای علامت* علامت مربوطه را جایگزین کنید
موفق باشید
به نام خدا
سلام محمد نیکو هستم با آموزش ویژوال بیسیک در خدمت شما
برای این کار یک Timer لازم است و Interval اش را 1000 کنید
حالا کد نویسی اول در Form hdکد را بنویسید
me.backcolor=vbblack
حا لا در 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 - 12
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
به نام خدا
سلام من محمد نیکو هستم همرا ه شما در آموزش برنامه نویسی ویژوال بیسیک 6
درس امروز کار کردن با مد رنگ های مدلVBوRGB هستش
خوب برای این کار یک labelلازم است وبعد داخل labelین کد ها رو می نویسید.
label1.backcolor..vbred
همون طور که میبینید با مدل vb است این کد فقط شما برای ساختن رنگ vb رو مینویسیدو بعد رنگ مورد نظر خود را مینویسید لازم به ذکر است که با مدل vb نمی نوان رنگ های بسیار استفاده کرد برای همین به مدلrgb این کارو انجام میدیم
(label1.backcolor=rgb(112,212,121
عدد های داخل پرانتز میتواند از 0 تا 255 باشند
موفق باشید