Datorium datorium

## main_page.html
<html>
   <head>
      <meta charset="utf-8">
      <meta name="viewport" content="width=device-width, initial-scale=1">
      <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/css/bootstrap.min.css">
      <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.5.1/jquery.min.js"></script>
      <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.16.0/umd/popper.min.js"></script>
      <script src="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/js/bootstrap.min.js"></script>
      <title>Mana viesu grāmata</title>
   </head>

## Datorium_Online_Project_4
Public Class Form1
    Private Sub UpdoSelector_ValueChanged(sender As Object, e As EventArgs) Handles updoSelector.ValueChanged
        If updoSelector.Value <= 100 And updoSelector.Value >= 0 Then
            progProgress.Value = updoSelector.Value
        End If
    End Sub

    Private Sub ButnStart_Click(sender As Object, e As EventArgs) Handles butnStart.Click
        Timer1.Start()
        Timer2.Start()

## Datorium_Online_Project_3
Public Class Form1
    Private Sub CheckEnable_CheckedChanged(sender As Object, e As EventArgs) Handles checkEnable.CheckedChanged
        If checkEnable.Checked Then
            butnImportant.Enabled = True
        Else
            butnImportant.Enabled = False
        End If
    End Sub

    Private Sub RadioEnable_CheckedChanged(sender As Object, e As EventArgs) Handles radioEnable.CheckedChanged

## Datorium_Online_Project_2
Public Class Form1
    Private Sub ButnRight_Click(sender As Object, e As EventArgs) Handles butnRight.Click
        pboxObject.Left = pboxObject.Left + 5
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub ButnLeft_Click(sender As Object, e As EventArgs) Handles butnLeft.Click
        pboxObject.Left -= 5
        lablLeftDist.Text = pboxObject.Left

## isl_traffic_lights
Option Explicit

Sub start_Click()

Dim ws As Worksheet
Dim blink_counter As Integer

Set ws = Application.ThisWorkbook.Worksheets("street_lights")

Do

## clock
Option Explicit

Sub start_Click()

Dim ws As Worksheet
Dim arr_sec As Shape
Dim arr_min As Shape
Dim r, g, b As Integer

Dim seconds_counter As Integer

## traffic_lights
Option Explicit

Sub button_start_Click()

Dim ws As Worksheet
Dim fixed_timer As Double
Dim blink_counter As Integer

Set ws = Application.ThisWorkbook.Worksheets("traffic_lights")

## digital_clock_VBA
Sub ButtonStart_Click()

Dim wb As Workbook
Dim ws As Worksheet
Dim arrow_seconds As Shape
Dim time_counter As Integer
Dim arrow_minutes As Shape
Dim new_time As Double

Set wb = Application.ThisWorkbook

## gist:40e702bb025a9578c20b727a36d6da1a
Sub FallingBall()

Dim wb As Workbook
Dim ws As Worksheet
Dim ball As Shape
Dim ground As Shape
Dim i As Integer

Set wb = Application.ThisWorkbook
Set ws = wb.Worksheets("canvas")

## form_shapes
Option Explicit

Private Sub butnClose_Click()

Unload formColorShapes

End Sub

Private Sub butnColorRandom_Click()
	<html>
	<head>
	<meta charset="utf-8">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/css/bootstrap.min.css">
	<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.5.1/jquery.min.js"></script>
	<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.16.0/umd/popper.min.js"></script>
	<script src="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/js/bootstrap.min.js"></script>
	<title>Mana viesu grāmata</title>
	</head>
	Public Class Form1
	Private Sub UpdoSelector_ValueChanged(sender As Object, e As EventArgs) Handles updoSelector.ValueChanged
	If updoSelector.Value <= 100 And updoSelector.Value >= 0 Then
	progProgress.Value = updoSelector.Value
	End If
	End Sub

	Private Sub ButnStart_Click(sender As Object, e As EventArgs) Handles butnStart.Click
	Timer1.Start()
	Timer2.Start()
	Public Class Form1
	Private Sub CheckEnable_CheckedChanged(sender As Object, e As EventArgs) Handles checkEnable.CheckedChanged
	If checkEnable.Checked Then
	butnImportant.Enabled = True
	Else
	butnImportant.Enabled = False
	End If
	End Sub

	Private Sub RadioEnable_CheckedChanged(sender As Object, e As EventArgs) Handles radioEnable.CheckedChanged
	Public Class Form1
	Private Sub ButnRight_Click(sender As Object, e As EventArgs) Handles butnRight.Click
	pboxObject.Left = pboxObject.Left + 5
	lablLeftDist.Text = pboxObject.Left
	lablTopDist.Text = pboxObject.Top
	End Sub

	Private Sub ButnLeft_Click(sender As Object, e As EventArgs) Handles butnLeft.Click
	pboxObject.Left -= 5
	lablLeftDist.Text = pboxObject.Left
	Option Explicit

	Sub start_Click()

	Dim ws As Worksheet
	Dim blink_counter As Integer

	Set ws = Application.ThisWorkbook.Worksheets("street_lights")

	Do
	Option Explicit

	Sub button_start_Click()

	Dim ws As Worksheet
	Dim fixed_timer As Double
	Dim blink_counter As Integer

	Set ws = Application.ThisWorkbook.Worksheets("traffic_lights")
	Sub ButtonStart_Click()

	Dim wb As Workbook
	Dim ws As Worksheet
	Dim arrow_seconds As Shape
	Dim time_counter As Integer
	Dim arrow_minutes As Shape
	Dim new_time As Double

	Set wb = Application.ThisWorkbook
	Sub FallingBall()

	Dim wb As Workbook
	Dim ws As Worksheet
	Dim ball As Shape
	Dim ground As Shape
	Dim i As Integer

	Set wb = Application.ThisWorkbook
	Set ws = wb.Worksheets("canvas")
	Option Explicit

	Private Sub butnClose_Click()

	Unload formColorShapes

	End Sub

	Private Sub butnColorRandom_Click()