TUTORIAL DE GAMBAS

GAMBAS





Es un lenguaje de programación libre derivado de BASIC. Es similar al producto de Microsoft Visual Basic y se distribuye con licencia GNU GPL. Cabe destacar que presenta ciertas similitudes con Java ya que en la ejecución de cualquier aplicación, se requiere un conjunto de librerías interprete previamente instaladas (Gambas Runtime) que entiendan el bytecode de las aplicaciones desarrolladas y lo conviertan en codigo ejecutable por el computador. Por otro lado, a diferencia de Java, no se experimentan ralentizaciones y es posible desarrollar grandes aplicaciones en poco tiempo.

Permite crear formularios con botones de comandos, cuadros de texto y muchos otros controles y enlazarlos a bases de datos como MySQL, PostgreSQL o SQLite además de facilitar la creación de aplicaciones muy diversas como videojuegos (utilizando OpenGL), aplicaciones para dispositivos moviles (en desarrollo pero muy avanzado), aplicaciones de red (con manejo avanzado de protocolos HTTP, FTP, SMTP, DNS), entre otras .

COMPONENTES:

-Un compilador.
-Un intérprete.
-Un archivador.
-Una interfaz gráfica de usuario GUI.
-Un entorno de desarrollo.


NÚMERO MAYOR Y NÚMERO MENOR


PUBLIC SUB Main()
DIM a, b, c AS Integer
PRINT "Ingrese Valor A->:"
INPUT a
PRINT "Ingrese Valor B->:"
INPUT b
PRINT "Ingrese Valor C->:"
INPUT c
IF ((a > b) AND (a > c)) THEN
PRINT "Mayor", a
IF (b > c) THEN
PRINT "Medio->", b
PRINT "Menor->", c
ELSE
PRINT "Medio", c
PRINT "Menor", b
ENDIF
ENDIF
IF ((b > c) AND (b > a)) THEN
PRINT "Mayor", b
IF (a > c) THEN
PRINT "Medio->", a
PRINT "Menor->", c
ELSE
PRINT "Medio->", c
PRINT "Menor->", a
ENDIF
ENDIF
IF ((c > b) AND (c > a)) THEN
PRINT "Mayor->", c
IF (b > a) THEN
PRINT "Medio", b
PRINT "Menor", a
ELSE
PRINT "Medio", a
PRINT "Menor", b
ENDIF
ENDIF
END


EQUIVALENCIA



PERMITE EL INGRESO DE TRES PARCIALES CALCULA LA SUMA, EL PROMEDIO, SI APRUEBA, O SE QUEDA A RECUPERACION

TAMBIÉN LA EQUIVALENCIA SEGUN LA SIGUIENTE TABLA:
♥.. 10 SOBRESALIENTE.
♥.. 9-8 MUY BUENA
♥.. 7 BUENA.
♥.. 6-1 INSUFICIENTE


PUBLIC SUB Main()
DIM N1, N2, N3 AS Integer
PRINT "INGRESE NOTA UNO"
INPUT N1
PRINT " INGRESAR NOTA DOS"
INPUT N2
PRINT " INGRESAR NOTA TRES"
INPUT N3
PRINT "LA SUMA ES", Module1.SUMA(N1, N2, N3)
PRINT "EL PROMEDIO ES", Module1.PROMEDIO(N1, N2, N3)
PRINT "LA EQUILALENCIA ES", Module1.EQUIVALENCIA(N1, N2, N3)
PRINT "OBSERVACION", Module1.OBSERVACION(N1, N2, N3)
END


PUBLIC FUNCTION SUMA(v1 AS Integer, v2 AS Integer, v3 AS Integer) AS Integer
DIM su AS Integer
su = v1 + v2 + v3
RETURN su
END


PUBLIC FUNCTION PROMEDIO(v1 AS Integer, v2 AS Integer, v3 AS Integer) AS Integer
DIM prom AS Integer
prom = (v1 + v2 + v3) DIV 3
RETURN prom
END


