Code: [View More of this Code] [View Even More of this Code] [View Less of this Code] [Select All of this Code] '----------------------------------------------------------------------------------------- 'name : HighFreq.bas 'micro : Mega16 '----------------------------------------------------------------------------------------- $regfile = "m16def.dat" ' specify the used micro $crystal = 16000000 ' used crystal frequency $baud = 19200 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space 'Pin Connection 'Output's Config Porta.0 = Output Config Porta.1 = Output Config Porta.2 = Output Config Porta.3 = Output Config Porta.4 = Output Config Porta.5 = Output Config Porta.6 = Output Config Porta.7 = Output Config Portc.7 = Output Config Portc.6 = Output Config Portd.6 = Output Z0 Alias Porta.0 Z1 Alias Porta.1 Z2 Alias Porta.2 Z3 Alias Porta.3 Z4 Alias Porta.4 Z5 Alias Porta.5 Z6 Alias Porta.6 Z7 Alias Porta.7 Z8 Alias Portc.7 Z9 Alias Portc.6 Gen Alias Portd.6 'Input's Config Pind.3 = Input Config Pind.4 = Input Config Pind.5 = Input Taster1 Alias Pind.3 Taster2 Alias Pind.4 Taster3 Alias Pind.5 'Dimmer Dim Gen As Bit Dim Porta.0 As Bit Dim Porta.1 As Bit Dim Porta.2 As Bit Dim Porta.3 As Bit Dim Porta.4 As Bit Dim Porta.5 As Bit Dim Porta.6 As Bit Dim Porta.7 As Bit Dim Portc.7 As Bit Dim Portc.6 As Bit Dim Test As Byte Dim Zaehler As Byte Enable Interrupts Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0 Zaehler = 0 ''''''''''Hauptprogramm''''''''''''''' Do Zaehler = Zaehler + 1 If Zaehler = 40 Then Zaehler = 0 End If If Zaehler = 0 Then Z0 = 1 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 4 Then Z0 = 0 Z1 = 1 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 8 Then Z0 = 0 Z1 = 0 Z2 = 1 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 12 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 1 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 16 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 1 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 20 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 1 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 24 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 1 Z7 = 0 Z8 = 0 Z9 = 0 End If If Zaehler = 28 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 1 Z8 = 0 Z9 = 0 End If If Zaehler = 32 Then Z0 = 0 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 1 Z9 = 0 End If If Zaehler = 36 Then Z0 = 1 Z1 = 0 Z2 = 0 Z3 = 0 Z4 = 0 Z5 = 0 Z6 = 0 Z7 = 0 Z8 = 0 Z9 = 1 End If 'Spiout ' ... Loop End