Sergioor's blog

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),

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/

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) Inse

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