Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan
Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan

Kumpulan ebook visual basic.net dalam bahasa Indonesia

2 Comments
Kumpulan ebook visual basic.net dalam bahasa Indonesia

Buat kalian yg belajar VB.NET dan mencari ebook bahasa indonesia silahkan sedot di link berikut 
1.Eksplorasi Teknik Pemrograman VB .NETdownload : HERE
2.Mengelola File dan Databasedownload : here
3.Koneksi VB .NET dengan MySQLdownload : here
4.Buku Migrasi VB 6.0 ke VB .NETdownload : here
5.Step-By-Step VB .NETdownload : here
6.Cepat Mahir Visual Basicdownload : here
7.Dasar Pemrogramandownload : here
8.Mengenal LINQdownload : here
9. Ebook Tutorial VB.Net (Ind) , download : here , pass : book.bloggebook

Membuat form transparan pada MS visual foxpro

Add Comment

Untuk mempercantik tampilan program dengan menggunakan microsoft visual foxpro maka tampilan form form bisa di permak menjadi form transparan.

Mendapatkan Processor Id komputer dengan menggunakan MS visual foxpro 9.0

Add Comment
Mendapatkan Processor Id komputer dengan menggunakan MS visual foxpro 9.0
kali ini saya akan sharing koding untuk mendapatkan Processor Id komputer dengan visual foxpro
----------

FUNCTION GetProcID
LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,ProcessorId
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT("WinMgmts://" + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf("Win32_Processor")
FOR EACH lowmiWin32Object IN lowmiWin32Objects
WITH lowmiWin32Object
ProcessorId=TRANSFORM(.ProcessorId)
ENDWITH
ENDFOR
RETURN ProcessorId
----------

koding di atas adalah kelanjutan dari mendapatkan serial number hardisk dan bisa di kombinasikan untuk membuat serial number software

selamat mencoba!

Mendapatkan serial number hardisk dengan MS. visual foxpro 9.0

Add Comment
Mendapatkan serial number hardisk dengan MS. visual foxpro 9.0
Koding untuk mendapatkan serial number hardisk dengan visual foxpro
---------------------------------

IF PCOUNT()=0
drvPath = "C:"
ENDIF
LOCAL FS,F1,cSerial
drvPath = IIF(LEN(drvPath)=1,drvPath+":",drvPath)
fs = CreateObject("Scripting.FileSystemObject")
f1 = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
cSerial = f1.SerialNumber
RELEASE fs,f1
a=RIGHT(TRANSFORM(cSerial, "@0"), 8)
?a

---------------------------------

dengan mendapatkan serial number hardisk maka dapat diterapkan pada pembuatan serial number software

silahkan mencoba !