Temas

Hola a todos, bueno tengo ciertas inquietudes me siento algo impotente, yo estudio programacion en una escuela pero la verdad estoy algo desilucionado, lo unico que puedo hacer es calculadoras, editores de texto, despertadores, agendas, la verdad es algo que ya se ah visto mucho creo que la mayoria de los que se inician hacen lo mismo todos empezamos con el clasico "Hola Mundo" pero al final de mi camino me vengo dando cuenta que quisiera poder programar algo mas importante como un P2P o programas que realmente valgan la pena, que digan woow este programador ah innovado algo nuevo, ahora en la escuela solo te enseñan a hacer programas sencillos, jamas me dijron que era una API ni para que servian, tiene alomejor 1 mes que me vengo enterando de su existencia de las apis de windows y se que realizan funciones pero nisiquiera se que es, ni se como es que hacen los programadores para saber que api es la que requieren al hacer sus programas, se puede decir que yo solo se programacion basica, necesito tutoriales avanzados me siento estancado en el lodo, espero que me ayuden y me comprendan mi impotensia, yo se que muchos de ustedes sienten lo mismo.

Fuera del tema quisiera saber si es posible crear un p2p en visual basic, que fundamentos requiero aprender y donde puedo aprenderlos, gracias a todos 

Hola a todos, bueno tengo un problema con copyfile, en si no se si sea problema... resulta que al momento de duplicar un archivo ( hablando de un worm), es decir al momento e multiplicarse si se copya a la ruta que puse pero cuando ejecuto la copya me marca un error... no se supone que debe crearse la copia identica ?y ejecutarse como la aplicacion original?

Hola a todos, tengo un nuevo problema, resulta que quiero guardar una ruta de directorio por ejemplo: (C:\Archivos de programa) en una variable Global, supongamos que en un formulario necesito guardar la ruta en una variable global para manejar esa ruta en otro formulario mi problema es que no se guarda en la variable ya intente con integer, string, long hasta boolean.... yo se que no se declaran asi pero pues me desespere y intente de todo el codigo es el siguiente:

Código [Seleccionar] Expandir

FORM 1
Private Sub Buscar_Click()
    On Error GoTo ErrorBuscar
    CMDialog.Filter = "Formato de sonido MP3 (*.mp3)|*.mp3|Archivos de audio (*.wav)|*.wav|Formato de sonido MIDI (*.midi)|*.midi|Todos los Archivos (*.*)|*.*"
    CMDialog.FilterIndex = 1
    CMDialog.Action = 1
     RutaText.Text = FRMConfiguracion.CMDialog.FileName
SalirBuscar:
    Exit Sub
ErrorBuscar:
    MsgBox Err.Description, 16, "ERROR"
    Resume SalirBuscar
End Sub

Private Sub Salvar_Click()
RutaText = Sonido
Unload Me
End Sub

FORM 2
Private Sub Timer1_Timer()
HoraActual.Caption = Time$
If Hora.Text <= HoraActual And DespertadorSi = True Then
On Error Resume Next
Set Objeto = CreateObject("WScript.Shell")
Objeto.Run Sonido
Beep
End If
End Sub

MODULE 1
Global Sonido As Integer

que debo hacer?

Que codigo puedo usar para que los registros de una pequeña base de datos se guarden y aparescan de nuevo en mi programa cuando lo ejecute?

supongamos que es una agenda y quiero guardar todos los datos en un .dat alguien podria ayudarme ?

Hola de nuevo alguien se sabe el codigo para que haga la funcion del p2p ares galaxy cuando lo cierras? ven que le das en la X y se minimiza a la barra de tareas? eso quiero hacer con mi programa me podrian pasar el codigo porfavor? 

[CODIGO PARA MINIMIZAR A LA BARRA DE TAREAS)

Código [Seleccionar] Expandir

'CON ESTO HAGO QUE LA [X] SE ANULE Y HAGA UNA LLAMADA A IMAGEN_CHANGE.
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Imagen_Change

DESPUES SE CREA UN PICTUREBOX EN EL FORM1 LE CAMBIAS EL VISIBLE A FALSE Y ESCOGES UNA IMAGEN QUE SEA .ICO Ó . CUR...

Código [Seleccionar] Expandir

'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub

Código [Seleccionar] Expandir

' ESTO TAMPOCO SE QUE HACE PEROE S PARTE DEL CODIGO..
Private Sub Imagen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
    FrmInicio.Show
    BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
    FrmInicio.Show
    BorrarIconito