PUBLIC FUNCTION EQUIVALENCIA(v1 AS Integer, v2 AS Integer, v3 AS Integer) AS String
DIM eq AS Integer
DIM e AS String
eq = (v1 + v2 + v3) DIV 3
IF (eq < e = "insuificiente" eq =" 7)" e = "BUENO" e = "muy BUENO" e = "SOBRESALIENTE" eq =" (v1" e = "REPROBADO" e = "RECUPERACION" e = "APRUEBA">


CÉDULA





PUBLIC SUB Main()
DIM ced, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10 AS String
DIM d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, u, s, r AS Integer
PRINT "ingrese numero de cedula"
INPUT ced
c1 = Mid(ced, 1, 1)
c2 = Mid(ced, 2, 1)
c3 = Mid(ced, 3, 1)
c4 = Mid(ced, 4, 1)
c5 = Mid(ced, 5, 1)
c6 = Mid(ced, 6, 1)
c7 = Mid(ced, 7, 1)
c8 = Mid(ced, 8, 1)
c9 = Mid(ced, 9, 1)
c10 = Mid(ced, 10, 1)
d1 = Val(c1) * 2
IF (d1 >= 10) THEN d1 = d1 - 9
d2 = Val(c2)
d3 = Val(c3) * 2
IF (d3 >= 10) THEN d3 = d3 - 9
d4 = Val(c4)
d5 = Val(c5) * 2
IF (d5 >= 10) THEN d5 = d5 - 9
d6 = Val(c6)
d7 = Val(c7) * 2
IF (d7 >= 10) THEN d7 = d7 - 9
d8 = Val(c8)
d9 = Val(c9) * 2
IF (d9 >= 10) THEN d9 = d9 - 9
s = d1 + d2 + d3 + d4 + d5 + d6 + d7 + d8 + d9 + d10
r = s MOD 10
IF (s = 10) THEN
u = 0
ELSE
u = 10 - r
END IF
d10 = Val(c10)
IF (u = d10) THEN
PRINT "numero correcto"
ELSE
PRINT "numero incorrecto"
END IF
END


CALCULADORA






PUBLIC ban AS Integer
PUBLIC aux1 AS Integer
PUBLIC aux AS Integer
PUBLIC compunto AS Integer


PUBLIC SUB Button12_Click()
ban = 1
IF visor.text <> 0 THEN
aux1 = visor.text
ELSE
aux1 = 0
ENDIF
visor.clear
END


PUBLIC SUB Button8_Click()
visor.text = visor.text & "1"
END


PUBLIC SUB Button9_Click()
visor.text = visor.text & "2"
END


PUBLIC SUB Button10_Click()
visor.text = visor.text & "3"
END


PUBLIC SUB Button4_Click()
visor.text = visor.text & "4"
END


PUBLIC SUB Button5_Click()
visor.text = visor.text & "5"
END


PUBLIC SUB Button6_Click()
visor.text = visor.text & "6"
END


PUBLIC SUB Button1_Click()
visor.text = visor.text & "7"
END


PUBLIC SUB Button2_Click()
visor.text = visor.text & "8"
END


PUBLIC SUB Button3_Click()
visor.text = visor.text & "9"
END


PUBLIC SUB Button7_Click()
visor.text = visor.text & "0"
END


PUBLIC SUB Button11_Click()
visor.text = visor.text & "."
END


PUBLIC SUB Button17_Click()
visor.clear
END


PUBLIC SUB Button16_Click()
ME.CLOSE
END


PUBLIC SUB Button13_Click()
ban = 2
IF visor.text <> 0 THEN
aux1 = visor.text
ELSE
aux1 = 0
ENDIF
visor.clear
END


PUBLIC SUB Button14_Click()
ban = 3
IF visor.text <> 0 THEN
aux1 = visor.text
ELSE
aux1 = 0
ENDIF
visor.clear
END


PUBLIC SUB Button15_Click()
ban = 4
IF visor.text <> 0 THEN
aux1 = visor.text
ELSE
aux1 = 0
ENDIF
visor.clear
END


PUBLIC SUB Button18_Click()
IF visor.text <> 0 THEN
aux = visor.text
ELSE
aux = 0
ENDIF
visor.text = operaciones(ban, aux1, aux)
END


PUBLIC FUNCTION operaciones(opera AS Integer, v1 AS Integer, v2 AS Integer) AS Integer
DIM respuesta AS Integer
DIM i AS Integer
DIM acumula AS Integer
SELECT CASE opera
CASE 1
respuesta = v1 + v2
CASE 2
respuesta = v1 - v2
CASE 3
respuesta = v1 * v2
CASE 4
IF v2 = 0 THEN
respuesta = v1 / v2
Message("dividir para cero informacion")
ENDIF
CASE 5
acumula = 1
FOR i = 1 TO v2
acumula = acumula * v1
NEXT
respuesta = acumula
END SELECT
RETURN respuesta
END


PUBLIC SUB Button19_Click()
visor.Text = visor.text * visor.Text
END


PUBLIC SUB Button21_Click()
IF visor.Text <> "" THEN
compunto = 0
ban = 5
IF visor.Text <> 0 THEN
aux1 = visor.Text
ELSE
aux1 = 0
ENDIF
visor.Clear
ENDIF
END


PUBLIC SUB Button20_Click()
visor.Text = visor.Text * visor.Text * visor.Text
END


PUBLIC SUB Button23_Click()
visor.Text = Sin(visor.Text)
END


PUBLIC SUB Button24_Click()
visor.Text = Cos(visor.Text)
END


PUBLIC SUB Button25_Click()
visor.Text = Tan(visor.Text)
END


PUBLIC SUB Button32_Click()
DIM c, oc1, oc2, i AS Integer
DIM cadena, cadena2 AS String
c = visor.Text
WHILE c > 0
oc1 = (Int(c / 8))
oc2 = c MOD 8
cadena = cadena & Str(oc2)
c = oc1
WEND
FOR i = Len(cadena) TO 1 STEP - 1
cadena2 = cadena2 & Mid(cadena, i, 1)
NEXT
visor.Text = cadena2
END


PUBLIC SUB Button33_Click()
DIM n, i, x1, x2 AS Integer
DIM cadena, cadena2 AS String
n = visor.Text
WHILE n > 0
x1 = (Int(n / 16))
x2 = n MOD 16
IF x2 < 10 THEN cadena = cadena & Str(x2) ELSE IF x2 = 10 THEN cadena = cadena & "A" ELSE IF X2 = 11 THEN cadena = cadena & "B" ELSE IF x2 = 12 THEN cadena = cadena & "C" ELSE IF X2 = 13 THEN cadena = cadena & "D" ELSE IF x2 = 14 THEN cadena = cadena & "E" ELSE IF X2 = 15 THEN cadena = cadena & "F" ENDIF n = x1 WEND FOR i = Len(cadena) TO 1 STEP -1 cadena2 = cadena2 & Mid(cadena, i, 1) NEXT visor.Text = cadena2 END PUBLIC SUB Button22_Click() END PUBLIC SUB Button26_Click() END PUBLIC SUB Button30_Click() END PUBLIC SUB Button29_Click() DIM i AS Integer FOR i = 1 TO visor.Text IF i <> visor.text
visor.text = i
ENDIF
NEXT
END


CRONOMETRO Y JUEGO


MENÚ






PUBLIC SUB Reloj_Click()
Form1.Show
END
PUBLIC SUB Exit_Click()
ME.Close
END



CRONOMETO





PUBLIC s AS Integer
PUBLIC m AS Integer
PUBLIC h AS Integer
PUBLIC SUB Timer1_Timer()
s = TextBox1.Text
m = TextBox2.Text
h = TextBox3.Text
IF s < s =" s" s =" 0" m =" m"> 59 THEN
h = h + 1
m = 0
END IF
ENDIF
TextBox1.Text = s
TextBox2.Text = m
TextBox3.Text = h
END


PUBLIC SUB Button1_Click()
IF Button1.Text = "Iniciar" OR Button1.Text = "Reiniciar" THEN
Timer1.Enabled = TRUE
Button1.Text = "Parar"
ELSE
Timer1.Enabled = FALSE
Button1.Text = "Reiniciar"
ENDIF
END


PUBLIC SUB Button2_Click()
FMain.Show
END



JUEGOS






PUBLIC a AS Integer
PUBLIC b AS Integer
PUBLIC c AS Integer


PUBLIC SUB Button1_Click()
Timer1.Enabled = TRUE
END


PUBLIC SUB Timer1_Timer()
DIM a, b, c AS Integer
TextBox4.Clear
RANDOMIZE
a = (Rnd * 10) + 1
TextBox1.text = a
'Message("este el el numero" & TextBox1.Text)
b = (Rnd * 10) + 1
TextBox2.text = b
c = (Rnd * 10) + 1
TextBox3.text = c
END


PUBLIC SUB Button2_Click()
Timer1.Enabled = FALSE
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
IF a = b AND b = c AND a = c THEN
TextBox4.text = "GANO"
ELSE
TextBox4.Text = "INTENTE OTRA VEZ"
ENDIF
TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c
IF TextBox4.Text = "GANO" THEN
TextBox7.Text = TextBox5.Text * TextBox6.Text
Message("APUESTA GANADA")
ELSE
TextBox7.Text = 0
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox5.Clear
TextBox6.Clear
Message("Apuesta Perdida")
ENDIF
END


PUBLIC SUB Button3_Click()
FMain.Show
END



CLAVE - NUEVO USUARIO - PROVEEDOR - INVENTARIO


MENÚ PRINCIPAL





CLAVE DE USUARIO





PUBLIC c AS Integer
PUBLIC n AS String
PUBLIC SUB TextBox1_Change()
TextBox2.Enabled = TRUE
END


PUBLIC SUB TextBox2_KeyPress()
IF Key।Code = 65293 THEN
IF TextBox1।Text = "" THEN
Message.Info("Ingrese Clave de Usuario...")
TextBox1.SetFocus
ELSE
Button1.Enabled = TRUE
Button2.Enabled = TRUE
Button1.SetFocus
ENDIF
ENDIF
END


PUBLIC SUB Form_Open()
ME.Center
modulo.conectar
modulo.rs = modulo.cn.Exec("select * from claves")
n = "Administrador"
END


PUBLIC SUB Button1_Click()
DIM ban AS Integer
DO WHILE modulo.rs.Available
n = modulo.rs["usuario"]
IF modulo.rs["usuario"] = Trim(TextBox1.Text) AND modulo.rs["contrasena"] = Trim(TextBox2.Text) थें
modulo.rs = modulo.cn.Exec("select * from claves where usuario = '" & Trim(TextBox1.Text) & "'")
Message.Info("Bienvenido al sistema Sr. " & n, "Aceptar")
ME.Hi
menuprincipal.Show
ban = 1
ENDIF
modulo.rs.MoveNext()
LOOP
IF ban = 0 THEN
c = c + 1
IF c = 3 THEN
Message.Warning("Lo sentimos, El sistema se cerrar por seguridad.")
ME.Close
ELSE
limpiar()
TextBox1.SetFocus
Message.Error("Usuario desconocido, intente nuevamente...", "Aceptar")
ENDIF
END IF
END


PUBLIC SUB TextBox1_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Nombre de Usuario...")
TextBox1.SetFocus
ELSE
TextBox2.SetFocus
ENDIF
ENDIF
END


PUBLIC SUB limpiar()
Button1.Enabled = FALSE
Button2.Enabled = FALSE
TextBox1.Clear
TextBox2.Clear
TextBox2.Enabled = FALSE
TextBox1.SetFocus
END


PUBLIC SUB Button2_Click()
limpiar()
END


INVENTARIO





PUBLIC con AS Integer
PUBLIC fil AS Integer
PUBLIC col AS Integer
PUBLIC SUB Form_Open()
Modulo.conectar
Modulo.rs = modulo.cn.Exec("select * from Producto")
mostrar()
END
PUBLIC SUB Button5_Click()
ME.Close
END


PUBLIC SUB Button2_Click()
TRY Modulo.cn.Exec("insert into Producto values('" & Trim(UCase(TextBox1.Text)) & "','" & Trim(UCase(TextBox2.Text)) & "','" & (TextBox3.Text) & "','" & (ValueBox2.Text) & "');")
IF ERROR THEN
Message.Error("Imposible insertar el registro")
ELSE
Message.Info("Registro insertado")
END IF
Modulo.rs = Modulo.cn.Exec("Select * from Producto")
mostrar()
limpiar()
END


PUBLIC SUB Button3_Click()
SELECT Message.Question("Desea eliminar un Producto", "Si", "No")
CASE 1
TRY Modulo.cn.Exec("Delete from Producto where codigo='" & Trim(UCase(TextBox1.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
Modulo.rs = Modulo.cn.Exec("select * from Producto")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
CASE 3
END SELECT
limpiar()
END


PUBLIC SUB Button4_Click()
DIM ban AS Integer
Modulo.rs = Modulo.cn.Exec("select * from Producto")
DO WHILE Modulo.rs.Available
IF modulo.rs["Codigo"] = Trim(UCase(TextBox1.Text)) THEN
Modulo.rs = Modulo.cn.Exec("select * from Producto where Codigo = '" & Trim(UCase(TextBox1.Text)) & "'")
TextBox2.Text = Modulo.rs["Nombre"]
TextBox3.Text = Modulo.rs["Precio"]
ValueBox2.Value = Modulo.rs["Cantidad"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido")
limpiar()
END IF
END


PUBLIC SUB limpiar()
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox3.Text = 0
ValueBox2.Clear
END


PUBLIC SUB Grid1_DblClick()
IF Grid1.Current = NULL THEN RETURN
SELECT Message.Question("Desea eliminar un Producto", "Si", "No", "Ayuda")
CASE 1
TRY Modulo.cn.Exec("Delete from Producto where Codigo='" & Trim(UCase(Grid1.Current.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
Modulo.rs = Modulo.cn.Exec("select * from Producto")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
CASE 3
END SELECT
Grid1.Columns.Width = 100
END


PUBLIC SUB Button6_Click()
TRY Modulo.cn.Exec("update Producto set Nombre='" & Trim(UCase(TextBox2.Text)) & "',Precio='" & Trim(UCase(TextBox3.Text)) & "',Cantidad='" & Trim(UCase(ValueBox2.Text)) & "' where codigo='" & Trim(TextBox1.Text) & "'")
IF ERROR THEN
Message.Error("Imposible actualizar el registro")
ELSE
Message.Info("Registro actualizado")
END IF
mostrar()
limpiar()
END
PUBLIC SUB Button1_Click()
limpiar
END


PROVEEDOR





PUBLIC SUB mostrar()
Modulo.rs.MoveFirst
IF Modulo.rs.Count > 0 THEN
Grid1.Columns.Count = 4
Grid1.Rows.Count = Modulo.rs.Count + 1
Grid1.Columns[1].Width = 30
Grid1.Columns[1].Width = 30
Grid1[0, 0].Text = "Codigo"
Grid1[0, 1].Text = "Nombre"
Grid1[0, 3].Text = "Precio Unitario"
Grid1[0, 2].Text = "Cantidad"
fil = 1
Modulo.rs.MoveFirst
'con = Modulo.rs.Count
DO WHILE Modulo.rs.Available
Grid1[fil, 0].Text = Modulo.rs["Codigo"]
Grid1[fil, 1].Text = Modulo.rs["Nombre"]
Grid1[fil, 2].Text = Modulo.rs["Cantidad"]
Grid1[fil, 3].Text = Modulo.rs["Precio"]
fil = fil + 1
Modulo.rs.MoveNext()
LOOP
ENDIF
END


NUEVO USUARIO





PUBLIC fil AS Integer
PUBLIC SUB TextBox1_Change()
TextBox2.Enabled = TRUE
END


PUBLIC SUB Button3_Click()
TRY modulo.cn.Exec("update into claves values('" & ("idclave") & "','" & Trim(TextBox1.Text) & "', '" & Trim(TextBox2.Text) & "' )")
IF ERROR THEN
Message.Error("Imposible actualizar el registro")
ELSE
Message.Info("Registro actualizado")
END IF
mostrar()
limpiar()
END


PUBLIC SUB limpiar()
TextBox1.Clear
TextBox2.Clear
END


PUBLIC SUB mostrar()
modulo.rs.MoveFirst
IF modulo.rs.Count > 0 THEN
GridView1.Columns.Count = 3
GridView1.Rows.Count = modulo.rs.Count + 1
GridView1.Columns[0].Width = 50
GridView1.Columns[1].Width = 250
GridView1.Columns[2].Width = 250
GridView1[0, 0].Text = "idclave"
GridView1[0, 1].Text = "usuario"
GridView1[0, 2].Text = "contrasena"
fil = 1
modulo.rs.MoveFirst
DO WHILE modulo.rs.Available
GridView1[fil, 0].Text = modulo.rs["idclave"]
GridView1[fil, 1].Text = modulo.rs["usuario"]
GridView1[fil, 2].Text = modulo.rs["contrasena"]
fil = fil + 1
modulo.rs.MoveNext()
LOOP
ENDIF
END


PUBLIC SUB Form_Open()
ME.Center
modulo.conectar
modulo.rs = modulo.cn.Exec("select * from claves")
mostrar()
desbotones()
END


PUBLIC SUB TextBox1_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Nombre de Usuario...")
TextBox1.SetFocus
ELSE
TextBox2.SetFocus
ENDIF
ENDIF
END


PUBLIC SUB TextBox2_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Clave de Usuario...")
TextBox1.SetFocus
ELSE
habotones()
Button3.SetFocus
ENDIF
ENDIF
END


PUBLIC SUB desbotones()
Button3.Enabled = FALSE
Button4.Enabled = FALSE
Button5.Enabled = FALSE
END


PUBLIC SUB habotones()
Button3.Enabled = TRUE
Button4.Enabled = TRUE
Button5.Enabled = TRUE
END


PUBLIC SUB Button6_Click()
menuprincipal.Show
ME.Hide
END


PUBLIC SUB Button2_Click()
TRY modulo.cn.Exec("insert into claves values('" & ("idclave") & "','" & Trim(TextBox1.Text) & "', '" & Trim(TextBox2.Text) & "' )")
IF ERROR THEN
Message.Error("Imposible Ingresar el usuario...")
ELSE
Message.Info("Usuario Ingresado...")
ENDIF
modulo.rs = modulo.cn.Exec("select * from claves")
mostrar()
limpiar()
END


PUBLIC SUB Button4_Click()
SELECT Message.Question("Desea eliminar una claves", "Si", "No")
CASE 1
TRY Modulo.cn.Exec("Delete from claves where usuario='" & Trim(UCase(TextBox1.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
Modulo.rs = Modulo.cn.Exec("select * from claves")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
CASE 3
END SELECT
limpiar()
END


PUBLIC SUB Button5_Click()
DIM ban AS Integer
Modulo.rs = Modulo.cn.Exec("select * from claves")
DO WHILE Modulo.rs.Available
IF modulo.rs["usuario"] = Trim(UCase(TextBox1.Text)) THEN
Modulo.rs = Modulo.cn.Exec("select * from claves where usuario = '" & Trim(UCase(TextBox1.Text)) & "'")
TextBox1.Text = Modulo.rs["usuario"]
TextBox2.Text = Modulo.rs["contrasena"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido")
limpiar()
END IF
END

COMERCIO ELECTRÓNICO

1. DEFINICIONES
Pondremos a continuación tres definiciones que nos parecen apropiadas al término
Comercio Electrónico:

• "Es la aplicación de la avanzada tecnología de información para incrementar la eficacia de las relaciones empresariales entre socios comerciales". (Automotive Action Group in North América)
• "La disponibilidad de una visión empresarial apoyada por la avanzada tecnología de información para mejorar la eficiencia y la eficacia dentro del proceso comercial." (EC Innovation Centre)
• "Es el uso de las tecnologías computacional y de telecomunicaciones que se realiza entre empresas o bien entre vendedores y compradores, para apoyar el comercio de bienes y servicios."

Conjugando estas definiciones podemos decir que el comercio electrónico es una metodología moderna para hacer negocios que detecta la necesidad de las empresas, comerciantes y consumidores de reducir costos, así como mejorar la calidad de los bienes y servicios, además de mejorar el tiempo de entrega de los bienes o servicios. Por lo tanto no debe seguirse contemplando el comercio electrónico como una tecnología, sino que es el uso de la tecnología para mejorar la forma de llevar a cabo las actividades empresariales.

Ahora bien, el comercio electrónico se puede entender como cualquier forma de transacción comercial en la cual las partes involucradas interactúan de manera electrónica en lugar de hacerlo de la manera tradicional con intercambios físicos o trato físico directo. Actualmente la manera de comerciar se caracteriza por el mejoramiento constante en los procesos de abastecimiento, y como respuesta a ello los negocios a nivel mundial están cambiando tanto su organización como sus operaciones.

El comercio electrónico es el medio de llevar a cabo dichos cambios dentro de una escala global, permitiendo a las compañías ser más eficientes y flexibles en sus operaciones internas, para así trabajar de una manera más cercana con sus proveedores y estar más pendiente de las necesidades y expectativas de sus clientes. Además permiten seleccionar a los mejores proveedores sin importar su localización geográfica para que de esa forma se pueda vender a un mercado global.

FIRMAS DIGITALES

Las firmas digitales son una de estas cosas de las que todo el mundo ha oído hablar pero muchos no saben exactamente que son.

La criptografía es tan antigua como la escritura. Se dice que las primeras civilizaciones que usaron la criptografía fueron la Egipcia, la Mesopotámica, la India y la China. Pero a quien se atribuye el primer método de encriptado con su debida documentación es al general romano Julio César, quien creó un sistema simple de sustitución de letras, que consistía en escribir el documento codificado con la tercera letra que siguiera a la que realmente correspondía. La A era sustituida por la D, la B por la E y así sucesivamente.

La seguridad es uno de los elementos clave en el desarrollo positivo de las redes de información mundial y particularmente en el comercio electrónico, ésta genera confianza, y hace que los usuarios al depositar sus datos en la red, estén seguros de que no serán alterados ni desviados a usuarios no autorizados.

La firma digital es la transmisión de mensajes telemáticos, un método criptográfico que asegura su integridad así como la autenticidad del remitente.

La firma digital de un documento no es un passwords, es el resultado de aplicar cierto algoritmo matemático, denominado función hash, al contenido. Esta función asocia un valor dentro de un conjunto finito (generalmente los números naturales) a su entrada. Cuando la entrada es un documento, el resultado de la función es un número que identifica casi unívocamente al texto. Si se adjunta este número al texto, el destinatario puede aplicar de nuevo la función y comprobar su resultado con el que ha recibido.

Cochi&Pedro

View more presentations from SuperC.

Visit www.moblyng.com to make your own!

La mamá de las culebras

Si te pica es mi culebrita, si te pica es mi culebrita...

Sistemas De Información

LAS TICs (Tecnología de la Informática y Comunicaciones)

Las TIC se conciben como el universo de dos conjuntos, representados por las tradicionales Tecnologías de la Comunicación (TC) - constituidas principalmente por la radio, la televisión y la telefonía convencional - y por las Tecnologías de la Información (TI) caracterizadas por la digitalización de las tecnologías de registros de contenidos (informática, de las comunicaciones, telemática y de las interfaces).

Las TIC (Tecnologías de la Información y Comunicaciones) son las tecnologías que se necesitan para la gestión y transformación de la información, y muy en particular el uso de ordenadores y programas que permiten crear, modificar, almacenar, proteger y recuperar esa información.

Las Tecnologías de la Información y las Comunicaciones (TICs), están inundando el mundo moderno con implicaciones en cada una de las ramas de la sociedad actual. Hoy en día no se puede hablar de eficiencia o novedad si no existe una aplicación y correcta utilización de la tecnología moderna, y es que se puede asegurar que hoy en día las TICs tienen la respuesta efectiva a la mano.

Actualmente se habla de un gran desarrollo tecnológico, particularmente en las ramas de la Informática y las Telecomunicaciones, evidenciándose que es esta la era con mayor velocidad de evolución de todas aquellas que hayamos conocido. Este desarrollo acelerado tecnológico ha dado surgimiento a las Nuevas Tecnologías de la Información y las Comunicaciones (NTIC o bien puede referirse como TIC), las cuales están inundando el mundo referencial del ser humano, a la vez que le están ayudando a conquistar conocimientos y acciones que ayer mismo parecían inaccesibles pero, de la misma manera, le están condicionando y obligando a adaptaciones y replanteamientos en todos los órdenes de su existencia.

Aportaciones de las TICs

Sus principales aportaciones a las actividades humanas se concretan en una serie de funciones que nos facilitan la realización de nuestros trabajos porque, sean éstos los que sean, siempre requieren una cierta información para realizarlo, un determinado proceso de datos y a menudo también la comunicación con otras personas; y esto es precisamente lo que nos ofrecen las TIC.

Fácil acceso a todo tipo de información. Sobre cualquier tema y en cualquier formato (textual, icónico, sonoro), especialmente a través de la televisión e Internet pero también mediante el acceso a las numerosas colecciones de discos en soporte CD-ROM y DVD: sobre turismo, temas legales, datos económicos, enciclopedias generales y temáticas de todo tipo, películas y vídeos digitales (se están digitalizando en soporte DVD toda la producción audiovisual), bases de datos fotográficas...

La información es la materia prima que necesitamos para crear conocimientos con los que afrontar las problemáticas que se nos van presentando cada día en el trabajo, en el ámbito doméstico, al reflexionar…

Instrumentos para todo tipo de proceso de datos. Los sistemas informáticos, integrados por ordenadores, periféricos y programas, nos permiten realizar cualquier tipo de proceso de datos de manera rápida y fiable: escritura y copia de textos, cálculos, creación de bases de datos, tratamiento de imágenes... Para ello disponemos de programas especializados: procesadores de textos, editores gráficos, hojas de cálculo, gestores de bases de datos, editores de presentaciones multimedia y de páginas web..., que nos ayudan especialmente a expresarnos y desarrollar nuestra creatividad, realizar cálculos y organizar la información.

Canales de comunicación inmediata. sincrónica y asíncrona, para difundir información y contactar con cualquier persona o institución del mundo mediante la edición y difusión de información en formato web, el correo electrónico, los servicios de mensajería inmediata, los fórums telemáticos, las videoconferencias, los blogs y las wiki...

Almacenamiento de grandes cantidades de información. En pequeños soportes de fácil transporte (pendrives, discos duros portátiles, tarjetas de memoria...). Un pendrive de 1 Gbyte puede almacenar alrededor de un mil millones de caracteres, un volumen equivalente a mil libros de cientos de páginas y a miles de fotografías de calidad media.

Frenos para la expansión de las TICs

Problemas técnicos: Incompatibilidades entre sistemas, poca velocidad para navegar por internet y para algunas tareas (reconocimiento de voz...).

Falta de formación: Conocimientos teóricos y prácticos, aptitudes y actitudes favorables.

Problemas de seguridad: Accesos no autorizados, inseguridad al realizar compras virtuales.

Barreras económicas: A pesar del progresivo abaratamiento el precio de los equipos es alto para muchos. Y la absolvencia exige nuevos gastos.

Barreras culturales: El idioma inglés es el dominante.

A finales del siglo pasado, la casi totalidad de los campos profesionales han visto incrementado su potencial de desarrollo con la incorporación de las nuevas tecnologías y ello ha motivado un cambio sustancial en el modo de ejercer las funciones específicas en cada uno de estos campos. Esta situación lleva como contrapartida la demanda implícita de nuevos roles para el desarrollo profesional.

En el caso concreto de la educación no hay excepción, a lo largo de estos últimos años, se enfatiza mucho en relación con el cambio en el perfil del maestro como consecuencia de la integración de las nuevas tecnologías en el ámbito escolar.

En el contexto de la sociedad actual y para cubrir sus expectativas se requiere elevar la calidad de la educación, en el sentido que entendemos este, en un proceso en el cual no puede excluirse el uso de las TIC que no deben constituir simplemente un medio más, sino un recurso en el cual se sustenten las exigencias actuales para cambiar el mundo en el que educamos a niños y jóvenes.

El desarrollo conjunto de educación y TIC puede estudiarse desde varios puntos de vista. Desde un punto de vista educativo se puede ver el modelo pedagógico usado, el nivel educativo, ya que son muy distintos los problemas de la educación primaria, secundaria, universitaria o formación profesional y otra cuestión son las actividades educativas en las que se aplican las TIC: autoestudio, clases, tutorías, material de estudio, recursos bibliográficos, laboratorios, calificación y administración.

En los últimos años ha surgido una serie de definiciones dentro del campo de la tecnología educativa. Muchas veces los conceptos de medios y tecnologías, se confunden. Los medios, por ejemplo el video, la computadora, el retroproyector, etc., son los productos usados dentro de un sistema de aprendizaje para lograr determinados objetivos. Sin embargo la denominada Tecnología Educativa la consideramos como una compleja organización de muchos elementos que están diseñados para ayudar a causar cambios en el comportamiento de los estudiantes al brindar la posibilidad, entre otras cosas, de una mayor atención a las diferencias individuales.

El creciente desarrollo de las nuevas tecnologías de la información ha conllevado a que los sistemas educacionales sufran transformaciones para adecuarse a una sociedad en estado de cambio permanente, con nuevos valores y necesidades.

Estos cambios, se concretan en:

1. Se desplaza el interés de la enseñanza hacia el aprendizaje.
2. El rol del profesor de expositor a guía y en última instancia como administrador los medios.
3. Pasar de una cultura basada en el libro y en el texto a una cultura multimedios.
4. La desincronización de la educación (en el tiempo y en el espacio). (Todos podremos aprender en distintos momentos y en lugares diferentes.

Actualmente el número de profesores que se preocupan por cómo poder emplear de forma más eficiente las TIC y sacar buen provecho de sus ventajas crece a pasos agigantados. A continuación se realiza un análisis de sus principales aspectos positivos:

Interés, Motivación. Los alumnos están muy motivados al utilizar los recursos TIC, la motivación hace que los estudiantes dediquen más tiempo a trabajar y, por tanto, es probable que aprendan más.

Mayor comunicación entre profesores y alumnos. Los canales de comunicación que proporciona Internet (correo electrónico, foros, chat...) facilitan el contacto entre los alumnos y con los profesores.

Desarrollo de habilidades de búsqueda y selección de información. El gran volumen de información disponible, exige la puesta en práctica de técnicas que ayuden a la localización de la información que se necesita y a su valoración.

Visualización de simulaciones. Los programas informáticos permiten simular secuencias y fenómenos físicos, químicos o sociales, fenómenos en 3D..., de manera que los estudiantes pueden experimentar con ellos y así comprenderlos mejor.

Personalización de los procesos de enseñanza y aprendizaje. Cada alumno puede utilizar los materiales más acordes con su estilo de aprendizaje.

Ayudas para la Educación Especial. En el ámbito de las personas con necesidades especiales el ordenador, con periféricos especiales, puede abrir caminos alternativos que resuelvan estas limitaciones.

Recursos compartidos. A través de Internet, la comunidad educativa puede compartir muchos recursos educativos: materiales informáticos de dominio público, páginas web de interés educativo, materiales realizados por los profesores y los estudiantes pero no todo marcha bien, algunos de los problemas a los que se enfrenta el reto de las TIC en el proceso de enseñanza y aprendizaje son:

-Distracciones y pérdida de tiempo. Los alumnos a veces se dedican a jugar y a distraerse buscando en Internet en vez de trabajar.

-Informaciones no fiables. En Internet hay muchas informaciones que no son fiables: parciales, equivocadas, obsoletas.

-Ansiedad o Adicción. La continua interacción ante el ordenador puede provocar ansiedad o adicción en los estudiantes.

-Dependencia de los demás. El trabajo en grupo también tiene sus inconvenientes, ya que algunos estudiantes se podrían convertir en espectadores de los trabajos de los otros.

-Sensación de desbordamiento. A veces el exceso de información, que hay que revisar y seleccionar, produce una sensación de desbordamiento: falta tiempo.

-Virus. La utilización de las nuevas tecnologías expone a los virus informáticos.

-Esfuerzo económico. Cuando las TIC se convierten en herramienta básica de trabajo, surge la necesidad de comprar un equipo personal.

-La limitación en el acceso a las tecnologías. No todos tienen iguales oportunidades de acceso a las TIC, en especial en los países pobres.

Una computadora con un buen software puede producir un aprendizaje con calidad con respecto a ciertos procedimientos de trabajo, pero también un mal uso de este puede traer aparejado dificultades de aprendizaje muy serias para el estudiante. En ocasiones hemos encontrado personas que se preguntan: ¿el uso de los medios y en particular de las computadoras originará automáticamente un aprendizaje efectivo. Sencillamente la respuesta sin dudar es que NO. En este sentido, la forma en que se utilice, la motivación a proporcionar, el ajuste de las necesidades educativas, entre otras cuestiones, es lo que propiciará un mejor aprendizaje.

En la medida en que se adquiera una cultura informática, la sociedad estará en mejores condiciones de resolver sus problemas. La informática y la Educación no son un fin en si ni podemos ubicarlas fuera del contexto social. En este momento no se trata de analizar si las computadoras deben formar parte o no del proceso de enseñanza-aprendizaje, de disciplina o asignatura, eso una gran mayoría lo acepta, el problema está en ¿de qué forma nos puede y debe ayudar a enriquecer la labor educativa de los futuros profesionales que la sociedad necesita?

Sistemas de Información a las TICs

Las TICs agrupan un conjunto de sistemas necesarios para administrar la información, y especialmente los ordenadores y programas necesarios para convertirla, almacenarla, administrarla, transmitirla y encontrarla. Los primeros pasos hacia una Sociedad de la Información se remontan a la invención del telégrafo eléctrico, pasando posteriormente por el teléfono fijo, la radiotelefonía y, por último, la televisión. Internet, la telecomunicación móvil y el GPS pueden considerarse como nuevas tecnologías de la información y la comunicación.

La revolución tecnológica que vive en la humanidad actualmente es debida en buena parte a los avances significativos en las tecnologías de la información y la comunicación. Los grandes cambios que caracterizan esencialmente esta nueva sociedad son: la generalización del uso de las tecnologías, las redes de comunicación, el rápido desenvolvimiento tecnológico y científico y la globalización de la información.