Mensajes

hola¡¡ en vez de un while, lo haria con un do while,dado que primero tenes que ingresar un valor para verificar la condicion,en todo caso si usas un while ,tendrias que primero inicializar la variable para poder ingresar al bucle while¡¡¡ciaoo¡¡

No, no es necesario inicializar la variable antes de que entre al while, pues cuando fue declara se le asigno por defecto un "0" lo que garantiza que entrará por lo menos una vez al While.

Código (cpp) [Seleccionar] Expandir

int ejemplo;

void main()
{
printf("Valor inicial --> %d",ejemplo);
getch();
}

Un modulo... uhmm...

Un modulo lo puedes usar para diferentes tareas, los módulos son la parte de CÓDIGO GENERAL de tu proyecto, en el puedes definir x funciones que quieres que estén activas para cualquier formulario dentro del proyecto, incluso lo puedes configurar para que sea él quien realice la primera acción al ejecutar tu aplicación.

EJEMPLO:

Abre un nuevo proyecto, crea otro formulario (de manera que tengas dos abiertos, form1 y form2) y por ultimo abre un modulo bas.

Para agregar un modulo, te vas a Menú Proyecto  --> Agregar Modulo

¿Listo?

En el modulo vamos a agregar esta sencilla función:

Código (vb) [Seleccionar] Expandir

Public Function Mensaje(Cadena As String) As String
    MsgBox Cadena, vbInformation, "Tiene un mensaje!"
End Function

bien... ahora en el form1, agrega 2 CommandButton y el siguiente código de ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Mensaje ("hola desde el form 1")
End Sub

Private Sub Command2_Click()
    Form2.Show
End Sub

y en el form 2, otros 2 CommandButton y..

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Mensaje ("Hola desde el form 2")
End Sub

Private Sub Command2_Click()
    Form1.Show
End Sub


Ahora córrelo y juega con la aplicación...

Si te fijas, ambos formularios llaman a la función que esta declarada como PUBLICA dentro del modulo, de esta manera, cualquier form puede tener acceso a ella.

Los módulos se usan en la mayoría de los casos, para organizar el code, el modulo para funciones o rutinas que deseas globales o privadas y los forrm para controlar eventos y para rutinas netamente privadas.

y si deseas que al iniciar tu proyecto, sea el modulo el primero en trabajar, haces esto, te vas a Menu Poyecto --> Propiedades y en la opción que dice "Objeto Inicial" selecciona "Sub Main"

El Sub Main es el procedimiento principal del modulo y debes definirlo, para nuestro sencillo ejemplo agrega el siguiente code al modulo que antes creamos sin borrar lo anterior...

Código (vb) [Seleccionar] Expandir

Sub Main()
    Form2.Show
End Sub

Ahora corre el programa, fíjate que desde el procedimiento Sub Main del modulo, controlamos que form se ejecutará (ALGO SENCILLO PARA ESTE EJEMPLO)

Bueno... espero te pueda haber ayudado a comprender todo esto, puede ser un poco mas complejo.

¡S4lu2!

se me olvido decir que era en c++ usando solo secuencias de repeticion como while por do while if etc
si pueder ayudarme bkn

Aqui te lo dejo, adaptalo a tus gustos y preferencias:

Código (cpp) [Seleccionar] Expandir

//incluyendo librerias...
#include<stdio.h>   //--> para el printf, scanf
#include<conio.h>   //--> para el clrscr, getch

//Declarando variables globales
int numero, digito, digito2;

//Cuerpo principal del programa
void main()
{
while ((numero<1) || (numero>100))
{
//limpiamos pantalla cada vez que entremos al ciclo
clrscr();
printf("Introduzca un numero: ");
scanf("%d",&numero);
}

if (numero<10)
{
printf("Tiene 1 digito, invertido --> %d",numero);
}
else
{
if (numero>99)
{
printf("Tiene 3 digitos, Invertido --> 001");
}
else
{
digito=numero%10;
digito2=numero/10;
printf("Tiene 2 digitos, Invertido --> %d%d",digito,digito2);
}
}
getch();
}

Espero te sea de ayuda!

¡S4lu2!

Hola aca les dejo un programita.... no hay code por ahora. Que hace? permite utilizar un archivo manifest en tu VB6 y resuelve el problema de la paleta de colores que desaparece, tiene 2 paletas, la standard de VB6 y una mas completa. Espero que les guste.

¡Excelente! muy bueno tu aporte Cobein, demás esta decirlo, ja, ja. 

¡S4lu2!

buenas, tengo una gran Confusión estoy haciendo un mini trabajo para la uni en VB 2005 express edition