End If
End Sub

DESPUES EN UN MODULO EL SIGUIENTE CODIGO:

Código [Seleccionar] Expandir

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA

Código [Seleccionar] Expandir

Public Sub Iconito(Tip As String, Foto As PictureBox)
    IC.cbSize = Len(IC)
    IC.hwnd = Foto.hwnd
    IC.uID = 1&
    IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    IC.uCallbackMessage = WM_LBUTTONDOWN
    IC.hIcon = Foto.Picture
    IC.szTip = Tip & Chr(0)
    Shell_NotifyIcon NIM_ADD, IC
End Sub

Código [Seleccionar] Expandir

Public Sub BorrarIconito()
    Shell_NotifyIcon NIM_DELETE, IC
End Sub


Si alguien podria explicarme el funcionamiento del codigo me harian feliz  ... Por cierto este codigo lo puso: E0N y el que me dio el link fue Celaya asi que gracias a los dos y a losdemas que tambien ayudaron 

Aqui les dejo el link:
http://foro.elhacker.net/index.php/topic,151860.0.html

Alguien sabe de algun foro o alguna sección de esta pagina sobre introduccion a creacion virica en visual basic ? estoy muy interezado en esto...

Creo que hay post referidos a este tema pero no logro encontrar... tras una larga busqueda que creo que no fue muy buena... les quiero preguntar el codigo para que mi aplicacion se ejecute al iniciar windows.. ando intentando hacer un Worm... me puse a leer la guia de creacion de worms y no me sale completo el codigo... alguien podria decirme el codigo? no se si sea api o por medio de la shell si existen las dos les agradeceria que me ayudaran  ....

Hola, necesito la Api con la funcion de Cambiar Usuario en lugar de Reiniciar o Apagar el sistema solo ncesito Cambiar el usuario alguien podria darmela ?

Bueno como ya puse en el post anterior..... ando haciendo un programa para llevar el control de un ciber... necesito un favor alguien podria decirme como le tendria que hacer para que cuando cambie la hora y vaya incrementado minuto por minuto suba el precio? por ejemplo:

Un chico Renta una maquina en el ciber cafe y en el programa muestra el precio acomulado por cada minuto que pase si son las 7:00 en punto y el chavo la renta y esta navegando y dan las 7:01 necesito que mi label precio incremente por ejemplo de $ 00.00 a $ 00.50, espero que si me entiendan por que es algo enredado esto 

asi tengo por ahora el codigo:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Hora.Caption = Time$
If (Final.Text < Time$) And (ArchivoActivarSi = True) Then
Precio.Caption = Precio.Caption + ("0.5")
Beep: Beep:
End If
Hora.Caption = Time$
End Sub

El problema es que en vez de cambiar el precio de $00.00 a $00.05 lo cambia de $00.00 a $ 00.00.05 y asi susecibamente hasta que el caption de la label se sale de control jajaja 

Hola a todos, me surgio otra gran duda, resulta que ando haciendo un programa para llevar el control de un cyber cafe, el programa hace lo siguiente:

textbox1: Pide el nombre del usuario que ocupara la maquina.
textbox2: Pide la hora de inicio para llevar un registro del dia.
textbox3: Pide la hora en la cual se reiniciara el equipo.

Mi duda es... como le hago para que se me reinicie la PC cuando la hora actual coinsida con la hora que se configuro para reiniciar?

Espero que me ayuden 

Hola de nuevo... realmente me la vivire aqui!!! ya me gusto el foro jeje 

Bueno ya termine el problema del post anterior pero despues de la calma surge otro gran problema... tengo otro programa que es un reloj despertador donde puedes agregar diferencias horarias de otros paises pero... me an pedido que le ponga password con oportunidad de dar la clave erronea 3 veces.. una vez fallando las 3 veces debe cerrarse el programa... este es el codigo que le puse al formulario clave y aun no se como darle la funcion de fallar 3 veces... necesido de su enseñanza... jeje 

ya le intente de varias formas y aun no puedo:

Código [Seleccionar] Expandir

Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
  Unload Me
  FrmReloj.Show
Else
  MsgBox "Clave Incorrecta...", 16, "Error"
End
End If
End If
End Sub

Ese es el codigo y de verdad gracias  con ustedes aprendo mas que es lo que me hace falta... 

SOLUCION:
Gracias a todos por su aporte:

