Calculadora 4 (por Ariel P. y Iara)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub

Private Sub cinco_Click(Index As Integer)
barra.Caption = barra.Caption + "5"
End Sub

Private Sub coma_Click()
barra.Caption = barra.Caption + ","
coma.Enabled = False
End Sub

Private Sub Command8_Click()
barra.Caption = 1 / Val(barra.Caption)
End Sub

Private Sub cuatro_Click(Index As Integer)
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption) * 100
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub masmanos_Click()
barra.Caption = barra.Caption * -1
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = "%"


End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub sqrt_Click()
barra.Caption = Sqr(barra.Caption)

End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Mi lugar (por Ari)

El luga que yo elegi fue:
La Bombonera

Cancion 2 (por @r¡)

Soda Stereo Música Ligera

Ella durmió
al calor de las masas
y yo desperté
queriendo soñarla
algún tiempo atrás
pensé en escribirle
que nunca sorteé
las trampas del amor
De aquel amor
de música ligera
nada nos libra
nada mas queda
No le enviaré
cenizas de rosas

ni pienso evitar
un roce secreto
De aquel amor
de música ligera
nada nos libra
nada mas queda
De aquel amor
de música ligera
nada nos libra
nada más queda
nada más queda
nada más queda
nada más queda

Elegí esta canción porque desde que salio en much music no paro de escucharla.

Aparte el tema tambien esta bueno.

ENTRADA (POR @R¡)

Aca empezamos con el blog:http://aprendiendoticenort.blogspot.com/

Cancion (Ari P)

Soda Stereo Música Ligera

Ella durmió
al calor de las masas
y yo desperté
queriendo soñarla
algún tiempo atrás
pensé en escribirle
que nunca sorteé
las trampas del amor
De aquel amor
de música ligera
nada nos libra
nada mas queda
No le enviaré
cenizas de rosas

ni pienso evitar
un roce secreto
De aquel amor
de música ligera
nada nos libra
nada mas queda
De aquel amor
de música ligera
nada nos libra
nada más queda
nada más queda
nada más queda
nada más queda