Chiquicodigos de programacion!!

[biohazar23]

​

Que tal comunidad, pues he estado pensando en crear este foro desde ya hace tiempo que esta dirigido a todos los que nos dedicamos a esta fantastica profeción, y es el si compartir ejemplos que nos puedan ayudar a INVENTAR, MEJORAR, nuestros programas que en iniciare solo por JAVA Y .NET y ya conforme vaya encontrando ejemplos los estarea actualizando...
el que guste aportar un codigo sera bienvenido NO importa si es solo para abrir una ventana o frame desde un boton pues hay gente que apenas se esta iniciando en la programacion y creo que atodos nos puede servir algundia.

Ahora creo que los que visiten no les digo que devendejar un comentario, esto es totalmente libre, y ustedes sabran el apreciar o no estos chiquicodigos de programacion.

NOTA:Si deseas aportar algun codigo porfavor deja tu nombre o sobrenombre para que los que lo consulten reconoscan a esta persona.

NOTA:Con el tiempo le estare dando un poco de formato para que se vea de que lado masca la iguana la comunidad hehehehe.

Y pues comenzamos.


----------------------------------------------------------->JAVA
-->Muestra mensaje en pantalla
/*
* Muestra un mensaje en pantalla.
*Autor: JonathanGuillen
*/
public class Hola
{
public static void main (String[]args)
{
System.out.println("Hola Mundo");
}
}


----------------------------------------------------------->.NET

------>Visual Basic

-->Auto completado
Esto lo pueden hacer con las propiedades de un combo que son las siguientes:

comboBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend 'muestra una lista de sugerencias
comboBox.AutoCompleteSource = AutoCompleteSource.ListItems 'de donde obtiene los recursos en este caso de la misma lista
comboBox.DropDownStyle = ComboBoxStyle.Simple 'quito la flecha del combo y hace que se vea como un textbox

-->SIMULACION DE LANZAMIENTO DE MONEDA.
/*
*Autor JonathanGuillen
*/
.NET
Public Class Form1
Public i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
i = 15
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i -= 1
Label2.Text = i
If i Mod 2 = 0 Then
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara1.jpg"))
Else
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara2.jpg"))
End If
If i <= 0 Then
Timer1.Enabled = False
Dim rnd As New Random
Dim r As Integer
r = rnd.Next(1, 3)
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara" & r & ".jpg"))
End If
End Sub
End Class

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

 

[JonathanGuillen]

JAVA:
/*
* Muestra un mensaje en pantalla.
*/
public class Hola
{
public static void main (String[]args)
{
System.out.println("Hola Mundo");
}
}

 

[JonathanGuillen]

SIMULACION DE LANZAMIENTO DE MONEDA.

.NET
Public Class Form1
Public i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
i = 15
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i -= 1
Label2.Text = i
If i Mod 2 = 0 Then
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara1.jpg"))
Else
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara2.jpg"))
End If
If i <= 0 Then
Timer1.Enabled = False
Dim rnd As New Random
Dim r As Integer
r = rnd.Next(1, 3)
PictureBox1.Load(System.IO.Path.GetFullPath("../../Imagenes/cara" & r & ".jpg"))
End If
End Sub
End Class