The SE-MINISTAR is an electronics Star with various LED patterns and melody. The BASCOM-AVR source code is available. All parts except the batteries are included. The tiny2313 is programmed. Available colours : red, green, yellow and white.
For J = 0 To M For I = 0 To L Next I
Porta = &H002 For I = 0 To L Next I
Porta = &H001 Next J
S = S Mod 64 If S = 0 Then Restore Ledpatt EndIf
Read X : Portb = X : Read X : Portd = X
S = S + 1
Waitms 10
Return
'
'-------------------------------------------------------------------------------
Ledpatt:
' PORT B PORT D
' 76543210 76543210 Data &B00000000 , &B00000000 ' 0 Data &B11111111 , &B11111111 ' 1 Data &B00000000 , &B00000000 ' 2 Data &B11111111 , &B11111111 ' 3 Data &B11110111 , &B11111111 ' 4 Data &B11110011 , &B11111111 ' 5 Data &B11110001 , &B11111111 ' 6 Data &B11110000 , &B10111111 ' 7
Data &B11110000 , &B10011111 ' 8 Data &B11110000 , &B10001111 ' 9 Data &B11110000 , &B10000111 ' 10 Data &B11110000 , &B10000011 ' 11 Data &B11110000 , &B10000001 ' 12 Data &B11110000 , &B10000000 ' 13 Data &B01110000 , &B10000000 ' 14 Data &B00110000 , &B10000000 ' 15
Data &B00010000 , &B10000000 ' 16 Data &B00000000 , &B10000000 ' 17 Data &B00000000 , &B00000000 ' 18 Data &B11111111 , &B11111111 ' 19 Data &B00000000 , &B00000000 ' 20 Data &B11111111 , &B11111111 ' 21 Data &B00000000 , &B00000000 ' 22 Data &B11111111 , &B11111111 ' 23
Data &B00000000 , &B00000000 ' 24 Data &B11111111 , &B11111111 ' 25 Data &B00000000 , &B00000000 ' 26 Data &B11111111 , &B11111111 ' 27 Data &B11110011 , &B11111111 ' 28 Data &B10010011 , &B11111111 ' 29 Data &B10010011 , &B11111100 ' 30 Data &B10010011 , &B11100100 ' 31
Data &B10010010 , &B10100100 ' 32 Data &B00000000 , &B10000000 ' 33 Data &B11111111 , &B11111111 ' 34 Data &B00000000 , &B00000000 ' 35 Data &B11111111 , &B11111111 ' 36 Data &B10110110 , &B11101101 ' 37 Data &B10010010 , &B10100100 ' 38 Data &B00000000 , &B10000000 ' 39
Data &B11111111 , &B11111111 ' 40 Data &B00000000 , &B00000000 ' 41 Data &B11111111 , &B11111111 ' 42 Data &B00000000 , &B00000000 ' 43 Data &B11111111 , &B11111111 ' 44 Data &B11100011 , &B11111111 ' 45 Data &B11111100 , &B10111111 ' 46 Data &B11111111 , &B11000111 ' 47
Data &B11111111 , &B11111000 ' 48 Data &B00011111 , &B11111111 ' 49 Data &B11111111 , &B11111111 ' 50 Data &B00000000 , &B00000000 ' 51 Data &B11111111 , &B11111111 ' 52 Data &B00000000 , &B00000000 ' 53 Data &B11111111 , &B11111111 ' 54 Data &B00000000 , &B10111111 ' 55
Data &B11111111 , &B11000000 ' 56 Data &B00000000 , &B10111111 ' 57 Data &B11111111 , &B11000000 ' 58 Data &B00000000 , &B10111111 ' 59 Data &B11111111 , &B11000000 ' 60 Data &B11111111 , &B11111111 ' 61 Data &B00000000 , &B00000000 ' 62 Data &B11111111 , &B11111111 ' 63
'
'===============================================================================
' END OF FILE
'===============================================================================