107 lines
3.9 KiB
VB.net
107 lines
3.9 KiB
VB.net
|
Public Class frmSplash
|
|||
|
|
'Declares the variable used for counting down the loading
|
|||
|
|
Dim Count As Integer = 0
|
|||
|
|
'Declares the variable used for the first half of the loading phrases
|
|||
|
|
Dim LiesP1(11) As String
|
|||
|
|
'Declares the variable used for the second half of the loading phrases
|
|||
|
|
Dim LiesP2(11) As String
|
|||
|
|
|
|||
|
|
'Subroutine runs when the form loads
|
|||
|
|
Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
'Enables the timer used to simulate a loading
|
|||
|
|
tmrLoading.Enabled = True
|
|||
|
|
|
|||
|
|
'Runs the loading phrase generation subroutine
|
|||
|
|
Lies()
|
|||
|
|
|
|||
|
|
'Runs the random number generator subroutine
|
|||
|
|
Randomize()
|
|||
|
|
|
|||
|
|
'Declares the variable used for the first half of the loading phrases
|
|||
|
|
Dim Lie1 As Integer = CInt(Int(5 * Rnd()) + 1)
|
|||
|
|
'Declares the variable used for the second half of the loading phrases
|
|||
|
|
Dim Lie2 As Integer = CInt(Int(5 * Rnd()) + 1)
|
|||
|
|
|
|||
|
|
'Creates a loading phrase
|
|||
|
|
lblLies.Text = LiesP1(Lie1) & " " & LiesP2(Lie2)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Subroutine runs when called in the form load sub
|
|||
|
|
Sub Lies()
|
|||
|
|
'Fills the first half of the loading phrase with possible words
|
|||
|
|
LiesP1(1) = "Triangulating"
|
|||
|
|
LiesP1(2) = "Decoding"
|
|||
|
|
LiesP1(3) = "Turtling"
|
|||
|
|
LiesP1(4) = "Calculating"
|
|||
|
|
LiesP1(5) = "Transcoding"
|
|||
|
|
LiesP1(6) = "Observing"
|
|||
|
|
LiesP1(7) = "Translating"
|
|||
|
|
LiesP1(8) = "Hypothesising"
|
|||
|
|
LiesP1(9) = "Polymorphing"
|
|||
|
|
LiesP1(10) = "Flipping"
|
|||
|
|
LiesP1(11) = "Reticulating"
|
|||
|
|
|
|||
|
|
'Fills the second half of the loading phrase with possible words
|
|||
|
|
LiesP2(1) = "code"
|
|||
|
|
LiesP2(2) = "sums"
|
|||
|
|
LiesP2(3) = "hexagons"
|
|||
|
|
LiesP2(4) = "rolls"
|
|||
|
|
LiesP2(5) = "beeps"
|
|||
|
|
LiesP2(6) = "compulsion"
|
|||
|
|
LiesP2(7) = "singularity engine"
|
|||
|
|
LiesP2(8) = "boops"
|
|||
|
|
LiesP2(9) = "the machine spirit"
|
|||
|
|
LiesP2(10) = "observance"
|
|||
|
|
LiesP2(11) = "splines"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Subroutine runs when timer is enabled
|
|||
|
|
Private Sub tmrLoading_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoading.Tick
|
|||
|
|
'Runs the random number generator subroutine
|
|||
|
|
Randomize()
|
|||
|
|
|
|||
|
|
'Declares the variable used for determining how big a step to take
|
|||
|
|
Dim Tick As Integer
|
|||
|
|
'Declares the variable used for keeping the timer from stepping out-of-bounds
|
|||
|
|
Dim Check As Integer = 10
|
|||
|
|
|
|||
|
|
'If there is more than 10 counts remaining in the timer...
|
|||
|
|
If progLoading.Value < 990 Then
|
|||
|
|
'Sets the step size as a random number between 0-9
|
|||
|
|
Tick = CInt(Int(10 * Rnd()))
|
|||
|
|
'If there are only 10 counts remaining...
|
|||
|
|
Else
|
|||
|
|
'Sets the step size as a random number within the bounds of the timer
|
|||
|
|
Tick = CInt(Int((1000 - progLoading.Value) * Rnd()) + 1)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'On each tick of the timer, 'Count' is increased by the step size
|
|||
|
|
Count = Count + Tick
|
|||
|
|
'Along with this, the progress bar increments by the step size
|
|||
|
|
progLoading.Value = progLoading.Value + Tick
|
|||
|
|
|
|||
|
|
'If the timer is at a value divisible by 10...
|
|||
|
|
If Count Mod Check = 0 Then
|
|||
|
|
'Declares the variable used for the first half of the loading phrases
|
|||
|
|
Dim Lie1 As Integer = CInt(Int(5 * Rnd()) + 1)
|
|||
|
|
'Declares the variable used for the second half of the loading phrases
|
|||
|
|
Dim Lie2 As Integer = CInt(Int(5 * Rnd()) + 1)
|
|||
|
|
|
|||
|
|
'Creates a loading phrase
|
|||
|
|
lblLies.Text = LiesP1(Lie1) & " " & LiesP2(Lie2)
|
|||
|
|
|
|||
|
|
''Check' increments by 10
|
|||
|
|
Check = Check + 10
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'If the timer has reached its limit...
|
|||
|
|
If Count = 1000 Then
|
|||
|
|
'Disable the timer
|
|||
|
|
tmrLoading.Enabled = False
|
|||
|
|
'Show the login form
|
|||
|
|
frmLogin.Show()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|