VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmDatei 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fest Einfach
   ClientHeight    =   9570
   ClientLeft      =   1590
   ClientTop       =   915
   ClientWidth     =   12255
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H00000000&
   Icon            =   "Resone.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9570
   ScaleWidth      =   12255
   Begin VB.CommandButton Command41 
      BackColor       =   &H00C0C0C0&
      Caption         =   "d"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   10170
      Style           =   1  'Grafisch
      TabIndex        =   118
      TabStop         =   0   'False
      ToolTipText     =   "ein neues Dauerton-Plugin (eine Default-Datei) erstellen"
      Top             =   9150
      Width           =   255
   End
   Begin VB.CommandButton Command40 
      BackColor       =   &H00C0C0C0&
      Caption         =   "e"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   10170
      Style           =   1  'Grafisch
      TabIndex        =   117
      TabStop         =   0   'False
      ToolTipText     =   "ein neues Einzelton-Plugin (eine Default-Datei) erstellen"
      Top             =   8786
      Width           =   255
   End
   Begin VB.CommandButton Command39 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Info"
      Height          =   240
      Left            =   9675
      Style           =   1  'Grafisch
      TabIndex        =   116
      TabStop         =   0   'False
      ToolTipText     =   "Bedienungsanleitung zu PLUG"
      Top             =   9270
      Width           =   495
   End
   Begin VB.CommandButton Command38 
      BackColor       =   &H00E0E0E0&
      Caption         =   "PLG"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   485
      Left            =   9675
      Style           =   1  'Grafisch
      TabIndex        =   115
      TabStop         =   0   'False
      ToolTipText     =   "PLUG starten - damit werden Plugins in Resonanz.orc und Resonanz.sco eingefgt"
      Top             =   8790
      Width           =   495
   End
   Begin VB.CommandButton Command37 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   400
      Left            =   8205
      Style           =   1  'Grafisch
      TabIndex        =   114
      ToolTipText     =   "Dir *.wav"
      Top             =   8685
      Width           =   255
   End
   Begin VB.CommandButton Command36 
      BackColor       =   &H00808000&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   8205
      Style           =   1  'Grafisch
      TabIndex        =   113
      ToolTipText     =   "Resonanz.wav fr Samplitude kopieren (Name = Resi...wav)"
      Top             =   9090
      Width           =   255
   End
   Begin VB.CommandButton Command35 
      BackColor       =   &H0000C0C0&
      Height          =   240
      Left            =   9345
      Style           =   1  'Grafisch
      TabIndex        =   112
      ToolTipText     =   "Samplitude-Infos"
      Top             =   8775
      Width           =   180
   End
   Begin VB.CommandButton Command34 
      BackColor       =   &H00D00080&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   5505
      Style           =   1  'Grafisch
      TabIndex        =   111
      TabStop         =   0   'False
      ToolTipText     =   "UNDO: die automatisch erzeugte Datei C:\Arbeit\Rsz-Backup-0 ffnen"
      Top             =   9285
      Width           =   240
   End
   Begin VB.CommandButton Command33 
      BackColor       =   &H00D00080&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   5250
      Style           =   1  'Grafisch
      TabIndex        =   110
      TabStop         =   0   'False
      ToolTipText     =   "Datei C:\Arbeit\Rsz-Backup-1 ffnen, um einzelne Zeilen oder das ganze Viole.rsz wiederherzustellen."
      Top             =   9285
      Width           =   240
   End
   Begin VB.CommandButton Command32 
      BackColor       =   &H00004080&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   4995
      Style           =   1  'Grafisch
      TabIndex        =   109
      TabStop         =   0   'False
      ToolTipText     =   "Sicherungskopie von Viole.rsz herstellen (C:\Arbeit\Rsz-Backup-1)"
      Top             =   9285
      Width           =   240
   End
   Begin VB.CheckBox Check3 
      Appearance      =   0  '2D
      BackColor       =   &H00C0C0C0&
      Caption         =   "e"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   5775
      TabIndex        =   108
      ToolTipText     =   "wenn das Hkchen entfernt wird, werden die Lautstrken in Viole.rsz vor dem berschreiben geschtzt"
      Top             =   9270
      Value           =   1  'Aktiviert
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.CheckBox Check2 
      Appearance      =   0  '2D
      BackColor       =   &H00C0C0C0&
      Caption         =   "e"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   5775
      TabIndex        =   107
      ToolTipText     =   "wenn das Hkchen entfernt wird, werden die Tonhnen in Viole.rsz vor dem berschreiben geschtzt"
      Top             =   9105
      Value           =   1  'Aktiviert
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.CheckBox Check1 
      Appearance      =   0  '2D
      BackColor       =   &H00C0C0C0&
      Caption         =   "e"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   5775
      TabIndex        =   106
      ToolTipText     =   "wenn das Hkchen entfernt wird, werden die Zeitwerte in Viole.rsz vor dem berschreiben geschtzt"
      Top             =   8940
      Value           =   1  'Aktiviert
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.CommandButton Command31 
      BackColor       =   &H000000FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   4245
      Style           =   1  'Grafisch
      TabIndex        =   105
      ToolTipText     =   "MIDI-POWER-Taste: Sample.sco ---> Viole.rsz ---> Resonanz.sco. Dann wird Csound gestartet und es entsteht Resonanz.wav."
      Top             =   9000
      Width           =   240
   End
   Begin VB.TextBox Text58 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   5025
      TabIndex        =   104
      Text            =   "1"
      ToolTipText     =   "Gesamt-Lautstrke, z.B. 0.75, 0.5, 1-5, 2, 4 - danach erneut die Taste 3 drcken"
      Top             =   8655
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text57 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   3465
      TabIndex        =   103
      Text            =   "FOM"
      ToolTipText     =   "Grundeinstellung fr den Klang: Frequenz-Vervielfachung. Einstellen, dann erneut die Taste 3 drcken!"
      Top             =   8025
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text56 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   3465
      TabIndex        =   102
      Text            =   "DEL"
      ToolTipText     =   "Grundeinstellung fr den Klang: Fnffach-Delay. Einstellen, dann erneut die Taste 3 drcken!"
      Top             =   7710
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text55 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   3465
      TabIndex        =   101
      Text            =   "ENTE"
      ToolTipText     =   "Grundeinstellung fr den Klang: Enteneffekt. Einstellen, dann erneut die Taste 3 drcken!"
      Top             =   7395
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text54 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   3465
      TabIndex        =   100
      Text            =   "FUB"
      ToolTipText     =   "Grundeinstellung fr den Klang: zweite FOF-Funktion. Einstellen, dann erneut die Taste 3 drcken!"
      Top             =   7080
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text53 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   3465
      TabIndex        =   99
      Text            =   "FUA"
      ToolTipText     =   "Grundeinstellung fr den Klang: erste FOF-Funktion. Einstellen, dann erneut die Taste 3 drcken!"
      Top             =   6765
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text52 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4245
      TabIndex        =   98
      Text            =   "50"
      Top             =   8025
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text51 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4245
      TabIndex        =   97
      Text            =   "0.001"
      Top             =   7710
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text50 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4245
      TabIndex        =   96
      Text            =   "0.01"
      Top             =   7395
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text49 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4245
      TabIndex        =   95
      Text            =   "2"
      Top             =   7080
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text48 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4245
      TabIndex        =   93
      Text            =   "1"
      Top             =   6765
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.CommandButton Command30 
      BackColor       =   &H0080FF80&
      Height          =   240
      Left            =   9345
      Style           =   1  'Grafisch
      TabIndex        =   92
      ToolTipText     =   "Sonar-Infos"
      Top             =   9030
      Width           =   180
   End
   Begin VB.CommandButton Command29 
      BackColor       =   &H00808080&
      Caption         =   "Programm"
      Height          =   240
      Left            =   9525
      Style           =   1  'Grafisch
      TabIndex        =   91
      Top             =   8520
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.CommandButton Command28 
      BackColor       =   &H00808080&
      Caption         =   "Programm"
      Height          =   240
      Left            =   9525
      Style           =   1  'Grafisch
      TabIndex        =   90
      Top             =   8775
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.CommandButton Command27 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Programm"
      Height          =   240
      Left            =   9525
      Style           =   1  'Grafisch
      TabIndex        =   89
      Top             =   9270
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.CommandButton Command26 
      BackColor       =   &H00808080&
      Caption         =   "Programm"
      Height          =   240
      Left            =   9525
      Style           =   1  'Grafisch
      TabIndex        =   88
      Top             =   9030
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.CommandButton Command25 
      BackColor       =   &H0000C0C0&
      Caption         =   "Samp"
      Height          =   240
      Left            =   8610
      Style           =   1  'Grafisch
      TabIndex        =   87
      ToolTipText     =   "SAMPLITUDE: Mixer und Editor fr Sounds im WAV-Format - Samplitude wird mit Sample.vip gestartet"
      Top             =   8775
      Width           =   735
   End
   Begin VB.CommandButton Command24 
      BackColor       =   &H00FF8080&
      Caption         =   "VglMidi"
      Height          =   240
      Left            =   8610
      Style           =   1  'Grafisch
      TabIndex        =   86
      ToolTipText     =   "VGLMIDI: Midi-Instrumente mit genau einstellbaren Frequenzen spielen, damit Tonhhen vergleichen"
      Top             =   9270
      Width           =   915
   End
   Begin VB.CommandButton Command23 
      BackColor       =   &H0080FF80&
      Caption         =   "Sonar"
      Height          =   240
      Left            =   8610
      Style           =   1  'Grafisch
      TabIndex        =   85
      ToolTipText     =   "SONAR mit Sample.mid starten: Midi-Sequencer und -Editor"
      Top             =   9030
      Width           =   735
   End
   Begin VB.CommandButton Command22 
      BackColor       =   &H00C0C0FF&
      Caption         =   "UA-100"
      Height          =   240
      Left            =   8610
      Style           =   1  'Grafisch
      TabIndex        =   84
      ToolTipText     =   "UA-100: hochwertige Musikwiedergabe"
      Top             =   8520
      Width           =   915
   End
   Begin VB.CommandButton Command21 
      BackColor       =   &H00FFC0C0&
      Caption         =   "LT-HT"
      Height          =   240
      Left            =   10725
      Style           =   1  'Grafisch
      TabIndex        =   83
      TabStop         =   0   'False
      ToolTipText     =   "Info ber Lautstrke- und Tonhhenrelationen"
      Top             =   8520
      Width           =   1125
   End
   Begin VB.CommandButton Command20 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   3270
      Style           =   1  'Grafisch
      TabIndex        =   82
      ToolTipText     =   "Dir *.mid"
      Top             =   9000
      Width           =   240
   End
   Begin VB.CommandButton Command19 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   3990
      Style           =   1  'Grafisch
      TabIndex        =   81
      ToolTipText     =   "Dir *.sco"
      Top             =   9000
      Width           =   240
   End
   Begin VB.CommandButton Command18 
      BackColor       =   &H00808080&
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   3525
      Style           =   1  'Grafisch
      TabIndex        =   80
      ToolTipText     =   "MIDI2CS-Start: aus der Midi-Datei wird eine Csound-Partitur, also Sample.mid ---> Sample.sco"
      Top             =   9000
      Width           =   450
   End
   Begin VB.CommandButton Command17 
      BackColor       =   &H00808080&
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   2820
      MaskColor       =   &H00FFFFFF&
      Style           =   1  'Grafisch
      TabIndex        =   79
      ToolTipText     =   "CAPELLA-Start mit Sample.cap. Die geschriebenen Noten mssen als Sample.mid exportiert werden!"
      Top             =   9000
      Width           =   435
   End
   Begin VB.TextBox Text47 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   4260
      TabIndex        =   78
      Text            =   "1"
      ToolTipText     =   "Gesamt-Tonhhe, z.B. 1, 2, 3, 0.5, 0.125 - danach erneut die Taste 3 drcken"
      Top             =   8655
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.TextBox Text46 
      Appearance      =   0  '2D
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   3450
      TabIndex        =   77
      Text            =   "1"
      ToolTipText     =   "z.B. 1, 2, 3, 0.5, 0.3 - danach erneut die Taste 3 drcken"
      Top             =   8655
      Visible         =   0   'False
      Width           =   744
   End
   Begin VB.CommandButton Command16 
      BackColor       =   &H0000C0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   4995
      Style           =   1  'Grafisch
      TabIndex        =   76
      TabStop         =   0   'False
      ToolTipText     =   $"Resone.frx":08CA
      Top             =   9000
      Width           =   240
   End
   Begin VB.CommandButton Command15 
      BackColor       =   &H000080FF&
      Caption         =   "4"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   5250
      Style           =   1  'Grafisch
      TabIndex        =   75
      ToolTipText     =   "die Tonverlaufsliste Viole.rsz umwandeln und damit Csound starten, also Viole.rsz ---> Resonanz.sco ---> Resonanz.wav"
      Top             =   9000
      Width           =   495
   End
   Begin VB.TextBox Text45 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   2685
      TabIndex        =   73
      Text            =   "0.05"
      ToolTipText     =   "z.B. 0.001, 0.005, 0.01, 0.1 - danach erneut die Taste 3 drcken"
      Top             =   8655
      Visible         =   0   'False
      Width           =   740
   End
   Begin VB.CommandButton Command14 
      BackColor       =   &H0000FFFF&
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   4500
      Style           =   1  'Grafisch
      TabIndex        =   70
      ToolTipText     =   $"Resone.frx":0987
      Top             =   9000
      Width           =   495
   End
   Begin VB.TextBox Text44 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10695
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   68
      Text            =   "0"
      Top             =   8100
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text43 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10695
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   67
      Text            =   "0"
      Top             =   7770
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text42 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10680
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   66
      Text            =   "0"
      Top             =   7425
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text41 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10695
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   65
      Text            =   "0"
      Top             =   7065
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text40 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10710
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   64
      Text            =   "0"
      Top             =   6720
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text39 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10710
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   17
      Text            =   "0"
      Top             =   6390
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text38 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   63
      TabStop         =   0   'False
      Text            =   "Frequenzvervielfachung:"
      ToolTipText     =   "0 bis ber 1000 - Keine Zufallsfunktion!"
      Top             =   8085
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text37 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8790
      MousePointer    =   1  'Pfeil
      TabIndex        =   62
      TabStop         =   0   'False
      Text            =   "Formantfaktor:"
      ToolTipText     =   "um 50.0; 10 bis 1000 - Keine Zufallsfunktion!"
      Top             =   7725
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text36 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   61
      TabStop         =   0   'False
      Text            =   "Enteneffekt:"
      ToolTipText     =   "ca. 0 bis 3 - Keine Zufallsfunktion!"
      Top             =   7410
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text35 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8760
      MousePointer    =   1  'Pfeil
      TabIndex        =   60
      TabStop         =   0   'False
      Text            =   "Fnffach-Delay:"
      ToolTipText     =   "ca. 0.0001 bis 1 - Keine Zufallsfunktion!"
      Top             =   7080
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text34 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8760
      MousePointer    =   1  'Pfeil
      TabIndex        =   59
      TabStop         =   0   'False
      Text            =   "zweite FOF-Funktion:"
      ToolTipText     =   "2, 3, 4, 5 usw.; nur ganze Zahlen! - Keine Zufallsfunktion!"
      Top             =   6735
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text33 
      Alignment       =   1  'Rechts
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8760
      MousePointer    =   1  'Pfeil
      TabIndex        =   58
      TabStop         =   0   'False
      Text            =   "erste FOF-Funktion:"
      ToolTipText     =   "1, 2, 3, 4 usw.; nur ganze Zahlen! - Keine Zufallsfunktion!"
      Top             =   6375
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text32 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   13
      TabStop         =   0   'False
      Text            =   "48"
      ToolTipText     =   "Formantfrequenz"
      Top             =   4575
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text31 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   14
      TabStop         =   0   'False
      Text            =   "84"
      ToolTipText     =   "Formantfrequenz"
      Top             =   4890
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text30 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   18
      TabStop         =   0   'False
      Text            =   "1.5"
      ToolTipText     =   "Formantfrequenz"
      Top             =   5220
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text29 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10620
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   15
      Text            =   "1.015"
      ToolTipText     =   "Formantfrequenz"
      Top             =   5565
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text28 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   57
      TabStop         =   0   'False
      Text            =   "tiefste Formantfreq.:"
      ToolTipText     =   "Midiwert, aus dem dann die Formantfrequenz errechnet wird. (60 = eingestrichenes c, 72 zweigestrichenes c, ...)"
      Top             =   4575
      Width           =   1815
   End
   Begin VB.TextBox Text27 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8760
      MousePointer    =   1  'Pfeil
      TabIndex        =   56
      TabStop         =   0   'False
      Text            =   "hchste Formantfreq.:"
      ToolTipText     =   $"Resone.frx":0A4B
      Top             =   4920
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text26 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8745
      MousePointer    =   1  'Pfeil
      TabIndex        =   55
      TabStop         =   0   'False
      Text            =   "grtes Intervall:"
      ToolTipText     =   $"Resone.frx":0AE6
      Top             =   5235
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text25 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   54
      TabStop         =   0   'False
      Text            =   "Frequenzquantisierung:"
      ToolTipText     =   $"Resone.frx":0BB6
      Top             =   5550
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text20 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   16
      Text            =   "4"
      ToolTipText     =   "Wenn nur Sinustne erzeugt werden sollen, mu her 0 stehen. 1, 2, 3, ... = FOF-Generator"
      Top             =   5880
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text15 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   53
      TabStop         =   0   'False
      Text            =   "Frequenzwiederholung:"
      ToolTipText     =   $"Resone.frx":0C65
      Top             =   5895
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.PictureBox Picture2 
      AutoSize        =   -1  'True
      Height          =   990
      Left            =   1050
      Picture         =   "Resone.frx":0D21
      ScaleHeight     =   930
      ScaleWidth      =   1920
      TabIndex        =   51
      TabStop         =   0   'False
      Top             =   7200
      Width           =   1980
   End
   Begin VB.CommandButton Command13 
      BackColor       =   &H00004080&
      Height          =   285
      Left            =   2040
      Style           =   1  'Grafisch
      TabIndex        =   50
      TabStop         =   0   'False
      ToolTipText     =   "Zufalls-Presets abspeichern"
      Top             =   8790
      Width           =   180
   End
   Begin MSComDlg.CommonDialog CommonDialog2 
      Left            =   11820
      Top             =   9030
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DefaultExt      =   "*.prs"
      DialogTitle     =   "Presets"
      FileName        =   "*.prs"
      Filter          =   "Preset|*.prs"
      InitDir         =   "C:\Arbeit\"
   End
   Begin VB.CommandButton Command12 
      BackColor       =   &H00D00080&
      Height          =   285
      Left            =   2040
      Style           =   1  'Grafisch
      TabIndex        =   49
      TabStop         =   0   'False
      ToolTipText     =   "gespeicherte Zufalls-Presets laden"
      Top             =   8505
      Width           =   180
   End
   Begin VB.CommandButton Command11 
      BackColor       =   &H00000000&
      Height          =   270
      Left            =   1830
      Style           =   1  'Grafisch
      TabIndex        =   48
      TabStop         =   0   'False
      ToolTipText     =   "Nur die Einstellungen der Zufallsliste anzeigen"
      Top             =   8505
      Width           =   180
   End
   Begin VB.CommandButton Command10 
      BackColor       =   &H000000FF&
      Height          =   300
      Left            =   1650
      Style           =   1  'Grafisch
      TabIndex        =   0
      ToolTipText     =   "POWER (Zufallsprogramm starten - bernehmen - Csound - Cool Edit)"
      Top             =   8730
      Width           =   180
   End
   Begin VB.TextBox Text24 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   47
      TabStop         =   0   'False
      Text            =   "Tonhhenwiederholung:"
      ToolTipText     =   "1 = zu jedem Zeitpunkt eine neue Tonhhe, 2 = nach jeweils zwei Zeitpunkten eine neue Tonhhe, 3 = nach drei Zeitpunkten, ..."
      Top             =   4140
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text23 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10650
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   12
      TabStop         =   0   'False
      Text            =   "4"
      ToolTipText     =   "Tonhhenwiederholung"
      Top             =   4125
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text22 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   46
      TabStop         =   0   'False
      Text            =   "Tonhhenquantisierung:"
      ToolTipText     =   $"Resone.frx":6A63
      Top             =   3795
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text21 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8745
      MousePointer    =   1  'Pfeil
      TabIndex        =   45
      TabStop         =   0   'False
      Text            =   "grtes Intervall:"
      ToolTipText     =   $"Resone.frx":6AF9
      Top             =   3480
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text19 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8760
      MousePointer    =   1  'Pfeil
      TabIndex        =   44
      TabStop         =   0   'False
      Text            =   "hchster Ton:"
      ToolTipText     =   "Midiwert; Tne zwischen dem tiefsten und dem hchsten dem angegebenen Wert werden ausgegeben"
      Top             =   3165
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text18 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8775
      MousePointer    =   1  'Pfeil
      TabIndex        =   43
      TabStop         =   0   'False
      Text            =   "tiefster Ton:"
      ToolTipText     =   "Midiwert, z.B. 60 = das eingestrichene c, 72 das zweigestrichene c"
      Top             =   2820
      Width           =   1815
   End
   Begin VB.TextBox Text17 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10620
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   11
      TabStop         =   0   'False
      Text            =   "1.015"
      ToolTipText     =   "Tonhhe"
      Top             =   3810
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text16 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   10
      TabStop         =   0   'False
      Text            =   "1.5"
      ToolTipText     =   "Tonhhe"
      Top             =   3465
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text14 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   9
      TabStop         =   0   'False
      Text            =   "84"
      ToolTipText     =   "Tonhhe"
      Top             =   3135
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text13 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10635
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   8
      TabStop         =   0   'False
      Text            =   "48"
      ToolTipText     =   "Tonhhe"
      Top             =   2820
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.CommandButton Direktstart 
      BackColor       =   &H0000C000&
      Height          =   270
      Left            =   1485
      Style           =   1  'Grafisch
      TabIndex        =   1
      TabStop         =   0   'False
      ToolTipText     =   "'Zufall.rsz' in eine Csound-Partitur umwandeln"
      Top             =   9090
      Width           =   540
   End
   Begin VB.TextBox Text12 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8805
      MousePointer    =   1  'Pfeil
      TabIndex        =   41
      TabStop         =   0   'False
      Text            =   "grte Lautstrke:"
      ToolTipText     =   "das Programm sucht Werte zwischen dem angegebenen leisesten und lautesten Wert aus"
      Top             =   2340
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text11 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8820
      MousePointer    =   1  'Pfeil
      TabIndex        =   40
      TabStop         =   0   'False
      Text            =   "kleinste Lautstrke:"
      ToolTipText     =   "Lautstrkewerte werden mit Zahlen zwischen 0 und ca. 60000 angegeben"
      Top             =   2025
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text10 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10665
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   7
      TabStop         =   0   'False
      Text            =   "50000"
      Top             =   2340
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text9 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10650
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   6
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   2025
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text8 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8820
      MousePointer    =   1  'Pfeil
      TabIndex        =   39
      TabStop         =   0   'False
      Text            =   "Zeit-Quantisierung:"
      ToolTipText     =   $"Resone.frx":6BAF
      Top             =   1365
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text7 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8835
      MousePointer    =   1  'Pfeil
      TabIndex        =   38
      TabStop         =   0   'False
      Text            =   "grter Zeitabstand:"
      ToolTipText     =   $"Resone.frx":6C44
      Top             =   1065
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text6 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8835
      MousePointer    =   1  'Pfeil
      TabIndex        =   37
      TabStop         =   0   'False
      Text            =   "kleinster Zeitabstand:"
      ToolTipText     =   "Werte in Sekunden angeben!"
      Top             =   720
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text5 
      Alignment       =   1  'Rechts
      BorderStyle     =   0  'Kein
      Height          =   250
      Left            =   8850
      MousePointer    =   1  'Pfeil
      TabIndex        =   36
      TabStop         =   0   'False
      Text            =   "Gesamtdauer:"
      ToolTipText     =   "Werte in Sekunden angeben!"
      Top             =   390
      Visible         =   0   'False
      Width           =   1770
   End
   Begin VB.TextBox Text4 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10680
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   5
      TabStop         =   0   'False
      Text            =   "0.1"
      Top             =   1365
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text3 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10650
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   2
      TabStop         =   0   'False
      Text            =   "14"
      Top             =   405
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text2 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10680
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   3
      TabStop         =   0   'False
      Text            =   "0.5"
      Top             =   720
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Zentriert
      BorderStyle     =   0  'Kein
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   250
      Left            =   10680
      MousePointer    =   9  'Grennderung W O
      TabIndex        =   4
      TabStop         =   0   'False
      Text            =   "1.7"
      Top             =   1020
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.CommandButton Command9 
      BackColor       =   &H0000C0C0&
      Height          =   285
      Left            =   1500
      Style           =   1  'Grafisch
      TabIndex        =   32
      TabStop         =   0   'False
      ToolTipText     =   "'zufall.rsz' editieren"
      Top             =   8775
      Width           =   540
   End
   Begin VB.CommandButton Zufallsliste 
      BackColor       =   &H000080FF&
      Height          =   285
      Left            =   1500
      Style           =   1  'Grafisch
      TabIndex        =   29
      TabStop         =   0   'False
      ToolTipText     =   "Starten - dann die Zufallsliste anzeigen. Das Formular auf der rechten Seite ist editierbar!"
      Top             =   8505
      Width           =   180
   End
   Begin VB.CommandButton Command8 
      BackColor       =   &H000000FF&
      Caption         =   "P"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   6300
      Style           =   1  'Grafisch
      TabIndex        =   28
      TabStop         =   0   'False
      ToolTipText     =   "POWER-Taste: eine gespeicherte Tonverlaufsliste auswhlen, umwandeln und damit Csound starten"
      Top             =   9000
      Width           =   495
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   11775
      Top             =   8460
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DefaultExt      =   "*.rsz"
      DialogTitle     =   "Tonverlaufs-Dateien"
      FileName        =   "*.rsz"
      Filter          =   "Tonverlaufs-Dateien|*.rsz"
      InitDir         =   "C:\Arbeit\"
   End
   Begin VB.CommandButton Command7 
      BackColor       =   &H00FF00FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   6030
      Style           =   1  'Grafisch
      TabIndex        =   27
      TabStop         =   0   'False
      ToolTipText     =   "eine gespeicherte Tonverlaufsliste auswhlen und editieren"
      Top             =   9000
      Width           =   280
   End
   Begin VB.CommandButton Command6 
      BackColor       =   &H00C0C0C0&
      Caption         =   "orc"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   7290
      Style           =   1  'Grafisch
      TabIndex        =   26
      TabStop         =   0   'False
      ToolTipText     =   "'Resonanz.orc' im Editor zeigen"
      Top             =   8430
      Width           =   450
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Cso"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   825
      Left            =   7290
      Style           =   1  'Grafisch
      TabIndex        =   21
      ToolTipText     =   "CSOUND-Start mit 'Resonanz.sco' und 'Resonanz.orc'"
      Top             =   8685
      Width           =   915
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "sco"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   7755
      Style           =   1  'Grafisch
      TabIndex        =   30
      TabStop         =   0   'False
      ToolTipText     =   "'Resonanz.sco' im Editor zeigen"
      Top             =   8430
      Width           =   435
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H0000C0C0&
      Caption         =   "A"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   4230
      Style           =   1  'Grafisch
      TabIndex        =   19
      ToolTipText     =   "'Tonverlauf.rsz' editieren"
      Top             =   8655
      Width           =   765
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0FFC0&
      Caption         =   "Info"
      Height          =   240
      Left            =   10725
      Style           =   1  'Grafisch
      TabIndex        =   22
      TabStop         =   0   'False
      ToolTipText     =   "Bedienungsanleitung fr Resone"
      Top             =   8775
      Width           =   1125
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0000C000&
      Caption         =   "B"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   340
      Left            =   6030
      Style           =   1  'Grafisch
      TabIndex        =   20
      ToolTipText     =   "'Tonverlauf.rsz' in eine Csound-Partitur 'Resonanz.sco' umwandeln und damit Csound starten"
      Top             =   8640
      Width           =   765
   End
   Begin VB.CommandButton Ende 
      BackColor       =   &H00808080&
      Caption         =   "Ende"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   10725
      MaskColor       =   &H00FFFFFF&
      Style           =   1  'Grafisch
      TabIndex        =   23
      TabStop         =   0   'False
      ToolTipText     =   "das Programm immer mit dieser Taste beenden, damit die Einstellungen gespeichert werden!"
      Top             =   9030
      Width           =   1125
   End
   Begin VB.ListBox Testliste 
      BackColor       =   &H00400000&
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   8250
      ItemData        =   "Resone.frx":6CD8
      Left            =   -75
      List            =   "Resone.frx":6CDA
      TabIndex        =   24
      TabStop         =   0   'False
      Top             =   -90
      Width           =   12015
   End
   Begin VB.Label Label3 
      BackColor       =   &H0080FFFF&
      Caption         =   "Hrte    Tempo    Tonhhe"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   0
      TabIndex        =   94
      ToolTipText     =   "z.B. 0.001, 0.005, 0.01, 0.1"
      Top             =   1155
      Visible         =   0   'False
      Width           =   2310
   End
   Begin VB.Label Label18 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Hrte        Tempo      Tonhhe   Lautstrke"
      Height          =   195
      Left            =   2685
      TabIndex        =   74
      ToolTipText     =   "z.B. 0.001, 0.005, 0.01, 0.1"
      Top             =   8430
      Visible         =   0   'False
      Width           =   3070
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "die manuell erstellte Tonverlaufsliste 'Tonverlauf.rsz'"
      Height          =   255
      Left            =   3240
      TabIndex        =   72
      Top             =   8415
      Width           =   3825
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "Noten:"
      Height          =   210
      Left            =   2250
      TabIndex        =   71
      Top             =   9150
      Width           =   570
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "editieren:"
      Height          =   255
      Left            =   3480
      TabIndex        =   69
      Top             =   8655
      Width           =   765
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "Variationen:"
      Height          =   255
      Left            =   495
      TabIndex        =   52
      Top             =   8835
      Width           =   885
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "Formular:"
      Height          =   255
      Left            =   675
      TabIndex        =   42
      Top             =   9105
      Width           =   720
   End
   Begin VB.Label Label14 
      Caption         =   "Label14"
      Height          =   330
      Left            =   9375
      TabIndex        =   35
      Top             =   390
      Width           =   945
   End
   Begin VB.Label Label13 
      Caption         =   "Label13"
      Height          =   300
      Left            =   9255
      TabIndex        =   34
      Top             =   390
      Width           =   1290
   End
   Begin VB.Label Label12 
      Caption         =   "Label12"
      Height          =   270
      Left            =   9330
      TabIndex        =   33
      Top             =   420
      Width           =   1140
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "Zufallstonliste:"
      Height          =   255
      Left            =   165
      TabIndex        =   31
      Top             =   8550
      Width           =   1335
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      Caption         =   "bernehmen:"
      Height          =   255
      Left            =   4995
      TabIndex        =   25
      Top             =   8670
      Width           =   1050
   End