Hola, para dudas de VB.NET esta el subforo, pero bueno te la respondo igual a la pregunta

Sarcasmo >>>>> "y yo que pensaba que este erea el subforo de VISUAL BASIC, creo que he errado todo este tiempo...  "

[tembo un campo que se llama codigo y quiero cargarlo en un combolist]

Hola amigos estuve haciendo un programa en VB y tembo un campo que se llama codigo y quiero cargarlo en un combolist para poder seleccionar de ahi directamente el codigo del producto para que en un text se pueda mostrar mas abajo
si alguien pudiera ayudarme estare muy agradecido

Creo que quisiste decir ComboBox... 

pero no me queda claro, quieres cargar el combo desde:

1- una base de datos
2- un .txt
3- un textbox

se me pueden ocurrir otras cuantas y como dices que desde un campo, entendere que es la ultima:

Código (vb) [Seleccionar] Expandir

Private Sub CmdLlenarCombo_Click()
    Combo1.AddItem Text1.Text
End Sub

si no es eso, entonces explicate un poco mejor y te ayudo

¡S4lu2!

["El que el textbox este vació no significa que no tenga caracteres dentro o que sea igual a cero"]

Buenas, e visto esto en infinidad de codigos vbNullString, lo e buscado pero no encontrado una explicacion de para que se utiliza exactamente o no lo e sabido entender, haber si me podeis aclarar un poco, saludos y gracias de antemano

Mira este ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Text1.Text = " "
End Sub

Private Sub CmdComprobar_Click()
    'verifico si el TextBox es igual a 0 (no es lo mismo cero '0' que " "(vacio))
    If Text1.Text = vbNullString Then
        MsgBox "El textbox es igual a cero"
    End If
End Sub


Cuando lo corremos decimos de una vez que el textbox esta vació, en cierto modo es así, no visualizamos nada en él, pero... puede tener espacios y ni idea de cuantos espacios puede tener (solo que coloques el cursor y retrocedas para contar o que uses el Len en código), no olvides nunca: "El que el textbox este vació no significa que no tenga caracteres dentro o que sea igual a cero", entonces, para indicarle que queremos que sea igual a cero y que no tenga ni un solo espacio, usamos el vbNullString

Borra completamente el textbox en tiempo de ejecución y luego comprueba y veras a lo que me refiero.

saludos,

[Edito:]

hola bueno buscando no encontre un manual sobre las ventanas y como manipularlas osea que si darle el foco minimizar escribir en está etc....

El que busca encuentra brache, este ejemplo lo dejo Hades hace algún tiempo:

Código (vb) [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Esta rutina la tome de un ejemplo del maestro "Hades,-"
Private Sub Focus(Cadena As String, Accion As Byte)
Dim Handle As Long
    Handle = FindWindow(vbNullString, Cadena) 'Buscamos la ventana
    If Handle <> 0 Then
        ShowWindow Handle, Accion 'Mostramos la ventana
    End If
End Sub

Private Sub CmdFocus_Click()
    Focus "Sin título - Bloc de notas", 1 'Le das el focus
End Sub

Private Sub CmdNoFocus_Click()
    Focus "Sin título - Bloc de notas", 2 'Le quitas focus
End Sub

Private Sub Form_Load()
    Shell ("notepad.exe") 'Ejecutas el notepad
End Sub

Se controla el focus de una ventana, el handle lo sacas usando el nombre de la ventana y el api FindWindow y la muestras o no usando la otra ShowWindow.

Lo demas buscalo tú, la forma mas efectiva, la que te dejo EON 

Edito: mas abajo se hablo de algo parecido, lo que pasa por no buscar 
http://foro.elhacker.net/index.php/topic,205617.0.html

Hola a todos tengo un pequeño problema.
Soy novato en esto y me gustaria aprender, pero el manual que tengo apenas lo entiendo, alguien puede ayudarme?
perdon no he podido subir la imagen. mi problema es cuando pongo ->Private Sub Form_Load (), me sale error.http://img86.¡mageshack.us/img86/6608/snap1xu7.jpg

uhmm nada, error de principiante! todos lo hemos sido alguna vez  , el code esta bien el problema es que no le colocaste el nombre correcto a la caja de texto y eso te produjo el error, es decir, cuando agregaste el TextBox debiste cambiarle el nombre a TxtCaja, eso lo haces desde las propiedades del control "la ventana de propiedades" si no te aparece dicha ventana entonces presiona F4 y aparecerá.

¿Puedo amarte siendo macho? xDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD



muchas gracias!!!

Nooo tranquilo!!! dejémoslo de ese tamaño ja, ja, me conformo con seguir ayudandote, 

¡S4lu2!