Mensajes

Bueno suerte  estare pendiente de las noticias sobre el taller ...

Mira esto :

http://www.canalvisualbasic.net/foro/sistema/comprimir-y-descomprimir-usando-lineas-de-comandos-6120/

Hmm estoy en el G 4 seria bueno que manden MP a los usuarios que conforman los grupos para avisar que ya estan publicados la lista de grupos

Modificado , Ya puse el code ..   si ya vi eso raul338 ese era mi problema

No me da ni uno de tus codes  

EDIT:
ya me funciono ..

[Bueno estaba googleando y me encontre con un source code de Titulo Animado .. ya lo prove y esta muy bueno]

Bueno estaba googleando y me encontre con un source code  de Titulo Animado .. ya lo prove y esta muy bueno

El titulo aparece letra por letra no aparece de golpe

Código [Seleccionar] Expandir

Private Sub Form_Load()
CheckAgain
End Sub

Private Sub Timer1_Timer()
'****************************************

t = Left(a, b)
Form1.Caption = t
b = b + 1
If b > I Then b = 0

End Sub


Sub CheckAgain()
a = Text1.Text
I = Len(a)
    b = 0

Creditos: Faisal Software

*****!! No puede ver todo el video es totalmente loco lo que ese HDP hace lo golpea al pobre cachorrro .. esta noticia es nueva o ya es antigua?

Me parece haber visto este juego en recursosvisualbasic .. me gusto como lo armaste esta mejorado = )!

Salu2

Hmm pues cuando dividimos entre 0 siempre nos lanzara un error  no me percate de eso.. 

[solo pones el primer numero y el segundo en los casilleros que indica y das click en un boton (OPERAR) y lanzara resultados automaticamente da suma, resta, división, multiplicacion, división entera, residuo y OR, muy eficiente =)! facilita las cosas.]

Hola denuevo a todos pues en esta vez traigo otro tutorial para los nuevos en VB -- para este proyecto necesitaremos 3 Label 3 TextBox y 3 CommandButton.

Muchos hemos visto a los que recien comienzan en VB hacen una calculadora demasiada basica y ya muy vista . A diferencia de esta calculadora que les enseñare a hacer es que solo pones el primer numero y el segundo en los casilleros que indica y das click en un boton (OPERAR) y lanzara resultados automaticamente da suma, resta, división, multiplicacion, división entera, residuo y OR, muy eficiente =)! facilita las cosas.


OR : Los operadores lógicos truncarán la parte decimal de un numero antes de realizar una operación bit a bit (parte de una calculadora avanzada)

NOTA : No agregue potencia ya que hay algunos errores cuando los numeros son largos jeje.

1 ) Bueno seguimos xD... diseñamos el form

2 ) Ya diseñado el formulario como la imagen anterior, vamos a  cambiar los nombres de los controles de los TextBox.

Código [Seleccionar] Expandir

Text1 = txt_primero
Text2 = txt_segundo
Text3 = txt_respuesta
Command1 = cmd_operar
Command2 = cmd_nuevo
Command3 = cmd_salir

3 ) También debemos cambiar la propiedad MultiLine a True en el control txt_respuesta..

4) Programamos en General....

Escribimos el siguiente codigo :

Código [Seleccionar] Expandir

Dim primero As Double
Dim segundo As Double

5 ) Programamos el boton "Operar"

Código [Seleccionar] Expandir


primero = txt_primero
segundo = txt_segundo
txt_respuesta = _
"suma : " + Str(primero + segundo) + vbCrLf & _
"resta : " + Str(primero - segundo) + vbCrLf & _
"multiplicación : " + Str(primero * segundo) + vbCrLf & _
"división : " + Str(primero / segundo) + vbCrLf & _
"división entera : " + Str(primero \ segundo) + vbCrLf & _
"residuo : " + Str(primero Mod segundo) + vbCrLf & _
"OR: " + Str(primero Or segundo)

La breve descripcion del codigo xD sino no lo entenderan !

txt_respuesta = _ Como vemos alli si no utilizamos el gion bajo , entonces seguire programando todo a la derercha.El guión bajo permite continuar con el código pero en otra línea.

vbCrLf & _  se utiliza para bajar a otra línea en el cuadro de texto donde dara la respuesta.

"división entera : " + Str(primero \ segundo) + vbCrLf & _
Pues creo que esto ya esta demas explicar   la "\" significa que va a ser una division entera.

* (multiplicacion) , Mod (residuo) ....

6 ) Ahora programamos el boton "Nuevo" que es para borrar todo y comenzar denuevo, ponemos el siguiente codigo.

Código [Seleccionar] Expandir

txt_primero = ""
txt_segundo = ""
txt_respuesta = ""
txt_primero.SetFocus

7 ) Ya para finalizar programamos "Salir", solo pondremos :

Código [Seleccionar] Expandir

End

Todo debe quedarnos asi:

[bar]

Cualquier duda o problema diganlo en este post !

Este mismo tutorial lo postee el año pasado en la web de mi hermano  y pues tambien quise compartirlo con ustedes  .. para el que talvez ya lo haya visto les dejo el enlace para que no piensen que soy un CAP

Enlace

Creditos : 100% Mios