Difference between revisions of "User:Joelmartin/Sandbox"

From RobotX
Jump to navigation Jump to search
m
 
(4 intermediate revisions by the same user not shown)
Line 1: Line 1:
  
==Sectors==
+
= First section header =
==Sectors==
 
<source>
 
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
 
</source>
 
  
 +
This will be displayed on the first tab
 +
 +
{{#switchtablink:Second section header|Click here to go to the next tab...}}
 +
 +
= Second section header =
 +
This will be displayed on the second tab
 +
 +
<headertabs/>
 +
= Third section header =
 +
This will be always displayed under the tab view
 +
because it's below the <headertabs/> tag.
 
=Test 1=
 
=Test 1=
  

Latest revision as of 15:20, 1 November 2020

[edit]

This will be displayed on the first tab

Click here to go to the next tab...

This will be displayed on the second tab

Third section header

This will be always displayed under the tab view

because it's below the

tag.

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