lunes, 1 de marzo de 2010

Invitaciones para Lockerz

Hoy quiero hacerles una invitación exclusiva a los lectores de mi blog. Resulta que he conseguido ingresar a un fabuloso sitio llamado Lockerz y quiero compartirlo con ustedes.

Que es Lockerz?
Lockerz es un sitio que nos ofrece diariamente distintos juegos para jugar, y a medida que vamos jugando vamos ganando unos puntos llamados PTZ. Por cada día que pasa van cambiando las cosas y nos ofrecen nuevos juegos y posibilidades para sumar más puntos.

Que hago con los puntos?
Esos puntos nos permiten canjearlos por diferentes cosas que pueden ir desde bolsas para salir hasta un monitor samsung 40', PS3 SLIM, Xbox 360, iPods, Camaras de fotos, reproductor DVD portátil, juegos para PC, XBOX 360, PS3, auriculares, y eso no es todo.. tambien hay pistolas de paintball, carteras, anillos y otras cosas más. De momento los puntos necesarios para ganarse las notebooks no son muchos debido a que la comunidad aún no es muy conocida, pero imagino que a medida que crezca será más difícil conseguir cosas y es por eso que debemos apresurarnos.

Para que se den una idea, esto es algo de lo que pueden ganarse:

Como podemos ver, los premios son más que interesantes para cualquiera, sobre todo porque para conseguirlos debemos hacer pequeños juegos diariamente y nada más.

Para aquellos que estén interesado en probar Lockerz dejen un comentario con su correo yo les respondere. Les aclaro que las invitaciones son limitadas, por lo cual si se apuran mejor!

miércoles, 2 de abril de 2008

Crear un cubo con VB.net

Hola amigos programadores, este dia traigo un código que presente junto a mis compañeros (mauricio^2) xD en la instructora a nuestros compañeros de programación.

El código esta hecho en VB.net y dibuja un cubo en el formulario, espero les ayude en alguna aplicación:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim grafico As Graphics
grafico = e.Graphics

Dim PuntosCubo() As Point = {New Point(10, 10), New Point(100, 10), New Point(100, 90), New Point(10, 90)}
Dim PuntosCubo2() As Point = {New Point(30, 30), New Point(120, 30), New Point(120, 110), New Point(30, 110)}

grafico.DrawPolygon(New Pen(Color.Orange, 3), PuntosCubo)
grafico.DrawPolygon(New Pen(Color.Orange, 3), PuntosCubo2)

grafico.DrawLine(New Pen(Color.Orange, 3), 100, 10, 120, 30)
grafico.DrawLine(New Pen(Color.Orange, 3), 10, 10, 30, 30)
grafico.DrawLine(New Pen(Color.Orange, 3), 100, 90, 120, 110)
grafico.DrawLine(New Pen(Color.Orange, 3), 10, 90, 30, 110)
End Sub

para que el codigo funcione hay que llamar las siguientes dll's:

Imports System.Drawing
Imports System.Drawing.Drawing2D

espero les haya servido.

nos vemos en la próxima aplicación xD...

sábado, 22 de marzo de 2008

Gana Dinero Electronico

Un amigo me ha pasado un link en el cual te prometen ganar dinero electronico con inscribirte a las opciones q te aparecen ahi la pagina es :
http://dinerofacileninternetrapido.es.tl/

lunes, 11 de febrero de 2008

Funciones principales de un Datawindows en Power Builder

Hola amigos este dia traigo las funciones mas comunes de los Datawindows de Power Builder que encontre en una pagina de internet...

espero les sean de ayuda:

SetTransObject

Hace que un control DataWindow use un objeto de transacción especificado por el programador. El objeto de transacción proporciona la información nesecesaria para comunicarse con la Base de Datos. Retorna -1 si ha ocurrido un error.

Sintaxis Dwn. Settransobject(Transacción)

Argument

Description

Dwn

El nombre del Control data window, con el cual se desea usar un objeto de transacción.

Transacción

Nombre del Objeto de transacción, por defecto es SQLCA.

Generalmente se establece el objeto de transacción en el evento Open de la ventana que contiene el control DataWindow.

En resumen el SettransObject(SQLCA) asocia el objeto transación con el control DataWindow.

Ejemplo:

DwnSoftware.settransobject(SQLCA)

InsertRow

Sintaxis Dwn.InsertRow(fila)

Argument

Descripcion

Dwn

El nombre del control DataWindow en el cual se desea insertar una fila.

Fila

Un entero Largo (long) que identifica la fila antes de la cual desea insertar una fila nueva. Si el valor es cero insertará al final de la tabla.

Ejemplo:

DwnSoftware.InsertRow(0)

Retrieve()

Recupera todas las filas de una tabla de la BDD en un control DataWindow, Si incluyen argumentos, estos son usados por los argumentos de recuperacion de la sentencia SQL SELECT del objeto DataWindow. Retorna el número de filas recuperadas, -1 si ocurre un error.

