Visual Basic 6.0
Mostrar más instrucciones
1
Crear un formulario en Visual Basic para mantener la interfaz de usuario de este programa . Abra Visual Basic y elija "EXE estándar " de la pantalla de la plantilla. Haga doble clic en los controles que se enumeran a continuación de la " caja de herramientas " que aparece a la izquierda de la pantalla. A medida que cada uno aparece en el formulario , haga clic en él y arrastrarlo a la ubicación especificada
Checkbox1 : . Arrastre hacia arriba a la izquierda de formCheckbox2 : Arrastre a la derecha superior de formLabel1 : Drag abajo Checkbox1Textbox1 : Drag abajo Checkbox2CommandButton1 : Centro de continuación arriba controlsLabel2 : Centro abajo CommandButton1CommandButton2 : Centro abajo Label2
2
Añadir subtítulos en el cuadro "Propiedades " a la derecha de la pantalla para cada uno de estos controles. Haga esto haciendo clic en cada uno, que trae a colación el control seleccionado en el cuadro " Propiedades" . La propiedad " Leyenda " en orden alfabético en la lista de propiedades. Cambiar el título predeterminado o el texto que aparece a continuación. Utilice el control de arrastre en el formulario de Control para acomodar el texto añadido. No utilice las comillas a continuación
Checkbox1 leyenda: ". Restar días de fiesta federales ? " CheckBox2 leyenda: " Año bisiesto ? " Label1 subtítulo: " ¿Cuántos días de fiesta adicionales " TextBox1 : Eliminar la propiedad "Texto" en el list.CommandButton1 : "Calcular días Hábiles" . Cambiar el " ( nombre)" propiedad de " Calcular" Label2 : . Eliminar el título si present.CommandButton2 : . "Exit "
3
Haga doble clic en el " Cálculo de Días Hábiles" botón para abrir la ventana de código . Al hacer esto dos líneas de visualización del código de forma predeterminada, "Private Sub Calculate_Click ()" y " End Sub ". Configure la primera parte de la codificación para calcular días hábiles mediante la introducción de las siguientes líneas entre estas dos líneas predeterminadas:
EndDate Dim , CURDATE Como DateDim BusDay , TotBusDays , CalcYear Como IntegerTotBusDays = 0CalcYear = InputBox ( " ¿En qué año ? ") CURDATE = " 1/1 /"& CalcYearEndDate =" 12/31 /"& CalcYearDo Hasta CURDATE = EndDateBusDay = Format ( CURDATE , " w ") Select Case BusDayCase " 2 " a" 6 " TotBusDays = TotBusDays + 1 caso " 1 " ' No nothingCase " 2 ", " hacer nothingEnd SelectCurDate = DateAdd ("d " , 1 , CURDATE ) Loop
4
agregar código adicional para compensar los días festivos. Diez días de fiesta federales por lo general significa menos 10 días de trabajo , incluso cuando el día festivo cae en un fin de semana porque la mayoría de los empleadores conceden viernes o lunes de compensación. Si esto no se aplica en su caso , modificar el valor de la "¿Cuántos días de fiesta adicionales " cuadro de entrada cuando el programa se ejecuta . Por ejemplo, si usted no recibe días de descanso para unas vacaciones , reducir o introducir un número negativo en esa caja. Escriba el siguiente código justo debajo de la última línea en el paso 3
Si Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" No " y TotBusDays y " día de negocios en "& CalcYear
5
Ofrece al usuario una forma fácil de salir del programa. En el formulario, haga doble clic en el botón " Salir". Escriba la palabra "End" entre el "Sub Command2_Click Privado ()" y "End Sub " que se ven en la sección de código .
6
Haga clic en el propio formulario y cambie la propiedad Caption del formulario para leer " Calcular días Hábiles" . Haga clic en "Archivo " y luego "Guardar proyecto como. " Elija una carpeta para el programa y el nombre del proyecto "Calcular Días Hábiles" . Haga clic en " Aceptar", y luego presione "F5 " para ejecutar el programa.