End
Attribute VB_Name = "frmDatei"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit






12:00:27 07.02.2009 <---
'RESONE, Version 4 (01. November 2007) ' PLUGIN-Option eingebaut
'(Sample-Option nur noch fragmentarisch, Percussion rausgeworfen.
'Alles wird nun vom neuen Programm PLUG eingerichtet!
'
'RESONE, Version 3 (Juli 2007)
'RESONE, Version 3 (Mrz 2007): MIDI eingebaut
'Version 2 war vom 16.09.2004, 01:16"       ' Zufall eingebaut
'Version 1 war vom 11.08.2004"              ' RSZ ---> SCO


12:01:58 07.02.2009 <---
'Suchworte:
'Form_Load() <----
'Orcdatei1 - dort wird 'Resonanz.orc' geschrieben
'Scodatei1 - dort wird 'Resonanz.sco' geschrieben
'RszDatei - Tonverlaufs-Datei (.rsz) schreiben
'Datei lesen - AlleZeilenLesen
'Zeilencheck, Zeilencheck2 - Datei lesen (analysieren, verstehen)
'ShowORC, ShowSCO - Dateiinhalt auf der Textliste ausgeben
'Info
'


Dim Onfi As String
Dim Dateiname, DateinameX, DateinameXX, Vondatei, Zurdatei0, Zurdatei1, Zurdatei2, Zurdatei3, Zufallsdatei As String
Dim Arbeitsordner, Csoundname, Tonliste As String
Dim Buchstabe As String
Dim Wort
Dim Zeile As String
Dim Clef As String
Dim n As Integer
Dim m As Integer
Dim mg As Integer
Dim z1, z2, z3, z4 As Integer
Dim vk As Integer
Dim nv As Integer
Dim a As Integer
Dim av As Integer
Dim ZL(1000), HT(1000), LT(1000), Kl(1000), GD(1000)
Dim ZP(1000) As Single
Dim DT(1000) As Single
Dim ZPL(10000)  ' Speicher fr Werte aus Sample.sco
Dim DTL(10000)  ' Speicher fr Werte aus Sample.sco
Dim HTL(10000)  ' Speicher fr Werte aus Sample.sco
Dim LTL(10000)  ' Speicher fr Werte aus Sample.sco
'
'Neue Werte:
Dim Hart
Dim Tempofaktor As Double
Dim Frequenzfaktor As Double
Dim Lautfaktor As Double
Dim WFUA As Double
Dim WFUB As Double
Dim WENTE As Double
Dim WDEL As Double
Dim WFOM As Double
Dim WLTF As Double
Dim WLTS As Double
Dim WHTS As Double
'
Dim ZP_Knopf As Boolean
Dim HT_Knopf As Boolean
Dim LT_Knopf As Boolean
Dim KL_Knopf As Boolean
'
Dim dnz As Integer 'Dateinamenzhler
Dim tb, nx As Integer
Dim flag As Integer
Dim Abst As String
'
Dim erg As Double
Dim RZeichen As String
Dim Bwort As String
Dim Bwort2 As String
Dim mzx As Integer
Dim azp As Integer
Dim ZPW As String
Dim ZTP, ZTPmax As Single
Dim Rundu As Integer
Dim GLnull As String
Dim FOF, PRE, Nichterst As Boolean
Dim fun1, fun2, delayfakt, entenmult, formantfakt, frequenzverviel
Dim Preset
Dim maxizuf As Integer
Dim Zzeit, Maxdist, Mindist, Quant1, MinLT, MaxLT, MinHT, MaxHT, MaxINT As Variant
Dim MinKL, MaxKL, MaxINL, QuantH, QuantF, HTw, HTy As Variant
Dim FUA, FUB, DEL, ENTE, FOM, FRV As Variant
Dim touch, touch2, knopf, Zufhol, zuflist As Boolean
Dim frmda1, frmda2 As String
Dim foffakt, sampfakt, sampfrq ' neu am 29.09.2007 (SAMPLE)
Dim erstesmal As Integer



Private Sub Info() '15.09.2004 10:05 <---
  Onfi = "RESONE, 4. Version - 01.11.2007 - mit PLUGIN-Option"
 'Onfi = "RESONE, 3. Version - 06.07.2007"
 'Onfi = "RESONE, 3. Version vom 08.03.2007, 12:31" ' 3. Version: MIDI eingebaut
  Testliste.Clear
 'Testliste.AddItem Onfi & "  -  I N F O  -"
  Testliste.AddItem Onfi
  Testliste.AddItem "Programm fr kontinuierliche Klang- und Lautstrkeverlufe mit Sinustnen oder FOF-Klngen."
  Testliste.AddItem ""
 'Testliste.AddItem ""
 'Testliste.AddItem "                                     -  I N F O  -"
 'Testliste.AddItem ""
 'Testliste.AddItem ""
  Testliste.AddItem "Dieses Programm schreibt anhand einer Tonverlaufsliste die beiden Dateien Resonanz.sco und"
  Testliste.AddItem "Resonanz.orc. Diese Tonverlaufsliste mu zuerst mit dem Editor (NoteTab) geschrieben werden,"
  Testliste.AddItem "danach wandelt sie das Programm in eine Csound-Partitur um."
  Testliste.AddItem "Der Name dieser Tonverlaufsliste ist " & Tonliste & ".rsz."
  Testliste.AddItem ""
 'Testliste.AddItem ""
  Testliste.AddItem "Die Existenz von " & Tonliste & ".rsz (im Arbeitsordner " & Arbeitsordner & ")"
  Testliste.AddItem "ist fr die Funktion des Programms erforderlich!"
  Testliste.AddItem ""
  Testliste.AddItem "Regeln zum Schreiben einer solchen Tonverlaufsliste:"
  Testliste.AddItem "Jede Parameterart soll in eine separate Zeile geschrieben werden, d.h. in einer Zeile steht"
  Testliste.AddItem "erst ein Schlsselwort fr einen Parameter (siehe unten) und dahinter - jeweils mit Abstand -"
  Testliste.AddItem "stehen die Werte. Die Abstnde sollten so gewhlt werden, da zueinander gehrende Eintrge"
  Testliste.AddItem "bereinander stehen. Der erste und der letzte Lautstrkewert sollte immer 0 sein."
  Testliste.AddItem ""
  Testliste.AddItem "Zu berechnende Werte sollen in eckige Klammern [] geschrieben werden. Nur die folgenden"
  Testliste.AddItem "Rechenzeichen drfen verwendet werden: * / + -"
  Testliste.AddItem "Es drfen nur 2 Zahlen miteinander verrechnet werden. Beispiele: [440*1.07], [220.7-3]. Werte,"
  Testliste.AddItem "die sich in unmittelbarer Folge wiederholen, knnen mit einem Punkt (.) dargestellt werden."
  Testliste.AddItem ""
  Testliste.AddItem ""
 'Testliste.AddItem ""
  Testliste.AddItem "S C H L  S S E L W  R T E R"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Haupt-Schlsselwrter (sie mssen am Zeilenbeginn stehen - Groschreibung beachten!):"
  Testliste.AddItem "ZP:   Zeitpunkte (in Sek.)"
  Testliste.AddItem "HT:   (Gesamt-)Tonhhen (in Hz)"
  Testliste.AddItem "LT:   (Gesamt-)Lautstrken (0 ... 50000)"
  Testliste.AddItem "KL:   Formanten (in Hz). Wenn die Tonverlaufsliste kein 'KL' enthlt,"
  Testliste.AddItem "      wird ein SINUSTON geschrieben, sonst ein FOF-Klang!"
  Testliste.AddItem ""
  Testliste.AddItem "Zustzliche Schlsselwrter (hier nur jeweils einen einzigen Wert angeben!):"
 'Testliste.AddItem "FUA:  Erste Funktion fr FOF (1, 2, 3, 4 usw.; nur ganze Zahlen!)"
 'Testliste.AddItem "FUB:  Zweite Funktion fr FOF (2, 3, 4, 5 usw.; nur ganze Zahlen!)"
  Testliste.AddItem "FUA:  Erster Wert fr FOF (1, 1.1, 2, 3, 3.5, 4.7, ...)"
  Testliste.AddItem "FUB:  Zweiter Wert fr FOF (1, 1.1, 2, 3, 3.5, 4.7, ...)"
  Testliste.AddItem "DEL:  Delay, ca. 0.0001 bis 1"
  Testliste.AddItem "ENTE: Enteneffekt, ca. 0 bis 3"
  Testliste.AddItem "FOM:  Formantfaktor, um 50.0; 10 bis 1000"
  Testliste.AddItem "FRV:  Frequenzvervielfachung. 0 bis ber 1000"
  Testliste.AddItem "Diese zustzlichen Schlsselwrter knnen entfallen. Dann gilt jeweils die Grundeinstellung."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem "Alle sonstigen Eintrge (ohne vorangehende Schlsselwrter) sind Kommentare!"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "B e i s p i e l"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Folgendes kann in der Datei '" & Tonliste & ".txt' stehen:"
  Testliste.AddItem ""
  Testliste.AddItem "     0       1        2        3        4        5        6        7        8       (9)"
  Testliste.AddItem "ZP  159 [165.202+0.01] 166.212 166.301 166.472  166.511  166.574  166.9    167.991  171.3"
  Testliste.AddItem "HT  1378.43  1378.43  [453/3]   .       482        .        .    [429-0.9]  .       334"
  Testliste.AddItem "KL   10       300     [300/2]   .      [300/4]     .        .      225      100     1000"
  Testliste.AddItem "LT  0.00     30000    25000    100       .      [200*2]   1000     0.000    17000    0"
  Testliste.AddItem ""
  Testliste.AddItem "FUA 3"
  Testliste.AddItem "FUB 4"
  Testliste.AddItem "DEL 0.3"
  Testliste.AddItem "ENTE 0.7"
  Testliste.AddItem "FOM 40"
  Testliste.AddItem "FRV 20"
  Testliste.AddItem ""
  Testliste.AddItem "Wie man sieht, ist sowohl der erste als auch der letzte Lautstrkewert Null!"
  Testliste.AddItem "Die erste Zeile (die mit den Ziffern) wird vom Programm als Kommentar verstanden."
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "B E D I E N U N G"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Mit der Taste A kann 'Tonverlauf.rsz' editiert werden, mit der Taste B startet"
  Testliste.AddItem "die Compilierung, mit C wird Csound und Cool Edit aufgerufen."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "P R E S E T S"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Beliebig viele Tonverlaufslisten knnen im Editor mit eigenen Namen"
  Testliste.AddItem "separat abgespeichert werden. Die Endung mu immer '.rsz' sein!"
  Testliste.AddItem "Mit dem pinkfarbenen Knopf knnen Presets direkt aufgerufen werden und editiert"
  Testliste.AddItem "werden, mit dem roten Knopf 'P' knnen sie fertiggestellt werden."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "Z U F A L L S K O M P O S I T I O N E N"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Mauszeiger bers Bild vom Oeschinensee in der Schweiz!"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "N O T E N"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Noten schreiben und umwandeln in ein Instrument mit kontinuierlichem Tonverlauf:"
  Testliste.AddItem "Nacheinander die Tasten 1, 2, 3 und 4 drcken. In Capella mssen die Noten als"
  Testliste.AddItem "Midi-Datei mit Namen Sample.mid in den Ordner C:\Arbeit exportiert werden."
  Testliste.AddItem "Eine umfangreiche Nachbearbearbeitung der Midi-Daten (z.B. Lautstrkebearbeitung,"
  Testliste.AddItem "Tondauernbearbeitung, Verschiebung der Ton-Startzeiten, Einfgen von zustzlichen"
  Testliste.AddItem "Tnen usw.) kann mit Sonar erfolgen."
  Testliste.AddItem "Nach der Nachbearbearbeitung wird wieder Knopf 2, 3 und 4 gedrckt."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "Zusatzinformationen"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Um einzelne Zeilen in Viole.rsz vor dem berschreiben zu schtzen, sollten"
  Testliste.AddItem "von diesen Zeilen Sicherheitskopien angefertigt werden. (entweder manuell"
  Testliste.AddItem "oder den kleinen braunen Knopf rechts neben der Taste 3 drcken!)."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "Die Datei Resone.ini enthlt die Voreinstellungen:"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem " 1. Zeile: Hrte (Glissando oder Legato)"
  Testliste.AddItem " 2. Zeile: Tempofaktor (hohe Zahl = schnell)"
  Testliste.AddItem " 3. Zeile: Frequenzfaktor (nur fr das FOF-Instrument)"
  Testliste.AddItem " 4. Zeile: Lautfaktor (Gesamtlautstrke)"
  Testliste.AddItem " 5. Zeile: FUA (FOF-Einstellung)"
  Testliste.AddItem " 6. Zeile: FUB (FOF-Einstellung)"
  Testliste.AddItem " 7. Zeile: ENTE (FOF-Einstellung)"
  Testliste.AddItem " 8. Zeile: DEL (Echo)"
  Testliste.AddItem " 9. Zeile: FOM (FOF-Einstellung)"
  Testliste.AddItem "10. Zeile: LTF (FOF-Lautstrkefaktor)"
  Testliste.AddItem "11. Zeile: LTS (Sample-Lautstrkefaktor)"
  Testliste.AddItem "12. Zeile: HTS (Sample-Frequenzfaktor)"
  Testliste.AddItem "13. Zeile: Dateinamenzhler"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "SAMPLE-OPTION:"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Die Sample-Datei mu Samp99.wav heien."
  Testliste.AddItem "Nur stetige Samples (gleichmige Klnge) MIT AUSREICHENDER"
  Testliste.AddItem "DAUER verwenden. Das Sample wird ber seine ganze Lnge in"
  Testliste.AddItem "Tonhhe und Lautstrke moduliert."
  Testliste.AddItem "Um die Lautstrke fr FOF und Sampler separat zu steuern,"
  Testliste.AddItem "mu in der Rsz-Datei folgendes VON HAND eingetragen werden:"
  Testliste.AddItem "LTF mit Leerzeichen, dahinter eine Zahl zwischen 0 und 1 (oder mehr) fr die FOF-Lautstrke,"
  Testliste.AddItem "LTS mit Leerzeichen, dahinter eine Zahl zwischen 0 und 1 (oder mehr) fr die Sample-Lautstrke."
  Testliste.AddItem "Dann den Knopf 4 (orange) drcken!"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "Percussion-Option:"
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem "Hauptverwendungszweck: Den Tonanfang hrter machen."
  Testliste.AddItem "Man kann damit aber auch sehr extreme Klangvernderungen bewirken, da der Tonanfang"
  Testliste.AddItem "sehr wichtig fr den Gesamteidruck des Klanges ist."
  Testliste.AddItem "Um den Percussion-Ton hren zu knnen, mu in Resonanz.wav der Lautstrkewert auf einen"
  Testliste.AddItem "bestimmten Wert, z.B. 0.3 gesetzt werden. Nach ipklt suchen!"
  Testliste.AddItem "Es wird standardmig die Funktion f3 (in Resonanz.sco) verwendet. Stattdessen kann auch 4, 5"
  Testliste.AddItem "oder 6 hineingeschrieben werden. Zustzlich knnen weitere Funktionen (am besten solche mit"
  Testliste.AddItem "Parameter 4 = 10) leicht von Hand in Resonanz.sco (fast ganz oben) eingetragen werden."
  Testliste.AddItem ""
  Testliste.AddItem "ACHTUNG! Nach manuellen Vernderungen in Resonanz.orc oder Resonanz.sco"
  Testliste.AddItem "darf nur noch die Taste C gedrckt werden. Sonst werden die Vernderungen berschrieben."
  Testliste.AddItem "-------------------------------------------------------------------------------------------"
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
End Sub


