Das deutsche QBasic- und FreeBASIC-Forum

[MatthiasGP]

Hallo, Allerseits,
seit heute beschäftige ich mich wieder mit BASIC. Auf der Suche nach einem aktuellen Compiler stieß ich auf FreeBasic. Sehr schön. elegant.
Leider meine Kenntnisse nicht mehr. (Ist auch schon ein Weilchen her)
Da ich kürzlich ein VF-Display erworben hatte, um es gegen das defekte eines HP designjet auszutauschen und das leider nicht hingehauen hat, hab ich begonnen, das Teil über die RS232 anzusprechen. Klappt eigentlich ganz gut. (auch mit dem USB2seriell-Adapter) Nun ja und nun wollte ich ein simples VU-Meter damit basteln, also die Signale der Soundcard auslesen (keine soundblaster sondern eine onboard Realtek) und dazu fehlt mir leider die Routine bzw. ich finde die entspr. Befehle nicht. (bass.dll ??)
Jetzt meine Frage: wie bekomme ich die Signale der Karte in Freebasic ausgelesen, um sie für die horizontale Balkengrafik zu nutzen (einfach als Block-Diagramm) Das display hat 2x20 Chracters.
Die "Uhr" war ziemlich simpel:
Open "COM2:9600,N,8,1,CD0,CS0,DS0" FOR RANDOM AS #1
Print #1," " 'cls funktioniert nicht
Locate 1, 1: PRINT " (Programmende mit q)"
Do
Dim h As String = Time
IF h = Time then Print #1, " " + Time + " "
LOOP UNTIL INKEY = "q"
Close #1
herzliche Grüße und Danke für die Antwortmühe
Matthias

[Jojo]

Dafür gibt's viele Bibliotheken, z.B. die BASS-Bibliothek, der schon Beispiele zur Tonaufnahme für VisualBasic beiliegen (lässt sich ganz einfach übersetzen). Ansonsten wurde die Frage schon mehrmals im Forum gestellt, einfach mal die Forensuche benutzen.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[MatthiasGP]

Hallo, Jojo, guten Morgen
und Danke für die Antwort. Ich hab die beiden Programme von Volta gefunden (Oszilloskop und Frequenz) Leider quittieren sie immer mit mp3 Datei kann nicht gestartet werden... (evtl. falsches Format ?) die soundcard spielt das file allerdings. Die Datei liegt auch im Verzeichnis, wo das Programm kompiliert wurde...
ich komm irgendwie nicht weiter...Schade (freebasic läuft unter WIN7)
Grüße
matthias

[volta]

Also,
ich habe alles noch mal nachgeprüft und es läuft!
Hier sind alle notwendigen Dateien (bas, dll, bi, a), mit einer mp3 zum testen und kompilierten Beispielen:
http://volta.de.tt/zips/bass_spielerei.zip (220k)
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[MatthiasGP]

Hallo, Volta,
SUPER, Danke, ja läuft... mir fehlte wohl die bass.bi Datei (shame on me)
Ist genau ,w as ich gesucht hab. Nochmals Danke.
Ich glaube ich werde Freebasic Fan.
Matthias

[Jojo]

Die bass.bi liegt bei FB dabei, aber in einer hoffnungslos veralteten Version.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[MatthiasGP]

Hallo, Volta...
Jou, war dann ganz simpel:
OPEN "COM2:9600,N,8,1,CD0,CS0,OP0" FOR RANDOM AS #1 (am Beginn)
Print #1, String$ (40, " ") 'Pseudo CLS
Dim h As Integer = (HiWord(peak) Shr /5 '20 digits
Dim l As Integer = (LoWord(peak) Shr /5
Print #1, String$(h, Chr$(219))
Print #1, String$(l, Chr$(219))
close #1 (am Ende)

sieht auch ganz niedlich aus...
kann man die soundcard auch "direkt" abgreifen, also ohne ein mp3 file zu deklarieren ?

Matthias

[volta]

[chutullu]

@volta
@MatthiasGP


Habe mich mal damit versucht, wie gesagt versucht, bin mit Soundsynthese nie zurecht gekommen ...

Aber hier ein paar Infos zur Ansteuerung SB16 mit DSP :

[Jojo]

Du willst doch nicht wirklich aus FB heraus einen SB16 hardwarenah ansteuern, oder?
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.