کار با my.

[sahand100]

خب اولین چیزی که میخوام بگم ایناست :
my.compute.clock
my.computer.info.osfullname
my.computer.info.osversion

______________________________________
خب اول از اولی شروع میکنیم!
my.computer.clock
این برای نشان دادن ساعت تنظیم شدن کامپیوتر استفاده میشود(روش های دیگری هم وجود دارد که در این تاپیم میگویم)
برای استفاده باید به صورت زیر عمل کرد:
ساعت به ثانیه
my.computer.clock.localtime.second

این ثانیه را برای ما نشان می دهد.
اینم کدی که باهاش میشه نوشت که به یک label , timer نیاز دارد:
توجه کنید که خاصیت enable تایمر را true و زمان آن را 10 یا کتر قرار دهید برای دقت بییشتر.
اینم کد:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = My.Computer.Clock.LocalTime.Second

End Sub

روشی دیگر :

بدون استفاده از my به این صورت مثل بالا تایمر و لابل می خواهیم.
در timer1_tick این کد ها را مینویسیم:
Dim date1 As Date
date1 = Now
Label1.Text = date1.Second
خب برای ساعت و ماه و... میشه بجای secon اینا رو گذاشت :
monthماه
hour ساعت
و......
__________________________________________________ ______

حالا دومی :
و سومی:
my.computer.info.osfullname
my.computer.info.osversion
خب اولی برای دیدن کامل نام کامپویتر سیستم کامل و دومی برای دیدن ورژن رایانه استفاده می شود
برای اینکار شما یم button درست کنید و کدهای زیر را قرار دهید:
ate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("نام کامپیوتر و سیستم عامل شما:" & My.Computer.Info.OSFullName)
MessageBox.Show("ورژن رایانه ی شما" & My.Computer.Info.OSVersion)
خب مشاهده میکنید که دو مسیج باکس میاد و ورژن و نام رایانه شما را می گوید.:ِ
ِِِِِِِِِِِِ__________________________ _______________________
بقیش بدا !!!!!!