Private Sub Check1_Click()
 ZP_Knopf = Check1
End Sub

Private Sub Check2_Click()
 HT_Knopf = Check2
End Sub

Private Sub Check3_Click()
 LT_Knopf = Check3
End Sub


'Private Sub Check4_Click()
' KL_Knopf = Check4
'End Sub




Private Sub Command14_Click()
  Call RszAutoBackup ' Rsz-Datei automatisch sichern
  
  Vondatei = Arbeitsordner & "Viole.rsz"
  Open Vondatei For Input As #1
  Call AlleZeilenLesen
  Call Zeilencheck
  Close #1
  
  Call GBF1 ' visible usw.
  Call GBF9 ' Grund-Textfarben
  
  Call Check1_Click
  Call Check2_Click
  Call Check3_Click
 
  For m = 1 To 10000
    If ZP_Knopf = True Then ZPL(m) = 0 ' ZPL() schreiben ' finden
    If ZP_Knopf = True Then DTL(m) = 0
    If HT_Knopf = True Then HTL(m) = 0
    If LT_Knopf = True Then LTL(m) = 0
    z1 = 0: z2 = 0: z3 = 0: z4 = 0:
  Next m
  
  Text48.Visible = True 'zur Eingabe des Wertes fr FUA
  Text49.Visible = True 'zur Eingabe des Wertes fr FUB
  Text50.Visible = True 'zur Eingabe des Wertes fr ENTE
  Text51.Visible = True 'zur Eingabe des Wertes fr DEL
  Text52.Visible = True 'zur Eingabe des Wertes fr FOM
  Text45.Visible = True ' zur Eingabe des Wertes fr die Hrte
  Text46.Visible = True ' zur Eingabe des Wertes fr das Tempo
  Text47.Visible = True ' zur Eingabe des Wertes fr die Tonhhe
  Text58.Visible = True ' zur Eingabe des Wertes fr die Lautstrke
  Label18.Visible = True
  Text53.Visible = True ' Beschriftung 'FUA'
  Text54.Visible = True ' Beschriftung 'FUB'
  Text55.Visible = True ' Beschriftung 'ENTE'
  Text56.Visible = True ' Beschriftung 'DEL'
  Text57.Visible = True ' Beschriftung 'FOM'
  Label16.Visible = False ' Beschriftung 'MIDI'
  Label1.Visible = False  ' Beschriftung 'bernehmen'
  Label4.Visible = False  ' Beschriftung 'Tonverlaufsliste ..'
  
  Vondatei = Arbeitsordner & "Sample" & ".sco"
  On Error GoTo weiter2
  Open Vondatei For Input As #1
  Call AlleZeilenLesen
  Close #1
weiter2:
  Call Zeilencheck2
'(kapiert eine SCO-Datei)
  '
  Call INIschreiben ' <----- hier neu!
End Sub


Private Sub Zeilencheck2()
 'versteht SCO-Dateien
  a = 0
  mg = 0 ' Gefundene-Zeilen-Zhler
  z1 = 0: z2 = 0: z3 = 0
  Testliste.Clear ' Test

  For n = 1 To nv ' nv Zeilen nacheinander aufrufen
    a = 0
    Wort = "" 'Wrter heraussuchen
    Clef = "": flag = 0
    Zeile = ZL(n)

   'Zeilen mit i01 suchen:
    For m = 1 To Len(Zeile) ' Eine Zeile checken
      Buchstabe = Mid(Zeile, m, 1)
      If Buchstabe <> " " And m <> Len(Zeile) Then
        Wort = Wort & Buchstabe
      Else
        If m = Len(Zeile) Then Wort = Wort & Buchstabe ' Zusatz!
        If Wort = "i01" Then ' <------------------ i01 gefunden!
          Clef = "i01"
          flag = 1
          a = 1
        End If
      End If
    Next m
             
    If Clef = "i01" Then
      mg = mg + 1 '  Gefundene-Zeilen-Zhler
      Call ZeileDurchsuchen
    End If
   
  Next n
 
  Call RszDatei
 
End Sub


Private Sub ZeileDurchsuchen()
  Dim flag1 As Integer
  Wort = ""
  vk = 0
' For m = 1 To Len(Zeile) ' Eine Zeile checken
'   Buchstabe = Mid(Zeile, m, 1)
'   If Buchstabe <> " " And m <> Len(Zeile) Then ' Ziffer gelesen
'     flag1 = 1
'     Wort = Wort & Buchstabe
'   Else                                         ' Leerzeichen gelesen
'     If flag1 = 1 Then
'       vk = vk + 1 ' Vorkommenszhler
'       If vk = 2 Then z1 = z1 + 1: ZPL(z1) = Wort ' ZPL() schreiben ' finden
'       If vk = 3 Then z2 = z2 + 1: DTL(z2) = Wort
'       If vk = 4 Then z3 = z3 + 1: HTL(z3) = Wort
'      'If vk = 5 Then z4 = z4 + 1: LTL(z4) = Wort
'       If vk = 5 Then
'        Call Expander ' Expander!
'        'If LT_Knopf = True Then LTL(z4) = Wort
'        LTL(z4) = Wort
'       End If
'
'     End If
'     flag1 = 0
'     Wort = ""
'   End If
' Next m

  Call Check1_Click
  Call Check2_Click
  Call Check3_Click

  For m = 1 To Len(Zeile) ' Eine Zeile checken
    Buchstabe = Mid(Zeile, m, 1)
    If Buchstabe <> " " And m <> Len(Zeile) Then ' Ziffer gelesen
      flag1 = 1
      Wort = Wort & Buchstabe
    Else                                         ' Leerzeichen gelesen
      If flag1 = 1 Then
        vk = vk + 1 ' Vorkommenszhler
        
        If vk = 2 Then
          z1 = z1 + 1
          If ZP_Knopf = True Then ZPL(z1) = Wort  ' ZPL() schreiben ' finden
        End If
        
        If vk = 3 Then
          z2 = z2 + 1
          If ZP_Knopf = True Then DTL(z2) = Wort
        End If
        
        If vk = 4 Then
          z3 = z3 + 1
          If HT_Knopf = True Then HTL(z3) = Wort
        End If
        
        If vk = 5 Then
          Call Expander ' Expander!
          If LT_Knopf = True Then LTL(z4) = Wort
        End If
        
      End If
      flag1 = 0
      Wort = ""
    End If
  Next m

End Sub
 
 
 Private Sub Expander()
  'ist noch im Experimentierstadium - funktioniert aber gut!
  'die Dynamik soll vergrert werden.
  'Wort = Wort / 150
  'Wort = Wort ^ 3.6
  'Wort = Wort / 3200
   
   Wort = Wort ^ 3.6
   Wort = Wort / 200000000000#
   z4 = z4 + 1
 End Sub
 
 

 
Private Sub RszDatei() ' Tonverlaufs-Datei (.rsz) schreiben
 'notfalls Standardwerte nehmen:
  If Val(Text45.Text) = 0 Then Text45.Text = 0.05  'Hart
  If Val(Text46.Text) = 0 Then Text46.Text = 1     'Tempofaktor
  If Val(Text47.Text) = 0 Then Text47.Text = 1     'Frequenzfaktor
  If Val(Text58.Text) = 0 Then Text58.Text = 1     'Lautfaktor
  If Val(Text48.Text) = 0 Then Text48.Text = 1     'FUA
  If Val(Text49.Text) = 0 Then Text49.Text = 2     'FUB
  If Val(Text50.Text) = 0 Then Text50.Text = 0     'ENTE
  If Val(Text51.Text) = 0 Then Text51.Text = 0.001 'DEL
  If Val(Text52.Text) = 0 Then Text52.Text = 50    'FOM
 'If dnz = 0 Then dnz = 0 ' Dateinamenzhler

 'Neue Werte:
  Hart = Text45.Text ' <------ jetzt haben wir die nderbare Hrte!
  Tempofaktor = 0.5 / Text46.Text
  Frequenzfaktor = Text47.Text
  Lautfaktor = Text58.Text
  WFUA = Text48.Text
  WFUB = Text49.Text
  WENTE = Text50.Text
  WDEL = Text51.Text
  WFOM = Text52.Text
  
  WLTF = foffakt
  WLTS = sampfakt
  WHTS = sampfrq
  
  tb = 16 ' <----------------- Tabulaturwert
  Open Zurdatei0 For Output As #2
 
 'Bildschirmdarstellung Infos:
  Testliste.Clear ' Test
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem Time & " " & Date
  Testliste.AddItem "Aus " & Vondatei & " wird " & Zurdatei0 & " hergestellt."
  Testliste.AddItem ""
  Print #2, Time & " " & Date & " - viole.rsz, hergestellt mit resone aus sample.sco"
 'Testliste.AddItem ""
  Testliste.AddItem "Die Analyse der Datei " & Vondatei & " ist beendet! "
  
 'Runden und Bildschirmdarstellung der gelesenen Werte:
  Abst = "              "
 
 'Dies vorerst entfernt:
  Testliste.AddItem "Nr" & Abst & "ZT" & Abst & "DT" & Abst & "HT" & Abst & "LT"
  Testliste.AddItem ""
  
  For n = 1 To mg
    ZPL(n) = ZPL(n) * Tempofaktor    'neue Werte   ' ZPL() schreiben ' finden
    DTL(n) = DTL(n) * Tempofaktor    'neue Werte
    HTL(n) = HTL(n) / 2 * Frequenzfaktor 'neue Werte - /2 ist neu!
    
    If LT_Knopf = True Then LTL(n) = LTL(n) * Lautfaktor
    
    Call runden(1000, ZPL(n))  ' ZPL() schreiben ' finden
    Call runden(1000, DTL(n))
    Call runden(100, HTL(n)) '<------ oder 10
    
    If LT_Knopf = True Then Call runden(1, LTL(n))
  
 'Dies vorerst entfernt - jetzt wieder eingesetzt:
  Testliste.AddItem n & Abst & ZPL(n) & Abst & DTL(n) & Abst & HTL(n) & Abst & LTL(n)
  
  Next n
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "Der Inhalt der Datei " & Zurdatei0 & " kann jetzt mit dem Editor"
  Testliste.AddItem "beliebig verndert werden. Dazu die goldene Taste (zwischen 3 und 4) drcken und 'Viole.rsz' auswhlen."
  Testliste.AddItem "Dann die orangefarbene Taste (4) drcken, um Resonanz.sco und Resonanz.orc herzustellen und Csound zu starten."
  Testliste.AddItem ""
  Testliste.AddItem ""
 
 'Neue Werte:
  Testliste.AddItem "FUA  " & WFUA
  Testliste.AddItem "FUB  " & WFUB
  Testliste.AddItem "ENTE " & WENTE
  Testliste.AddItem "DEL  " & WDEL
  Testliste.AddItem "FOM  " & WFOM
  Testliste.AddItem ""
  Testliste.AddItem "Hrte:   " & Hart
' Testliste.AddItem "Tempo:   " & 1 / (Tempofaktor * 2) & "-fach"
  Testliste.AddItem "Tempo:   " & 1 / (Tempofaktor * 2)
  Testliste.AddItem "Gesamt-Tonhhe: " & Frequenzfaktor
  Testliste.AddItem "Gesamt-Lautstrke: " & Lautfaktor
  Testliste.AddItem ""
  Testliste.AddItem "Die folgenden Werte"
  Testliste.AddItem "sind nur direkt in"
  Testliste.AddItem "Viole.rsz nderbar:"
  Testliste.AddItem "LTF  " & WLTF & " (FOF-Lautstrke)"
  Testliste.AddItem "LTS  " & WLTS & " (Sample-Lautstrke)"
  Testliste.AddItem "HTS  " & WHTS & " (Sample-Tonhhe)"
  Testliste.AddItem ""
  Testliste.AddItem ""


Call Notennummern
Call Zeitpunkte
Call Lautstrken
Call Tonhhen
Call Klangfarben

' Zusatzangaben schreiben:
  Print #2, ""
  
' Print #2, "FUA  1"
' Print #2, "FUB  2"
' Print #2, "ENTE 0.01"
' Print #2, "DEL  0.001"
' Print #2, "FOM  50"
  
  Print #2, "FUA  " & WFUA
  Print #2, "FUB  " & WFUB
  Print #2, "ENTE " & WENTE
  Print #2, "DEL  " & WDEL
  Print #2, "FOM  " & WFOM
  Print #2, ""
  Print #2, "LTF  " & WLTF
  Print #2, "LTS  " & WLTS
  Print #2, "HTS  " & WHTS
  Print #2, ""
  
  Close #2

End Sub
  

Private Sub Notennummern()
' Notennummern schreiben:
  Print #2, ""
  nx = 1
  For n = 1 To mg
    
    If (ZPL(n) + DTL(n)) < (ZPL(n + 1) - 0.001) Then   ' 0.001 zur Sicherheit
'----------------------------------------------------------------------- 1
    
     'eine Pause soll entstehen ...
      Print #2, Tab(nx * tb); n;
      nx = nx + 5 ' es sind 5 Ereignisse
  
'----------------------------------------------------------------------- 1
    Else
'----------------------------------------------------------------------- 2
      
      Print #2, Tab(nx * tb); n;
      nx = nx + 3
  
'----------------------------------------------------------------------- 2
    End If
  
  Next n
  Print #2, Tab(nx * tb); " e";
  Print #2, ""
End Sub


Private Sub Zeitpunkte()
' Zeitpunkte schreiben:
  Dim Differenz
  
  Print #2, "ZP";
  nx = 1
  For n = 1 To mg
    
    If (ZPL(n) + DTL(n)) < (ZPL(n + 1) - 0.001) Then      ' 0.001 ?? zur Sicherheit
'----------------------------------------------------------------------- 1
      
     'eine Pause soll entstehen ...
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+0.00" & "]";
      nx = nx + 1
      
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+"; Hart & "]";
      nx = nx + 1
    
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+"; DTL(n) & "]";
      nx = nx + 1
    
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+"; DTL(n) + Hart & "]";
      nx = nx + 1
      
      If ZPL(n + 1) <> 0 Then ' Ende erreicht?
        If (ZPL(n + 1) - Hart) <= (ZPL(n) + DTL(n) + Hart) Then       '  ?
          Differenz = (ZPL(n) + DTL(n) + Hart) - (ZPL(n + 1) - Hart)  ' <---------- RUNDEN!!
          Call runden(1000, Differenz)
          Print #2, Tab(nx * tb); "[" & ZPL(n + 1) & "-"; Hart - (Differenz + 0.0001) & "]";
        Else                                                          '  ?
          Print #2, Tab(nx * tb); "[" & ZPL(n + 1) & "-"; Hart & "]";
        End If                                                        '  ?
      Else
        Print #2, Tab(nx * tb); "[" & ZPL(n) + DTL(n) & "-"; Hart & "]";
      End If
      
      nx = nx + 1

'----------------------------------------------------------------------- 1
    Else
'----------------------------------------------------------------------- 2
      
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+0.00" & "]";
      nx = nx + 1
      
      Print #2, Tab(nx * tb); "[" & ZPL(n) & "+"; Hart & "]";
      nx = nx + 1
      
      If ZPL(n + 1) <> 0 Then ' Ende erreicht?
        Print #2, Tab(nx * tb); "[" & ZPL(n + 1) & "-"; Hart & "]";
      Else
        Print #2, Tab(nx * tb); "[" & ZPL(n) + DTL(n) & "-"; Hart & "]";
      End If
      
      nx = nx + 1

'----------------------------------------------------------------------- 2
    End If
  Next n
      
      
  Print #2, Tab(nx * tb); "[" & ZPL(n - 1) + DTL(n - 1) & "+0.00" & "]";
  Print #2, ""
End Sub




Private Sub Lautstrken()
' Lautstrken schreiben:
  Print #2, "LT";
  nx = 1
  For n = 1 To mg
    If (ZPL(n) + DTL(n)) < (ZPL(n + 1) - 0.001) Then   ' 0.001 zur Sicherheit
'----------------------------------------------------------------------- 1
    
     'eine Pause soll entstehen ...
      If nx = 1 Then ' erster LT-Eintrag soll 0 sein - besser: nach n = 1 fragen ...
        Print #2, Tab(nx * tb); "[" & "0" & "*1.00" & "]";
      Else
        Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      End If
      nx = nx + 1
      
      Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      nx = nx + 1
      
      Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      nx = nx + 1
    
     'hier entsteht die Pause:
      Print #2, Tab(nx * tb); "[" & LTL(n) & "*0.00" & "]";
      nx = nx + 1
      Print #2, Tab(nx * tb); "[" & LTL(n) & "*0.00" & "]";
      nx = nx + 1
          
'----------------------------------------------------------------------- 1
    Else
'----------------------------------------------------------------------- 2
    
      If nx = 1 Then ' erster LT-Eintrag soll 0 sein - besser: nach n = 1 fragen ...
        Print #2, Tab(nx * tb); "[" & "0" & "*1.00" & "]";
      Else
        Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      End If
      nx = nx + 1
    
      Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      nx = nx + 1

      Print #2, Tab(nx * tb); "[" & LTL(n) & "*1.00" & "]";
      nx = nx + 1

'----------------------------------------------------------------------- 2
    End If
  
  Next n
  Print #2, Tab(nx * tb); "[" & "0" & "*1.00" & "]";
  Print #2, ""

End Sub


Private Sub Tonhhen()
' Tonhhen schreiben:
  Print #2, "HT";
  nx = 1
  For n = 1 To mg
    If (ZPL(n) + DTL(n)) < (ZPL(n + 1) - 0.001) Then   ' 0.001 zur Sicherheit
'----------------------------------------------------------------------- 1
    
     'eine Pause soll entstehen ...
      Print #2, Tab(nx * tb); "[" & HTL(n) & "*1.00" & "]";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
'     Print #2, Tab(nx * tb); ".";
      Print #2, Tab(nx * tb); "[" & HTL(n + 1) & "*1.00" & "]";
      '(schon hier die folgende Tonhhe einsetzen!)
      nx = nx + 1

'----------------------------------------------------------------------- 1
    Else
'----------------------------------------------------------------------- 2

      Print #2, Tab(nx * tb); "[" & HTL(n) & "*1.00" & "]";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1

'----------------------------------------------------------------------- 2
    End If
  
  Next n
  Print #2, Tab(nx * tb); ".";
  Print #2, ""
End Sub


Private Sub Klangfarben()
' Klangfarben schreiben:
  Print #2, "KL";
  nx = 1
  For n = 1 To mg
    If (ZPL(n) + DTL(n)) < (ZPL(n + 1) - 0.001) Then   ' 0.001 zur Sicherheit
'----------------------------------------------------------------------- 1
    
     'eine Pause soll entstehen ...
      Print #2, Tab(nx * tb); "[" & HTL(n) & "*1.00" & "]";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1

'----------------------------------------------------------------------- 1
    
    Else

'----------------------------------------------------------------------- 2
      
      Print #2, Tab(nx * tb); "[" & HTL(n) & "*1.00" & "]";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1
      Print #2, Tab(nx * tb); ".";
      nx = nx + 1

'----------------------------------------------------------------------- 2
    End If
  
  Next n
  Print #2, Tab(nx * tb); ".";
  Print #2, ""
End Sub



Private Sub runden(x, y)
'runden auf so viele Stellen hinter dem Komma, wie x Nullen hat:
 y = Int((y * x) + 0.5) / x
End Sub



Private Sub Showtest() ' Die Sco-Datei darstellen
'  Open Zurdatei1 For Input As #4
   Do While Not EOF(1)
     Line Input #1, Zeile
     Testliste.AddItem Zeile
   Loop
   
'  Close #1
End Sub



Private Sub Command15_Click()
  Call GBF1
  Call GBF2
  Preset = "C:\Arbeit\Viole.rsz"
  PRE = True
  Call Form_Load
  Testliste.Clear
  Call ShowSCO ' Die Sco-Datei darstellen
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "=========================================================================================================="
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Call ShowORC ' Die Orc-Datei darstellen
  Call Command5_Click
