Bastelarbeit - NervaTron

Jetzt wo die "Kalte" Jahreszeit kommt, hab ich wieder mal meine Lötkolben rausgeholt und gebastelt & und gecodet.

Ich will euch meine "NervaTron" vorstellen.
Man könne es als "Hello World" in der Microprocessor Welt vorstellen.

Es kann fast nicht und geht eine auf die Eier. ;)
So wie ein "Hello World" Programm.

Die Funktion.
1. Es gibt bis jetzt 3 verschiedene pieps geräusche von sich.
2. Es ist "zufall" welches abgespielt wird.
3. Es ist "zufall" wann es abgespielt wird. -> Max 254 Minuten Wartezeit !

Mehr kann es nicht, ich bin auf die Idee gekommen als ich Navi CIS gesehn hab da gab es sowas.

---------------------------------------------------------------------------------------------------------

Technick:

Es ist ein C-Control Micro Unit
Die in Basic++ ( WorkBench++ v2.4) geschrieben wurde.
Es gibt keine Word, String usw...
Daher ergibt sich auch "NUR" 254 Minuten Wartezeit byte kann nur 0-255 annehmen.

Teileliste Standalone:
Zum Programmieren wird das Application Board benötigt (Conrad 19 83 02 ) !!! COM-Port !!!
Oder ihr baut ech was selber -> MAX232 <- es müsste auch mit eine USB Programmer gehn
USB to RS232.

C1 = 10 µF
C2 = 10 µF
C3 = 100 nF

D1 = Led ( low power ) !!!
D2 = 1N4148

IC1 = 78L05
IC2 = C-Control Micro Unit

S1 = Microtaster
Bz1 = Buzzer

9V Clip
IC Sockel 8 Pin
Lochrasterplatiene

Die schaltung wurde von den schaldplan des Evaluationsboard C-Control I Programmer-/Evolution-Board Micro abgeleitet !
Ich haffe nicht für FHELER meiner Seite !!!
Topsite

Backsite


Firmware

'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'IIIIIIIIIIIIIIIIIIIIIII NervaTron V 1.0.0 IIIIIIIIIIIIIIIIIIIIIIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
' ( C ) O.G. ( Aggrasso )
' 29.10.2016
'----------------------------------------------------------------------
' THEMA: Nerven ;)
'----------------------------------------------------------------------
'--------------------------
'------ I/O PORTS ---------
'--------------------------
define Beeper port[6]
define LED port[5] ' Status LED
define RunKey port[3] ' Start / Stop
define ComTXD port[1] ' Com Port TXT

'define ADC2 ad[2]
'define ADC5 ad[5]
'define ADC6 ad[6]
'-------------------------- ,0
'---- SYSTEM MEMORY -------
'--------------------------
define Counter1 byte[1] ' Zähler 1 -> Counter ( Max 254 Minuten )
define Counter2 byte[3] ' Zähler 3 -> PlayCounter
define Counter3 byte[4] ' Zähler SystemSound Play

define SecOLD byte[5] ' SecondOLD
define RandW1 byte[6] ' Randomwert -> ( Minuten X )
define RandW2 byte[7] ' Randomwert -> ( RandomSound )

