User:Joelmartin/Sandbox

Sectors

Option Explicit
Option Base 0
Private Const MAXPNAMELEN               As Integer = 32
Private Const MMSYSERR_BASE             As Integer = 0
Private Const MMSYSERR_BADDEVICEID      As Integer = (MMSYSERR_BASE + 2)
Private Const MMSYSERR_INVALPARAM       As Integer = (MMSYSERR_BASE + 11)
Private Const MMSYSERR_NODRIVER         As Integer = (MMSYSERR_BASE + 6)
Private Const MMSYSERR_NOMEM            As Integer = (MMSYSERR_BASE + 7)
Private Const MMSYSERR_INVALHANDLE      As Integer = (MMSYSERR_BASE + 5)
Private Const MIDIERR_BASE              As Integer = 64
Private Const MIDIERR_STILLPLAYING      As Integer = (MIDIERR_BASE + 1)
Private Const MIDIERR_NOTREADY          As Integer = (MIDIERR_BASE + 3)
Private Const MIDIERR_BADOPENMODE       As Integer = (MIDIERR_BASE + 6)

Private Type MIDIOUTCAPS
   wMid             As Integer
   wPid             As Integer
   wTechnology      As Integer
   wVoices          As Integer
   wNotes           As Integer
   wChannelMask     As Integer
   vDriverVersion   As Long
   dwSupport        As Long
   szPname          As String * MAXPNAMELEN
End Type
 
Private Declare PtrSafe Function midiOutGetNumDevs Lib "winmm" () As Integer
Private Declare PtrSafe Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare PtrSafe Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare PtrSafe Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare PtrSafe Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private mlngNumDevices     As Long
Private mlngCurDevice      As Long
Private mlngHmidi          As Long
Private mlngRc             As Long
Private mlngMidiMsg        As Long
Private mlngMiPrivatesg    As Long
Private mintChannel        As Integer
Private mintVolume         As Integer
Private mintNoteLength     As Integer
Private mintMidiNote       As Integer
Private mintInstrument     As Integer
Private mstrDeviceName     As String
Private mblnIsDeviceOpen   As Boolean
'
Private Const INT_DEFAULT_CHANNEL       As Integer = 0
Private Const INT_DEFAULT_VOLUME        As Integer = 127
Private Const INT_DEFAULT_NOTE_LENGTH   As Integer = 1000
Private Const INT_DEFAULT_CUR_DEVICE    As Integer = 0
'
 
Private Sub Class_Initialize()
    mintChannel = INT_DEFAULT_CHANNEL
    mlngCurDevice = INT_DEFAULT_CUR_DEVICE
    mintVolume = INT_DEFAULT_VOLUME
    mintNoteLength = INT_DEFAULT_NOTE_LENGTH
    mblnIsDeviceOpen = False
    Call OpenDevice
End Sub
 
Private Sub Class_Terminate()
    Call CloseDevice
End Sub
 
Private Sub OpenDevice()
On Error GoTo ERR_HANDLER:
    If Not mblnIsDeviceOpen Then
        mlngRc = midiOutClose(mlngHmidi)
        mlngRc = midiOutOpen(mlngHmidi, mlngCurDevice, 0, 0, 0)
        If (mlngRc <> 0) Then
            MsgBox "Couldn't open midi out, lngc = " & mlngRc
            mblnIsDeviceOpen = False
        End If
        mblnIsDeviceOpen = True
    End If
    Exit Sub
ERR_HANDLER:
    Debug.Print "Open DLL Error:=" & Err.LastDllError
    mblnIsDeviceOpen = False
End Sub
 
Private Sub CloseDevice()
    If mblnIsDeviceOpen Then
        mlngRc = midiOutClose(mlngHmidi)
        mblnIsDeviceOpen = False
    End If
End Sub
 
Private Sub StartNote()
    mlngMidiMsg = &H90 + (mintMidiNote * &H100) + (mintVolume * &H10000) + mintChannel
    midiOutShortMsg mlngHmidi, mlngMidiMsg