End Sub



Private Sub Command16_Click()
 'Call GBF1
 'Call GBF9
  Preset = "C:\Arbeit\Viole.rsz"
  Shell "C:\Arbeit\Editor\NoteTab.exe  " & Preset
  PRE = True
End Sub



Private Sub Command17_Click()
 'Call GBF1 ' visible usw.
 'Call GBF2 ' Grund-Textfarben
  On Error GoTo capraus
  ChDir "C:\Programme\capella2004\"
  Shell "C:\Programme\capella2004\capella.exe  C:\Arbeit\Sample.cap", vbNormalFocus
' Shell "C:\Programme\capella2004\capella.exe", vbNormalFocus
  ChDir "C:\Arbeit\"
capraus:
End Sub

Private Sub Command18_Click()
  Call GBF1 ' visible usw.
  Call GBF9 ' Grund-Textfarben
  Shell "C:\Arbeit\MIDI2CS1.bat", 1
  Call SonarText("C:\Arbeit\Sample.sco")
End Sub

Private Sub Command19_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
  On Error GoTo dirbat3braus
  Shell "C:\Arbeit\directory3b.bat", 1
dirbat3braus:
End Sub

Private Sub Command20_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
  On Error GoTo dirbat3craus
  Shell "C:\Arbeit\directory3c.bat", 1
dirbat3craus:
End Sub

Private Sub Command21_Click()
  Call GBF1 ' visible usw.
  Call GBF9 ' Info-Textfarben
  Text48.Visible = False
  Text49.Visible = False
  Text50.Visible = False
  Text51.Visible = False
  Text52.Visible = False
  Text53.Visible = False
  Text54.Visible = False
  Text55.Visible = False
  Text56.Visible = False
  Text57.Visible = False
  
  Text45.Visible = True
  Text46.Visible = True
  Text47.Visible = True
  Text58.Visible = True
  Label18.Visible = True
  
  Label16.Visible = False ' Beschriftung 'MIDI'
  Label1.Visible = False  ' Beschriftung 'bernehmen'
  Label4.Visible = False  ' Beschriftung 'Tonverlaufsliste ..'

  Call LtHt
End Sub


Private Sub Command22_Click()
 'UA-100 aufrufen
  On Error GoTo ua100raus
  Shell "C:\Programme\Roland\Ua100ctl\UA100cnt.exe", 1
ua100raus:
End Sub


Private Sub Command25_Click()
 'SAMPLITUDE mit Sample.vip aufrufen
  ChDir "C:\SEKD\SamStud\"
  On Error GoTo Sampliraus
  Shell "C:\SEKD\SamStud\Sam45.exe  C:\Arbeit\Sample.vip", 1
Sampliraus:
  ChDir "C:\Arbeit\"
  Call SonarText("C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Samplitude.txt")
 '(der Hilfstext wird im Hauptfenster gezeigt)
End Sub


Private Sub Command23_Click()
 'SONAR mit Sample.mid aufrufen
 '(der Hilfstext wird im Editor gezeigt)
  ChDir "C:\Programme\Cakewalk\SONAR 1\"
  On Error GoTo Sonarraus
  Shell "C:\Programme\Cakewalk\SONAR 1\SONAR.EXE C:\Arbeit\Sample.mid", 1
Sonarraus:
  ChDir "C:\Arbeit\"
  Call SonarText("C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Sonar.txt")
 '(der Hilfstext wird im Hauptfenster gezeigt)
 'Shell "C:\Arbeit\Editor\NoteTab.exe C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Sonar.txt"
End Sub



Private Sub Command30_Click()
  Call SonarText("C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Sonar.txt")
 '(der Hilfstext wird im Hauptfenster gezeigt)
 'Shell "C:\Arbeit\Editor\NoteTab.exe C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Sonar.txt"
End Sub



Private Sub Command24_Click()
 'VGLMIDI aufrufen
  ChDir "C:\Arbeit\VB\VglMidi\"
  On Error GoTo Vglraus
  Shell "C:\Arbeit\VB\VglMidi\VglMidi.exe", 1
Vglraus:
  ChDir "C:\Arbeit\"
End Sub


Private Sub SonarText(von)
 'Ein Text wird im Hauptfenster gezeigt! - voici
  Call GBF1 ' visible usw.
  Call GBF9 ' Spezial-Textfarbe
  On Error GoTo weiter1
  Open von For Input As #8
  Testliste.Clear
  Do While Not EOF(8)
    Line Input #8, Zeile
    Testliste.AddItem Zeile
  Loop
  Close #8
weiter1:
End Sub


Private Sub LtHt()
  Testliste.Clear
  Testliste.AddItem ""
  Testliste.AddItem "     Lautstrketabelle                  Frqenzen aufwrts:                   Halbton:"
  Testliste.AddItem "                                        ----------------------               ----------------------"
  Testliste.AddItem "     ----------------------             c   1.000                            2^(1/12)=1.059"
  Testliste.AddItem "      Midi  Csound                      cis 1.059                            1/1.059=0.944"
  Testliste.AddItem "     ----------------------             d   1.122                            "
  Testliste.AddItem "             10.00                      dis 1.189                            Viertelton:"
  Testliste.AddItem "              7.49                      e   1.260                            ----------------------"
  Testliste.AddItem "              5.62                      f   1.335                            2^(1/24)=1.029"
  Testliste.AddItem "              4.21                      fis 1.414                            1/1.029=0.972"
  Testliste.AddItem "              3.16                      g   1.498                            "
  Testliste.AddItem "              2.37                      gis 1.587                            Achtelton:"
  Testliste.AddItem "              1.78                      a   1.682                            ----------------------"
  Testliste.AddItem "              1.33                      ais 1.782                            2^(1/48)=1.015"
  Testliste.AddItem "     ----------------------             h   1.888                            1/1.015=0.985"
  Testliste.AddItem "     127     1.00                       c   2.000"
  Testliste.AddItem "     ----------------------             "
  Testliste.AddItem "     120     0.75                       "
  Testliste.AddItem "     112     0.56                       Frqenzen abwrts:"
  Testliste.AddItem "     105     0.42                       ----------------------"
  Testliste.AddItem "      97     0.32                       c   1.000"
  Testliste.AddItem "      90     0.24                       h   0.944"
  Testliste.AddItem "      82     0.18                       b   0.892"
  Testliste.AddItem "      75     0.13                       a   0.842"
  Testliste.AddItem "      67     0.10                       as  0.795"
  Testliste.AddItem "      60     0.075                      g   0.750"
  Testliste.AddItem "      52     0.056                      ges 0.707"
  Testliste.AddItem "      45     0.042                      f   0.667"
  Testliste.AddItem "      37     0.032                      e   0.630"
  Testliste.AddItem "      30     0.024                      es  0.595"
  Testliste.AddItem "      22     0.018                      d   0.561"
  Testliste.AddItem "      15     0.013                      des 0.530"
  Testliste.AddItem "       7     0.010                      c   0.500"
  Testliste.AddItem ""
  End Sub



Private Sub Initialisierung()
  Open "C:\Arbeit\Resone.ini" For Input As #9
    Line Input #9, Zeile: Text45.Text = Zeile 'Hart
    Line Input #9, Zeile: Text46.Text = Zeile 'Tempofaktor
    Line Input #9, Zeile: Text47.Text = Zeile 'Frequenzfaktor
    Line Input #9, Zeile: Text58.Text = Zeile 'Lautfaktor
    Line Input #9, Zeile: Text48.Text = Zeile 'FUA
    Line Input #9, Zeile: Text49.Text = Zeile 'FUB
    Line Input #9, Zeile: Text50.Text = Zeile 'ENTE
    Line Input #9, Zeile: Text51.Text = Zeile 'DEL
    Line Input #9, Zeile: Text52.Text = Zeile 'FOM
    Line Input #9, Zeile: WLTF = Zeile 'LTF
    Line Input #9, Zeile: WLTS = Zeile 'LTS
    Line Input #9, Zeile: WHTS = Zeile 'HTS
    Line Input #9, Zeile: dnz = Val(Zeile)    'Dateinamenzhler - NEU
  Close #9
End Sub


Private Sub INIschreiben()
  Open "C:\Arbeit\Resone.ini" For Output As #9
  Print #9, Text45.Text
  Print #9, Text46.Text
  Print #9, Text47.Text
  Print #9, Text58.Text
  Print #9, Text48.Text
  Print #9, Text49.Text
  Print #9, Text50.Text
  Print #9, Text51.Text
  Print #9, Text52.Text
  Print #9, WLTF
  Print #9, WLTS
  Print #9, WHTS
  Print #9, dnz 'Dateinamenzhler - NEU
  Close #9
End Sub



Private Sub Command31_Click()
 'Call Command18_Click
  Call Command14_Click
  Call Command15_Click
End Sub

Private Sub Command32_Click()
  FileCopy "C:\Arbeit\Viole.rsz", "C:\Arbeit\Rsz-Backup-1"
End Sub


Private Sub RszAutoBackup()
  FileCopy "C:\Arbeit\Viole.rsz", "C:\Arbeit\Rsz-Backup-0"
End Sub



Private Sub Command33_Click()
  Preset = "C:\Arbeit\Viole.rsz"
  Shell "C:\Arbeit\Editor\NoteTab.exe  " & "C:\Arbeit\Rsz-Backup-1"
End Sub

Private Sub Command34_Click()
  Preset = "C:\Arbeit\Viole.rsz"
  Shell "C:\Arbeit\Editor\NoteTab.exe  " & "C:\Arbeit\Rsz-Backup-0"
End Sub



Private Sub Command35_Click()
  Call SonarText("C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Samplitude.txt")
 '(der Hilfstext wird im Hauptfenster gezeigt)
End Sub

Private Sub Command36_Click()
Dim nnn As String
dnz = dnz + 1: dnz = Int(dnz)
nnn = "c:\Arbeit\Resi" & dnz & ".wav" 'Dateinamenzhler
  FileCopy "C:\Arbeit\Resonanz.wav", nnn
 'Shell "C:\Arbeit\directory3g.bat", 1
  Shell "C:\Arbeit\directory3d.bat", 1
  Call INIschreiben
End Sub

Private Sub Command37_Click()
  Shell "C:\Arbeit\directory3g.bat", 1
 'Shell "C:\Arbeit\directory3d.bat", 1
End Sub


Private Sub Command38_Click()
  On Error GoTo plgraus
  ChDir "C:\Programme\meine\"
  Shell "C:\Programme\meine\PLUG", vbNormalFocus
  ChDir "C:\Arbeit\"
plgraus:
End Sub

Private Sub Command39_Click()
  Call SonarText("C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\PLUG.txt")
 '(der Hilfstext wird im Hauptfenster gezeigt)
End Sub

Private Sub Command40_Click()
  Open "c:\Arbeit\Default-Einzelton.plg" For Output As #3
  '
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Orcdatei1"
  Print #3, "                  ; Percussion-Modul:"
  Print #3, "  ihart  = 0.0001 ; Hrte          <--- Wert kann gendert werden!"
  Print #3, "  idauer = 0.08   ; Dauer          <--- Wert kann gendert werden!"
  Print #3, "  ipklt  = 0.30   ; Lautstrke     <--- z.B. 0.3"
  Print #3, "  ipkfq  = 1.00   ; Frequenzfaktor <--- Wert kann gendert werden!"
  Print #3, "  ;"
  Print #3, "  klt linseg 0, ihart, p5, idauer, 0"
  Print #3, "  klaut = klt * ipklt"
  Print #3, "  kfrequenz = p4 * ipkfq"
  Print #3, "  aw1 oscili klaut, kfrequenz, 4 ; die Funktionsnummer zeigt auf eine Funktion in der Partitur!"
  Print #3, "  outs aw1, aw1                  ; der Wert kann gendert werden, soweit sich weitere"
  Print #3, "                                 ; Funktionen in Resonanz.sco befinden."
  Print #3, "                                 ; Viele Beispiele fr solche Funktionen stehen in"
  Print #3, "                                 ; C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Csound-Infos.txt und"
  Print #3, "                                 ; C:\Arbeit-jms\Eigene Dateien 2\Texte\Bedienungsanleitungen\Gespeicherte-Funktionen.txt"
  Print #3, "                                 ; Stand: 10.10.2007."
  Print #3, ";E-Orcdatei1"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Scodatei1"
  Print #3, " ;Es ist ein PERCUSSION-MODUL eingebaut!"
  Print #3, ""
  Print #3, " ;Eine der folgenden Funktionen kann von diesem Percussion-Modul in instr1 benutzt werden:"
  Print #3, " ;Funktion: meine Stimme"
  Print #3, "  f 4 0 1024 10"
  Print #3, "  0.023271  0.071349  0.046627  0.000849  0.019486  0.017120  0.002389  0.003311  0.003439  0.011125"
  Print #3, "  0.008188  0.001681  0.001761  0.001710  0.001896  0.004760  0.002530  0.003983  0.004257  0.001098"
  Print #3, "  0.000337  0.002187  0.002301  0.006704  0.006966  0.002516  0.007792  0.002892  0.000926  0.000502"
  Print #3, "  0.000363  0.000386  0.000722  0.000157  0.000350  0.000384  0.000284  0.000366  0.000333  0.000265"
  Print #3, ""
  Print #3, " ;Funktion: E-Gitarrenton mit 233 Hz"
  Print #3, "  f 5 0 1024 10"
  Print #3, "  0.032664  0.014286  0.009340  0.001813  0.001247  0.000516  0.000462  0.001183  0.000302  0.000101"
  Print #3, "  0.000284  0.000589  0.000381  0.000825  0.001110  0.001186  0.001160  0.000113  0.000141  0.000384"
  Print #3, "  0.000332  0.000008  0.000053  0.000024  0.000038  0.000018  0.000039  0.000014  0.000033  0.000024"
  Print #3, "  0.000025  0.000019  0.000024  0.000022  0.000026  0.000015  0.000024  0.000021  0.000027  0.000012"
  Print #3, ""
  Print #3, " ;Funktion: verzerrte E-Gitarre mit 82 Hz"
  Print #3, "  f 6 0 1024 10"
  Print #3, "  0.020777  0.050116  0.103668  0.062283  0.018407  0.010295  0.022888  0.014498  0.011156  0.013014"
  Print #3, "  0.004661  0.002779  0.007305  0.004760  0.003255  0.005332  0.002018  0.002265  0.000879  0.007874"
  Print #3, "  0.012900  0.007430  0.008757  0.011392  0.000978  0.009415  0.005329  0.020022  0.010276  0.006660"
  Print #3, "  0.001263  0.004781  0.002991  0.006661  0.008827  0.006743  0.006206  0.005108  0.006462  0.006185"
  Print #3, ""
  Print #3, " ;Funktion: Violine eines Kindes auf 392 Hz"
  Print #3, "  f 7 0 1024 10"
  Print #3, "  0.011220  0.006249  0.000715  0.006777  0.001450  0.002476  0.000509  0.002299  0.001383  0.000246"
  Print #3, "  0.000329  0.000695  0.000155  0.000222  0.000294  0.000341  0.000172  0.000185  0.000233  0.000343"
  Print #3, "  0.000198  0.000156  0.000079  0.000040  0.000251  0.000079  0.000113  0.000203  0.000145  0.000073"
  Print #3, "  0.000086  0.000157  0.000019  0.000029  0.000127  0.000168  0.000121  0.000121  0.000201  0.000122"
  Print #3, ""
  Print #3, " ;Weitere Funktionen (f7, f8, usw.) knnen manuell eingetragen werden."
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";E-Scodatei1"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Info"
  Print #3, ""
  Print #3, " ACHTUNG!!"
  Print #3, ""
  Print #3, " Die Datei 'Default-Einzelton.plg' mu umbenannt werden!"
  Print #3, " Zu Testzwecken kann man sie zwar hier einbauen, doch damit die"
  Print #3, " nderungen nicht verloren gehen, sollte sie dann sofort in eine"
  Print #3, " Datei '*.plg' umbenannt werden."
  Print #3, ""
  Print #3, " Bei jedem Mausklick auf den Knopf e wird die Datei"
  Print #3, " 'Default-Einzelton.plg' neu geschrieben. Damit werden alle"
  Print #3, " nderungen berschrieben!"
  Print #3, ""
  Print #3, ";E-Info"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  '
  Close #3
  '
  'Call SonarText("C:\Arbeit\Default-Einzelton.plg") ' im Fenster zeigen
  Shell "C:\Arbeit\Editor\NoteTab.exe " & "C:\Arbeit\Default-Einzelton.plg" ' mit NoteTab ffnen
End Sub

Private Sub Command41_Click()
  Open "c:\Arbeit\Default-Dauerton.plg" For Output As #3
  '
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Orcdatei2"
  Print #3, ";---------------------------------------------------------"
  Print #3, ";ZWEIFACH-SAMPLER"
  Print #3, ";---------------------------------------------------------"
  Print #3, ";Frequenz:    gkfrq1"
  Print #3, ";fr einen Sampler mit loscil: afrq = (gkfrq1 / 440) * gifreqfakts * 4"
  Print #3, ";Klang:       gkfoq1"
  Print #3, ";Lautstrke:  gksamp1 * 14 (oder p5?)"
  Print #3, ";"
  Print #3, ";Das zu spielende Sample mu Samp100.wav heien."
  Print #3, ";Es mu von ausreichender Lnge sein."
  Print #3, ";---------------------------------------------------------"
  Print #3, " Instr 98"
  Print #3, "  ;Tonhheneinstellung:"
  Print #3, "   afrq = (gkfrq1 / 440) * gifreqfakts * 4"
  Print #3, "   afrqx = (gkfrq1 / 440) * gifreqfakts * 4 * 1.5 ; oder ein anderes Intervall"
  Print #3, "   gkfoq = gkfoq1 * gifreqfakts * 4"
  Print #3, ""
  Print #3, "   aw1v,aw2v loscil gksamp1*14, afrq, 98   ; Sampleplayer 1"
  Print #3, "   aw1v = aw1v * 0.005 * 2                 ; skalieren"
  Print #3, "   aw2v = aw2v * 0.005 * 2                 ; skalieren"
  Print #3, "   aw1 reson aw1v, gkfoq, 90               ; Bandpafilter, letzter Wert: Breite"
  Print #3, "   aw2 reson aw2v, gkfoq, 90               ; Bandpafilter"
  Print #3, "   outs aw1, aw2"
  Print #3, ""
  Print #3, "   aw1vx,aw2vx loscil gksamp1*14, afrqx, 98   ; Sampleplayer 2"
  Print #3, "   aw1vx = aw1vx * 0.005 * 2                  ; skalieren"
  Print #3, "   aw2vx = aw2vx * 0.005 * 2                  ; skalieren"
  Print #3, "   aw1x reson aw1vx, gkfoq, 90                ; Bandpafilter, letzter Wert: Breite"
  Print #3, "   aw2x reson aw2vx, gkfoq, 90                ; Bandpafilter"
  Print #3, "   outs aw2x, aw1x                            ; Kanle umgekehrt"
  Print #3, ""
  Print #3, " endin"
  Print #3, " ;---------------------------------------------------------"
  Print #3, ";E-Orcdatei2"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Scodatei2"
  Print #3, " f98   0.00   0  1  ""Samp100.wav""  0  0  0"
  Print #3, ";E-Scodatei2"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";A-Info"
  Print #3, ""
  Print #3, " ACHTUNG!!"
  Print #3, ""
  Print #3, " Die Datei 'Default-Dauerton.plg' mu umbenannt werden!"
  Print #3, " Zu Testzwecken kann man sie zwar hier einbauen, doch damit die"
  Print #3, " nderungen nicht verloren gehen, sollte sie dann sofort in eine"
  Print #3, " Datei '*.plg' umbenannt werden."
  Print #3, ""
  Print #3, " Bei jedem Mausklick auf den Knopf d wird die Datei"
  Print #3, " 'Default-Dauerton.plg' neu geschrieben. Damit werden alle"
  Print #3, " nderungen berschrieben!"
  Print #3, ""
  Print #3, ";E-Info"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  '
  Close #3
  '
  'Call SonarText("C:\Arbeit\Default-Dauerton.plg") ' im Fenster zeigen
  Shell "C:\Arbeit\Editor\NoteTab.exe " & "C:\Arbeit\Default-Dauerton.plg" ' mit NoteTab ffnen
End Sub





















12:26:30 07.02.2009 <---
Private Sub Form_Load()
'---------------------------------------------
'Onfi = "RESONE, 3. Version vom 07.03.2007, 13:03" ' 3. Version: MIDI eingebaut
'---------------------------------------------
  Call Positionen
  '
  Zufallsliste.Default = False
  GLnull = 0.0001 ' erste Gliss.-Zahl
  Rundu = 10000 ' Rundung auf 4 Stellen
  FOF = False
  fun1 = 0: fun2 = 0: delayfakt = 0: entenmult = 0: formantfakt = 0: frequenzverviel = 0
' foffakt = 1
' sampfakt = 1
'----------------------------
' STARTWERTE-Voreinstellungen: <------------------ Grundeinstellungen, nderbar!
'----------------------------
 'Nur beim PROGRAMMSTART wird dieser Abschnitt durchlaufen:
  If Nichterst = False Then ' wenn es zum ersten Mal ist ...
    Call Initialisierung ' zuletzt verwendete Einstellungen
    '
   'Text45.Text = 0.05 ' 1. Textfenster bei MIDI
   'Text46.Text = 1 ' 2. Textfenster bei MIDI
    'Fr die Zeitpunkte:
    Text3.Text = 10     ' ---> Zzeit
    Text2.Text = 0.05   ' ---> Mindist
    Text1.Text = 0.2    ' ---> Maxdist
    Text4.Text = 0.0001 ' ---> Quant1
    '
    ' Fr die Lautstrken:
    Text9.Text = 0      ' ---> MinLT
    Text10.Text = 50000 ' ---> MaxLT
    '
    ' Fr die Tonhhen:
    Text13.Text = 48    '(c gro) ---> MinHT
    Text14.Text = 84    '(c 2)    ---> MaxHT
    Text16.Text = 127   ' ---> MaxINT
    Text17.Text = 2     '(Halbtonschritte) ---> QuantH
    Text23.Text = 4     ' HTw, Tonwiederholungsrate
    '
    'Fr die Formantfrequenzen; Klangfarbenerzeugung:
    Text32.Text = 20    ' ---> MinKL
    Text31.Text = 40    ' ---> MaxKL
    Text30.Text = 127   ' ---> MaxINL
    Text29.Text = 2     '(Halbtonschritte) ---> QuantF
    Text20.Text = 0     ' HTy, Tonwiederholungsrate - 0 bedeutet: Sinus erzeugen
    '
    ' Fr die Zusatzparameter der FOF-Generatoren    :
    Text39.Text = 0     '
    Text40.Text = 0     '
    Text41.Text = 0     '
    Text42.Text = 0     '
    Text43.Text = 0     '
    Text44.Text = 0     '
    '
    Call GBF3 ' Info-Textfarben <--- neu
  Else
    Call GBF2 ' Grund-Textfarben ' auer Betrieb
  End If
  Nichterst = True
