Ich habe versucht diesen Code nach VB 2010 zu übersetzen.
Rausgekommen ist
Jetzt erhalte ich bei der vorletzten Zeile beim ersten Argument "events" die Fehlermeldung
Der erste Teil der Meldung lässt mich fragen, was habe ich falsch übersetzt?
Quellcode
- BASS_MIDI_EVENT events[]={
- {MIDI_EVENT_NOTE, MAKEWORD(60, 100), 0, 0, 0}, // press the key immediately (after 0 ticks)
- {MIDI_EVENT_NOTE, 60, 0, 200, 0}, // release the key after 200 ticks
- {MIDI_EVENT_END, 0, 0, 400, 0} // end after 400 ticks
- };
- midi=BASS_MIDI_StreamCreateEvents(events, 100, BASS_SAMPLE_LOOP, 0); // create a stream from the events
- BASS_ChannelPlay(midi, 0); // start playing it
Rausgekommen ist
VB.NET-Quellcode
- Dim events(3, 5) As BASSMIDIEvent
- events = {
- {BASSMIDIEvent.MIDI_EVENT_NOTE, MakeWord(60, 100), 0, 0, 0},
- {BASSMIDIEvent.MIDI_EVENT_NOTE, 60, 0, 200, 0},
- {BASSMIDIEvent.MIDI_EVENT_END, 0, 0, 400, 0}
- }
- Dim midi = BASS_MIDI_StreamCreateEvents(events, 100, BASS_SAMPLE_LOOP, 0)
- BASS_ChannelPlay(midi, 0)
Jetzt erhalte ich bei der vorletzten Zeile beim ersten Argument "events" die Fehlermeldung
Ein Wert des Typs "2-dimensionales Array von Un4seen.Bass.AddOn.Midi.BASSMIDIEvent" kann nicht in "1-dimensionales Array von Un4seen.Bass.AddOn.Midi.BASS_MIDI_EVENT" konvertiert werden, da "Un4seen.Bass.AddOn.Midi.BASSMIDIEvent" nicht von "Un4seen.Bass.AddOn.Midi.BASS_MIDI_EVENT" abgeleitet ist.
Der erste Teil der Meldung lässt mich fragen, was habe ich falsch übersetzt?