CÓDIGO FUENTE

En esta sección vamos a ir colocando todo tipo de código fuente sobre programación e Internet.
Esta página está abierta a vuestras aportaciones, por lo que quien esté interesado en publicar cualquer tipo de código fuente sólo tiene que enviarnoslo a nuestra dirección de correo, indicando la versión del compilador con el que ha sido realizado.

Códigos Fuente disponibles

Últimos 5 códigos introducidos

Imágen de perfil

Texto en movimiento en una ventana con pygame


Python

Publicado el 29 de Julio del 2016 por Administrador
78 visualizaciones desde el 29 de Julio del 2016
Este código muestra dentro de una ventana el texto "Hello World!" en movimiento!!
Imágen de perfil

resolución de sudoku


PHP

Publicado el 28 de Julio del 2016 por Administrador
153 visualizaciones desde el 28 de Julio del 2016
Este código muestra una clase para solucionar un soduko. Tiene que recivir los valores del sudoku como una cadena de caractere, donde el primer valor es la primera posicion, el segundo valor el que se encuentra a la derecha del primero, y así sucesivamente.
Los valore con 0 son los valores a resolver.
Actualizado

Macro Excel cuando no existe comdlg


Excel

Actualizado el 28 de Julio del 2016 por Hugo Arturo (Creado el 15 de Julio del 2016)
364 visualizaciones desde el 15 de Julio del 2016
hola

en otras macros que he realizado necesito el comdlg para obtener la ruta de los archivos, txt, excel, o bases de access y así poder manipular la información

no quería meterme a macros de excel de 2003, 2007 y menos de 2010, pues en lugar de mejorar, "el proveedor" quita lo que no le gusta y pumm, tuve que hace una macro en excel 2010.

no tiene el comdlg, y buceando un poco en excel encontre esta alternativa

buscar el archivo Application.GetOpenFilename, de esta manera abre una versión de comdlg

1
2
3
4
cells(12, 6).Value = Application.GetOpenFilename( _
     "Excel Files(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam", , _
     "Selecccione el archivo Accountentry Blotter a cargar:")
RutaArch1 = Cells(12, 6).Value

en la celda (12,6) pongo la ruta para que el proto usuario valide que es corecta la ruta
y ese valor lo muevo a una variable RutaArch1, ya que con esa ruta abro el excel correspondiente

una delas cosas buenas es que si necesitaba 4 o mas archivos para no hacerce bola se tenia que tener nas de un comdlg, con esta opcion con Application.GetOpenFilename lo manipulas, en mi caso a 8 archivos diferentes

ya con la ruta del archivo ese excel lo abro como una tabla de base de datos y dependiendo de la version de excel se abre diferente proveedor

1
2
3
4
5
6
7
8
9
10
11
12
13
If VBA.Val(Application.Version) < 12 Then
ExcelStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = '" & RutaArch1 & "''';" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
ElseIf VBA.Val(Application.Version) < 14 Then
ExcelStr = "Provider=Microsoft.Jet.OLEDB.12.0;" & _
"Data Source = '" & RutaArch1 & "';" & _
"Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";"
Else
ExcelStr = "Provider=Microsoft.ACE.OLEDB.12.0;;" & _
"Data Source = '" & RutaArch1 & "';" & _
"Extended Properties=""Excel 12.0;HDR=YES;\"";"
End If

lo demas es abrir un objeto excel y un recorset
Imágen de perfil

ceros a la izquierda


PHP

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 27 de Julio del 2016 por ISAU
266 visualizaciones desde el 27 de Julio del 2016
la funcion strzero retorna un valor dado con ceros a la izquierda, dependiendo de cantidad de cifras q desees rellanar con 0 a la izquierda de un valor dado
Imágen de perfil
Actualizado

MyCrudEx: CRUD en SQLite para Android


Android

estrellaestrellaestrellaestrellaestrella(1)
Actualizado el 26 de Julio del 2016 por Agustin (Creado el 29 de Marzo del 2016)
1.387 visualizaciones desde el 29 de Marzo del 2016. Una media de 84 por semana
MyCrudEx es una aplicación para Android de ejemplo en la cual están disponibles las operaciones CRUD (Agregar, Listar, Eliminar y Actualizar) usando una base de datos local en SQLite, el cual viene integrado por default en Android y nos facilita el manejo de información.

En la aplicación es posible ver lo siguiente:

Inicio: En la pantalla principal podemos ver las opciones Ver Elementos y Nuevo Elemento.
Nuevo Elemento: Muestra un formulario para agregar elementos o contactos, contempla los campos Nombre, Apellido, Domicilio, Teléfono y Email al guardar el elemento se guarda en la base de datos local.
Ver Elementos: Muestra la lista de todos los elementos o contactos que estén en la base de datos local y al seleccionar o darle tap a un elemento nos dirige a la pantalla de Editar Elemento.
Editar Elemento: Muestra un formulacion para modificar el elemento seleccionado y también se encuentra la opción de eliminar Elemento.
Eliminar Elemento: Muestra un dialogo para confirmar la eliminación y en caso de ser SI se elimina el elemento de la base de datos, cierra el formulario de editar elemento y regresa a la pantalla de ver elementos.