Search the Community

Salam, Hello, Hi Today i am showing you some new styles of progress bar i don't know if anyone posted a thing like this on thins forum _GUICtrlCreateProgress This UDF allows you to create new style progress bar Colors, Values can be changed by using native functions of autoit i created this script years ago while i was not on this forum now i think it should be shared on this forum check this out if anyone is interested any help is greatly appreciated NEW $PBSC_LINE_LEFT_TO_TIGHT changed to $PBSC_LINE_LEFT_TO_RIGHT New Style Progressbar.rar old New Style Progressbar.rar

Hello friends, I could help because I tried to make a progress bar that I check the progress of my script, thank you for your cooperation. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $date = @MDAY & "/" & @MON & "/" & @YEAR #Region ### START Koda GUI section ### Form=c:\users\juan.caballeron\desktop\ \programacion\autoit\capturas\koda_1.7.3.0\forms\grabar capturas.kxf $Form1_1 = GUICreate("WhiteSnake... Para Colaboración de los compañeros, Pan y Gaseosa Diariamente para Caballo.", 686, 518, -1, -1) $MenuItem1 = GUICtrlCreateMenu("&Capturas") $MenuItem2 = GUICtrlCreateMenu("&Vehiculos") GUISetIcon("C:\Users\juan.caballeron\Desktop\ \Programacion\Autoit\Capturas\koda_1.7.3.0\iconos\Avatar on ice-256.ico", -1) GUISetCursor (7) GUISetBkColor(0xA6CAF0) $hechos = GUICtrlCreateGroup("Hechos", 16, 32, 449, 209) GUICtrlSetColor(-1, 0x000000) $box_fechah = GUICtrlCreateInput("", 112, 80, 81, 21);==== Fecha de Hecho GUICtrlSetLimit(-1, 10) $box_hora = GUICtrlCreateInput("", 112, 120, 81, 21);==== Hora GUICtrlSetLimit(-1, 5) $box_fechaf = GUICtrlCreateInput("", 112, 160, 81, 21);==== Fecha Fuente GUICtrlSetLimit(-1, 10) $box_fte = GUICtrlCreateInput("", 112, 200, 81, 21);==== Numero de fuente GUICtrlSetLimit(-1, 6) $Label3 = GUICtrlCreateLabel("Fecha Hecho:", 24, 80, 72, 17) $Label4 = GUICtrlCreateLabel("Hora:", 24, 120, 30, 17) $Label5 = GUICtrlCreateLabel("Fecha Fuente:", 24, 160, 73, 17) $Label6 = GUICtrlCreateLabel("Nro. Fuente:", 24, 200, 63, 17) $lbldirec = GUICtrlCreateLabel("Dirección de Caso", 264, 48, 91, 17) $lbl1 = GUICtrlCreateLabel("1.", 216, 88, 13, 17) $lbl2 = GUICtrlCreateLabel("2.", 216, 120, 13, 17) $boxcl = GUICtrlCreateCombo("", 240, 88, 41, 21);==== CALLE GUICtrlSetData($boxcl, "CL|KR|DG|TR") $numcl = GUICtrlCreateInput("", 288, 88, 41, 21);==== Número de Calle GUICtrlSetLimit(-1, 3) $comcl = GUICtrlCreateInput("", 336, 88, 41, 21);==== Composicion Calle GUICtrlSetLimit(-1, 4) $boxkr = GUICtrlCreateCombo("", 240, 120, 41, 21);==== Carrera GUICtrlSetData($boxkr, "CL|KR|DG|TR") $numkr = GUICtrlCreateInput("", 288, 120, 41, 21);==== Numero de Carrera GUICtrlSetLimit(-1, 3) $comkr = GUICtrlCreateInput("", 336, 120, 41, 21);=== Composicion Carrera GUICtrlSetLimit(-1, 4) $num2kr = GUICtrlCreateInput("", 384, 120, 41, 21);=== Complemento Carrera $pcardinal = GUICtrlCreateCombo("", 232, 160, 201, 21);==== Punto Cardinal GUICtrlSetData($pcardinal, "Sur|Norte|Oriente|Occidente") $noticia = GUICtrlCreateInput("", 232, 200, 201, 21);=== Noticia Criminal GUICtrlSetLimit(-1, 21) $Label13 = GUICtrlCreateLabel("P. Cardinal", 304, 144, 55, 17) $Label18 = GUICtrlCreateLabel("Tipo", 248, 72, 25, 17) $Label19 = GUICtrlCreateLabel("Num.", 296, 72, 29, 17) $Label20 = GUICtrlCreateLabel("Com.", 344, 72, 28, 17) $Label21 = GUICtrlCreateLabel("_______", 384, 88, 46, 17) $Label22 = GUICtrlCreateLabel("No. Noticia", 304, 184, 57, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $personas = GUICtrlCreateGroup("Datos de la Persona", 16, 256, 665, 185) $Label1 = GUICtrlCreateLabel("Tipo Identificación:", 32, 288, 94, 17) $Label2 = GUICtrlCreateLabel("No. Documento:", 32, 312, 82, 17) $Label7 = GUICtrlCreateLabel("Apellidos", 32, 336, 46, 17) $Label8 = GUICtrlCreateLabel("Nombres", 32, 360, 46, 17) $Label9 = GUICtrlCreateLabel("Sexo", 32, 384, 28, 17) $Label10 = GUICtrlCreateLabel("Fecha Nacimiento", 32, 408, 90, 17) $Combo1 = GUICtrlCreateCombo("", 128, 288, 49, 21);=== Tipo de Identificación GUICtrlSetData($combo1,"TI|CC|CE|PS|RC") $documento = GUICtrlCreateInput("", 128, 312, 193, 21);=== Número de Identificación $apellidos = GUICtrlCreateInput("", 128, 336, 377, 21);=== Apellidos $nombres = GUICtrlCreateInput("", 128, 360, 377, 21);=== Nombres $Combo2 = GUICtrlCreateCombo("", 128, 384, 49, 21);====SEXO GUICtrlSetData($Combo2,"Mas|Fem") $fecha_naci = GUICtrlCreateInput("", 128, 408, 81, 21);=== Fecha Nacimiento GUICtrlSetLimit(-1, 10) $Label16 = GUICtrlCreateLabel("Use T. para Tarjeta y C. para Cédula.", 184, 288, 180, 17) $Label17 = GUICtrlCreateLabel("M. Masculino y F. Femenino", 184, 384, 136, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $datoscap = GUICtrlCreateGroup("Datos Capturas", 480, 32, 201, 209) $Label11 = GUICtrlCreateLabel("Tipo", 496, 80, 25, 17) $Label12 = GUICtrlCreateLabel("Fecha OJ", 496, 120, 50, 17) $Label14 = GUICtrlCreateLabel("Número OJ", 496, 160, 57, 17) $Label15 = GUICtrlCreateLabel("Delito", 496, 184, 31, 17) $tipocap = GUICtrlCreateCombo("", 560, 80, 97, 21);=== Tipo de Captura GUICtrlSetData($tipocap,"Flagrancia|Orden Judicial") $fechaoj = GUICtrlCreateInput("", 560, 120, 97, 21);=== Fecha de la Orden GUICtrlSetLimit(-1, 10) $numoj = GUICtrlCreateInput("", 560, 160, 97, 21);=== Número de la orden $delitocap = GUICtrlCreateInput("", 496, 200, 169, 21);=== Delito GUICtrlCreateGroup("", -99, -99, 1, 1) $Titulo = GUICtrlCreateLabel("PROCESO PARA GRABAR CAPTURAS EN EL SIEDCO.", 175, 8, 277, 17, $SS_CENTER) GUICtrlSetCursor (-1, 3) $Progress1 = GUICtrlCreateProgress(512, 472, 169, 9, BitOR($WS_BORDER,$WS_CLIPSIBLINGS)) GUICtrlSetCursor (-1, 15) $creador = GUICtrlCreateLabel("By WhiteSnake", 16, 472, 78, 17) GUICtrlSetColor(-1, 0xFF0000) $iniciar = GUICtrlCreateButton("INICIAR PROCESO", 360, 464, 145, 25) GUICtrlSetCursor (-1, 0) $Icon1 = GUICtrlCreateIcon("C:\Users\juan.caballeron\Desktop\ \Programacion\Autoit\Capturas\koda_1.7.3.0\iconos\1249549841170809086.ico", -1, 96, 464, 32, 32) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Local $sComboRead1 = "" Local $sComboRead2 = "" Local $sComboRead3 = "" Local $sComboRead4 = "" Local $sComboRead5 = "" Local $sComboRead6 = "" Local $sComboRead7 = "" Local $sComboRead8 = "" Local $sComboRead9 = "" Local $sComboRead10 = "" Local $sComboRead11 = "" Local $sComboRead12 = "" Local $sComboRead13 = "" Local $sComboRead14 = "" Local $sComboRead15 = "" Local $sComboRead16 = "" Local $sComboRead17 = "" Local $sComboRead18 = "" Local $sComboRead19 = "" Local $sComboRead20 = "" Local $sComboRead21 = "" Local $sComboRead22 = "" Local $sComboRead23 = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $iniciar $sComboRead1 = GUICtrlRead($box_fechah);========================== Fecha de Hecho $sComboRead2 = GUICtrlRead($box_hora);============================ Hora $sComboRead3 = GUICtrlRead($box_fechaf);========================== Fecha Fuente $sComboRead4 = GUICtrlRead($box_fte);============================= Numero de fuente $sComboRead5 = GUICtrlRead($boxcl);=============================== Calle $sComboRead6 = GUICtrlRead($numcl);=============================== Número de Calle $sComboRead7 = GUICtrlRead($comcl);=============================== Composicion Calle $sComboRead8 = GUICtrlRead($boxkr);=============================== Carrera $sComboRead9 = GUICtrlRead($numkr);=============================== Numero de Carrera $sComboRead10 = GUICtrlRead($comkr);============================== Composicion Carrera $sComboRead11 = GUICtrlRead($num2kr);============================= Complemento Carrera $sComboRead12 = GUICtrlRead($pcardinal);========================== Punto Cardinal $sComboRead13 = GUICtrlRead($noticia);============================ Noticia Criminal $sComboRead14 = GUICtrlRead($Combo1);============================= Tipo de Identificación $sComboRead15 = GUICtrlRead($documento);========================== Número de Identificación $sComboRead16 = GUICtrlRead($apellidos);========================== Apellidos $sComboRead17 = GUICtrlRead($nombres);============================ Nombres $sComboRead18 = GUICtrlRead($Combo2);============================= Sexo $sComboRead19 = GUICtrlRead($fecha_naci);========================= Fecha Nacimiento $sComboRead20 = GUICtrlRead($tipocap);============================ Tipo de Captura $sComboRead21 = GUICtrlRead($fechaoj);============================ Fecha de la Orden $sComboRead22 = GUICtrlRead($numoj);============================== Número de la orden $sComboRead23 = GUICtrlRead($delitocap);========================== Delito If $sComboRead1 = "" Then MsgBox(16,"Error","El Campo de la Fecha de hecho esta vacío") Else If $sComboRead1 > $date Then MsgBox(16,"Error", "La fecha no puede ser superior al día de hoy") Else If $sComboRead2 = "" Then MsgBox(16,"Error","El Campo de la Hora esta vacío") Else If $sComboRead3 = "" Then MsgBox(16,"Error","El Campo de la Fecha de Fuente esta vacío") Else If $sComboRead3 > $date Then MsgBox(16,"Error", "La fecha de fuente no puede ser superior al día de hoy") Else If $sComboRead4 = "" Then MsgBox(16,"Error","El Número de Fuente esta vacío") Else If $sComboRead5 = "" Then MsgBox(16,"Error","Datos de la dirección Incompletos") Else If $sComboRead6 = "" Then MsgBox(16,"Error","Datos de la dirección Incompletos") Else If $sComboRead8 = "" Then MsgBox(16,"Error","Datos de la dirección Incompletos") Else If $sComboRead9 = "" Then MsgBox(16,"Error","Datos de la dirección Incompletos") Else If $sComboRead12 = "" Then MsgBox(16,"Error","No Hay Punto Cardinal") Else If $sComboRead14 = "" Then MsgBox(16,"Error","Seleccione Tipo de Documento") Else If $sComboRead15 = "" Then MsgBox(16,"Error","Campo de Documento Vacío") Else If $sComboRead16 = "" Then MsgBox(16,"Error","Apellido Vacío") Else If $sComboRead17 = "" Then MsgBox(16,"Error","Nombre Vacío") Else If $sComboRead18 = "" Then MsgBox(16,"Error","Sexo Vacío") Else If $sComboRead19 = "" Then MsgBox(16,"Error","Fecha de nacimiento vacía");=============== Pendiente lo del calculo de la fecha de nacimiento ============== Else If $sComboRead19 >= $date Then MsgBox(16,"Error", "¿Que? Es que nació hoy? O no ha nacido?") Else If $sComboRead20 = "" Then MsgBox(16,"Error","Seleccione Tipo de Captura") Else If $sComboRead20 = "Flagrancia" And $sComboRead13 = "" Then MsgBox(16,"Error", "Si es flagrancia, debe llevar número de noticia.") Else If $sComboRead20 = "Orden Judicial" And $sComboRead21 ="" Then MsgBox(16,"Error","Si Es Orden Judicial Llene Los Datos De Forma Correcta Falta Fecha") Else If $sComboRead20 = "Orden Judicial" And $sComboRead22 ="" Then MsgBox(16,"Error","Si Es Orden Judicial Llene Los Datos De Forma Correcta Falta Número") Else Run("notepad.exe") WinWait("Sin título: Bloc de notas") WinActivate("Sin título: Bloc de notas") Send ($sComboRead1) EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndSwitch WEnd I will introduce a longer code, but because I need to see if I explain how to set it up to check the progress of the process.