Código [Seleccionar] Expandir

dim control as Integer

Private Sub Clave_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
         If Clave.Text = "RMR" Then
             Unload Me
             FrmReloj.Show
         Else
            MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
           control=control+1
              if control=3 then
                 End
              end if
        End If
  End If
End Sub

Bueno gracias a todos el problema se resolvio de la siguiente manera....
Por que la Variable Global no almacenaba el Nombre?
Bueno pues por que la habia declarado como integer en la variable Global que se encuentra en el Module...

VARIABLES:
Una variable contiene un valor que puede modificarse a lo largo de la ejecucion de la aplicacion. Cada Variable tiene atributos propios como:

NOMBRE: es la que utilizamos pra referirnos a la variable en la aplicacion.

TIPO: El tipo determina que clase de valores puede almacenar la variable ( aqui fue mi problema en el programa)

AMBITO: El ambito de una variable especifica en que parte de la aplicacion la variable es conocida por lo tanto puede utilizarse.

El Nombre de una variable tiene qu comenzar por una letra y puede tener hasta 40 caracteres de longitud.
Los caracteres pueden ser letras, digitos, el caracter de subrayado y los caracteres de declaracion del tipo de la variable (%, &, !, #, @, $). El nombre de una variable no puede ser una palabra reservada de Visual Basic.

TIPOS de DATOS:
------------------------------------------------------------------------
Tipo:                    Descripcion:                      Caracter:
------------------------------------------------------------------------
Integer                     Entero                               %
------------------------------------------------------------------------
Long                     Entero Largo                          &
------------------------------------------------------------------------
Single              Real Simple Precision                   !
------------------------------------------------------------------------
Double              Real Doble Precision                   #
------------------------------------------------------------------------
Currency       Numero con punto decimal fijo        @
------------------------------------------------------------------------
String             Cadena de Caracteres                   $
------------------------------------------------------------------------
Variant          Numeros enteros, reales            (ninguno)
(Por defecto)         o caracteres
------------------------------------------------------------------------

Bueno aqui es un Resumen de las Variables por lo tanto tuve que declarar en variables globales (en el modulo) la variable Nom como Variant, el problema fue que la habia declarado como String por eso me marcaba error, por eso creo que es muy importante revizar como declaramos nuestras variables  , asi que la declare de la siguiente manera:

Código [Seleccionar] Expandir

Global Nom as Variant

Como lo que queria era almacenar un Nombre (Roberto) entonces la tenia que declarar como Variant que es para Numeros enteros reales o caracteres...



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

EL PROBLEMA:

Hola, bueno yo andoe studiando apenas programacion no se mucho apenas ando en lo basico y tengo un problema y quiero pedirles un poco de ayuda para presentar mi examen.. es algo muy sencillo pero no se como hacerlo jhaja  miren:

el programa es un examen echo con varios formularios es decir aparece un formulario contestas la pregunta y pasas al segundo formulario al final te suma la calificacion y te dice si estas aprobado o reprobado... pero mi problema es el siguiente:

al ejecutar el examen aparece un formulario donde te pide tu Nombre.. lo tecleas le das enter ( es un textbox )y ya empieza tu examen.. el codigo de ese formulario es este:

Código [Seleccionar] Expandir

Private Sub Nombre_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Nombre.Text = Nom
If Nombre.Text = "" Then
MsgBox "introduzca su nombre..."
Else
Unload Me
FrmPreg1.Show
End If
End If
End Sub

lo que quieria era almacenar el nombre dle usuario en donde dice:

Código [Seleccionar] Expandir

Nombre.Text = Nom
y cree una variable global en un module asi:

Código [Seleccionar] Expandir

Global Nom As Integer

No se si estuve mal pero asi lo hice...
el caso es que una vez tecleando el nombre contestas el examen y al final lo que quiero hacer es que aparezca el Nombre que se dio en el Texbox es decir si puse de Nombre roberto quiero que aparezca en un label que diga lo siguiente: Roberto Husted Aprobo o Reprobo... solo quiero colocar el Nombre que teclee al principio... es lo unico que no puedo hacer.... aqui pongo el codigo que puse yo al final supuestamente para que apareciera el nombre pero no aparece:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label3.Caption = Nom & " Usted fue :"
Label2.Caption = "APROBADO"
End If
End Sub
Espero que me ayuden a resolver esto es lo unico que me falta... muchas gracias