Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

Der Ursprung dieses Forum reicht bis in das Jahr 2008 zurück

Software

RE: Motorgeräusch

 von Naubaddi , 15.02.2020 15:46

Morjen,
das dachte ich mir schon das es Geschwindigkeitsabhängig sein soll das Motorgeräusch ;-), kommt drauf an wie gut Du im Umgang mit Audiodateien bist um genügend Motorgeräusche zu erstellen. Man kann ja ein wenig mogeln und es so machen das es sich recht gut anhört, die Motorgeräusche in dem Video sind hm bescheiden es soll nur zeigen was man machen kann.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
; picaxe08m2 ;	automatische Compilerauswahl für mein Skript
 
Symbol TX = C.4 ' Ausgang, Befehl und Sollwert zum DFPlayer senden
Symbol RX = C.2 ' Eingang, Daten vom DFPlayer empfangen
Symbol BUSY_PIN = pinC.1 ' Eingang, ist der DFPlayer beschäftigt?
Symbol Signal = pinC.3 ' Eingang, auf ein Signal warten
Symbol BAUD_FREQ = M8 ' Frequenz setzen
Symbol BAUD = T9600_8 ' Geschwindigkeit setzen
Symbol cmd = b0 ' Befehl für den DFPlayer
Symbol arg = w1 ' Sollwert für den DFPlayer
Symbol arg.lb = b2 ' low Byte von arg
Symbol arg.hb = b3 ' high Byte von arg
symbol Nr = b4 ' die Nr. der Datei
symbol Nr_alt = b5 ' die Nr. der aktuellen Datei merken
 
Nr = 0 ' keine Datei, das Abspielen stoppen
Nr_alt = Nr
 
high TX ' den Ausgang TX auf high setzen für Leerlauf
SetFreq BAUD_FREQ ' Frequenz einstellen
pause 1000 ' eine Pause für die Initialisierung
 
cmd = $09 : arg = $0002 : gosub senden ' mikroSD Karte auswählen
pause 4000 ' eine Pause um den Inhalt der SD-Karte einzulesen
 
cmd = $06 : arg = $0011 : gosub senden ' Lautstärke einstellen (0 - 1E)
pause 1000 ' eine Pause um die Lautstärke einzustellen
 
do
if Signal = 1 then
inc Nr : if Nr > 3 then : Nr = 0 : endif
do : loop until Signal = 0
endif
 
if Nr <> Nr_alt then
Nr_alt = Nr
select case Nr
case 0
cmd = $16 : arg = $0000 : gosub senden ' Motor aus
case 1
cmd = $08 : arg = $0001 : gosub senden ' Motor starten
pause 4000
cmd = $08 : arg = $0002 : gosub senden ' und dann im Leerlauf
case 2
cmd = $08 : arg = $0003 : gosub senden ' Motor schneller
case 3
cmd = $08 : arg = $0004 : gosub senden ' Motor noch schneller
endselect
endif
loop
 
end
 
senden:
SerOut TX, BAUD, ( $7E , $FF , $06 , cmd , $00 , arg.hb , arg.lb , $EF )
return
 





Grüßle, Naubaddi

Naubaddi
Beiträge: 288
Registriert am: 29.01.2019

Themen Überblick

Betreff Absender Datum
Motorgeräusch Karlsson 12.02.2020
RE: Motorgeräusch Naubaddi 12.02.2020
RE: Motorgeräusch Karlsson 12.02.2020
RE: Motorgeräusch Naubaddi 15.02.2020
 

Picaxe Editor 5.5.5 Download
Update auf Picaxe Editor 5.5.6 Download
Picaxe Editor 6.x.x.x Download
Manual1.pdf        -      Grundwissen Download
Manual2.pdf        -      Befehle Download
Manual3.pdf        -      Beispiele Download


Press [Backspace] for back to Menu


Counter
Xobor Forum Software ©Xobor.de | Forum erstellen
Datenschutz