Sergioor's blog

Invitaciones para Lockerz

2010-03-01T21:58:00.003-06:00

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!

Crear un cubo con VB.net

2008-04-02T22:57:00.003-06:00

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...

Gana Dinero Electronico

2008-03-22T18:37:00.002-06:00

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/

Funciones principales de un Datawindows en Power Builder

2008-02-11T15:22:00.000-06:00

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.

Fobonacci en numeros romanos

2008-02-04T14:26:00.000-06:00

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....

Palindrome

2007-12-20T17:51:00.000-06:00

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...

fibonacci en assembly

2007-11-25T10:10:00.000-06:00

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....

Enviar correo electronico usando C# y Gmail

2007-11-20T12:57:00.000-06:00

hola amigos hoy vengo con un codigo muy interesante y que podria serles de gran ayuda en su vida de programacion...

este codigo te ayudara a enviar correos electronicos a cuentas de Gmail y tambien lo podrias modificar los puertos a utilizar si quisieras enviar a correos de otros servidores...

este es el codigo completo ( el programa esta hacho en consola con C# 2005):

using System;
using System.Collections;
using System.Net;
using System.Net.Mail;
using System.Net.Mime;

public class EjemploCorreoGMail
{
public static void Main()
{
System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage();
msg.To.Add("Correo_Electronico_del_destinatario@dominio.com");
msg.From = new MailAddress("Tu_Correo@gmail.com", "Tu Nombre", System.Text.Encoding.UTF8);
msg.Subject = "Asunto";
msg.SubjectEncoding = System.Text.Encoding.UTF8;
msg.Body = "Cuerpo del mensaje";
msg.BodyEncoding = System.Text.Encoding.UTF8;
msg.IsBodyHtml = false;

SmtpClient client = new SmtpClient();
client.Credentials = new System.Net.NetworkCredential("Tu_Correo@gmail.com", "Tu_Clave");
client.Port = 587;
client.Host = "smtp.gmail.com";
client.EnableSsl = true;
try
{
client.Send(msg);
}
catch (System.Net.Mail.SmtpException ex)
{
Console.WriteLine(ex.Message);
Console.ReadLine();
}
}
}

espero les sirva este codigo para alguna de sus aplicasiones xD

nos vemos luego....

limpiar informacion de controles en C#

2007-11-17T21:56:00.000-06:00

hola amigos lectores este día les traigo algo muy útil a la hora de programar lo cual es limpiar la información contenida en los controles de un formulario como lo puede ser un textbox, treeview, combobox, listbox, etc...

para el textbox (se que para algunos no es necesario pero recuerden a los principiantes q alguna ves fuimos también):

textbox.Clear();

para el combobox:

combobox.Items.Clear();

para el treeview:

treeview.Nodes.Clear();

para el listbox:

listbox.Items.Clear();

en un datgrid:

datgrid.Datasource = null;
datgrid.DataBind();

estos son los controles mas usados si ustedes necesitan algun control en especifico porfavor aganmelo saver que yo intentare ayudarlos con lo que pueda.

hasta mañana...

Cargar informacion de base de datos en Combobox C# y VB

2007-11-15T21:38:00.000-06:00

Hola amigos lectores ya estoy de regreso y esta ves con algo que un amigo utilizo en uno de sus proyectos de la universidad y que me llamo mucho la atencion ya que como todos sabemos cargar un datagrid con la informacion de una tabla pero ¿cargar un combobox con una columna de una tabla de la base de datos?, ademas el ingeniero que nos impartia la materia de programacion no nos permitia usar asistentes ya que el decia que eso no es programar asi que teniamos que hacer todo con puro codigo.

pues como decia les mostrare una forma facil de llenar un combobox.

cuando mi amigo me pregunto como llenar el combobox yo pense en un "for" o un "foreach" pero teniamos poco tiempo asi que decidi investigar un poco y el resultado fue este:

en C#:
SqlConnection SRconnection = new SqlConnection("Data Source =; Initial Catalog = BASE_DE_DATOS; Integrated Security = SSPI");

DataSet ds = new DataSet();

SqlDataAdapter da = new SqlDataAdapter("Select COLUMNA From TABLA", SRconnection);
da.Fill(ds, "TABLA");
comboBox1.DataSource = ds.Tables[0].DefaultView;
comboBox1.ValueMember="COLUMNA";

en VB:

Dim SRconnection As New SqlClient.SqlConnection("Data Source =; Initial Catalog = BASE_DE_DATOS; Integrated Security = SSPI")

Dim da As New SqlClient.SqlDataAdapter("Select COLUMNA From TABLA", SRconnection )

Dim ds As New DataSet

da.Fill(ds, "TABLA")

comboBox1.DataSource = ds.Tables(0)

comboBox1.ValueMember = "COLUMNA "

bueno espero averlos ayudado queridos amigos...

inicio

2007-11-15T14:15:00.000-06:00

hola amigos este dia he abierto mi blog llamado sergioor's blog espero poder compartir con ustedes un poco de lo que he aprendido en la universidad y poder resolver una o varias de sus dudas o problemas en el area informatica.

mas adelante publicare codigo de programas que les podrian servir en los lenguajes de programacion que yo conosco por el momento los cuales son C# VB ambos de las versiones .net 2003 en adelante y ruby el cual tengo un conocimiento menor al de los 2 anteriores ademas proximamente espero poder ayudarles en lenguaje ensamblador y power builder.

por el momento no me queda mas que despedirme de ustedes ya que en las ultimas semanas no he dormido bien ya que he estado en clases y acabo de salir del ultimo parcial jejeje espero que Dios me ayude ya que hera una de esas materias de reyeno de mi carrera y no estudie lo suficiente para ella, ademas tengo mucho sueño y creo que ire a dormir y espero descansar bien y poder subir mi primer aporte de programacion mañana.

nos vemos mañana.....