Script di bawah, Berfungsi untuk mengetahui Informasi Perangkat komputer Sobat, Script di bawah masih bisa sobat kembangin lagi sesuai keinginan
Asset yang di butuhkan cuma 3 Label, dan Beri nama Label 1,2 dan 3
Lalu Copas Script di bawah ini pada Form Load
Dim InfoKomputer As New Devices.ComputerInfo
'Nama OS
Label1.Text = "Nama OS : " & InfoKomputer .OSFullName
'Versi OS
Label2.Text = "Versi OS : " & InfoKomputer .OSVersion
'Bahasa Yang Digunakan
Label3.Text = "Bahasa OS : " & InfoKomputer .InstalledUICulture.DisplayName
Run aplikasi dan Akan tampil informasi komputer pada label yang sobat buat
Asset yang di butuhkan cuma 3 Label, dan Beri nama Label 1,2 dan 3
Lalu Copas Script di bawah ini pada Form Load
Dim InfoKomputer As New Devices.ComputerInfo
'Nama OS
Label1.Text = "Nama OS : " & InfoKomputer .OSFullName
'Versi OS
Label2.Text = "Versi OS : " & InfoKomputer .OSVersion
'Bahasa Yang Digunakan
Label3.Text = "Bahasa OS : " & InfoKomputer .InstalledUICulture.DisplayName
Run aplikasi dan Akan tampil informasi komputer pada label yang sobat buat
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung