Advertisement  

Tuesday, 24 November 2020
     
 
Latest News
Main Menu
Home Home
Shop Shop
News News
BASCOM-AVR BASCOM-AVR
BASCOM-8051 BASCOM-8051
Products Products
Application Notes Application Notes
Publications Publications
Links Links
Support Center Support Center
Downloads Downloads
Forum Forum
Resellers Resellers
Contact Us Contact Us
Updates Updates
MCS Wiki MCS Wiki
Online Help
BASCOM-AVR Help BASCOM-AVR Help
BASCOM-8051 Help BASCOM-8051 Help
Contents in Cart
Show Cart
Your Cart is currently empty.
Search the Shop

Products Search

User Login
Username

Password

If you have problem after log in with disappeared login data, please press F5 in your browser

Polls
RSS News
Check the Shop
  Random 
Random
 

M128LM CPU module
M128LM CPU module
EUR 49.61


BASCOM AVR Programming
BASCOM AVR Programming
EUR 30.19


 
     
 

 
 
Popular
 
     
 
Shopping zone
Categories

List All Products


Advanced Search
Shop Download Area
Show Cart
Your Cart is currently empty.






View More Images (2)
View More Images (2)

SE-MINI-STAR


Price: EUR 9.62

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.

Source code:


'-------------------------------------------------------------------------------
' Description:
'
' SE-MINI-STAR
'
' Melody & LED Display Kit
'
'
' Written by Junghoon Kim 17-JULY-2008
' Compiled by BASCOM AVR Demo
' http://www.MCSELEC.COM
'
' SAMPLE Electronics co.
' C-18 P1-fl. Main-bd ET-Land 16-9 Hangangno-3ga Yongsan-gu
' Seoul 190-879 South KOREA
' Phone: +82-2-701-8051
' Fax:   +82-2-701-8058
' Mail : sample@korea.com
' Web : HPP://WWW.SAMPLE.CO.KR
'
'-------------------------------------------------------------------------------
$regfile = "Attiny2313.dat"
'-------------------------------------------------------------------------------
'
'                         <<   Ŕ˝č ڵĺ Ą   >>
'
' ||A| | |C||D| | |F||G||A| | |C||D| | |F||G||A| | |C||D| | |F||G||A| | |C||D| |
' ||2| | |3||3| | |3||3||3| | |4||4| | |4||4||4| | |5||5| | |5||5||5| | |6||6| |
' ||#| | |#||#| | |#||#||#| | |#||#| | |#||#||#| | |#||#| | |#||#||#| | |#||#| |
'|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
'|A2|B2|C3|D3|E3|F3|G3|A3|B3|C4|D4|E4|F4|G4|A4|B4|C5|D5|E5|F5|G5|A5|B5|C6|D6|E6|
'|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
'||˝Ă||ą|ąĚ|Ć|Ľ||˝Ă||ą|ąĚ|Ć|Ľ||˝Ă||ą|ąĚ|Ć|Ľ||˝Ă||ą|ąĚ|
'+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
'
'                                                            ' Freq.Hz| Cycle mS
'-------------------------------------------------------------------------------
Const B2 = 255                                              ' 123.471| 8.0990
'-------------------------------------------------------------------------------
Const C3 = 245                                              ' 130.818| 7.6445
Const C3s = 230                                             ' 138.591| 7.2154
Const D3 = 217                                              ' 146.832| 6.8105
Const D3s = 205                                             ' 155.561| 6.0217
Const E3 = 193                                              ' 164.814| 6.0217
Const F3 = 185                                              ' 174.614| 5.7269
Const F3s = 172                                             ' 184.997| 5.4054
Const G3 = 162                                              ' 195.998| 5.1020
Const G3s = 153                                             ' 207.652| 4.8157
Const A3 = 144                                              ' 220.000| 4.5454
Const A3s = 136                                             ' 233.082| 4.3321
Const B3 = 128                                              ' 246.942| 4.0495
'-------------------------------------------------------------------------------
Const C4 = 120                                              ' 261.626| 3.8222
Const C4s = 114                                             ' 277.183| 3.6077
Const D4 = 107                                              ' 293.665| 3.4052
Const D4s = 101                                             ' 311.122| 3.0108
Const E4 = 95                                               ' 329.612| 2.8634
Const F4 = 90                                               ' 349.288| 2.7027
Const F4s = 84                                              ' 369.994| 2.7027
Const G4 = 79                                               ' 391.995| 2.5510
Const G4s = 75                                              ' 415.305| 2.4078
Const A4 = 70                                               ' 440.000| 2.2727
Const A4s = 66                                              ' 466.164| 2.1660
Const B4 = 62                                               ' 493.883| 2.0247
'-------------------------------------------------------------------------------
Const C5 = 59                                               ' 523.251| 1.9111
Const C5s = 55                                              ' 554.365| 1.8038
Const D5 = 52                                               ' 587.330| 1.7026
Const D5s = 49                                              ' 622.254| 1.6070
Const E5 = 46                                               ' 659.255| 1.5054
Const F5 = 43                                               ' 698.456| 1.4317
Const F5s = 41                                              ' 739.989| 1.3513
Const G5 = 38                                               ' 783.991| 1.2755
Const G5s = 36                                              ' 830.609| 1.2039
Const A5 = 34                                               ' 880.000| 1.1363
Const A5s = 32                                              ' 923.328| 1.0830
Const B5 = 30                                               ' 987.767| 1.0123
'-------------------------------------------------------------------------------
Const C6 = 28                                               '1046.502| 0.9555
Const C6s = 26                                              '1108.731| 0.9019
Const D6 = 25                                               '1174.659| 0.8513
Const D6s = 23                                              '1244.508| 0.8035
Const E6 = 21                                               '1328.510| 0.7527
'-------------------------------------------------------------------------------
'
$crystal = 1000000
'
Dim I As Byte
Dim L As Byte
Dim K As Byte
Dim X As Byte
Dim S As Byte
Dim J As Word
Dim M As Word
Dim P As Word
Dim Noteon As Word
'
Config Portd = Output
Config Portb = Output
Config Porta = Output
'
Portb = &HFF : Portd = &HFF
'
= 0
'-------------------------------------------------------------------------------
'
Main:
'
'---------------- żż 1 -------------------------------------------------------
'
Noteon = 100
= G4 : Gosub Melody
= G4 : Gosub Melody
= D5 : Gosub Melody
= D5 : Gosub Melody
= E5 : Gosub Melody
= E5 : Gosub Melody
Noteon = 200
= D5 : Gosub Melody
Noteon = 100
= C5 : Gosub Melody
= C5 : Gosub Melody
= B4 : Gosub Melody
= B4 : Gosub Melody
= A4 : Gosub Melody
= A4 : Gosub Melody
Noteon = 200
= G4 : Gosub Melody
Noteon = 100
= D5 : Gosub Melody
= D5 : Gosub Melody
= C5 : Gosub Melody
= C5 : Gosub Melody
= B4 : Gosub Melody
= B4 : Gosub Melody
Noteon = 200
= A4 : Gosub Melody
Noteon = 100
= D5 : Gosub Melody
= D5 : Gosub Melody
= C5 : Gosub Melody
= C5 : Gosub Melody
= B4 : Gosub Melody
= B4 : Gosub Melody
Noteon = 200
= A4 : Gosub Melody
Noteon = 100
= G4 : Gosub Melody
= G4 : Gosub Melody
= D5 : Gosub Melody
= D5 : Gosub Melody
= E5 : Gosub Melody
= E5 : Gosub Melody
Noteon = 200
= D5 : Gosub Melody
Noteon = 100
= C5 : Gosub Melody
= C5 : Gosub Melody
= B4 : Gosub Melody
= B4 : Gosub Melody
= A4 : Gosub Melody
= A4 : Gosub Melody
Noteon = 200
= G4 : Gosub Melody
'
'---------------- żż 2 -------------------------------------------------------
Noteon = 100
= G4 : Gosub Melody
= A4 : Gosub Melody
= B4 : Gosub Melody
= G4 : Gosub Melody
= G4 : Gosub Melody
= A4 : Gosub Melody
= B4 : Gosub Melody
= G4 : Gosub Melody
= B4 : Gosub Melody
= C5 : Gosub Melody
Noteon = 200
= D5 : Gosub Melody
Noteon = 100
= B4 : Gosub Melody
= C5 : Gosub Melody
Noteon = 200
= D5 : Gosub Melody
Noteon = 50
= D5 : Gosub Melody
= E5 : Gosub Melody
= D5 : Gosub Melody
= C5 : Gosub Melody
Noteon = 100
= B4 : Gosub Melody
= G4 : Gosub Melody
Noteon = 50
= D5 : Gosub Melody
= E5 : Gosub Melody
= D5 : Gosub Melody
= C5 : Gosub Melody
Noteon = 100
= B4 : Gosub Melody
= G4 : Gosub Melody
Noteon = 100
= G4 : Gosub Melody
= D3 : Gosub Melody
Noteon = 200
= G4 : Gosub Melody
Noteon = 100
= G4 : Gosub Melody
= D3 : Gosub Melody
Noteon = 200
= G4 : Gosub Melody
'
Waitms 200
'
Goto Main
'
End
'-------------------------------------------------------------------------------
Melody:                                                     ' εđ  ą߻

= K
= 60 * Noteon
= P / L

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 Mod 64
If S = 0 Then
  Restore Ledpatt
End If

Read X : Portb = X : Read X : Portd = X
= 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
'===============================================================================


Source code & HEX in ZIP



For enable cart please login or register first

There are yet no reviews for this product.
Please log in to write a review.
You cannot write a review because you not have ordered this product yet.