Programación


 

Los pop-ups son instancias de navegador que se abren como por una acción de un usuario, de una forma involuntaria o voluntaria, en una página web. No son ventanas emergentes o ventanas secundarias que se utilizan para abrir enlaces. Es una ventana sin barra de herramientas ni de dirección que invitan al usuario a realizar una acción como puede ser el de acudir a un sitio web.

 

 

Para un ejemplo es el siguiente código:

 

 

<html>

 

<head>

 

 

<Title>Pop-ups</Title>

 

 

</head>

 

 

<body>

 

 

<Script language=”JavaScript”>

 

 

alert (“Mensaje”)

 

 

</Script>

 

La ventana anterior era un Pop-up

 

</body>

 

 

</html>

 

 

Reemplazar Mensaje por lo que quiere representar.

Anuncios

El código se realiza con la función Date con la que visualizara la fecha y hora en inglés.

 

 

<Html>

 

 

<Head>

 

 

<Title>Visualizar fecha y hora</Title>

 

 

</Head>

 

 

<Body>

 

 

<Script>

 

 

document.write(Date())

 

 

</Script>

 

 

</Body>

 

 

</Html>

El lenguaje HTML (Lenguaje de Marcación de Hipertexto) es el que utilizan los ordenadores que están conectados a internet y este se expresa en inglés y carece de acentos, eñes y otros caracteres especiales por lo que en castellano tenemos que usar caracteres especiales.

 

El estándar ASCII es una tabla que relaciona caracteres (letras, números y símbolos) con números para que los ordenadores manejen la información. Los primeros 127 caracteres son interpretados igual en todos los ordenadores, pero esta tabla no contienen vocales, ni eñes, ni otros símbolos como los de interrogación o exclamación.

 

Para incluir los caracteres extendidos (a partir del 128) se realiza encerrando el código entre los caracteres & y ;.

 

Veamos algunos:

&aacute;     á     &ntilde;     ñ

&Aacute;     Á    &Ntilde;     Ñ

&eacute;     é    &iquest;     ¿

&Eacute;     É    &iexcl;        ¡

&iacute;      í     &ordm;      º

&Iacute;      Í    &ordf;         ª

&oacute;     ó    &not;         ¬

&Óacute;    Ó    &euro;       € (AltGr – 5)

&uacute;     ú    &nbsp;       Espacio en blanco

&Úacute;     Ú

Y además existen cuatro caracteres de control:

&lt;          <

&gt;         >

&amp;     &

&quot;     ”

Puede parecer inutil utilizar estos caracteres especiales, ya que, normalmente al escribirlos directamente lo visualizaremos en el navegador, pero no es seguro de que puede ocurrir en otros navegadores distintos cuando acedan a nuestra pagina web.

Para colocar un botón que al presionar de un mensaje en nuestra web debes colocar el siguiente código:

 

<html>

<head>

<script language=”JavaScript”>

function pushbutton() {

alert (“¡Bienvenido!”);

}

</script>

 

</head>

 

<body>

<form>

<input type=”button” name=”button” value=”haga clic aquí”

onclick=”pushbutton()”>

</form>

</body>

 

</html>

 

Tendrás el siguiente botón en tu página web.

 

boton_mensaje.png

 

Al hacer click tendrás el mensaje.

 

mensaje.png

 

 

 

 

 

Para colocar la fecha en tu página web debes insertar donde quieras este código:

<SCRIPT language=”” type=text/javascript>

        var diasSem = new Array( “Domingo”,”Lunes”,”Martes”,”Miércoles”,”Jueves”,”Viernes”,”Sábado”);

        var meses = new Array( “Enero”,”Febrero”,”Marzo”,”Abril”,”Mayo”,”Junio”,”Julio”,”Agosto”,”Septiembre”,”Oct ubre”,”Noviembre”,”Diciembre”);

        var ahora = new Date();

        anio = ahora.getYear();

        if(anio < 1900) {anio += 1900};

        document.write(“”+ diasSem[ahora.getDay()] + ” ” + ahora.getDate() + ” de ” + meses[ahora.getMonth()] + ” de ” + anio +””);

</SCRIPT>

Aplicación para que dibujen los más peques de la casa.

 

pizarra.png

 

Código del único Formulario:

 

Option Explicit

Dim Click As Boolean

Dim ColorTiza As Integer

 

Private Sub Form_Load()

ColorTiza = 15 ‘Color blanco por defecto al abrir el programa

End Sub

 

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then

Click = True

Picture1.PSet (X, Y), QBColor(ColorTiza)

End If

End Sub

 

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then

Click = True

Picture1.Line -(X, Y), QBColor(ColorTiza)

End If

End Sub

 

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then

Click = False

End If

End Sub

 

Private Sub BotonVerdeOscuro_Click(Index As Integer)

ColorTiza = 2 ‘Color Verde Oscuro

End Sub

 

Private Sub BotonRojo_Click(Index As Integer)

ColorTiza = 4 ‘Color Rojo Claro

End Sub

 

Private Sub BotonGris_Click(Index As Integer)

ColorTiza = 8 ‘Color gris

End Sub

 

Private Sub BotonAzul_Click(Index As Integer)

ColorTiza = 9 ‘Color Azul Marino

End Sub

 

Private Sub BotonVerdeClaro_Click(Index As Integer)

ColorTiza = 10 ‘Color Verde Claro

End Sub

 

Private Sub BotonRosa_Click(Index As Integer)

ColorTiza = 13 ‘Color Rosa

End Sub

 

Private Sub BotonAmarillo_Click(Index As Integer)

ColorTiza = 14 ‘Color Amarillo

End Sub

 

Private Sub BotonBlanco_Click(Index As Integer)

ColorTiza = 15 ‘Color blanco

End Sub

 

Private Sub BotonBorrar_Click()

Picture1.Cls

End Sub

 

Private Sub BotonSalir_Click()

End

End Sub

 

Puedes descargarte el ejecutable aquí.

 

Una aplicación sencilla para ir aprendiendo.

calculadoramini_png.png

 

Private Sub CommandSuma_Click()

TextRes.Text = Val(TextOp1.Text) + Val(TextOp2.Text)

LabelOperacion.Caption = “+”

End Sub

 

 

Private Sub CommandResta_Click()

TextRes.Text = Val(TextOp1.Text) – Val(TextOp2.Text)

LabelOperacion.Caption = “-“

End Sub

 

 

Private Sub CommandProducto_Click()

TextRes.Text = Val(TextOp1.Text) * Val(TextOp2.Text)

LabelOperacion.Caption = “*”

End Sub

 

 

Private Sub CommandDivision_Click()

TextRes.Text = Val(TextOp1.Text) / Val(TextOp2.Text)

LabelOperacion.Caption = “/”

End Sub

Página siguiente »