SintaxisDwn.Retrieve({Arg1, Arg2,…})

Argument Descripcion

Arg1, Arg2 Argumentos de recuperacion, de la tabla de BDD

Ejemplo:

DwnSoftware.Retrieve(“C001”)

SetRowFocusIndicator

Especifica el indicador visual que identifica la fila actual en un control DataWindow.

Sintaxis Dwn.SetRowFocusIndicator (Indicador)

Indicador El indicador visual para la fila actual, los valores validos son

Off!

Sin indicador.

FocusRect!

Un rectangulo de puntos alrededor de la fila.

Hand!

Un dedo indice.


El nombre de un Picture Control.

SelectRow

Selecciona la fila especificada en el control de un DataWindows.

Sintaxis Dwn.SelectRow (Fila, Boolean)

Ejemplo:

DwnSoftware.SelectRow(0,False) // desactiva la fila anterior

DwnSoftware.SelectRow(15,true) // resalta toda la fila 15

SetItem

Establece el valor en una fila y columna especificada, un valor dentro del datawindow, retorna -1 si ocurre un error.

Sintaxis DwnSoftware.Setitem (Fila, columna/campo, valor)

Ejemplo:

Dwn.SetItem(5, "sueldo",670)

En la fila 5, en el campo sueldo se asigna 670.

También en vez del nombre de campo, puede ser el número de campo de acuerdo como ha sido seleccionado en el objeto DataWindow.

GetItemString

Obtiene datos de tipo cadena de un buffer especificado de un control DataWindow.

SintaxisDwn.GetitemString (Fila, Columna)

Ejemplo

String cad

Cad=DwnSoftware.GetItemString(3, "sfw_Nombre")

Extrae el dato que se encuentra en el campo sfw_nombre, en la fila 3, dependiendo del tipo de dato que se va extraer tenemos:

Dwn.GetitemNumber (Fila, columna)

Cuando el campo es de manera general numérico, puede ser real o entero.

Dwn.GetitemDecimal (Fila, columna)

Cuando el dato a extraer es exclusivamente decimal o real.

Dwn.GetitemDate (Fila, columna)

Si el campo es de tipo fecha.

Dwn.GetitemTime (Fila, columna)

Si el campo es de tipo hora.

Dwn.GetitemDateTime (Fila, columna)

Cuando el campo es de tipo fecha y hora.

Ejemlo: Capturar en variables, sueldo del empleado, su edad y fecha de nacimiento del empleado, cuya posición se encuentre en la fila número 3.

Int edad

Dec Sbas

Date Fenac

Edad= DwnEmpleado.GetItemNumber(3,"emp_Edad")

Sbas= DwnEmpleado.GetItemDecimal(3, "emp_Sbas")

Fenac=DwnEmpleado.GetItemDate(3,"emp_Fenac")

Nombre del campos en la tabla.

Gettext

Obtiene el valor de un control de edicion en la fila y columna actuales, antes que este sea aceptado.

Sintaxis dwn.Gettext ()

Por ejemplo si este radio button se encuentra dentro del DataWindow, y al seleccionar una de estas opciones se desea saber su valor seleccionado basta emplear:

String Tmoneda

Tmoneda = DwnSalario.Gettext()

Setsort

Especifica, el criterio de ordenamiento para un DataWindow, retorna 1 si tuvo éxito y -1 si se encontro un error.

SintaxisDwn.SetSort (campo1 [A|D])

Ejemplo:

DwnEmpleado.setsort()

Dwn.Sort()

Ejecuta la clasificación con un previo criterio de selección

SintaxisDwn.Sort ()

Ejemplo:

DwnEmpleado.SetSort("emp_ape A, #2 D") // ordena apellido y sueldo asumiendo

// que el #2 sea el campo sueldo.

DwnEmpleado.Sort() // Procede al ordenamiento.

GetRow

Retorna el número de la fila actual de un DataWindow, como un valor Long,

Retorna 0 si no hay fila activa y -1 si se ha producido un error grave.

SintaxisDwn.GetRow ()

SetRow

Establece la fila deseada, mueve el cursor a la fila especificada, pero no hace Scroll en el DataWindow.

SintaxisDwn.SetRow (Fila)

ScrollToRow

Hace un Scroll en un DataWindow, hasta alcanzar la fila especificada.

ScrollToRow cambia la fila actual pero no la columna actual. Retorna 1 si hubo éxito, -1 en caso contrario. Scrolltorow no ilumina la fila a la cual se hace scroll.

Sintaxis Dwn.ScrolltoRow(fila)

Si la fila toma un valor mayor que el número total de la fila, se hace scroll a la última fila.

RowCount

Obtiene el número de filas que se encuentran disponibles en un DataWindow

