آموزش برنامه نویسی ویژوال بیسیک ساخت ماشین حساب

• به نام خدا

برای اینکار 4 command لازم است caption ان ها رو به ترتیب (*,-,+,/)بگذارید.

2 textbox هم لازم است که اعدادی که میخواهید جمع وتفریق کنیددر ان ها باید وارد کنیدو label که برای جواب می خواهیم.

خوب حا لا کد نویسی

در command 1 مینویسیم ;که همان * میشود

(label1.caption=val (text1.text)* val (text2.text

 برای کد های بقیه ی command ها همهمین کد ها رو کپی کنید فقط برای هر کدام بجای علامت* علامت مربوطه را جایگزین کنید

موفق باشید

دانلود ویدیو

دانلود سورس کد بیسیک

سورس کدهای آماده بیسک

دانلود فایل

رمزتمامی فایل ها:mohammadniko

ساخت ساعت دیجیتالی با ویژوال بیسیک

به نام خدا

سلام محمد نیکو هستم با آموزش ویژوال بیسیک در خدمت شما

برای این کار یک 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