Comunidad PHPeros
Lenguajes => Visual Basic => Mensaje iniciado por: Erik en 28 de Abril de 2008, 20:37:05 pm
-
Private Sub Form_Load()
Dim Regregistro As Long
Dim Registro As Object
Set Registro = CreateObject("WScript.Shell")
Regregistro = CLng(Reg.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz"))
Set Registro = Nothing
MsgBox "La velocidad del CPU es: " & CStr(Regregistro) & " MHz", vbInformation, "Velocidad de tu CPU:"
End Sub
Con la variable registro, buscamos en los registros del ordenador la velocidad del CPU y lo declaramos en otra variable, luego borramos la variable que lo buscaba para posibles proximas busquedas y con un msgbox mostramos el resultado :D
-
Para que sirve la función CStr()?
-
Hay un error en el código...
Debería ser:
Private Sub Form_Load()
Dim Regregistro As Long
Dim Registro As Object
Set Registro = CreateObject("WScript.Shell")
Regregistro = CLng(Registro.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz"))
Set Registro = Nothing
MsgBox "La velocidad del CPU es: " & CStr(Regregistro) & " MHz", vbInformation, "Velocidad de tu CPU:"
End Sub
-
Hay un error en el código...
Debería ser:
Private Sub Form_Load()
Dim Regregistro As Long
Dim Registro As Object
Set Registro = CreateObject("WScript.Shell")
Regregistro = CLng(Registro.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz"))
Set Registro = Nothing
MsgBox "La velocidad del CPU es: " & CStr(Regregistro) & " MHz", vbInformation, "Velocidad de tu CPU:"
End Sub
Ups, se me paso al 100%, perdon.
Para que sirve la función CStr()?
Para devolver un valor en forma de variable, no lo entiendo ni yo muy bien.
-
Supongo que sera para convertir una variable a string.
En este caso, la convierte del tipo Long, al tipo String, o eso creo.
Saludos!
-
Si, para devolver un texto en vez de un codigo, ruta y etc... ;)
-
Juas no sabes ni explicar lo k posteas..
Este code es simplon :)
-
Juas no sabes ni explicar lo k posteas..
Este code es simplon :)
Te recomiendo que seas educado, porque de lo contrario no tendras derecho a ser tratado con educacion...