Sintaxis Dwn.RowCount()

ScrollToRow

Causa que el control se deslice a la fila especificada, cambiando la fila actual, a donde se le indique.

Sintaxis Dwn.Scrolltorow(fila)

ScrollToPriorRow

Se desliza a la fila previa, sin cambiar la columna activa

Sintaxis Dwn.ScrollPriorRow(fila)

ScrollNextRow

Se desliza a la siguiente fila.

Sintaxis Dn.ScrollNextRow(fila)

DeleteRow

Suprime la fila especificada del control DataWindow, se actualiza directamente la tabla enlazada al control.

Sintaxis Dwn.DeleteRow(fila)

Si la fila es igual a cero, elimina la fila activa donde se encuentra el puntero, cada vez que se emplee esta sentencia, se tiene que actualizar el DataWindow ejemplo:

Dwn.deleteRow(8) // elimina la fila número 8

Dwn.Update() // actualiza la base de datos enlazada

DeletedCount

Retorna el número de filas que hayan sido suprimidas desde el control DataWindow pero que todavia no hayan sido actualizadas en la tabla de la BDD asociada.

SintaxisDwn.DeletedCount()

Ejemplo:

Long Nf

Nf=Dwn.DeletedCount()

Update

Se envia a la base de datos todas las inserciones, eliminaciones y actualizaciones del control DataWindow, retorna 1 si tuvo éxito, -1 si ocurrio un error.

SintaxisDwn.Update()






"ESTA INFORMACION HA SIDO COPIADA DE OTRA PAGINA DE INTERNET LA CUAL NO RECUERDO PERO SI LA ENCUENTRO DE NUEVO SUBIRE SU URL"

Gracias por visitar mi blog xD...

SergioOR.

lunes, 4 de febrero de 2008

Fobonacci en numeros romanos

Hola,
este día les traigo un programa que presente en la universidad en la materia de programación espero les sea de ayuda.
Este programa esta hecho en power builder.

---------codigo-----------------


double a,b,f,c1
Integer N
INt M, C, D, U
String S

if (Integer(Sle_numero.text) >0) then

MessageBox(" ","I")

a=0
b=1
for c1=1 to Integer(Sle_numero.text)-1
f=a+b

N=f

M=N / 1000
N=N - M * 1000
C=N / 100
N=N - C * 100
D= N / 10
U=N - D * 10

Choose case M
Case 1
S="M"
Case 2
S="MM"
case 3
S="MMM"
Case 4
S="MMMM"
Case 5
S="MMMMM"
case 6
S="MMMMMM"
Case 7
S="MMMMMMM"
Case 8
S="MMMMMMMM"
case 9
S="MMMMMMMMM"
End Choose


Choose case C
Case 1
S=S+"C"
Case 2
S=S+"CC"
case 3
S=S+"CCC"
Case 4
S=S+"CD"
Case 5
S=S+"D"
case 6
S=S+"DC"
Case 7
S=S+"DCC"
Case 8
S=S+"DCCC"
case 9
S=S+"CD"
End Choose


Choose case D
Case 1
Choose Case U
case 0
S=S+"X"
case 1
S=S+"XI"
case 2
S=S+"XII"
case 3
S=S+"XIII"
case 4
S=S+"XIV"
case 5
S=S+"XV"
case 6
S=S+"XVI"
case 7
S=S+"XVII"
case 8
S=S+"XVIII"
case 9
S=S+"XIX"
end choose
Case 2
S=S+"XX"
case 3
S=S+"XXX"
Case 4
S=S+"XL"
Case 5
S=S+"L"
case 6
S=S+"LX"
Case 7
S=S+"LXX"
Case 8
S=S+"LXXX"
case 9
S=S+"XC"
End Choose


If (D <> 1 )then

Choose case U
Case 1
S=S+"I"
Case 2
S=S+"II"
case 3
S=S+"III"
Case 4
S=S+"IV"
Case 5
S=S+"V"
case 6
S=S+"VI"
Case 7
S=S+"VII"
Case 8
S=S+"VIII"
case 9
S=S+"IX"
End Choose
end if

MessageBox(" ",string(s))

s=" "
a=b
b=f
next

else
MessageBox("Error","Introdusca un numero mayor a 0")
end if

//SergioOR

Gracias por visitar mi blog...

Nos vemos en la próxima aplicación xD....

jueves, 20 de diciembre de 2007

Palindrome

Hola amigos programadores y visitantes en general.

en esta ocasion les traigo un programa de los clasicos que nos ponen en las universidades o instituciones de estudio el cual conciste en estudiar una palabra y ver si es una palabra palindromica o no.

el programa esta hecho en C# y esta muy facil de comprender y como siempre digo "Menos palabras y mas codigo" aqui esta el codigo:


using System;

