Skip to content

Commit

Permalink
Software-CD Maturaabgabe V2
Browse files Browse the repository at this point in the history
  • Loading branch information
@nicoboss
nicoboss committed Feb 18, 2017
1 parent 6eaca58 commit 03ee561
Show file tree
Hide file tree
Showing 4 changed files with 20 additions and 10 deletions.
14 changes: 12 additions & 2 deletions MIDI_Harfe_PC_Windows/MIDI-Harfe_PC_Software/Form1.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -84,7 +84,7 @@ Public Class Form1
Declare Sub Beep Lib "kernel32.dll" (ByVal tone As Integer, ByVal dauer As Integer)

'Versionsinformationen
Dim Version As String = "V2.1.7"
Dim Version As String = "V2.1.8"
Dim PublishDate As Date = "18.02.2017"

'Nur dummy Wert. Wird später sowieso überschrieben.
Expand Down Expand Up @@ -179,9 +179,18 @@ Public Class Form1
'Dim bufferedWaveProvider(35) As BufferedWaveProvider
'Dim player(35) As WaveOut

Private Sub Form1_Invalidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Invalidated
If My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.AltKeyDown Or My.Computer.Keyboard.ShiftKeyDown
Dim result As Integer = MessageBox.Show("Alle benutzerspezifischen Einstellungen wirklich zurücksetzen?", "Einstellungen zurücksetzen?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.Yes
My.Settings.Reset
MessageBox.Show("Alle benutzerspezifischen Einstellungen wurden erfolgreich zurückgesetzt!", "Einstellungen zurückgesetzt", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
End Sub

'Form1_Load_main wird beim Laden des Hauptprogramms ausgeführt.
Private Sub Form1_Load_main(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Deklarieren von Arreys aus GUI Steuerelementen zur indexbasierenden Ansprechung gewisser Steuerelementgruppen
Noten_VerticalProgessBar = {
A1_VerticalProgessBar, H1_VerticalProgessBar,
Expand Down Expand Up @@ -2436,6 +2445,7 @@ next_value_exit:
Private Sub Help_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Help_Button.Click
Help_Button.Enabled = False 'Sieht schöner aus
MessageBox.Show("Es ist momentan noch keine Hilfe ausser die eigentlich völlig ausreichende ToolTip Funktion für mein Programm verfügbar." _
& vbCrLf & vbCrLf & "Alle benuzerspezifischen Einstellungen zurücksetzen mit Drücken der Shift, Ctrl oder Alt Taste während des Programmstarts" _
& vbCrLf & vbCrLf & "Sollten Sie irgendwelche Fragen haben, melden Sie sich bitte per Mail an nico@bosshome.ch",
"Hilfe", MessageBoxButtons.OK, MessageBoxIcon.Information)
Help_Button.Enabled = True
Expand Down
2 changes: 1 addition & 1 deletion MIDI_Harfe_PC_Windows/MIDI-Harfe_PC_Software/MIDI-Harfe_PC_Software.vbproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,7 @@
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<AutorunEnabled>true</AutorunEnabled>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>2.1.7.0</ApplicationVersion>
<ApplicationVersion>2.1.8.0</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>
<PublishWizardCompleted>true</PublishWizardCompleted>
Expand Down
4 changes: 2 additions & 2 deletions MIDI_Harfe_PC_Windows/MIDI-Harfe_PC_Software/My Project/AssemblyInfo.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>

<Assembly: AssemblyVersion("2.1.0.0")>
<Assembly: AssemblyFileVersion("2.1.0.0")>
<Assembly: AssemblyVersion("2.1.8.0")>
<Assembly: AssemblyFileVersion("2.1.8.0")>
10 changes: 5 additions & 5 deletions MIDI_Harfe_PC_Windows/MIDI-Harfe_PC_Software/app.config
View file
Original file line number Diff line number Diff line change
Expand Up @@ -151,36 +151,36 @@ Nico Bosshard
<string>1</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>0</string>
<string>1</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>0</string>
<string>1</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>0</string>
<string>1</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>0</string>
<string>1</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>1</string>
<string>0</string>
<string>0</string>
</ArrayOfString>
Expand Down

0 comments on commit 03ee561

Please sign in to comment.