'--------------------------------------------
  Arbeitsordner = "C:\Arbeit\"
  Tonliste = "Tonverlauf"
  Csoundname = "Resonanz"
'--------------------------------------------
   '
  Call GBF1
  Call GBF5
  '
  If PRE = False Then
    Vondatei = Arbeitsordner & Tonliste & ".rsz"
  Else
    Vondatei = Preset
  End If
  Zurdatei0 = Arbeitsordner & "Viole" & ".rsz"
  Zurdatei1 = Arbeitsordner & Csoundname & ".sco"
  Zurdatei2 = Arbeitsordner & Csoundname & ".orc"
  Zurdatei3 = Arbeitsordner & "cs06b.bat"
  Zufallsdatei = Arbeitsordner & "Zufall.rsz"
  '
 'On Error Resume Next
  On Error GoTo weiter3
  Open Vondatei For Input As #1
  '
  If PRE = False Then
    If Zufhol = True Then
      frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Tonliste & ".rsz  -  Zufallsliste: " & DateinameXX
      frmda1 = "R E S O N E  -  Tonverlaufsliste: " & Tonliste & ".rsz"
        frmda2 = "Zufallsliste: " & DateinameXX
    Else
      frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Tonliste & ".rsz  -  von Hand eingegeben" ' Fenster: Bezeichner
      frmda1 = "R E S O N E  -  Tonverlaufsliste: " & Tonliste & ".rsz"
      frmda2 = "Diese Tonverlaufsliste habe ich von Hand eingegeben."
    End If
  Else
    If Zufhol = True Then
      frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Preset & "  -  Zufallsliste: " & DateinameXX
      frmda1 = "R E S O N E  -  Tonverlaufsliste: " & Preset
      frmda2 = "Zufallsliste: " & DateinameXX
    Else
      frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Preset
      frmda1 = "R E S O N E  -  Tonverlaufsliste: " & Preset
      If Preset <> "C:\Arbeit\Tonverlauf.rsz" And Preset <> "C:\Arbeit\Zufall.rsz" Then
        frmda2 = "Eine ltere Tonverlaufsliste wurde verwendet."
      Else
        frmda2 = ""
      End If
    End If
  End If
  '
  Call Info
  Call AlleZeilenLesen
  foffakt = 1: sampfakt = 1: sampfrq = 1 ' <------ neu am 29.09.2007 (SAMPLE)
  Call Zeilencheck
 'MsgBox "foffakt = " & foffakt
 'MsgBox "sampfakt = " & sampfakt

 '(kapiert eine RSZ-Datei)

  Close #1
weiter3:
  '
If erstesmal = 0 Then GoTo rrraus ' neu am 01.11.2007
  Open Zurdatei3 For Output As #4
  Call BatDatei
  Close #4
  '
  Open Zurdatei2 For Output As #3
  If FOF = True Then Call OrcDatei1 Else Call OrcDatei ' FOF oder SINUS
  Close #3
  '
  Open Zurdatei1 For Output As #2
  If FOF = True Then Call ScoDatei1 Else Call ScoDatei ' FOF oder SINUS
  Close #2
rrraus:
erstesmal = 1
End Sub
























Private Sub Command12_Click() '12.09.2004 23:39 <---
  Call Fensterweg ' Zusatz-Einstellfenster
  zuflist = False
  Dim xxx, yyy, yy1, yy2, yy3, yy4, yy5, yy6
  '
  CommonDialog2.Flags = 0
  CommonDialog2.Action = 1 'Datei laden (ffnen)
  DateinameX = CommonDialog2.FileName
  DateinameXX = DateinameX
  '
  On Error Resume Next
  If Len(DateinameX) > 5 Then
   '
   'Text3.Text = 10     ' ---> Zzeit
   'Text2.Text = 0.05   ' ---> Mindist
   'Text1.Text = 0.2    ' ---> Maxdist
   'Text4.Text = 0.0001 ' ---> Quant1
   'Text9.Text = 0      ' ---> MinLT
   'Text10.Text = 50000 ' ---> MaxLT
   'Text13.Text = 48    '(c gro) ---> MinHT
   'Text32.Text = 48    '(c gro) ---> MinKL
   'Text14.Text = 84    '(c 2)    ---> MaxHT
   'Text31.Text = 84    '(c 2)    ---> MaxKL
   'Text16.Text = 127   ' ---> MaxINT
   'Text30.Text = 127   ' ---> MaxINL
   'Text17.Text = 2     '(Halbtonschritte) ---> QuantH
   'Text29.Text = 2     '(Halbtonschritte) ---> QuantF
   'Text23.Text = 4     ' HTw, Tonwiederholungsrate
   'Text20.Text = 4     ' HTy, Tonwiederholungsrate
   'neu dazu:
   'Text32.Text = 48    '(c gro) ---> MinKL
   'Text31.Text = 84    '(c 2)    ---> MaxKL
   'Text30.Text = 127   ' ---> MaxINL
   'Text29.Text = 2     '(Halbtonschritte) ---> QuantF
   'Text20.Text = 4     ' HTy, Tonwiederholungsrate
   '
   'neu:
   'Text39.Text = 0     '
   'Text40.Text = 0     '
   'Text41.Text = 0     '
   'Text42.Text = 0     '
   'Text43.Text = 0     '
   'Text44.Text = 0     '
   '
    On Error GoTo weiter4
    Open DateinameX For Input As #6
    Line Input #6, Zzeit: Zzeit = Val(Zzeit): Text3.Text = Zzeit
    Line Input #6, Mindist: Mindist = Val(Mindist): Text2.Text = Mindist
    Line Input #6, Maxdist: Maxdist = Val(Maxdist): Text1.Text = Maxdist
    Line Input #6, Quant1: Quant1 = Val(Quant1): Text4.Text = Quant1
    '
    Line Input #6, MinLT: MinLT = Val(MinLT): Text9.Text = MinLT
    Line Input #6, MaxLT: MaxLT = Val(MaxLT): Text10.Text = MaxLT
    '
    Line Input #6, MinHT: MinHT = Val(MinHT): Text13.Text = MinHT
    Line Input #6, MaxHT: MaxHT = Val(MaxHT): Text14.Text = MaxHT
    Line Input #6, MaxINT: MaxINT = Val(MaxINT): Text16.Text = MaxINT
    Line Input #6, QuantH: QuantH = Val(QuantH): Text17.Text = QuantH
    Line Input #6, xxx: HTw = xxx: Text23.Text = HTw
    '
    Line Input #6, MinKL: MinKL = Val(MinKL): Text32.Text = MinKL
    Line Input #6, MaxKL: MaxKL = Val(MaxKL): Text31.Text = MaxKL
    Line Input #6, MaxINL: MaxINL = Val(MaxINL): Text30.Text = MaxINL
    Line Input #6, QuantF: QuantF = Val(QuantF): Text29.Text = QuantF
    Line Input #6, yyy: HTy = yyy: Text20.Text = HTy
    '
    Line Input #6, yy1: FUA = yy1: Text39.Text = FUA
    Line Input #6, yy2: FUB = yy2: Text40.Text = FUB
    Line Input #6, yy3: DEL = yy3: Text41.Text = DEL
    Line Input #6, yy4: ENTE = yy4: Text42.Text = ENTE
    Line Input #6, yy5: FOM = yy5: Text43.Text = FOM
    Line Input #6, yy6: FRV = yy6: Text44.Text = FRV
    '
    Close #6
weiter4:
    Call Command11_Click
    Zufhol = True
  End If
  End Sub

Private Sub Command13_Click() '12.09.2004 23:08 <---
  Dim xxx
  Call Fensterweg ' Zusatz-Einstellfenster
  CommonDialog2.Flags = 0
  CommonDialog2.Action = 2 ' Speichern!!
  DateinameX = CommonDialog2.FileName
  If Len(DateinameX) > 5 Then
    Open DateinameX For Output As #7
    '
    Print #7, Text3.Text  ' Zzeit
    Print #7, Text2.Text  ' Mindist
    Print #7, Text1.Text  ' Maxdist
    Print #7, Text4.Text  ' Quant1
    '
    Print #7, Text9.Text  ' MinLT
    Print #7, Text10.Text ' MaxLT
    '
    Print #7, Text13.Text ' MinHT
    Print #7, Text14.Text ' MaxHT
    Print #7, Text16.Text ' MaxINT
    Print #7, Text17.Text ' QuantH
    Print #7, Text23.Text ' HTw
    '
    Print #7, Text32.Text ' MinKL
    Print #7, Text31.Text ' MaxKL
    Print #7, Text30.Text ' MaxINL
    Print #7, Text29.Text ' QuantF
    Print #7, Text20.Text ' HTy
    '
    Print #7, Text39.Text ' FUA
    Print #7, Text40.Text ' FUB
    Print #7, Text41.Text ' DEL
    Print #7, Text42.Text ' ENTE
    Print #7, Text43.Text ' FOM
    Print #7, Text44.Text ' FRV
    '
    Close #7
   'Call Command11_Click
  End If
End Sub

Private Sub Command10_Click()
  Call Fensterweg ' Zusatz-Einstellfenster
  Call Zufallsliste_Click
  Call Direktstart_Click
  Call Command5_Click
End Sub

Private Sub Command11_Click()
  Call GBF4 ' Spezial-Textfarben
  Call Fensterweg ' Zusatz-Einstellfenster
  Testliste.Clear
  Dim Aba As String
  Dim a, s, m, n As Integer
  Dim ZZP(10000) As Double
  Dim ZLT(10000) As Double
  Dim ZHT(10000) As Double
  Dim ZHM(10000) As Double 'fr die MIDI-Werte
  Dim ZKL(10000) As Double
  Dim ABT(10000) As Double
  Dim Werte As Double '(Wieviele Werte?)
  Dim t, tt, ti, Kk As Double
  Aba = "     "
  a = 5 ' erster TAB-Wert
  s = 9 ' sonstige TAB-Werte
 '--------------------------------------------\
 'Grenzwerte eingeben:
  Command3.TabStop = False
  Command1.TabStop = False
  Command5.TabStop = False
  'ZP:
  Text5.Visible = True
  Text1.Visible = True
  Text1.TabStop = True
  Call Text1_Click
  Text6.Visible = True
  Text2.Visible = True
  Text2.TabStop = True
  Call Text2_Click
  Text7.Visible = True
  Text3.Visible = True
  Text3.TabStop = True
  Call Text3_Click
  Text8.Visible = True
  Text4.Visible = True
  Text4.TabStop = True
  Command4.TabStop = False
  Call Text4_Click
  '
  'LT:
  Text9.Visible = True
  Text11.Visible = True
  Text9.TabStop = True
  Call Text9_Click
  Text10.Visible = True
  Text12.Visible = True
  Text10.TabStop = True
  Call Text10_Click
  '
  'HT:
  Text13.Visible = True
  Text13.TabStop = True
  Text32.Visible = True
  Text32.TabStop = True
  Text14.Visible = True
  Text14.TabStop = True
  Text31.Visible = True
  Text31.TabStop = True
  Text16.Visible = True
  Text16.TabStop = True
  Text30.Visible = True
  Text30.TabStop = True
  Text17.Visible = True
  Text29.Visible = True
  Text23.Visible = True
  Text20.Visible = True
  Text24.Visible = True
  Text15.Visible = True
  Text17.TabStop = True
  Text29.TabStop = True
  Text23.TabStop = True
  Text20.TabStop = True
  Text18.Visible = True
  Text28.Visible = True
  Text19.Visible = True
  Text27.Visible = True
  Text21.Visible = True
  Text26.Visible = True
  Text22.Visible = True
  Text25.Visible = True
  '
  Text33.Visible = True
  Text34.Visible = True
  Text35.Visible = True
  Text36.Visible = True
  Text37.Visible = True
  Text38.Visible = True
  Text39.Visible = True
  Text40.Visible = True
  Text41.Visible = True
  Text42.Visible = True
  Text43.Visible = True
  Text44.Visible = True
  Text39.TabStop = True
  Text40.TabStop = True
  Text41.TabStop = True
  Text42.TabStop = True
  Text43.TabStop = True
  Text44.TabStop = True
  '
  Call Text13_Click
  Call Text32_Click
  Call Text14_Click
  Call Text31_Click
  Call Text16_Click
  Call Text30_Click
  Call Text17_Click
  Call Text29_Click
  Call Text23_Click
  Call Text20_Click
  '
  Call Text39_Click
  Call Text40_Click
  Call Text41_Click
  Call Text42_Click
  Call Text43_Click
  Call Text44_Click
End Sub

Private Sub Direktstart_Click()
  Call Fensterweg ' Zusatz-Einstellfenster
  Preset = Zufallsdatei ' SEHR WICHTIG
  PRE = True
 'If zuflist = False Then
 '  Call Zufallsliste_Click ' schreibt eine neue Tonverlaufsliste ...
 'End If
    Call Form_Load
    Testliste.Clear
    Call ShowSCO ' Die Sco-Datei darstellen
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem "=========================================================================================================="
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Call ShowORC ' Die Orc-Datei darstellen
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Picture2.Visible = False
End Sub


Private Sub Text2_Click() 'kleinster Zeitabstand
  Mindist = Val(Text2.Text)
  If Mindist <= 0 Then Mindist = 0.001: Text2.Text = Mindist
End Sub

Private Sub Text1_Click() 'grter Zeitabstand
  Maxdist = Val(Text1.Text)
  If Maxdist = 0 Then Maxdist = Mindist: Text1.Text = Maxdist
  If Maxdist <= Mindist Then Maxdist = Mindist + 0.001: Text1.Text = Maxdist ' <<<<<<<<<<<<<<<<<<<
 'If (Maxdist - Mindist) < Val(Text4.Text) Then Maxdist = Mindist + Val(Text4.Text): Text1.Text = Maxdist
  If Maxdist = 0 Then Maxdist = 1: Text1.Text = Maxdist
End Sub

Private Sub Text4_Click() 'Zeit-Quantisierung
  Quant1 = Val(Text4.Text)
 'If Quant1 > (Maxdist - Mindist) Then Quant1 = (Maxdist - Mindist): Text4.Text = Quant1
  If Quant1 > Mindist Then Quant1 = Mindist: Text4.Text = Quant1
  If Quant1 = 0 Then Quant1 = 0.0001: Text4.Text = Quant1
  If Quant1 > 0.5 Then Quant1 = 0.5: Text4.Text = Quant1
  Quant1 = 1 / Quant1
End Sub

Private Sub Text3_Click() 'Gesamtdauer
  Zzeit = Val(Text3.Text)
  If Zzeit <= Maxdist Then Zzeit = Maxdist * 2: Text3.Text = Zzeit
  If Zzeit = 0 Then Zzeit = 10: Text3.Text = Zzeit
End Sub

Private Sub Text45_Change()
  Hart = Val(Text45) ' neue Werte
End Sub

Private Sub Text46_Change()
 Tempofaktor = Val(Text46) ' neue Werte
End Sub

Private Sub Text47_Change()
 Frequenzfaktor = Val(Text47) ' neue Werte
End Sub

Private Sub Text58_Change()
 Lautfaktor = Val(Text58) ' neue Werte
End Sub


Private Sub Text48_Change()
 WFUA = Val(Text48)
End Sub

Private Sub Text49_Change()
 WFUB = Val(Text49)
End Sub

Private Sub Text50_Change()
 WENTE = Val(Text50)
End Sub

Private Sub Text51_Change()
 WDEL = Val(Text51)
End Sub

Private Sub Text52_Change()
 WFOM = Val(Text52)
End Sub


Private Sub Text9_Click() 'niedrigster Lautstrkewert
  MinLT = Val(Text9.Text)
End Sub

Private Sub Text10_Click() 'hchster Lautstrkewert
  MaxLT = Val(Text10.Text)
End Sub

Private Sub Text13_Click() 'niedrigster Frequenzwert
  MinHT = Val(Text13.Text)
End Sub

Private Sub Text32_Click() 'niedrigster Formant-Frequenzwert
  MinKL = Val(Text32.Text)
End Sub

Private Sub Text14_Click() 'hchster Frequenzwert
  MaxHT = Val(Text14.Text)
End Sub

Private Sub Text31_Click() 'hchster Frequenzwert
  MaxKL = Val(Text31.Text)
End Sub

Private Sub Text16_Click() 'kleinstes Intervall
  MaxINT = Val(Text16.Text)
  If MaxINT < 1 Then MaxINT = 1: Text16.Text = MaxINT
End Sub

Private Sub Text30_Click() 'kleinstes Intervall
  MaxINL = Val(Text30.Text)
  If MaxINL < 1 Then MaxINL = 1: Text30.Text = MaxINL
End Sub

Private Sub Text17_Click() 'Quantisierung (was soll die kleinste Einheit sein?)
  QuantH = Val(Text17.Text)
End Sub

Private Sub Text29_Click() 'Quantisierung (was soll die kleinste Einheit sein?)
  QuantF = Val(Text29.Text)
End Sub

Private Sub Text23_Click() ' HTw, Tonwiederholungsrate
  HTw = Val(Text23.Text)
  If HTw < 1 Then HTw = 1: Text23.Text = HTw
End Sub

Private Sub Text20_Click() ' HTy, Tonwiederholungsrate
  HTy = Val(Text20.Text): Text20.Text = HTy
 'If HTy < 1 Then HTy = 1: Text20.Text = HTy ' HTy < 1 bedeutet, da nur Sinus geschrieben werden soll
End Sub

Private Sub Text39_Click() ' FUA
  FUA = Val(Text39.Text): Text39.Text = FUA
End Sub

Private Sub Text40_Click() ' FUB
  FUB = Val(Text40.Text): Text40.Text = FUB
End Sub

Private Sub Text41_Click() ' DEL
  DEL = Val(Text41.Text): Text41.Text = DEL
End Sub

Private Sub Text42_Click() ' ENTE
  ENTE = Val(Text42.Text): Text42.Text = ENTE
End Sub

Private Sub Text43_Click() ' FOM
  FOM = Val(Text43.Text): Text43.Text = FOM
End Sub

Private Sub Text44_Click() ' FRV
  FRV = Val(Text44.Text): Text44.Text = FRV
End Sub

Private Sub Zufallsliste_Click()
  Call Fensterweg ' Zusatz-Einstellfenster
  zuflist = True
  If Zufhol = True Then
    frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Preset & "  -  Zufallsliste: " & DateinameXX
    frmda2 = "Zufallsliste: " & DateinameXX
  Else
    If Preset <> "" Then
      frmDatei.Caption = "R E S O N E  -  Tonverlaufsliste: " & Preset & "  -  mit einer Zufallsliste erzeugt"
    Else
        frmDatei.Caption = "R E S O N E  -  Diese Reihe wurde mit einer Zufallsliste erzeugt"
    End If
      frmda2 = "Mit einer Zufallsliste erzeugt."
  End If
  Call GBF4 ' Spezial-Textfarben
  Testliste.Clear
  '
  Dim Aba As String
  Dim a, s, m, n As Integer
  Dim ZZP(10000) As Double
  Dim ZLT(10000) As Double
  Dim ZHT(10000) As Double
  Dim ZHM(10000) As Double 'fr die MIDI-Werte
  Dim ZKL(10000) As Double
  Dim ABT(10000) As Double
  Dim Werte As Double '(Wieviele Werte?)
  Dim t, tt, ti, Kk As Double
  Dim z As Integer ' fr gleiche Tonhhen bei aufeinanderfolgenden Zeitpunkten
  '
  Aba = "     "
  a = 5 ' erster TAB-Wert
  s = 9 ' sonstige TAB-Werte
 '--------------------------------------------\
 'Grenzwerte eingeben:
  Command3.TabStop = False
  Command1.TabStop = False
  Command5.TabStop = False
  'ZP:
  Text5.Visible = True
  Text1.Visible = True
  Text1.TabStop = True
  Call Text1_Click
  Text6.Visible = True
  Text2.Visible = True
  Text2.TabStop = True
  Call Text2_Click
  Text7.Visible = True
  Text3.Visible = True
  Text3.TabStop = True
  Call Text3_Click
  Text8.Visible = True
  Text4.Visible = True
  Text4.TabStop = True
  Command4.TabStop = False
  Call Text4_Click
  '
  'LT:
  Text9.Visible = True
  Text11.Visible = True
  Text9.TabStop = True
  Call Text9_Click
  Text10.Visible = True
  Text12.Visible = True
  Text10.TabStop = True
  Call Text10_Click
  '
  'HT:
  Text13.Visible = True
  Text13.TabStop = True
  Text32.Visible = True
  Text32.TabStop = True
  Text14.Visible = True
  Text14.TabStop = True
  Text31.Visible = True
  Text31.TabStop = True
  Text16.Visible = True
  Text16.TabStop = True
  Text30.Visible = True
  Text30.TabStop = True
  Text17.Visible = True
  Text29.Visible = True
  Text23.Visible = True
  Text20.Visible = True
  Text24.Visible = True
  Text15.Visible = True
  Text17.TabStop = True
  Text29.TabStop = True
  Text23.TabStop = True
  Text20.TabStop = True
  Text18.Visible = True
  Text28.Visible = True
  Text19.Visible = True
  Text27.Visible = True
  Text21.Visible = True
  Text26.Visible = True
  Text22.Visible = True
  Text25.Visible = True
  '
  Text33.Visible = True
  Text34.Visible = True
  Text35.Visible = True
  Text36.Visible = True
  Text37.Visible = True
  Text38.Visible = True
  Text39.Visible = True
  Text40.Visible = True
  Text41.Visible = True
  Text42.Visible = True
  Text43.Visible = True
  Text44.Visible = True
  Text39.TabStop = True
  Text40.TabStop = True
  Text41.TabStop = True
  Text42.TabStop = True
  Text43.TabStop = True
  Text44.TabStop = True
  '
  Call Text13_Click
  Call Text32_Click
  Call Text14_Click
  Call Text31_Click
  Call Text16_Click
  Call Text30_Click
  Call Text17_Click
  Call Text29_Click
  Call Text23_Click
  Call Text20_Click
  '
  Call Text39_Click
  Call Text40_Click
  Call Text41_Click
  Call Text42_Click
  Call Text43_Click
  Call Text44_Click

 '--------------------------------------------/
 '
  Zufallsliste.Default = True
 'Command9.Default = True
  On Error Resume Next
  Open Zufallsdatei For Output As #7
 '-------------------------------
 'BERECHNUNGEN:
 '
 '-------------------------------
 '1. Zeitpunkte bestimmen:
  ZZP(1) = 0
  n = 2
  m = 0
  Do
 'If m = 5000000 Then Exit Do 'Notausstieg
  If m = 10000000 Then Exit Do 'Notausstieg
    If Int(ZZP(n - 1)) = Int(Zzeit) Then GoTo weiter 'hchsten Zeitwert erreicht
    t = Zufzahl2(0, Zzeit, 3) 'Zufallszahl ermitteln (min, max, Quantisierungsstellen)
    '
    'Spezialbedingungen ---------------\
    If t > ZZP(n - 1) Then                            'aufsteigende Zeitwerte beachten!
      If t <= (ZZP(n - 1) + Maxdist) Then             'max. Zeitabstnde einhalten!
        If t >= (ZZP(n - 1) + Mindist) Then           'min. Zeitabstnde einhalten!
          ZZP(n) = Int(t * Quant1 + 0.5) / Quant1
          ABT(n) = t - ZZP(n - 1): ABT(n) = Int(ABT(n) * Quant1 + 0.5) / Quant1 'Abstand
          n = n + 1
        End If
      End If
    End If
    'Spezialbedingungen ---------------/
    '
  m = m + 1
  Loop