End Sub
 
Private Sub StopNote()
    mlngMidiMsg = &H80 + (mintMidiNote * &H100) + mintChannel
    midiOutShortMsg mlngHmidi, mlngMidiMsg
End Sub
 
Private Sub PauseNote()
    Sleep mintNoteLength
End Sub
 
'Private Function Playnote(ByVal note As csNote)
'    mintNoteLength = note.NoteLength
'    mintVolume = note.volume
'    mintInstrument = note.Instrument
'    mintMidiNote = note.NoteNumber
'    Call StartNote
'    Call PauseNote
'End Function

Public Function note(n)
        mintMidiNote = n: Call StartNote
        mintMidiNote = n + Me.note_1: Call StartNote
        mintMidiNote = n + Me.note_2: Call StartNote
        mintMidiNote = n + Me.Note_3: Call StartNote
    
    
    Call PauseNote
End Function
 
Private Sub UpdateInstrument()
    If mblnIsDeviceOpen = True Then
        mlngMidiMsg = (mintInstrument * 256) + &HC0 + mintChannel + (0 * 256) * 256
        midiOutShortMsg mlngHmidi, mlngMidiMsg
    End If
End Sub
 
Private Sub getNumberOfDevices()
    mlngNumDevices = (midiOutGetNumDevs() - 1)
End Sub
 
Private Sub CurrentDeviceName()
    Dim caps    As MIDIOUTCAPS
    midiOutGetDevCaps mlngCurDevice, caps, Len(caps)
    mstrDeviceName = caps.szPname
End Sub
 
Private Function GetMIDIDevices() As String()
    Dim strRet() As String
    Dim lngLoop As Long
    Dim udtCap As MIDIOUTCAPS
    
    mlngNumDevices = (midiOutGetNumDevs() - 1)
    ReDim strRet(0) As String
    strRet(0) = " MIDI Mapper"
    
    For lngLoop = 0 To mlngNumDevices
        mlngRc = midiOutGetDevCaps(lngLoop, udtCap, Len(udtCap))
        ReDim Preserve strRet(lngLoop + 1) As String
        strRet(lngLoop + 1) = udtCap.szPname
    Next
    GetMIDIDevices = strRet()
End Function

Private Sub Form_Close()
    CloseDevice
End Sub

Private Sub Form_Load()
    Class_Initialize
End Sub

Test 1

Eliminate Barriers and Low-Value activity Streamline Processes and reduce Timelines Make Every Dollar Count Leverage Digital Tools, Technologies and Data Anlytics

Data on the critical and distinctive skills necessary for those working in the Electrical Engineering field from the Bureau of Labor Statistics. Electrical Engineering majors need many skills, but most especially Speaking. The revealed comparative advantage (RCA) shows that Electrical Engineering majors need more than the average amount of Mathematics, Technology Design, and Science. These two visualizations, one a radial chart and one a bar chart, show the same information, a rating of how necessary the following skills are for Electrical Engineering majors. Toggle between "value" and "RCA" to see the absolute rating of that skill (value) and the revealed comparative advantage (RCA), or how much greater or lesser that skill's rating is than the average. The longer the bar or the closer the line comes to the circumference of the circle, the more important that skill is. The importance of Mathematics is very distinctive for majors, but the Speaking, Reading Comprehension, and Instructing are the three most important skills for people in the field.

Mathematics Speaking Writing Active Listening Reading Comprehension Monitoring Active Learning Critical Thinking Learning Strategies Social Perceptiveness Coordination Persuasion Negotiation Instructing Service Orientation Complex Problem Solving Troubleshooting Repairing Equipment Maintenance Quality Control Analysis Operation and Control Operation Monitoring Programming Installation Equipment Selection Technology Design Operations Analysis Judgment and Decision Making Systems Analysis Systems Evaluation Time Management Management of Financial Resources Management of Material Resources Management of Personnel Resources

