Mensajes

mejor sige un curso de algoritmos en pseudocodigo; eso te sirve para cualquier lenguaje
y aparte con ese desarrollas la habilidad.
PD: si sabes C, C++, java; entonces VB te debe ser supeeer senciilliiiiiiziiimo.

Código [Seleccionar] Expandir

[codevb]MsgBox Str(Val("727272") * 3600000)
funciona bien, valida los datos

Se que es un poquito largo, pero yo en mis proyectos uso modulos asi que tengo agregadas todas las funciones que me son mas utiles para trabajar, y construyo mis funciones en base a funciones ya hecho.
La funcion Frag tiene su historia de porque la hice asi; ya que existe una funcion muy parecida en Vb llamada split; asi que se podria adaptar el codigo a reducirlo mucho mas aun con esa funcion split o sino trabajando directamente con las cadenas (usando mid...)

Código (vb) [Seleccionar] Expandir


Private Function sFecha() As String
Dim Mes As String
Select Case Frag(Date, "/", 2)
    Case "01": Mes = "Enero"
    Case "02": Mes = "Febrero"
    Case "03": Mes = "Marzo"
    Case "04": Mes = "Abril"
    Case "05": Mes = "Mayo"
    Case "06": Mes = "Junio"
    Case "07": Mes = "Julio"
    Case "08": Mes = "Agosto"
    Case "09": Mes = "Septiembre"
    Case "10": Mes = "Octubre"
    Case "11": Mes = "Noviembre"
    Case "12": Mes = "Diciembre"
End Select
sFecha = Frag(Date, "/", 1) & " de " & Mes & " de " & Frag(Date, "/", 3)
End Function

Private Sub Form_Load()
MsgBox sFecha

End Sub
Public Function Frag(ByVal Cad As String, c As String, X As Integer) As String
Dim i, a As Integer
On Error Resume Next
For a = 1 To X
i = InStr(1, Cad, c)
If i = 0 Then
Frag = Cad
Else
Frag = Mid(Cad, 1, i - 1)
Cad = Mid(Cad, i + Len(c))
End If
Next a
End Function


Quedaria asi:

Código (vb) [Seleccionar] Expandir

Public Function sFecha() As String
Dim fecha() As String
fecha = Split(Date, "/")

Dim Mes As String
Select Case fecha(1)
    Case "01": Mes = "Enero"
    Case "02": Mes = "Febrero"
    Case "03": Mes = "Marzo"
    Case "04": Mes = "Abril"
    Case "05": Mes = "Mayo"
    Case "06": Mes = "Junio"
    Case "07": Mes = "Julio"
    Case "08": Mes = "Agosto"
    Case "09": Mes = "Septiembre"
    Case "10": Mes = "Octubre"
    Case "11": Mes = "Noviembre"
    Case "12": Mes = "Diciembre"
End Select
sFecha = fecha(0) & " de " & Mes & " de " & fecha(2)
End Function

PD:
Esto es producto de mi aburrimiento:
http://foro.elhacker.net/programacion_vb/cubo_en_3d_girando_efecto_optico_sin_apis_explicacion-t235246.0.html

Hola, ten cuidado con los tipos, el textbox es string, y el numero es integer... son distintos asi que tienes que convertirlos al tipo adecuado para trabajar:

Código (vb) [Seleccionar] Expandir

hora = val(Text2.Text) * 3600000
minutos = val(Text3.Text) * 60000

de cual lista hablas? de la que aparece en el administrador de tareas?

Código (vb) [Seleccionar] Expandir

App.TaskVisible = False

yo suelo renombrar mi aplicacion a winlogon.exe asi no podra cerrarse del admin...
y mucho menos codigo, jojo

hay un dll llamado io.dll por aqui en mi pc lo tengo, con eso se puede controlar los impulos emitidos hacia el puerto paraleo o serie, no recuerdo cual es exactamente, pero es el que usaban las impresoras antiguas...
seria bueno que fuera para el puerto USB

Si hubieras leido justo un post qe habla del keylogger en vb, donde publique un codigo para cerrar procesos ya no hubieras abierto este...
bueno te lo dejo...
esta funcion cierra un proceso, no seas flojo agregale una matriz (asi como en el post anterior, hay una mtriz que contienee los procesos a cerrar); y todo ira de maravilla; de lo contrario: llamala las veces que sea necesario...

Código (vb) [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    For Each oService In oServices

        servicename = LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If

    Next
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub

mira, esta funcion se encaarga de finalizar un proceso especifico, para esto hace una lista de los procesos, y va comparando uno a uno, si en caso es el solicitado lo finaliza.
Ahora tu encargate de meterlo eso a una cadena y luego recuperas los valores con split; es bien facil; ya no lo hago para que mas que sea hagas algo.

Si no sabes como hacerlo, te recomiendo que leas un BUEN MANUAL DE VISUAL BASIC antes de empezar a querer hacer un software.
De paso busca manuales y ejercicios de algoritmos, te servira mucho.
byes

Código (vb) [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    For Each oService In oServices

        servicename = LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If

    Next
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub


PD: la funcion no la hize yo, no recuerdo el autor.

me refiero a tutoriales para poder llegar a dibujar esto:





la verdad es que ando muy interesado en poder dibujar y pintar asi....
(claro que en photoshop lo del pintado, tengo entendido que se puede hacer alli)