Code:
'###################################################
'rnmega128funk_erstetest.bas
'für
'RoboterNetz Board RN-Mega128Funk ab Version 1.1
'Das neue vielseitige RN-Controllerboard mit ATMEGA128
'
' Achtung:
' Diese Demo ist mit Bascom Compiler 1.11.8.3 getestet
'
'Aufgabe:
'Erster Funktionstest
'Spielt "Alle meine Endchen" und zeigt Portzustand
'Die Pin-Nummern sind die Steckerkontakte
'Es sollte überall eine 1 als Ergebniss kommen
:
'Autor: Frank
'Infos:http://www.Roboternetz.de oder robotikhardware.de
'#######################################################
' ---------------RN-Mega128Funk übliche ------------------
$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000 'Quarzfrequenz
$baud = 19200 'Baudrate für Funkmodul
$baud1 = 9600 'Baudrate für MAX
Open "com2:" For Binary As #2 'Ausgabe über zweite serielle Schnittstelle (MAX)
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
' ---------------------------------------------------
Declare Sub Allemeineendchen();
Declare Sub Lauflicht_uni() ;
Declare Sub Lauflicht_jpmot() ;
Declare Sub Lauflicht_key() ;
Declare Sub Lauflicht_joy() ;
Declare Sub Lauflicht_lcd() ;
Dim I As Word
Dim U As Word
Dim O As Word
Wait 1
Print #2 , ""
Print #2 , "**** RN-Mega128Funk ****"
Print #2 , ""
Allemeineendchen
'Folgende Anweisungen soirgen dafür
'das alle Ports über einen internen Widerstand auf High (1)
'gesetzt werden
Porta = 255
Portb = 255
Portc = 255
Portd = 255
Porte = 255
Portf = 255
Print #2 , "Joy Pin 1=" ; Pina.0
Print #2 , "Joy Pin 2=" ; Pina.1
Print #2 , "Joy Pin 3=" ; Pina.2
Print #2 , "Joy Pin 4=" ; Pina.3
Print #2 , "Joy Pin 5=" ; Pine.6
Print #2 , "Joy Pin 6=" ; Pine.7
Print #2 , "Joy Pin 7=" ; Ping.3
Print #2 , "Joy Pin 8=" ; Ping.4
Print #2 , "JPMOT Pin 1=" ; Pind.5
Print #2 , "JPMOT Pin 2=" ; Pind.4
Print #2 , "JPMOT Pin 3=" ; Pind.6
Print #2 , "JPMOT Pin 4=" ; Pind.7
Print #2 , "JPMOT Pin 5=" ; Pina.4
Print #2 , "JPMOT Pin 6=" ; Pine.3
Print #2 , "JPMOT Pin 7=" ; Pina.5
Print #2 , "JPMOT Pin 8=" ; Pine.4
For U = 0 To 7
O = U + 1
Print #2 , "LCD Pin " ; O ; "=" ; Pinf.u
Next U
For U = 0 To 7
O = U + 1
Print #2 , "KEY Pin " ; O ; "=" ; Pinc.u
Next U
For U = 0 To 7
O = U + 1
Print #2 , "UNI Pin " ; O ; "=" ; Pinb.u
Next U
Do
Loop 'Endlosschleife kann nur durch RESET Button beendet werden
End
' Spiele Lied "AllE meine Endchen"
Sub Allemeineendchen()
Sound Portg.2 , 130 , 1916
Sound Portg.2 , 146 , 1706
Sound Portg.2 , 164 , 1520
Sound Portg.2 , 174 , 1433
Sound Portg.2 , 293 , 1276
Sound Portg.2 , 6250 , 10
Sound Portg.2 , 293 , 1276
Sound Portg.2 , 6250 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 783 , 1276
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 200 , 1136
Sound Portg.2 , 450 , 10
Sound Portg.2 , 783 , 1276
Sound Portg.2 , 170 , 1433
Sound Portg.2 , 450 , 10
Sound Portg.2 , 170 , 1433
Sound Portg.2 , 450 , 10
Sound Portg.2 , 170 , 1433
Sound Portg.2 , 450 , 10
Sound Portg.2 , 170 , 1433
Sound Portg.2 , 450 , 10
Sound Portg.2 , 325 , 1520
Sound Portg.2 , 500 , 10
Sound Portg.2 , 325 , 1520
Sound Portg.2 , 500 , 10
Sound Portg.2 , 145 , 1706
Sound Portg.2 , 450 , 10
Sound Portg.2 , 145 , 1706
Sound Portg.2 , 450 , 10
Sound Portg.2 , 145 , 1706
Sound Portg.2 , 450 , 10
Sound Portg.2 , 145 , 1706
Sound Portg.2 , 450 , 10
Sound Portg.2 , 261 , 1916
End Sub
Lesezeichen