Mathematics Speaking Writing Active Listening Reading Comprehension Monitoring Active Learning Critical Thinking Learning Strategies Social Perceptiveness Coordination Persuasion Negotiation Instructing Service Orientation Complex Problem Solving Troubleshooting Repairing Equipment Maintenance Quality Control Analysis Operation and Control Operation Monitoring Programming Installation Equipment Selection Technology Design Operations Analysis Judgment and Decision Making Systems Analysis Systems Evaluation Time Management Management of Financial Resources Management of Material Resources Management of Personnel Resources

Skill

Test 2

Innovation and Creativity Collaboration Knowlegde Sharing Problem Solving

Test 3

Letter Templates

Objectives to achieve desired results: • Innovation and development of new capabilities and accelerated delivery to the Fleet. • Design ships and systems for improved reliability. • Design ships and systems in ways that drive down the costs to modernize, operate, and maintain. • Leverage model-based systems engineering in ship and system designs.

Objectives to achieve desired results: • Ensure a culture of inclusion and engagement exists in all parts of our organization. • Optimize workforce development and leadership programs to increase technical, leadership, and supervisory proficiency, facilitate career progression, and enable the personal and professional growth of our world class workforce. • Improve our analytical and technological processes to predict workforce capability and capacity needs.

Design Intentions: Recruit, develop, and retain an engaged workforce committed to the Navy core attributes of Integrity, Accountability, Initiative, and Toughness, and with the needed skills, at the right time, in the right place, and performing the right work to accomplish the Mission in an affordable fashion.

Create a High Velocity Learning Environment To Expand the Advantage, we must unleash the full potential of the 80,000 innovators within our Enterprise. We must learn and adapt faster than our rivals. We must think differently, challenge the way we’ve always done business, share lessons learned, be agile, and act with a sense of urgency. A High Velocity Learning Environment encourages open communication to share issues, ideas, and potential solutions across one of the most diverse workforces in the Government. It allows people to collaborate across organizational and geographic boundaries to identify root causes of issues, solve them, and proactively share solutions and lessons learned across the Enterprise. A High Velocity Learning Environment embraces excellence and all levels of improvement, from incremental to step-function improvements to earth-shattering innovations. It provides a flexible, yet disciplined approach to learn, adapt, and innovate. It facilitates and encourages idea sharing and fosters innovation through processes and technologies allowing for effective knowledge sharing and collaboration.

A High Velocity Learning Environment taps into the workforce’s inherent creativity and fosters an inquisitive and questioning attitude that empowers employees at all levels to identify and pursue unique solutions to our complex challenges. It means embracing humility as our ideas are questioned and probed so we can come to the right outcome quickly and share not only our wins, but our errors so that they are not repeated.

These principles and concepts are non-negotiable. Adjustments in our day-to-day behavior requires focused leadership at all levels that empowers the workforce and demonstrates our commitment to cultivate and reward rapid learning, innovation, and collaboration as the cornerstone of how NAVSEA does business. Objectives to achieve desired results: • Provide effective communication and education of High Velocity Learning principles, concepts, and outcomes. • Identify and remove organizational barriers to achieving a High Velocity Learning Environment. • Implement processes and technologies that facilitate and encourage idea sharing and foster innovation through knowledge sharing and collaboration across the NAVSEA Enterprise.

Test 4

Quality System objectives

• plan, achieve and sustain quality of the design, and product manufacture with respect to meeting the stated mission goals
• provide confidence to senior leadership that intended quality is being achieved and sustained
• document quality sustainment for presentation at RobotX Competition

Documentation, records, and applicable elements of the quality system constitute the "quality program". The quality plan specify the activities and documentation which will serve as evidence of conformance. Am effective quality system acts as a resource multiplier by preventing nonconformances to design and implementation, and improving use of resources. The system shall provide for clear communication of responsibilities and between project teams.

Quality System objectives

• assesses resource allocation effectiveness
• identifies, corrects and prevents discrepancies
• contributes to design definition and verification
• identifies, measures and abates risks
• measures and improves processes
• collects, distributes, analyzes and acts on data collected throughout the project organization