'
weiter:
Werte = n - 1 ' Anzahl der gefundenen Zeitwerte (Breakpoints)!
 '
 '-------------------------------
 '2. Lautstrken bestimmen:
  MinLT = Int((MinLT ^ (1 / 3)) * 1351) '  <------ umrechnen - die Formel habe
  MaxLT = Int((MaxLT ^ (1 / 3)) * 1351) '  <------ ich experimentell ermittelt
  For n = 1 To Werte
    t = Zufzahl2(MinLT, MaxLT, 0) 'Zufallszahl ermitteln (min, max, Quantisierungsstellen)
    ZLT(n) = Int((t / 1351) ^ 3) ' <<<---------------- TEST
   'Testliste.AddItem t
  Next n
  ZLT(1) = 0 'der erste Wert soll Null sein
  ZLT(n - 1) = 0 'der letzte Wert soll Null sein
 '
 '-------------------------------
 '3. Frequenzen bestimmen:
 '
 'zufllig erzeugte Noten:
' Dim z As Integer ' fr gleiche Tonhhen bei aufeinanderfolgenden Zeitpunkten
  '
  '---------
  'Info:
  'QuantH = 0.50 ' groe Terzschritte!
  'QuantH = 0.75 ' kleine Terzschritte!
  'QuantH = 1 '  Ganztonschritte
  'QuantH = 2 '  Halbtonschritte
  'QuantH = 4 '  Vierteltonschritte
  'QuantH = 8 '  Achteltonschritte
  'QuantH = 16 ' Sechzehnteltonschritte
  '---------
   QuantH = QuantH / 2
  '<------------------------- Test
  '
  'For n = 1 To Werte Step HTw
   m = 0
   n = 1
   Do
  'If m = 50000 Then Exit Do 'Notausstieg
   If m = 500000 Then Exit Do 'Notausstieg
    'Midi-Notennummern 0-127 aussuchen (0 = C, 1 = Cis, usw.):
     t = Zufzahl2(MinHT, MaxHT - 1, 4)      'Zufallszahl ermitteln (min, max, Quantisierungsstellen)
     ti = Int((t * 1) + 0.5) / 1
     tt = Int((t * QuantH) + 0.5) / QuantH  'Ganzton-, Viertelton-, Halbtonschritte, usw.
     tt = 8.17579891 * ((2 ^ (1 / 12)) ^ tt): tt = Int(tt * 10 + 0.5) / 10  'aus Frequenzen werden Tonstufen
     '
     If n = 1 Then
       Kk = 0
     Else
      'Kk = Int(ZHM(n - 1)) - Int(t)
       Kk = Int(ZHM(n - 1)) - Int(ti)
     End If
     If Kk < 0 Then
       Kk = Kk + (Kk * -2) 'ABS-Ersatz - aus irgendeinem Grund funktioniert die ABS-Funktion nicht ...
     End If
     '
    'Bedingung:
     If Kk <= MaxINT Then
         For z = 0 To (HTw - 1)
          'ZHM(n + z) = t
           ZHM(n + z) = ti
           ZHT(n + z) = tt
         Next z
         n = n + HTw
     End If
     '
     m = m + 1
   Loop Until n > Werte
 '
 '-------------------------------
 '4. Formantfrequenzen bestimmen (fast genau gleich wie Pos. 3, Frequenzen bestimmen):
 '-------------------------------
 '
 'zufllig erzeugte 'Noten':
  '
  '---------
  'Info:
  'QuantF = 0.50 ' groe Terzschritte!
  'QuantF = 0.75 ' kleine Terzschritte!
  'QuantF = 1 '  Ganztonschritte
  'QuantF = 2 '  Halbtonschritte
  'QuantF = 4 '  Vierteltonschritte
  'QuantF = 8 '  Achteltonschritte
  'QuantF = 16 ' Sechzehnteltonschritte
  '---------
   
  'Dim MinKL, MaxKL, MaxINL, QuantH, QuantF, HTw, HTy, MinKL, MaxKL As Double
   
   
  'QuantF = QuantH ' <---------------------------- TTTTTTTTTTEST
  'HTw = 2 ' <---------------------------- TTTTTTTTTTEST
   QuantF = QuantF / 2
  '<------------------------- Test
  '
  'For n = 1 To Werte Step HTy
   m = 0
   n = 1
   Do
   If m = 50000 Then Exit Do 'Notausstieg
    'Midi-Notennummern 0-127 aussuchen (0 = C, 1 = Cis, usw.):
     t = Zufzahl2(MinKL, MaxKL - 1, 4)      'Zufallszahl ermitteln (min, max, Quantisierungsstellen)
     ti = Int((t * 1) + 0.5) / 1
     tt = Int((t * QuantF) + 0.5) / QuantF  'Ganzton-, Viertelton-, Halbtonschritte, usw.
     tt = 8.17579891 * ((2 ^ (1 / 12)) ^ tt): tt = Int(tt * 10 + 0.5) / 10  'aus Frequenzen werden Tonstufen
     '
     If n = 1 Then
       Kk = 0
     Else
      'Kk = Int(ZHM(n - 1)) - Int(t)
       Kk = Int(ZHM(n - 1)) - Int(ti)
     End If
     If Kk < 0 Then
       Kk = Kk + (Kk * -2) 'ABS-Ersatz - aus irgendeinem Grund funktioniert die ABS-Funktion nicht ...
     End If
     '
    'Bedingung:
     If Kk <= MaxINL Then
         For z = 0 To (HTy - 1)
          'ZHM(n + z) = t
           ZHM(n + z) = ti
           ZKL(n + z) = tt
         Next z
         n = n + HTy
     End If
     '
     m = m + 1
   Loop Until n > Werte
 '
 '
 'Darstellung:
 'Testliste.AddItem "Es ist " & Time & ", " & Date
  Testliste.AddItem "Datum: " & Date & " - Uhrzeit: " & Time
  Testliste.AddItem Werte & " Breakpoints hat der Computer berechnet:"
  Testliste.AddItem ""
  For n = 1 To Werte
    Testliste.AddItem Aba & n
    Testliste.AddItem Aba & "Zeitpunkt:         " & ZZP(n)
    Testliste.AddItem Aba & "Abstand:           " & ABT(n)
    Testliste.AddItem Aba & "Gesamt-Lautstrke: " & ZLT(n)
    Testliste.AddItem Aba & "Gesamt-Tonhhe:    " & ZHT(n)
    Testliste.AddItem Aba & "Formantfrequenz: " & ZKL(n)
    Testliste.AddItem ""
  Next n
  Testliste.AddItem ""
  Testliste.AddItem "Jetzt links den kleinen grnen und dann"
  Testliste.AddItem "rechts den groen grauen Knopf (C) drcken, um die Musik"
  Testliste.AddItem "zu hren. Den kleinen pinkfarbenen Knopf drcken, um die"
  Testliste.AddItem "geschriebene Tonverlaufsliste anzusehen!"
 'Testliste.AddItem ""
  Testliste.AddItem "Einfacher ist es aber, links den etwas greren roten Knopf zu drcken, dann geht "
  Testliste.AddItem "alles automatisch! Erst sollte jedoch die Parameterliste (hier rechts) editiert werden."
  '
  '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  '-------------------------------
  'DATEI SCHREIBEN:
  '-------------------------------
  Print #7, Zufallsdatei & ", geschrieben am "; Date & ", " & Time; ""
  Print #7, frmDatei.Caption
  Print #7, ""
  '
  Print #7, "ZP"; Tab(a);
  For n = 1 To Werte
    Print #7, ZZP(n); Tab(a + (n * s));
  Next n
  Print #7, ""
  '
  Print #7, "LT  "; Tab(a);
  For n = 1 To Werte
    Print #7, ZLT(n); Tab(a + (n * s));
  Next n
  Print #7, ""
  '
  Print #7, "HT  "; Tab(a);
  For n = 1 To Werte
    Print #7, ZHT(n); Tab(a + (n * s));
  Next n
  Print #7, ""
  '
  If HTy < 1 Then
    Print #7, "--  "; Tab(a); 'so werden nur Sinustne erzeugt!
  Else
    Print #7, "KL  "; Tab(a); 'FOF-Klnge werden erzeugt!
  End If
  '
  For n = 1 To Werte
    Print #7, ZKL(n); Tab(a + (n * s));
  Next n
  Print #7, ""
  Print #7, ""
  '
  'NEU:
  If HTy >= 1 Then
    If Val(FUA) <> 0 Then Print #7, "FUA "; FUA
    If Val(FUB) <> 0 Then Print #7, "FUB "; FUB
    If Val(DEL) <> 0 Then Print #7, "DEL "; DEL
    If Val(ENTE) <> 0 Then Print #7, "ENTE "; ENTE
    If Val(FOM) <> 0 Then Print #7, "FOM "; FOM
    If Val(FRV) <> 0 Then Print #7, "FRV "; FRV
  End If
  '
  Print #7, ""
  Print #7, ""
  '
 '/////////////////////////////////////////////////////////////////////////////////
  Close #7
 'Call Direktstart ' <----------??
 '
End Sub

Private Sub Direktstartv()
  PRE = False
  Preset = Zufallsdatei
    PRE = True
    Call Form_Load
    Testliste.Clear
    Call ShowSCO ' Die Sco-Datei darstellen
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem "=========================================================================================================="
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Call ShowORC ' Die Orc-Datei darstellen
End Sub

Function Zufzahl(ByVal min, ByVal max) 'Integer
  Randomize
  Dim z As Double
  z = Rnd            'Zufallszahl (liegt zwischen 0 und 1)
  Zufzahl = Int(min + (max - min + 1) * z)
End Function

Function Zufzahl2(ByVal min, ByVal max, ByVal quanti) 'Double
  quanti = 10 ^ quanti
  Randomize
  Dim z As Double
  z = Rnd              'Zufallszahl (liegt zwischen 0 und 1)
  Zufzahl2 = min + (max - min + 1) * z: Zufzahl2 = Int((Zufzahl2 * quanti) + 0.5) / quanti
End Function

Private Sub Command7_Click()
 'Call GBF1
 'Call GBF2
  PRE = False
  CommonDialog1.Flags = 0
  CommonDialog1.Action = 1
  Preset = CommonDialog1.FileName
  If Preset <> "" Then
    Shell "C:\Arbeit\Editor\NoteTab.exe  " & Preset
    PRE = True
  End If
End Sub

Private Sub Command8_Click()
  Call GBF1
  Call GBF2
  PRE = False
  CommonDialog1.Flags = 0
  CommonDialog1.Action = 1
  Preset = CommonDialog1.FileName
  If Preset <> "" Then
    PRE = True
    Call Form_Load
    Testliste.Clear
    Call ShowSCO ' Die Sco-Datei darstellen
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem "=========================================================================================================="
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Testliste.AddItem ""
    Call ShowORC ' Die Orc-Datei darstellen
    Call Command5_Click
  End If
End Sub






Private Sub Command5_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
    
  Testliste.Clear ' <------- voila
  Call ShowSCO ' Die Sco-Datei darstellen
  Call ShowORC ' Die Sco-Datei darstellen <-- wieder dazugekommen
  
  Shell "C:\Arbeit\cs06b.bat" 'Csound starten
End Sub

Private Sub Command9_Click()
  Call Fensterweg ' Zusatz-Einstellfenster
  Shell "C:\Arbeit\Editor\NoteTab.exe " & Zufallsdatei
End Sub

Private Sub Command2_Click()
 'INFO <-------
  Call GBF1 ' visible usw.
 'Call GBF2 ' Info-Textfarben
  Call GBF3 ' Info-Textfarben
  Call Info
End Sub

Private Sub Command4_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
  Shell "C:\Arbeit\Editor\NoteTab.exe " & Arbeitsordner & Csoundname & ".sco"
End Sub

Private Sub Command6_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
  Shell "C:\Arbeit\Editor\NoteTab.exe " & Arbeitsordner & Csoundname & ".orc"
End Sub

Private Sub Command3_Click()
  Call GBF1 ' visible usw.
  Call GBF2 ' Grund-Textfarben
  PRE = False
  Shell "C:\Arbeit\Editor\NoteTab.exe  " & Arbeitsordner & Tonliste & ".rsz"
End Sub


Private Sub Command1_Click()
  Zufhol = False
  Call GBF1
  Call GBF2
  PRE = False
  Call Form_Load
  Testliste.Clear
  Call ShowSCO ' Die Sco-Datei darstellen
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem "=========================================================================================================="
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Testliste.AddItem ""
  Call ShowORC ' Die Sco-Datei darstellen
  Call Command5_Click ' <--------- NEU
End Sub

Private Sub ShowSCO() ' Die Sco-Datei darstellen
'  On Error GoTo weiter5
'  Open Zurdatei1 For Input As #4
'  Do While Not EOF(4)
'    Line Input #4, Zeile
'    Testliste.AddItem Zeile
'  Loop
'  Close #4
'weiter5:
  Dim n
  On Error GoTo weiter5
  Open Zurdatei1 For Input As #4
' For n = 1 To 4
'   Line Input #4, Zeile
'   Testliste.AddItem Zeile
' Next n
' For n = 1 To 50
'   Line Input #4, Zeile ' neu am 3.10.2007: nicht alle Zeilen zeigen
' Next n '                 wieder weg am 9.10. ..
  Do While Not EOF(4)
    Line Input #4, Zeile
    Testliste.AddItem Zeile
  Loop
  Close #4
  For n = 1 To 14
    Testliste.AddItem ""
  Next n
weiter5:
End Sub

Private Sub ShowORC() ' Die Orc-Datei darstellen
  Open Zurdatei2 For Input As #5
  Do While Not EOF(5)
    Line Input #5, Zeile
    Testliste.AddItem Zeile
  Loop
  Close #5
End Sub

Private Sub Ende_Click()
  Call INIschreiben
  End
End Sub













20:49:48 06.02.2009 <---
Private Sub AlleZeilenLesen()      INFO: alle Zeilen der Datei #1 werden in
  'Testliste.Clear                 den Speicher (das Array) ZL(n) eingelesen
  n = 0
  Do Until EOF(1)
    Line Input #1, Zeile           INFO: #1 = Vondatei;
    n = n + 1: ZL(n) = Zeile       Vondatei = Arbeitsordner & Tonliste & ".rsz",
    nv = n ' merken                also z.B. C:\Arbeit\Tonverlauf.rsz
  Loop
End Sub









Private Sub AlleZeilenZeigen()
  For n = 1 To nv
    Testliste.AddItem ZL(n)
  Next n
End Sub









20:46:55 06.02.2009 <---
Private Sub Zeilencheck()
 'versteht RSZ-Dateien
  For n = 1 To nv ' nv Zeilen nacheinander aufrufen
    
    Wort = "" 'Wrter heraussuchen
    Clef = "": flag = 0
    Zeile = ZL(n)
    
    For m = 1 To Len(Zeile) ' Eine Zeile checken
      Buchstabe = Mid(Zeile, m, 1)
      
      If Buchstabe <> " " And m <> Len(Zeile) Then
        Wort = Wort & Buchstabe
      Else
        If m = Len(Zeile) Then Wort = Wort & Buchstabe ' Zusatz!
        '
        If Wort = "ZP" And flag = 0 Then Clef = "ZP": flag = 1: a = 1 ' sobald ..
        If Wort = "HT" And flag = 0 Then Clef = "HT": flag = 1: a = 1
        If Wort = "LT" And flag = 0 Then Clef = "LT": flag = 1: a = 1
        If Wort = "KL" And flag = 0 Then Clef = "KL": flag = 1: a = 1
        '
        If Wort = "FUA" And flag = 0 Then Clef = "FUA": flag = 1: a = 1
        If Wort = "FUB" And flag = 0 Then Clef = "FUB": flag = 1: a = 1
        If Wort = "DEL" And flag = 0 Then Clef = "DEL": flag = 1: a = 1
        If Wort = "ENTE" And flag = 0 Then Clef = "ENTE": flag = 1: a = 1
        If Wort = "FOM" And flag = 0 Then Clef = "FOM": flag = 1: a = 1
        If Wort = "FRV" And flag = 0 Then Clef = "FRV": flag = 1: a = 1
        '
        If Wort = "LTF" And flag = 0 Then Clef = "LTF": flag = 1: a = 1
        If Wort = "LTS" And flag = 0 Then Clef = "LTS": flag = 1: a = 1
        If Wort = "HTS" And flag = 0 Then Clef = "HTS": flag = 1: a = 1
        '
        If Clef = "ZP" Then
          If Wort <> "ZP" Then
            If Wort = "." Then
              ZP(a) = ZP(a - 1): a = a + 1
            End If
            If Left(Wort, 1) = "0" And Val(Wort) = 0 Then
              ZP(a) = 0: a = a + 1
            End If
            If Left(Wort, 1) = "[" Then
              Call rechnen
              ZP(a) = erg: a = a + 1
            End If
            If Val(Wort) <> 0 Then
              ZP(a) = Wort: a = a + 1
            End If
          End If
          azp = a - 1
          'Testliste.AddItem "azp: " & azp
        End If

        If Clef = "HT" Then
          If Wort <> "HT" Then
            If Wort = "." Then
              HT(a) = HT(a - 1): a = a + 1
            End If
            If Left(Wort, 1) = "0" And Val(Wort) = 0 Then
              HT(a) = 0: a = a + 1
            End If
            If Left(Wort, 1) = "[" Then
              Call rechnen
              HT(a) = erg: a = a + 1
            End If
            If Val(Wort) <> 0 Then
              HT(a) = Wort: a = a + 1
            End If
          End If
        End If
        
        If Clef = "LT" Then
          If Wort <> "LT" Then
            If Wort = "." Then
              LT(a) = LT(a - 1): a = a + 1
            End If
            If Left(Wort, 1) = "0" And Val(Wort) = 0 Then
              LT(a) = 0: a = a + 1
            End If
            If Left(Wort, 1) = "[" Then
              Call rechnen
              LT(a) = erg: a = a + 1
            End If
            If Val(Wort) <> 0 Then
              LT(a) = Wort: a = a + 1
            End If
          End If
        End If
        
        If Clef = "KL" Then
          FOF = True
          If Wort <> "KL" Then
            If Wort = "." Then
              Kl(a) = Kl(a - 1): a = a + 1
            End If
            If Left(Wort, 1) = "0" And Val(Wort) = 0 Then
              Kl(a) = 0: a = a + 1
            End If
            If Left(Wort, 1) = "[" Then
              Call rechnen
              Kl(a) = erg: a = a + 1
            End If
            If Val(Wort) <> 0 Then
              Kl(a) = Wort: a = a + 1
            End If
          End If
        End If
        
        'Zusatzfilter: --------------------------------------\
        If Clef = "FUA" Then
          If Wort <> "FUA" Then
            If Val(Wort) <> 0 Then
              fun1 = Wort
            End If
          End If
        End If
        '
        If Clef = "FUB" Then
          If Wort <> "FUB" Then
            If Val(Wort) <> 0 Then
              fun2 = Wort
            End If
          End If
        End If
        '
        If Clef = "DEL" Then
          If Wort <> "DEL" Then
            If Val(Wort) <> 0 Then
              delayfakt = Wort
            End If
          End If
        End If
        '
        If Clef = "ENTE" Then
          If Wort <> "ENTE" Then
            If Val(Wort) <> 0 Then
              entenmult = Wort
            End If
          End If
        End If
        '
        If Clef = "FOM" Then
          If Wort <> "FOM" Then
            If Val(Wort) <> 0 Then
              formantfakt = Wort
            End If
          End If
        End If
        '
        If Clef = "FRV" Then
          If Wort <> "FRV" Then
            If Val(Wort) <> 0 Then
              frequenzverviel = Wort
            End If
          End If
        End If
        '
        '
        'neu am 29.09.2007 (SAMPLE-Option eingebaut).
        'hier: separate Lautstrke fr FOF-Klang und Sample-Klang
        'und separater Sample-Frequenzfaktor:
        '
        If Clef = "LTF" Then
          If Wort <> "LTF" Then
            foffakt = Wort
          End If
        End If
        '
        If Clef = "LTS" Then
          If Wort <> "LTS" Then
            sampfakt = Wort
          End If
        End If
        '
        If Clef = "HTS" Then
          If Wort <> "HTS" Then
            sampfrq = Wort
          End If
        End If
        '
        '
        '----------------------------------------------------/
        
        Wort = ""
      End If
    Next m
  
  Next n