namespace Palindrom
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Escriba una palabra: ");
Console.WriteLine((palindrome(Console.ReadLine()))?"Si es palindrome":"No es palindrome");
Console.ReadLine();
}
public static bool palindrome(String palabra)
{
char[] inversa = palabra.ToCharArray();
Array.Reverse(inversa);
string strInversa = new string(inversa);
return palabra == strInversa;
}
}
}

este programa esta hecho en consola.

gracias por visitar mi blog.

adios nos vemos la proxima xD...

domingo, 25 de noviembre de 2007

fibonacci en assembly

Hola estimados lectores este dia he preparado algo muy util para las personas que esten en algun curso o alguna materia en la que vean lenguaje maquina (assembly) .
este es un programa que pide la entrada de un numero de 1-25 luego lo evalua y despliega la sucesión de Fibonacci en decimal y sus equivalentes en hexadecimal y para no aburrirlos mas con explicasiones no hay nada mejor que ponerlo en practica, aqui esta el codigo:


.model small
.stack 100h
.data
a dw 0
b dw 0
c dw 0
temp dw 0
zeroizq dw 0
convierte dw 10000,1000,100,10,1
linefeed db 13,10,'$'
inicioprog db 'serie fibonacci Mod sergioor.',13,10,'$'
peticion db 'introdusca numero de elementos de la serie (1-25):','$'
buffer db 32,32,'$'
longitud dw 0
tecla db 0
finprog db 13,10,'fin del programa.',13,10,'$'

.code
inicio:
mov ax,@data
mov ds,ax
mov ah,0
mov al,2
int 10h
mov ah,09h
lea dx,inicioprog
int 21h
mov ah,09h
lea dx,peticion
int 21h
call entrada
mov ah,09h
lea dx,linefeed
int 21h
mov a,0
mov b,1
cmp cx,0
je final
cmp cx,1
je final1
dec cx

ciclo:
mov ax,a
mov bx,b
add ax,bx
mov c,ax
push cx
call printa
pop cx
mov ax,b
mov a,ax
mov ax,c
mov b,ax
loop ciclo
final1:
call printa

final:
mov ah,09h
mov dx,offset finprog
int 21h
mov ah,4ch
int 21h
ret
entrada proc near
inient:
mov longitud,0
mov buffer,50
mov buffer+1,50
cicloent:
mov ah,02h
mov bh,0
mov dh,1
mov dl,50
int 10h
mov ah,09h
lea dx,buffer
int 21h
mov ah,07h
int 21h
cmp al,39h
jg cicloent
cmp al,0dh
je finentrada
cmp al,08h
jne siguiente
cmp longitud,0
jne quitacar
mov buffer,32
jmp cicloent

quitacar:
lea bx,buffer
mov si,longitud
mov dl,32
mov [bx+si],dl
dec longitud
jmp cicloent
siguiente:
cmp al,30
jl cicloent
cmp longitud,2
je cicloent
lea bx,buffer
mov si,longitud
mov [bx+si],al
inc longitud
jmp cicloent

ayudasalto:
jmp inient

finentrada:
cmp longitud,0
je inient
cmp longitud,1
je convierteuno
mov al,buffer
sub al,30h
mov bl,10
mul bl
cmp ah,0
jne ayudasalto
add al,buffer+1
sub al,30h
cmp al,25
jg ayudasalto
mov cl,al
mov ch,0
ret

convierteuno:
mov al,buffer
sub al,30h
mov cl,al
mov ch,0
ret
entrada endp

printa proc near
mov zeroizq,0
mov bx,offset convierte
mov di,0
mov ax,a
mov temp,ax

cicloprint:
mov ax,temp
mov dx,0
mov cx,[bx+di]
div cx
mov temp,dx
add ax,48
cmp al,48
je imprime
mov zeroizq,1
imprime:
cmp zeroizq,0
jz noimprimir
mov dl,al
call iprim1r2

noimprimir:
inc di
inc di
cmp di,8
jl cicloprint
mov zeroizq,1
cmp di,8
je cicloprint
mov dl,'='
call iprim1r2
mov dl,' '
call iprim1r2
mov bx,a
mov al,bh
call printhexa
mov al,bl
call printhexa
mov dl,'h'
call iprim1r2
mov ah,09h
mov dx,offset linefeed
int 21h
ret
m21hP:


printa endp

printhexa proc near
push ax
and al,240
shr al,1
shr al,1
shr al,1
shr al,1
call printhexachar
pop ax
and al,0fh
call printhexachar
ret
printhexa endp


printhexachar proc near
cmp al,0ah
jge letra
add al,30h
mov dl,al
call iprim1r2
ret
letra:
add al,37h
mov dl,al
call iprim1r2
ret
printhexachar endp


iprim1r2 proc near
mov ah,2
int 21h
ret
iprim1r2 endp

end inicio



espero les sea de ayuda.

nos vemos despues....