define SysConfig1 byte[8] ' Config für ( PlayRandTimer )
define SysConfig2 byte[9]
'--------------------------
'---- Config SYSTEM -------
'--------------------------
BAUD R9600 ' ComPort 9600 Baud
SecOLD = 0 ' SecondOLD auf 0
Counter1 = 0 ' Minuten Counter ( Max 254 Minunten )
Counter3 = 0
SysConfig1 = 0 ' Config für ( PlayRandTimer )
SysConfig2 = 0 ' Leer
Programm_PlayRandTimer() ' Initialisierung ( PlayRandTimer ) '
'--------------------------------------------------
'--------------------- Start ----------------------
'--------------------------------------------------
#Start
LED = on
Print "$$$ - Wait - $$$ [ NervaTron V 1.0.0 ]"
if RunKey = OFF then goto StartA ' Taste für Start
PAUSE 100
goto Start
'--------------------------------------------------
'-------------------- Pause ----------------------
'--------------------------------------------------
#PauseMode
Programm_SystemSound()
goto Start
'--------------------------------------------------
#StartA
for Counter3= 1 to 3
LED = on
Programm_SystemSound()
pause 10
LED = off
next
print "+------------------------------+"
Print "[ - NervaTron Programm Start - ]"
PAUSE 500
SECOND=0 ' Second auf 0
Counter3=0
'--------------------------------------------------
'--------------------- Main ----------------------
'--------------------------------------------------
#Main
SysConfig1 = 1
if SECOND > 58 then Programm_TickingMin() ' Nach 59 Sek Count1 + 1 '
if Counter1 = RandW1 then Programm_RandomSound() ' Play Sound at Min X
' Secound Ticks Print
if SecOLD < SECOND then Print "Sek: " & SECOND & " | Min: " & Counter1 & " | Play Sound in: " & RandW1 & " Minuten | Sound Play´s: " & Counter2
SecOLD = SECOND
'--------------------------------------------------
if RunKey = off then goto PauseMode ' Taste für Pause -> Noch Ändern <- Stand V 0.4.5
goto Main
'--------------------------------------------------
'--------------------- Reset ---------------------
'--------------------------------------------------
FUNCTION Programm_Reset()
Counter1 = 0
Programm_PlayRandTimer()
END FUNCTION
'--------------------------------------------------
'----------------- TickingMin -------------------
'--------------------------------------------------
FUNCTION Programm_TickingMin()
Print "Random Min: " & RandW1 & " | Play in: " & Counter1
if Counter1 >= 254 then Counter1 = 0 ' Überlauf Check
Counter1 = Counter1 + 1 ' Nach 59 Sec Count1 + 1 (Max 254 Minuten)
PAUSE 100 ' Wichtig -> Sonst nicht + 1 -> + ??
END FUNCTION
'--------------------------------------------------
'--------------- PlayRandTimer ------------------
'--------------------------------------------------
FUNCTION Programm_PlayRandTimer()
RandW1 = RAND / 6
if SysConfig1 = 0 then goto Start
if SysConfig1 = 1 then goto Main
END FUNCTION
'--------------------------------------------------
'------------------ RandomSound ------------------
'--------------------------------------------------
FUNCTION Programm_RandomSound()
RandW2 = RAND
Counter2 = Counter2 + 1 '
if RandW2 >= 170 then SysConfig2=3 ' Grösser gleich 170 -> Sound3
if RandW2 >= 85 then SysConfig2=2 ' Grösser gleich 85 -> Sound2
if RandW2 >= 0 then SysConfig2=1 ' Grösser gleich 0 -> Sound1
Programm_PlaySound()
END FUNCTION
'--------------------------------------------------
'------------------ SystemSound ------------------
'--------------------------------------------------
FUNCTION Programm_SystemSound()
BEEP 22, 2, Beeper
BEEP 44, 4, Beeper
END FUNCTION
'--------------------------------------------------
'----------- Programm Sound 01 to 03 -----------
'--------------------------------------------------
FUNCTION Programm_PlaySound()
Print "Play Sound " & SysConfig2
' Sound 1
if SysConfig2 = 1 then
BEEP 138, 5, Beeper ' Frequenz = 138 , Dauer 5
BEEP 33, 7, Beeper ' Frequenz = 33 , Dauer 7
END IF
' Sound 2
if SysConfig2 = 2 then
BEEP 200, 7, Beeper ' Frequenz = 200 , Dauer 7
BEEP 250, 9, Beeper ' Frequenz = 250 , Dauer 9
Pause 2
BEEP 200, 7, Beeper ' Frequenz = 200 , Dauer 7
BEEP 250, 9, Beeper ' Frequenz = 250 , Dauer 9
END IF
' Sound 3
if SysConfig2 = 3 then
BEEP 22, 2, Beeper ' Frequenz = 22 , Dauer 2
BEEP 80, 6, Beeper ' Frequenz = 80 , Dauer 6
END IF
Programm_Reset()
END FUNCTION

attributes
end attributes

Die Firmware kann noch sehr verbessert werden, muss mich wieder einarbeiten.
Ihr könnt alles was mit "ComTXD" zu tun hat raus nehmen, ist nur zum testen ob es alles so macht was es soll! -> print ;) -> ausgabe auf ein Terminalprogramm ;)


MFG O.G.

@O.G.
Öhm...jo. Und was macht es nun genau?! O_O

Also eher so eine Art Spielerei vermute ich?

mfg
Eye

@PrivateEye

Das versteckt man bei jemand anders.
Und der wird Irre wenn es immer Piepst und er nicht weiss wo es her kommt. :)

@PrivateEye
Ein Kumpl hat mal sowas in der art gebaut , NUR das es in eine "Telefon zwischenstecker" drin war.
So hat das Telefon äm Random gebimmelt ~ alle 2 bis 6 Stunden.
Das Telefon hat noch gefunzt , es gab keine Probleme.
Und jetzt das geile man hat keine Akku gebraucht ! Die 25mA hat es such aus dem Tele netzt gezogen !

@all
!!!! Achtung das war noch eine ANALOGES Tele !!!
Das sollte man auf keinen fall mehr machen in der heutigen zeit ist man da leich ge *Ickt

@O.G.
Lol... Klingt wie das "perfekte" Weihnachtspräsent für die nervige Ex... :D :Y:

@PrivateEye
Welche von beiden ??

Ich hab noch mehr auf lager , wenn mir langweilig ist mach ich mehr.
Z.b. ein teil was Random z.b. dem Tv Lauter / Leiser usw.. schaltet.
Das Teil muss nur in reichweite sein Max 4-5 Meter weit weg und bis zu 45° links und rechts versetzt.
Edit man muss den TV ein Speichern.

@O.G.
Beide? Ich habe nur eine... :D

Klingt mies, aber gut!!