End Sub




























Private Sub rechnen()
  mzx = m
  Do
    mzx = mzx - 1
    Buchstabe = Mid(Zeile, mzx, 1) ': List1.AddItem Buchstabe
  Loop Until Buchstabe = "[" ' zurck!
  
  Bwort = ""
  Buchstabe = ""
  Do
    Bwort = Bwort & Buchstabe
    mzx = mzx + 1
    Buchstabe = Mid(Zeile, mzx, 1) ': List1.AddItem Buchstabe
  Loop Until Buchstabe = "+" Or Buchstabe = "-" Or Buchstabe = "*" Or Buchstabe = "/" Or Buchstabe = "]"
  RZeichen = Buchstabe ' gemerkt!
   
  If RZeichen <> "]" Then
    Bwort2 = ""
    Buchstabe = ""
    Do
      Bwort2 = Bwort2 & Buchstabe
      mzx = mzx + 1
      Buchstabe = Mid(Zeile, mzx, 1) ': List1.AddItem Buchstabe
    Loop Until Buchstabe = "]"
  End If
  
  If RZeichen = "]" Then erg = Val(Bwort)               ' Berechnung
  If RZeichen = "+" Then erg = Val(Bwort) + Val(Bwort2) ' Berechnung
  If RZeichen = "-" Then erg = Val(Bwort) - Val(Bwort2) ' Berechnung
  If RZeichen = "*" Then erg = Val(Bwort) * Val(Bwort2) ' Berechnung
  If RZeichen = "/" Then erg = Val(Bwort) / Val(Bwort2) ' Berechnung
  erg = Int((erg * Rundu) + 0.5) / Rundu ' <----- neu 06.08.04
  m = mzx
End Sub

Private Sub Zeilenanzeiger()
  Testliste.Clear
  Testliste.AddItem "Zeitpunkte:"
  For a = 1 To azp
    Testliste.AddItem ZP(a)
  Next a
  Testliste.AddItem ""
  Testliste.AddItem "Tonhhen:"
  For a = 1 To azp
    Testliste.AddItem HT(a)
  Next a
  Testliste.AddItem ""
  Testliste.AddItem "Lautstrken:"
  For a = 1 To azp
    Testliste.AddItem LT(a)
  Next a
'  Testliste.AddItem ""
'  Testliste.AddItem "Klangfarben:"
'  For a = 1 To azp
'    Testliste.AddItem KL(a)
'  Next a
'  Testliste.AddItem ""
End Sub

Private Sub ScoDatei() ' fr SINUS
  ZPW = ZP(1) ' wird auf 0 umgerechnet
  ZTP = 0
  ZTPmax = Val(ZP(azp)) - ZPW: ZTPmax = Int(ZTPmax + 1)
'
'---------------------------------------------------------
  Print #2, " ;" & Date & ", " & Time & "  -  " & Zurdatei1 & " (einfacher Generator)"
  Print #2, " ;Hergestellt mit " & frmda1
  Print #2, " ;" & frmda2
 'Print #2, " ;Hergestellt mit " & frmDatei.Caption
 'Print #2, " ;Geschrieben am "; Date & ", " & Time
  Print #2, " ;Weitere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
  Print #2, ""
  Print #2, ""
  Print #2, ";SCOMODUL-EINZELTON:"
  Print #2, ""
  Print #2, ""
  Print #2, ""
  Print #2, " f1 0 4096 9 1 1 0"
  Print #2, " f3 0 4096 9 1 1 0"
  Print #2, " i96   0.00   " & ZTPmax & "   0.5   1   ; SINUS - Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, ""
  Print #2, ""
'---------------------------------------------------------
  '
  Print #2, ""
  Print #2, ";SCOMODUL-DAUERTON:"
  '
  Print #2, ""
  Print #2, " i96   0.00   " & ZTPmax & "   ; FOF - Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i97   0.00   " & ZTPmax & "   ; SAMPLE - Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i98   0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i99   0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i100  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i101  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i102  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i103  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i104  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i105  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, ""
  Print #2, ""
  '
  'Glissandozahlen berechnen:
  For a = 1 To azp
    GD(a) = Val(ZP(a + 1)) - Val(ZP(a))
    GD(a) = Int((GD(a) * Rundu) + 0.5) / Rundu
  Next a

  GD(0) = GLnull ' fr den Start
  Print #2, " ;"; Tab(9); "ZTP"; Tab(19); "DT"; Tab(24); "HT"; Tab(36); "LT"; Tab(58); "GD (Gliss.-Dauer)"
  Print #2, " " & "i01"; Tab(8); ZTP; Tab(19); "-1"; Tab(24); HT(1); Tab(36); "0.000"; Tab(46); "pp4"; Tab(51); "pp5"; Tab(58); GD(0); Tab(67); "  ; 1"
  
  ZPW = ZPW - GLnull
  For a = 2 To azp
    ZTP = Val(ZP(a - 1)) - ZPW: ZTP = Int((ZTP * Rundu) + 0.5) / Rundu
    Print #2, " " & "i01"; Tab(8); ZTP; Tab(19); "-1"; Tab(24); HT(a); Tab(36); LT(a); Tab(46); "pp4"; Tab(51); "pp5"; Tab(57); GD(a - 1); Tab(67); "  ;"; a
  Next a
  
'---------------------------------------------------------
  Print #2, ""
  Print #2, ""
 'Print #2, " ;[C:\Arbeit\cs06a.bat]"
  Print #2, " ;[C:\Arbeit\cs06b.bat]"
  Print #2, " e"
'---------------------------------------------------------
  
End Sub












12:19:17 07.02.2009 <---
Private Sub ScoDatei1() ' fr FOF
  ZPW = ZP(1) ' wird auf 0 umgerechnet
  ZTP = 0
  '
  ZTPmax = Val(ZP(azp)) - ZPW: ZTPmax = Int(ZTPmax + 1)
  ' Delay bercksichtigen:
  ZTPmax = ZTPmax + (delayfakt * 6): ZTPmax = Int((ZTPmax * 10) + 1) / 10
'---------------------------------------------------------
 'Print #2, " ;" & Zurdatei1 & " (FOF-Generator)"
 'Print #2, " ;Geschrieben am "; Date & ", " & Time
 'Print #2, " ;Genauere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
 '
  Print #2, " ;" & Date & ", " & Time & "  -  " & Zurdatei1 & " (FOF- Sample- und Percussion-Generator)"
  Print #2, " ;Hergestellt mit " & frmda1
  Print #2, " ;" & frmda2
 'Print #2, " ;Hergestellt mit " & frmDatei.Caption
 'Print #2, " ;Geschrieben am "; Date & ", " & Time
  Print #2, " ;Weitere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
  Print #2, ""
  Print #2, ""
  Print #2, ";SCOMODUL-EINZELTON:"
  Print #2, ""
  Print #2, ""
  Print #2, ""
  Print #2, " f1 0 4096 9"
  If fun1 = 0 Then
    Print #2, " 1 1 0"
  Else
    Print #2, " " & Val(fun1) & " 1 0"
  End If
  '
  Print #2, ""
  Print #2, " f2 0 4096 9"
  If fun2 = 0 Then
    Print #2, " 2 1 0"
  Else
    Print #2, " " & Val(fun2) & " 1 0"
  End If
  '
  Print #2, ""
  Print #2, ";SCOMODUL-DAUERTON:"
  '
  Print #2, ""
  Print #2, " i96   0.00   " & ZTPmax & "   ; FOF - Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i97   0.00   " & ZTPmax & "   ; SAMPLE - Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i98   0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i99   0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i100  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i101  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i102  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i103  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i104  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, " i105  0.00   " & ZTPmax & "   ; weiterer Dauerton, " & ZTPmax & " Sekunden lang"
  Print #2, ""
  Print #2, ""
'
'---------------------------------------------------------
  'Glissandozahlen berechnen:
  For a = 1 To azp
    GD(a) = Val(ZP(a + 1)) - Val(ZP(a))
    GD(a) = Int((GD(a) * Rundu) + 0.5) / Rundu
  Next a
  '
  GD(0) = GLnull ' fr den Start
  Print #2, " ;"; Tab(9); "ZTP"; Tab(19); "DT"; Tab(24); "HT"; Tab(36); "LT"; Tab(58); "GD"; Tab(68); "KL (Reso.-Frq.)"
  Print #2, " " & "i01"; Tab(8); ZTP; Tab(19); "-1"; Tab(24); HT(1); Tab(36); "0.000"; Tab(46); "pp4"; Tab(51); "pp5"; Tab(58); GD(0); Tab(68); Kl(1); Tab(80); "pp9"; Tab(87); "; 1"
  '
  ZPW = ZPW - GLnull
  For a = 2 To azp
    ZTP = Val(ZP(a - 1)) - ZPW: ZTP = Int((ZTP * Rundu) + 0.5) / Rundu
    Print #2, " " & "i01"; Tab(8); ZTP; Tab(19); "-1"; Tab(24); HT(a); Tab(36); LT(a); Tab(46); "pp4"; Tab(51); "pp5"; Tab(57); GD(a - 1); Tab(68); Kl(a); Tab(80); "pp9"; Tab(87); ";"; a
  Next a
'---------------------------------------------------------
'
  Print #2, ""
  Print #2, ""
 'Print #2, " ;[C:\Arbeit\cs06a.bat]"
  Print #2, " ;[C:\Arbeit\cs06b.bat]"
  Print #2, " e"
'---------------------------------------------------------
End Sub

Private Sub OrcDatei() ' fr SINUS, oder eine andere einfache Welle
' Print #3, " ;" & Zurdatei2
' Print #3, " ;Geschrieben am "; Date & ", " & Time
' Print #3, " ;Genauere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
'
  Print #3, " ;" & Date & ", " & Time & "  -  " & Zurdatei2 & " (einfacher Generator)"
  Print #3, " ;Hergestellt mit " & frmda1
  Print #3, " ;" & frmda2
 'Print #3, " ;Hergestellt mit " & frmDatei.Caption
  Print #3, ""
  Print #3, " ;Einstimmiger Glissando-Synthesizer"
  Print #3, " ;nach VIOLE10.orc (Viole04.orc und Viole99.orc)."
  Print #3, " ;Instrument 96 versorgt Instrument 1."
  Print #3, " ;Weitere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
  Print #3, ""
  Print #3, ""
'
  Print #3, "  sr = 44100"
  Print #3, "  kr = 44100"
  Print #3, "  ksmps = 1"
  Print #3, "  nchnls = 2"
  Print #3, ""
  Print #3, " "
  Print #3, " ;Konstanten:"
  Print #3, "  gitdf   =  1.000     ; Tondauernfaktor (0.999)"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, "  instr 1"
  Print #3, ""
  Print #3, "  iltfakt   = "; Val(0.07 * foffakt); "   ; Lautstrkefaktor fr FOF (z.B. 0.07) <---- nderbar"
  Print #3, "  iltfakts  = "; Val(0.07 * sampfakt); "  ; Lautstrkefaktor frs Sample (z.B. 0.07) <---- nderbar" ' SAMPLE
  Print #3, "  gifreqfakts  = "; Val(sampfrq); "       ; Frequenzfaktor frs Sample" ' SAMPLE
  Print #3, "  idur = (abs(p3) * gitdf)"
  Print #3, "  kfrq   =  p4     ; Tonhhe"
  Print #3, "  iamp   =  p5     ; Lautstrke"
  Print #3, "  iampv  =  p7     ; V-Lautstrke"
  Print #3, "  iGli   =  p8     ; Amplituden- und Frequenz-Schwelldauer"
  Print #3, "  iia    =  0.001 ; Einschwingdauer in Sek. (frher p9)"
  Print #3, "  iie    =  0.001 ; Ausklingdauer in Sek. (frher p10)"
  Print #3, ""
  Print #3, "  if p3 < 0 goto an_mir_ist_was_drangebunden"
  Print #3, "  ir tival"
  Print #3, "  if ir == 1 goto ich_bin_angebunden"
  Print #3, ""
  Print #3, "  Einzelnote:"
  Print #3, "  kamp linseg 0, iia, iamp, idur-iia-iie, iamp, iie, 0"
  Print #3, "  kfrq = kfrq"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  an_mir_ist_was_drangebunden:"
  Print #3, "  ir tival"
  Print #3, "  if ir == 1 goto ich_bin_eingebunden"
  Print #3, "  kamp linseg 0, iia, iamp, idur-iia, iamp"
  Print #3, "  kfrq = kfrq"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  ich_bin_angebunden:"
  Print #3, "  kamp linseg iampv, p8, iamp, idur-p8-iie, iamp, iie, 0"
  Print #3, "  kfrq linseg p6, p8, p4, idur-p8, p4"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  ich_bin_eingebunden:"
  Print #3, "  kamp linseg iampv, p8, iamp, idur-p8, iamp"
  Print #3, "  kfrq linseg p6, p8, p4, idur-p8, p4"
  Print #3, ""
  Print #3, "  ende1:"
  Print #3, "  gkfrq1 = kfrq"
  Print #3, "  gkfoq1 = kfrq  ; neu hier" ' 16.10.2007
  Print #3, "  gkamp1  = kamp*iltfakt/0.07 ; Sinus-Lautstrke  ; neu hier" ' 16.10.2007
  Print #3, "  gksamp1  = kamp*iltfakts ; Sample-Lautstrke  ; neu hier" ' 16.10.2007
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";ORCMODUL-EINZELTON:"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, "  endin"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, " ;Ein Dauerinstrument, von instr 1 in Frequenz und Amplitude gesteuert:"
  Print #3, ""
  Print #3, " ;---------------------------------------------------------"
  Print #3, "  instr 96 ; Dauerton 1"
  Print #3, "  ipan = p4 ; Panorama"
  Print #3, "  ifun = p5 ; Funktion (Welle)"
  Print #3, "  a10   oscil3 gkamp1, gkfrq1, ifun ; ifun fr Funktion"
  Print #3, "  outs (a10 * ipan), (a10 * (1 - ipan))"
  Print #3, "  endin"
  Print #3, " ;---------------------------------------------------------"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";ORCMODUL-DAUERTON:"
  Print #3, ""
  Print #3, ""
  Print #3, ""
End Sub

















Private Sub OrcDatei1() ' fr FOF
' Print #3, " ;" & Zurdatei2 & " FOF-Generator)"
' Print #3, " ;Geschrieben am "; Date & ", " & Time
' Print #3, ""
' Print #3, " ;Einstimmiger Glissando-Synthesizer"
' Print #3, " ;nach VIOLE10.orc (Viole04.orc und Viole99.orc)."
' Print #3, " ;Instrument 96 versorgt Instrument 1."
' Print #3, " ;Genauere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
' Print #3, ""
' Print #3, ""
'
  Print #3, " ;" & Date & ", " & Time & "  -  " & Zurdatei2 & " (FOF-Generator mit SAMPLE-Option)"
  Print #3, " ;Hergestellt mit " & frmda1
  Print #3, " ;" & frmda2
 'Print #3, " ;Hergestellt mit " & frmDatei.Caption
  Print #3, ""
  Print #3, " ;Einstimmiger Glissando-Synthesizer"
  Print #3, " ;nach VIOLE10.orc (Viole04.orc und Viole99.orc)."
  Print #3, " ;Instrument 96 versorgt Instrument 1."
  Print #3, " ;Weitere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
  Print #3, ""
  Print #3, ""
'
  Print #3, "  sr = 44100"
  Print #3, "  kr = 44100"
  Print #3, "  ksmps = 1"
  Print #3, "  nchnls = 2"
  Print #3, ""
  Print #3, " "
  Print #3, " ;Konstanten:"
  Print #3, "  gitdf   =  1.000     ; Tondauernfaktor (0.999)"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, "  instr 1"
  Print #3, ""
  Print #3, "  iltfakt   = "; Val(0.07 * foffakt); "     ; Lautstrkefaktor fr FOF (z.B. 0.07) <---- nderbar"
  Print #3, "  iltfakts  = "; Val(0.07 * sampfakt); "    ; Lautstrkefaktor frs Sample (z.B. 0.07) <---- nderbar" ' SAMPLE
  '
  If formantfakt = 0 Then
    Print #3, "  iformfakt = 50       ; FOM = Formantfaktor (50) <---- nderbar"
  Else
    Print #3, "  iformfakt = "; Val(formantfakt); "      ; FOM = Formantfaktor (50) <---- nderbar"
  End If
  '
  If frequenzverviel = 0 Then
    Print #3, "  ifreqfakt = 0          ; FRV = Frequenzvervielfachung (0) <---- nderbar"
  Else
    Print #3, "  ifreqfakt = "; Val(frequenzverviel); "      ; - FRV - Frequenzvervielfachung (0) <---- nderbar"
  End If
  '
  Print #3, "  gifreqfakts  = "; Val(sampfrq); "       ; Frequenzfaktor frs Sample" ' SAMPLE
  '
  Print #3, ""
  Print #3, "  idur = (abs(p3) * gitdf)"
  Print #3, "  kfrq   =  p4     ; Tonhhe"
  Print #3, "  kfoq   =  p9     ; Formantfrequenz"
  Print #3, "  iamp   =  p5     ; Lautstrke"
  Print #3, "  iampv  =  p7     ; V-Lautstrke"      ' neu am 31.10.2007
  Print #3, "  iGli   =  p8     ; Amplituden- und Frequenz-Schwelldauer"
  Print #3, "  iia    =  0.001     ; Einschwingdauer in Sek. (frher p9) <---- nderbar"
  Print #3, "  iie    =  0.001     ; Ausklingdauer in Sek. (frher p10) <---- nderbar"
  Print #3, ""
  Print #3, "  if p3 < 0 goto an_mir_ist_was_drangebunden"
  Print #3, "  ir tival"
  Print #3, "  if ir == 1 goto ich_bin_angebunden"
  Print #3, ""
  Print #3, "  Einzelnote:"
  Print #3, "  kamp linseg 0, iia, iamp, idur-iia-iie, iamp, iie, 0"
  Print #3, "  kfrq = kfrq"
  Print #3, "  kfoq = kfoq"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  an_mir_ist_was_drangebunden:"
  Print #3, "  ir tival"
  Print #3, "  if ir == 1 goto ich_bin_eingebunden"
  Print #3, "  kamp linseg 0, iia, iamp, idur-iia, iamp"
  Print #3, "  kfrq = kfrq"
  Print #3, "  kfoq = kfoq"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  ich_bin_angebunden:"
  Print #3, "  kamp linseg iampv, p8, iamp, idur-p8-iie, iamp, iie, 0"
  Print #3, "  kfrq linseg p6, p8, p4, idur-p8, p4"
  Print #3, "  kfoq linseg p10, p8, p9, idur-p8, p9"
  Print #3, "  goto ende1"
  Print #3, ""
  Print #3, "  ich_bin_eingebunden:"
  Print #3, "  kamp linseg iampv, p8, iamp, idur-p8, iamp"
  Print #3, "  kfrq linseg p6, p8, p4, idur-p8, p4"
  Print #3, "  kfoq linseg p10, p8, p9, idur-p8, p9"
  Print #3, ""
  Print #3, "  ende1:"
  Print #3, "  gkamp1  = kamp*iltfakt ; FOF-Lautstrke"
  Print #3, "  gksamp1  = kamp*iltfakts ; Sample-Lautstrke"
  Print #3, "  gkfrq1  = kfrq"
  Print #3, "  gkfoq1  = kfoq"
  Print #3, " ;--------------------"
  Print #3, "  gkamp2  = kamp*iltfakt"
  Print #3, "  gkfrq2  = kfrq+(ifreqfakt*1) ; <<<<< (ifreqfakt*n, n ist nderbar)"
  Print #3, "  gkfoq2  = kfoq+(iformfakt*1) ; <<<<< (iformfakt*n, n ist nderbar)"
  Print #3, " ;--------------------"
  Print #3, "  gkamp3  = kamp*iltfakt"
  Print #3, "  gkfrq3  = kfrq+(ifreqfakt*2) ; <<<<<"
  Print #3, "  gkfoq3  = kfoq+(iformfakt*1.7) ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, "  gkamp4  = kamp*iltfakt"
  Print #3, "  gkfrq4  = kfrq+(ifreqfakt*3) ; <<<<<"
  Print #3, "  gkfoq4  = kfoq+(iformfakt*3.3) ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, "  gkamp5  = kamp*iltfakt"
  Print #3, "  gkfrq5  = kfrq+(ifreqfakt*4) ; <<<<<"
  Print #3, "  gkfoq5  = kfoq+(iformfakt*5.6) ; <<<<<"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";ORCMODUL-EINZELTON:"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, "  endin"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, " ;Ein FOF-Dauerinstrument, von instr 1 in Frequenz, Amplitude und weiteren Parametern gesteuert:"
  Print #3, ""
  Print #3, " ;---------------------------------------------------------"
  Print #3, " instr 96 ; Dauerton"
  Print #3, " ;Fast alles ist vernderbar:"
  Print #3, " ;----------------------------"
  '
  If entenmult = 0 Then
    Print #3, "  ioktfakt = 0   ; - ENTE - Enteneffekt (0 = keine Ente) <<<<< nderbar"
  Else
    Print #3, "  ioktfakt = "; Val(entenmult); "   ; - ENTE - Enteneffekt (0 = keine Ente) <<<<< nderbar"
  End If
  '
  If delayfakt = 0 Then
    Print #3, "  idelfakt = 0.010   ; - DEL - Delay, z.B. 0.01 <<<<< nderbar"
  Else
    Print #3, "  idelfakt = "; Val(delayfakt); "   ; - DEL - Delay, z.B. 0.01 <<<<< nderbar"
  End If
  '
  Print #3, "  ipan1 = 0.5      ; <<<<< Panorama nderbar"
  Print #3, "  ipan2 = 0.6      ; <<<<<"
  Print #3, "  ipan3 = 0.4      ; <<<<<"
  Print #3, "  ipan4 = 0.7      ; <<<<<"
  Print #3, "  ipan5 = 0.3      ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, "  koct1  = ioktfakt*0.92 ; <<<<< Entenmultiplikator nderbar"
  Print #3, "  kband1 = 30"
  Print #3, "  kris1  = 0.0250 ; <<<<< Anstiegszeit nderbar"
  Print #3, "  kdur1  = 0.01"
  Print #3, "  kdec1  = 0.007"
  Print #3, " ;--------------------"
  Print #3, "  koct2  = ioktfakt*1.83 ; <<<<<"
  Print #3, "  kband2 = 30"
  Print #3, "  kris2  = 0.0195 ; <<<<< "
  Print #3, "  kdur2  = 0.01"
  Print #3, "  kdec2  = 0.007"
  Print #3, "  idelfakt2 = idelfakt*1.13 ; <<<<< Delayfaktor nderbar"
  Print #3, " ;--------------------"
  Print #3, "  koct3  = ioktfakt*2.77 ; <<<<<"
  Print #3, "  kband3 = 30"
  Print #3, "  kris3  = 0.0140 ; <<<<<"
  Print #3, "  kdur3  = 0.01"
  Print #3, "  kdec3  = 0.007"
  Print #3, "  idelfakt3 = idelfakt*2.47 ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, "  koct4  = ioktfakt*3.45 ; <<<<<"
  Print #3, "  kband4 = 30"
  Print #3, "  kris4  = 0.0085 ; <<<<<"
  Print #3, "  kdur4  = 0.01"
  Print #3, "  kdec4  = 0.07"
  Print #3, "  idelfakt4 = idelfakt*3.78 ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, "  koct5  = ioktfakt*4.31 ; <<<<<"
  Print #3, "  kband5 = 30"
  Print #3, "  kris5  = 0.0030 ; <<<<< "
  Print #3, "  kdur5  = 0.01"
  Print #3, "  kdec5  = 0.07"
  Print #3, "  idelfakt5 = idelfakt*5.12 ; <<<<<"
  Print #3, " ;--------------------"
  Print #3, ""
  Print #3, ""
  Print #3, "  a01 fof gkamp1, gkfrq1, gkfoq1, koct1, kband1, kris1, kdur1, kdec1,    25,     1,     2,    p3"
  Print #3, "  a02 fof gkamp2, gkfrq2, gkfoq2, koct2, kband2, kris2, kdur2, kdec2,    25,     1,     2,    p3"
  Print #3, "  a03 fof gkamp3, gkfrq3, gkfoq3, koct3, kband3, kris3, kdur3, kdec3,    25,     1,     2,    p3"
  Print #3, "  a04 fof gkamp4, gkfrq4, gkfoq4, koct4, kband4, kris4, kdur4, kdec4,    25,     1,     2,    p3"
  Print #3, "  a05 fof gkamp5, gkfrq5, gkfoq5, koct5, kband5, kris5, kdur5, kdec5,    25,     1,     2,    p3"
  Print #3, " ;        |       |       |       |      |       |      |      |         |       |      |     |"
  Print #3, " ;        Amplitude       |       |      Formant-Bandbreite    |         berlappungen  |     |"
  Print #3, " ;        |       Basisfrequenz   |      |       Anstiegszeit (Sek.)     |       Funktionstabelle 1"
  Print #3, " ;        |       |       Formantfrequenz|       |      Dauer (Sek.)     |       |      Funktionstabelle 2"
  Print #3, " ;        |       |       |       Oktavierungskoeffizient     Abklingzeit (Sek.) |      |     Granulationszeit"
  Print #3, " ;        |       |       |       |      |       |      |      |         |       |      |     |"
  Print #3, " ;a00 fof xamp,   xfund,  xform,  koct,  kband,  kris,  kdur,  kdec,     iolaps, ifna,  ifnb, itotdur  [, iphs] [, ifmode]"
  Print #3, ""
  Print #3, "   outs (a01*ipan1), (a01*(1-ipan1))"
  Print #3, "   a02a  delay a02, idelfakt2, 0  "
  Print #3, "   outs (a02a*ipan2), (a02a*(1-ipan2))"
  Print #3, "   a03a  delay a03, idelfakt3, 0  "
  Print #3, "   outs (a03a*ipan3), (a03a*(1-ipan3))"
  Print #3, "   a04a  delay a04, idelfakt4, 0  "
  Print #3, "   outs (a04a*ipan4), (a04a*(1-ipan4))"
  Print #3, "   a05a  delay a05, idelfakt5, 0  "
  Print #3, "   outs (a05a*ipan5), (a05a*(1-ipan5))"
  Print #3, "   endin"
  Print #3, " ;---------------------------------------------------------"
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ""
  Print #3, ";ORCMODUL-DAUERTON:"
  Print #3, ""
  Print #3, ""
  Print #3, ""
