Problema de la barra de progreso del lenguaje simple

Te damos el código completo:

.Versión 2

.Ventana de ensamblaje ensamblaje 1

.Variable de ensamblaje NN, entero

.Subroutine__Launch Window_Created

NN = 0

Reloj 1. Ciclo de reloj = 100

Etiqueta 1. Título = "Cargando componente (0/ 5)"

.Subroutine_clock1_cycle event

ProgressBar1.position = ProgressBar1.position + 1

.Si es verdadero (progressbar1.position = 100)

.If (NN < 5)

NN = NN + 1

Etiqueta 1.Título = "Cargando componente (" + al texto (NN) + " /5)"

. De lo contrario

Reloj 1.Período de reloj = 0

Retorno ()

.Si finaliza

Barra de progreso 1.posición =. 0

.Si es verdadero final

.Versión 2

.Ventana de ensamblaje ensamblaje 1

.Variable de conjunto de programa NN, entero

.Subrutina __Launch Window_Created

NN = 0

Reloj 1. Ciclo de reloj = 100

Etiqueta 1. Título = "Cargando componente (0 /5)"

.Evento Subroutine_clock1_cycle

ProgressBar1.position = ProgressBar1.position + 1

.Si es verdadero (progressbar1.position = 100)

.If (NN < 5)

NN = NN + 1

Etiqueta 1 .Título = "Cargando componente (" + al texto (NN ) + "/5)"

.De lo contrario

Reloj 1.Período de reloj = 0

Retorno ()

.Si termina

Barra de progreso 1.posición = 0

.Si es cierto termina