[Theory + VB] Turntable Physics

[Jacob Roman]

Might need some help with the physics. I might be wrong with the formulas I used. So far it does exactly what my turntables do in real life. If I'm wrong, let me know. The formulas are located in my Game_Loop sub where it says this:

If Turntable_State > Turntable_On Then
        
            If Turntable_State = Turntable_On + Turntable_Start Then
        
                I = I + (VINYL_MASS * VINYL_RADIUS ^ 2)
            
                If I >= Pitch Then I = Pitch
            
            ElseIf Turntable_State = Turntable_On + Turntable_Stop Then
        
                I = I - (VINYL_MASS * VINYL_RADIUS ^ 2)
                
                If I <= 0 Then I = 0
                
            End If
            
        Else
            
            If I > 0 Then I = I - VINYL_DIAMETER
            
            If I <= 0 Then I = 0
            
        End If

And in this line is where I add the time based rotation:

Rotation = Rotation + (Time * I)

Here's the project. If there are any problems with the physics, please let me know. Here are the controls:

Space: Turns the Power On

Enter: Turns the Power Off

A: Starts the Turntable when the Power is On
Z: Stops the Turntable when the Power is On

Numpad: Controls Camera

Up/Down Arrow Keys: Controls RPM