End Sub

Private Sub BatDatei()
  Print #4, " REM " & Zurdatei3
  Print #4, " REM Geschrieben am "; Date & ", " & Time
  Print #4, " REM Genauere Infos siehe Clip 'Resonanz' im NoteTab-Editor!"
  Print #4, ""
  Print #4, ""
  Print #4, " set PATH=%PATH%;C:\CSOUND\bin"
  Print #4, " set SFDIR=C:\Arbeit"
  Print #4, ""
  Print #4, " csound -o " & Arbeitsordner & Csoundname; ".wav -W -g "; Arbeitsordner & Csoundname; ".orc "; Arbeitsordner & Csoundname; ".sco"
  Print #4, " """ & "c:\cool\COOL96.exe" & """" & " " & """" & Arbeitsordner & Csoundname & ".wav" & """"
  Print #4, ""
  Print #4, " [c:\arbeit\cs06b.bat]"
End Sub

Private Sub Positionen()
  Dim breiter, schmaler, hoch, rechts, links, oben, odi As Integer
  Dim gelb, blau, rosa, grn, grau As Variant
  breiter = 1765 '1725
  schmaler = 1065
  hoch = 215
  rechts = 10465
  links = 8610 '8630 8650
  oben = 500
  odi = 270
  rosa = &HC0E0FF 'rosa
  blau = &HFFC0C0 'hellblau
  grn = &HC0FFC0 'hellgrn
 'gelb = &HC0FFFF 'hellgelb - oder &H0080FFFF
 'gelb = &H80FFFF   ' gelb?
  gelb = &HA0FFFF   ' gelb?
  grau = &HA0B0B0 'grau?
 'grau = &HD0C0B0 'grau?
 'grau = &HB0B0B0 'grau?
  '
 'frmDatei.Height = 9970 '9870
  frmDatei.Height = 10070
 'frmDatei.Left = 1470
 'frmDatei.Top = 525
  frmDatei.Width = 12360
 'frmDatei.ScaleHeight = 9375
  frmDatei.ScaleLeft = 0
  frmDatei.ScaleMode = 1
  frmDatei.ScaleTop = 0
  frmDatei.ScaleWidth = 12240
  '
  Testliste.BackColor = &H400000
  Testliste.ForeColor = &HFFFF80
  Testliste.Height = 8250 '8250
  Testliste.Left = 120
  Testliste.Top = 150
  Testliste.Width = 12015 '12015
  '
  Picture2.Height = 990
  Picture2.Left = 240
 'Picture2.Top = 8445
  Picture2.Top = 8482 ' neu am 19.02.2007
  Picture2.Width = 1980
  '
  '------------------------------------
  'ZP:
  Text5.BackColor = gelb
  Text5.Top = oben + 0 * odi
  Text5.Left = links
  Text5.Height = hoch
  Text5.Width = breiter
  Text3.BackColor = gelb
  Text3.Top = oben + 0 * odi
  Text3.Left = rechts
  Text3.Height = hoch
  Text3.Width = schmaler
  Text3.TabIndex = 1
  '
  Text6.BackColor = gelb
  Text6.Top = oben + 1 * odi
  Text6.Left = links
  Text6.Height = hoch
  Text6.Width = breiter
  Text2.BackColor = gelb
  Text2.Top = oben + 1 * odi
  Text2.Left = rechts
  Text2.Height = hoch
  Text2.Width = schmaler
  Text2.TabIndex = 2
  '
  Text7.BackColor = gelb
  Text7.Top = oben + 2 * odi
  Text7.Left = links
  Text7.Height = hoch
  Text7.Width = breiter
  Text1.BackColor = gelb
  Text1.Top = oben + 2 * odi
  Text1.Left = rechts
  Text1.Height = hoch
  Text1.Width = schmaler
  Text1.TabIndex = 3
  '
  Text8.BackColor = gelb
  Text8.Top = oben + 3 * odi
  Text8.Left = links
  Text8.Height = hoch
  Text8.Width = breiter
  Text4.BackColor = gelb
  Text4.Top = oben + 3 * odi
  Text4.Left = rechts
  Text4.Height = hoch
  Text4.Width = schmaler
  Text4.TabIndex = 4
  '
  'LT:
  Text11.BackColor = blau
  Text11.Top = oben + 5 * odi
  Text11.Left = links
  Text11.Height = hoch
  Text11.Width = breiter
  Text9.BackColor = blau
  Text9.Top = oben + 5 * odi
  Text9.Left = rechts
  Text9.Height = hoch
  Text9.Width = schmaler
  Text9.TabIndex = 5
  '
  Text12.BackColor = blau
  Text12.Top = oben + 6 * odi
  Text12.Left = links
  Text12.Height = hoch
  Text12.Width = breiter
  Text10.BackColor = blau
  Text10.Top = oben + 6 * odi
  Text10.Left = rechts
  Text10.Height = hoch
  Text10.Width = schmaler
  Text10.TabIndex = 6
  '
  'HT:
  Text18.BackColor = rosa
  Text18.Top = oben + 8 * odi
  Text18.Left = links
  Text18.Height = hoch
  Text18.Width = breiter
  Text13.BackColor = rosa
  Text13.Top = oben + 8 * odi
  Text13.Left = rechts
  Text13.Height = hoch
  Text13.Width = schmaler
  Text13.TabIndex = 7
  '
  Text28.BackColor = grn
  Text28.Top = oben + 14 * odi
  Text28.Left = links
  Text28.Height = hoch
  Text28.Width = breiter
  Text32.BackColor = grn
  Text32.Top = oben + 14 * odi
  Text32.Left = rechts
  Text32.Height = hoch
  Text32.Width = schmaler
  Text32.TabIndex = 12
  '
  Text19.BackColor = rosa
  Text19.Top = oben + 9 * odi
  Text19.Left = links
  Text19.Height = hoch
  Text19.Width = breiter
  Text14.BackColor = rosa
  Text14.Top = oben + 9 * odi
  Text14.Left = rechts
  Text14.Height = hoch
  Text14.Width = schmaler
  Text14.TabIndex = 8
  '
  Text27.BackColor = grn
  Text27.Top = oben + 15 * odi
  Text27.Left = links
  Text27.Height = hoch
  Text27.Width = breiter
  Text31.BackColor = grn
  Text31.Top = oben + 15 * odi
  Text31.Left = rechts
  Text31.Height = hoch
  Text31.Width = schmaler
  Text31.TabIndex = 13
  '
  Text21.BackColor = rosa
  Text21.Top = oben + 10 * odi
  Text21.Left = links
  Text21.Height = hoch
  Text21.Width = breiter
  Text16.BackColor = rosa
  Text16.Top = oben + 10 * odi
  Text16.Left = rechts
  Text16.Height = hoch
  Text16.Width = schmaler
  Text16.TabIndex = 9
  '
  Text26.BackColor = grn
  Text26.Top = oben + 16 * odi
  Text26.Left = links
  Text26.Height = hoch
  Text26.Width = breiter
  Text30.BackColor = grn
  Text30.Top = oben + 16 * odi
  Text30.Left = rechts
  Text30.Height = hoch
  Text30.Width = schmaler
  Text30.TabIndex = 14
  '
  Text22.BackColor = rosa
  Text22.Top = oben + 11 * odi
  Text22.Left = links
  Text22.Height = hoch
  Text22.Width = breiter
  Text17.BackColor = rosa
  Text17.Top = oben + 11 * odi
  Text17.Left = rechts
  Text17.Height = hoch
  Text17.Width = schmaler
  Text17.TabIndex = 10
  '
  Text25.BackColor = grn
  Text25.Top = oben + 17 * odi
  Text25.Left = links
  Text25.Height = hoch
  Text25.Width = breiter
  Text29.BackColor = grn
  Text29.Top = oben + 17 * odi
  Text29.Left = rechts
  Text29.Height = hoch
  Text29.Width = schmaler
  Text29.TabIndex = 15
  '
  Text24.BackColor = rosa
  Text24.Top = oben + 12 * odi
  Text24.Left = links
  Text24.Height = hoch
  Text24.Width = breiter
  Text23.BackColor = rosa
  Text23.Top = oben + 12 * odi
  Text23.Left = rechts
  Text23.Height = hoch
  Text23.Width = schmaler
  Text23.TabIndex = 11
  '
  Text15.BackColor = grn
  Text15.Top = oben + 18 * odi
  Text15.Left = links
  Text15.Height = hoch
  Text15.Width = breiter
  Text20.BackColor = grn
  Text20.Top = oben + 18 * odi
  Text20.Left = rechts
  Text20.Height = hoch
  Text20.Width = schmaler
  Text20.TabIndex = 16
  '
  Text33.BackColor = grau
  Text33.Top = oben + 20 * odi
  Text33.Left = links
  Text33.Height = hoch
  Text33.Width = breiter
  Text39.BackColor = grau
  Text39.Top = oben + 20 * odi
  Text39.Left = rechts
  Text39.Height = hoch
  Text39.Width = schmaler
  Text39.TabIndex = 17
  '
  Text34.BackColor = grau
  Text34.Top = oben + 21 * odi
  Text34.Left = links
  Text34.Height = hoch
  Text34.Width = breiter
  Text40.BackColor = grau
  Text40.Top = oben + 21 * odi
  Text40.Left = rechts
  Text40.Height = hoch
  Text40.Width = schmaler
  Text40.TabIndex = 18
  '
  Text35.BackColor = grau
  Text35.Top = oben + 22 * odi
  Text35.Left = links
  Text35.Height = hoch
  Text35.Width = breiter
  Text41.BackColor = grau
  Text41.Top = oben + 22 * odi
  Text41.Left = rechts
  Text41.Height = hoch
  Text41.Width = schmaler
  Text41.TabIndex = 19
  '
  Text36.BackColor = grau
  Text36.Top = oben + 23 * odi
  Text36.Left = links
  Text36.Height = hoch
  Text36.Width = breiter
  Text42.BackColor = grau
  Text42.Top = oben + 23 * odi
  Text42.Left = rechts
  Text42.Height = hoch
  Text42.Width = schmaler
  Text42.TabIndex = 20
  '
  Text37.BackColor = grau
  Text37.Top = oben + 24 * odi
  Text37.Left = links
  Text37.Height = hoch
  Text37.Width = breiter
  Text43.BackColor = grau
  Text43.Top = oben + 24 * odi
  Text43.Left = rechts
  Text43.Height = hoch
  Text43.Width = schmaler
  Text43.TabIndex = 21
  '
  Text38.BackColor = grau
  Text38.Top = oben + 25 * odi
  Text38.Left = links
  Text38.Height = hoch
  Text38.Width = breiter
  Text44.BackColor = grau
  Text44.Top = oben + 25 * odi
  Text44.Left = rechts
  Text44.Height = hoch
  Text44.Width = schmaler
  Text44.TabIndex = 22
  '
  Command10.Default = True ' TTTEEEST
 'Command10.TabIndex = 0
  '
End Sub

Private Sub GBF1()
  Picture2.Visible = True
  Command3.TabStop = True
  Command1.TabStop = True
  Command5.TabStop = True
  '
  Text1.Visible = False
  Text1.TabStop = False
  Text2.Visible = False
  Text2.TabStop = False
  Text3.Visible = False
  Text3.TabStop = False
  Text4.Visible = False
  Text4.TabStop = False
  Text5.Visible = False
  Text6.Visible = False
  Text7.Visible = False
  Text8.Visible = False
  '
  Text9.Visible = False
  Text10.Visible = False
  Text11.Visible = False
  Text12.Visible = False
  '
  Text13.Visible = False
  Text32.Visible = False
  Text14.Visible = False
  Text31.Visible = False
  Text16.Visible = False
  Text30.Visible = False
  Text17.Visible = False
  Text29.Visible = False
  Text23.Visible = False
  Text20.Visible = False
  Text24.Visible = False
  Text15.Visible = False
  Text18.Visible = False
  Text28.Visible = False
  Text19.Visible = False
  Text27.Visible = False
  Text21.Visible = False
  Text26.Visible = False
  Text22.Visible = False
  Text25.Visible = False
  '
  Text33.Visible = False
  Text34.Visible = False
  Text35.Visible = False
  Text36.Visible = False
  Text37.Visible = False
  Text38.Visible = False
  Text39.Visible = False
  Text40.Visible = False
  Text41.Visible = False
  Text42.Visible = False
  Text43.Visible = False
  Text44.Visible = False
  '
  Call Fensterweg
  'Textfenster und Beschriftung
  'Text48.Visible = False 'zur Eingabe des Wertes fr FUA
  'Text49.Visible = False 'zur Eingabe des Wertes fr FUB
  'Text50.Visible = False 'zur Eingabe des Wertes fr ENTE
  'Text51.Visible = False 'zur Eingabe des Wertes fr DEL
  'Text52.Visible = False 'zur Eingabe des Wertes fr FOM
  'Text45.Visible = False ' Textfenster
  'Text46.Visible = False ' Textfenster
  'Text47.Visible = False ' Textfenster
  '
  'Label18.Visible = False ' Beschriftung 'Hrte eingeben:'
  'Text53.Visible = False ' Beschriftung 'FUA'
  'Text54.Visible = False ' Beschriftung 'FUB'
  'Text55.Visible = False ' Beschriftung 'ENTE'
  'Text56.Visible = False ' Beschriftung 'DEL'
  'Text57.Visible = False ' Beschriftung 'FOM'
  'Label16.Visible = True ' Beschriftung 'MIDI'
  'Label1.Visible = True ' Beschriftung 'bernehmen'
  'Label4.Visible = True ' Beschriftung 'Tonverlaufsliste ..'
    '
End Sub


Private Sub Fensterweg()
  'Textfenster und Beschriftung
  Text48.Visible = False 'zur Eingabe des Wertes fr FUA
  Text49.Visible = False 'zur Eingabe des Wertes fr FUB
  Text50.Visible = False 'zur Eingabe des Wertes fr ENTE
  Text51.Visible = False 'zur Eingabe des Wertes fr DEL
  Text52.Visible = False 'zur Eingabe des Wertes fr FOM
  Text45.Visible = False ' Textfenster
  Text46.Visible = False ' Textfenster
  Text47.Visible = False ' Textfenster
  Text58.Visible = False ' Textfenster fr Lautstrke
  Label18.Visible = False ' Beschriftung 'Hrte eingeben:'
  Text53.Visible = False ' Beschriftung 'FUA'
  Text54.Visible = False ' Beschriftung 'FUB'
  Text55.Visible = False ' Beschriftung 'ENTE'
  Text56.Visible = False ' Beschriftung 'DEL'
  Text57.Visible = False ' Beschriftung 'FOM'
  Label16.Visible = True ' Beschriftung 'MIDI'
  Label1.Visible = True ' Beschriftung 'bernehmen'
  Label4.Visible = True ' Beschriftung 'Tonverlaufsliste ..'
End Sub


Private Sub GBF2()
  Testliste.BackColor = &H400000
  Testliste.ForeColor = &HFFFF80
  Testliste.FontSize = 8
  Testliste.FontBold = False
  Testliste.Height = 8250 '8250
End Sub

Private Sub GBF3()
 'Testliste.BackColor = &H330099
 'Testliste.ForeColor = &HFFFFFF
 'Testliste.BackColor = &H7DFF
 'Testliste.ForeColor = &H0
 'Testliste.FontSize = 8
 'Testliste.FontSize = 10
 'Testliste.FontBold = True
 'Testliste.Height = 8250 '8250
 
  Testliste.ForeColor = &H0
 'Testliste.BackColor = &HFFFFFF
  Testliste.BackColor = &HFFC0C0
  Testliste.FontSize = 10
  Testliste.FontBold = True
  Testliste.Height = 8250 '8250
End Sub

Private Sub GBF9()
  Testliste.ForeColor = &H0
 'Testliste.BackColor = &HFFFFFF
  Testliste.BackColor = &HFFC0C0
  Testliste.FontSize = 8
  Testliste.FontBold = False
  Testliste.Height = 8250 '8250
End Sub


Private Sub GBF4() 'fr die Zufallsliste
  Testliste.BackColor = &H0
  Testliste.ForeColor = &HFFFFFF
  Testliste.FontSize = 10
  Testliste.FontBold = True
  Testliste.Height = 8250 '8250
End Sub

Private Sub GBF5()
  Call Fensterweg
  Zufallsliste.Top = 8505
  Zufallsliste.Left = 1500
  Zufallsliste.Height = 285
  Zufallsliste.Width = 180 * 2
'
  Command9.Top = 8505
  Command9.Left = 1500 + 2 * 180
  Command9.Height = 285
  Command9.Width = 180
'
 'Command11.Top = 8505
 'Command11.Left = 1500 + 2 * 180
 'Command11.Height = 285
 'Command11.Width = 180
'
  Command11.Top = 8505 + 2 * 285
  Command11.Left = 1500
  Command11.Height = 285
  Command11.Width = 180 * 3
'
  Direktstart.Top = 8505
  Direktstart.Left = 1500 + 3 * 180
  Direktstart.Height = 285
  Direktstart.Width = 180
'
 'Direktstart.Top = 8505 + 2 * 285
 'Direktstart.Left = 1500
 'Direktstart.Height = 285
 'Direktstart.Width = 180 * 3
'
  Command12.Top = 8505 + 1 * 285
  Command12.Left = 1500 + 3 * 180
  Command12.Height = 285
  Command12.Width = 180
'
  Command13.Top = 8505 + 2 * 285
  Command13.Left = 1500 + 3 * 180
  Command13.Height = 285
  Command13.Width = 180
'
  Command10.Top = 8505 + 1 * 285
  Command10.Left = 1500
  Command10.Height = 285
  Command10.Width = 180 * 3
'
End Sub
