Animasi Dot matrix 24 x 24

Rangkaian Animasi Dot Matrik 24 x 24

Listing Kodenya : dng Bascom AVR
$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 32
$framesize = 24

'bagian properti GIF
Const Total_frame = 3
Const Width = 24
Const Height = 24


Const Number_of_matrix_in_row = Width / 8
Const Byte_in_col = Height / 8
Const Frame_size = Width * Byte_in_col
Const Number_of_byte_in_8_col = Byte_in_col * 8

Declare Sub Readframe(byval Frame_number As Word)
' Port A for COL refresh
Config Porta = Output
' Port D for 74595 register
Config Portd = Output
Config Timer0 = Timer , Prescale = 64                       'Clock value: 15.625 kHz
On Ovf0 Refresh
Enable Timer0                                               ' enable the timer interrupt
Enable Interrupts
Sh_cp Alias Portd.3
Ds Alias Portd.4
St_cp Alias Portd.5
Mr Alias Portd.6
Oe Alias Portd.7
Col_port Alias Porta
Dim Col As Byte
Dim Buf(frame_size) As Byte
Dim I As Byte
Dim Matrix_counter As Word
Dim Buf_idx As Word
Dim Col_number_in_buf As Byte
Dim Frame_count As Word

Reset Mr
Set Mr
Reset Oe
Do
For Frame_count = 1 To Total_frame
 Readframe Frame_count
 Waitms 200
Next Frame_count
Loop
End                                                         'end program

Sub Readframe(byval Frame_number As Word)
 Local Idx As Word
 Local Lookup_idx As Word
 Disable Timer0
 Decr Frame_number
 'Start of Frame in lookup table
 Lookup_idx = Frame_number * Frame_size
 For Idx = 0 To Frame_size
  Buf(idx) = Lookup(lookup_idx , Ani )
  Incr Lookup_idx
 Next Idx
 Enable Timer0
End Sub

Refresh:
 Reset Mr
 Set Mr
 Col_port = &H00
 Set Oe
 Col_port = 2 ^ Col
 For Matrix_counter = 1 To Number_of_matrix_in_row
  Col_number_in_buf = Number_of_matrix_in_row - Matrix_counter
  Col_number_in_buf = Col_number_in_buf * Number_of_byte_in_8_col
  Buf_idx = Col * Byte_in_col
  Buf_idx = Buf_idx + Col_number_in_buf
  For I = 1 To Byte_in_col
   Shiftout Ds , Sh_cp , Buf(buf_idx) , 1 , 8
   Incr Buf_idx
  Next I
 Next Matrix_counter
 Reset St_cp
Set St_cp
Reset Oe
If Col < 7 Then
 Incr Col
Else
 Col = 0
End If
Return

'Ini bagian properties tabel
Delay:
'Frame 1
Data 200%
'Frame 2
Data 100%
'Frame 3
Data 100%
'Frame 4
Data 100%
'Frame 5
Data 100%
'Frame 6
Data 100%
'Frame 7
Data 100%
'Frame 8
Data 100%

Ani:
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H33 , &H33 , &H33                                     '..##..##..##..##..##..##
Data &H33 , &H33 , &H33                                     '..##..##..##..##..##..##
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H81 , &H81 , &H81                                     '#......##......##......#
Data &H81 , &H81 , &H81                                     '#......##......##......#
Data &H81 , &H99 , &H81                                     '#......##..##..##......#
Data &H81 , &H99 , &H81                                     '#......##..##..##......#
Data &H81 , &H99 , &H81                                     '#......##..##..##......#
Data &H81 , &HFF , &H81                                     '#......##########......#
Data &H81 , &HFF , &H81                                     '#......##########......#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H33 , &H33 , &H33                                     '..##..##..##..##..##..##
Data &H33 , &H33 , &H33                                     '..##..##..##..##..##..##
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################

' Frame 2
' Delay : 1000ms
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &HCC , &HCC , &HCC                                     '##..##..##..##..##..##..
Data &HCC , &HCC , &HCC                                     '##..##..##..##..##..##..
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H81 , &H82 , &H01                                     '#......##.....#........#
Data &H81 , &H83 , &H01                                     '#......##.....##.......#
Data &H81 , &HFF , &H81                                     '#......##########......#
Data &H81 , &HFF , &H81                                     '#......##########......#
Data &H81 , &H80 , &H01                                     '#......##..............#
Data &H81 , &H80 , &H01                                     '#......##..............#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &HCC , &HCC , &HCC                                     '##..##..##..##..##..##..
Data &HCC , &HCC , &HCC                                     '##..##..##..##..##..##..
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################

' Frame 3
' Delay : 1000ms
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H99 , &H99 , &H99                                     '#..##..##..##..##..##..#
Data &H99 , &H99 , &H99                                     '#..##..##..##..##..##..#
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H81 , &H83 , &H01                                     '#......##.....##.......#
Data &H81 , &HC3 , &H81                                     '#......###....###......#
Data &H81 , &HE1 , &H81                                     '#......####....##......#
Data &H81 , &HF1 , &H81                                     '#......#####...##......#
Data &H81 , &HB9 , &H81                                     '#......##.###..##......#
Data &H81 , &H9F , &H81                                     '#......##..######......#
Data &H81 , &H8F , &H01                                     '#......##...####.......#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &H80 , &H00 , &H01                                     '#......................#
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################
Data &H99 , &H99 , &H99                                     '#..##..##..##..##..##..#
Data &H99 , &H99 , &H99                                     '#..##..##..##..##..##..#
Data &HFF , &HFF , &HFF                                     '########################
Data &HFF , &HFF , &HFF                                     '########################

Share:

Read More

Membuat Jam Digital dilengkapi dengan Thermometer

Silahkan coba source klik di sini Link sudah diperbaiki silahkan
Coba link ini : http://downloads.ziddu.com/downloadfile/24193322/JAM-8535.rar.html

Share:

Read More

MATERI SIMULASI DIGITAL SMK

Kurikulum 2013 segera dilaksanakan pada tahun ajaran 2013/2014 ini. Untuk SMK dimulai dari kelas X tahun ajaran baru ini. Sekolah-sekolah yang harus melaksankan kurikulum 2013 juga telah dipilih. Dengan adanya pergantian kurikulum juga akan terjadi pergantian atau bahkan pengurangan mata pelajaran. Contohnya untuk SMK adalah Mapel Keterampilan Komputer dan Pengelolaan Informasi atau sering juga disebut KKPI. Karena pada kurikulum 2013 KKPI ditiadakan maka pengganti Mata Pelajaran KKPI di Kurikulum SMK 2013 adalah Simulasi Digital.

Mata pelajaran Simulasi digital ini rencananya pada awal penerapan Kurikulum 2013 wajib diterapkan kepada seluruh SMK Invest. Dan para guru yang akan mengajar mata pelajaran Simulasi Digital ini adalah mantan Guru KKPI yang telah memiliki sertifikat kompetensi Simulasi digital.

Maka, sebelum diterapkan mata pelajaran Simulasi Digital ini, para guru Simulasi Digital (mantan guru KKPI) akan dilatih oleh master trainer melalui ICT Center di tiap kabupaten. Dan setelah pelatihan, guru Simulasi Digital akan diuji (test) untuk mendapatkan sertifikat tersebut.

rumusan beberapa konten materi Simulasi Digital sebagai berikut :

• Pembelajaran Kolaboratif
• Digital Book
• Komunikasi dan Interaksi online
• Video Editing
• Simulasi Visual

Untuk lebih lengkapnya berikuta SK-KD Simulasi Digital :
Informasi tentang adanya pengganti Mapel KKPI mungkin akan membuat para guru KKPI menjadi lega. Namun dengan adanya mapel Simulasi Digital yang tergolong sangat baru, membuat kita para guru KKPI belajar lagi. munkin informasi ini dapat untuk meraba-raba apakkah itu Simulasi Digital Pengganti KKPI ?
Berikut ini Kutipan Standar Kompetensi Kompetensi Dasar SKKD Simulasi Digital Pengganti KKPI;
1. Melaksankan Pembelajaran Kolaboratif

• Mengidentifikasi Jejaring Sosial Pendidikan
• Melakukan Pendaftaran
• Menfaatkan Fitur
• Melaksankan Ujian Online Bersama

Sumber belajar : Edmodo, Moodle, BBB, Facebook, Buku Seadunet 2.0 dll
2. Menformat materi dalam bentuk digital

• Mengidentifiasi materi digital
• Mengidentifikasi persyaratan hardware
• Menformat materi digital
• Mengidentifikasi jenis aplikasi untuk pembuatan materi bentuk digital
• Menggunakan aplikasi untuk membuat materi digital
• Membuat materi dalam bentuk digital

Sumber belajar : Calibre, Sigil, Flibook, Kwisoft, Buku Seadunet 2.0 dll
3. Melaksankanan interaksi dan komunikasi secara online

• Menjelaskan interaksi online
• Menjelaskan komunikasi online
• Menjelaskan jenis layanan aplikasi komunikasi online
• Menjelaskan persyaratan penggunaan layanan palikasi
• Memanfaatkan fitur layanan komunikasi online
• Melakukan interaksi dan komunikasi secara online

Sumber belajar : Skype, Facebook, Google+, Buku Seadunet 2.0 dll
4. Membuat materi dalam bentuk video

• Mengidentifikasi jenis materi audio visual
• Mengidentifikasi Jenis aplikasi pembuat materi bentuk audio visual
• Menjelaskan persyaratan kebutuhan hardware
• Menggunakan aplikasi editing video
• Melakukan proses render menjadi bentuk video

Sumber belajar : Movie Maker, Ulead, Pinacle, Adobe Premiere, Buku Seadunet 2.0 dll
5. Membuat materi dalam bentuk simulasi visual
Menjelaskan konsep simulasi visual

• Mengidentifikasi jenis simulasi visual
• Membuat simulasi visual
• Mempublikasikan simulasi visual

Share:

Read More

Pengendali Lift 4 Lantai

Gambar Simulator lengkap Pengendali Lift 4 Lantai

Gambar Bagian Kontrol Motor

Gambar Bagian Kabin

Gambar Contoh  Indikator lantai ke 4

Download Simulator Proteus  Di Sini
Download Source Codenya : Di Sini

Share:

Read More

Daftar Frekuensi Repeater RAPI Jateng dan Jatim

Jawa Tengah :

1	142,72	142,1	MhZ	62		RPT. RAPI Wilayah Kota Semarang Barat, JATENG.
2	143,51	142,13	Mhz	128		RPT. RAPI Wilayah Kota Semarang Selatan, JABAR.
3	148,55	142,25	Mhz	630		RPT. RAPI Wilayah Kab. Karanganyar, JATENG.
4	143,5	142,3	MhZ	120		RPT. RAPI Wilayah Kab. Sukoharjo, JATENG.
5	141,85	142,5	MhZ	-65	88,5	RPT. RAPI Wilayah Kab. Sragen,JATENG
6	140,93	142,64	MhZ	-171		RPT. RAPI Kab. Wonogiri, JATENG.
7	141,1	142,69	MhZ	-159		RPT. RAPI Kab. Purbalingga, JATENG.
8	142,06	142,73	MhZ	-67		RPT. RAPI Wilayah Kab. Wonogiri, JATENG.
9	140,75	142,75	MhZ	-200		RPT. RAPI Wilayah Kab. Purworejo, JATENG.
10	140,88	142,88	MhZ	-200	88,5	RPT. RAPI Selo, Boyolali, JATENG
11	140,9	142,9	MhZ	-200		RPT. RAPI Kab. Kebumen, JATENG.
12	142,09	143,15	MhZ	-106		RPT. RAPI Wilayah Kab. Wonosobo (Gn. Sumbing)
13	142,17	143,17	MhZ	-100		RPT. RAPI Wilayah Kota Madya Tegal, JATENG.
14	142,38	143,28	MhZ	-90		RPT. RAPI Wilayah Kab. Tegal (Bumi Jawa), JATENG.
15	141,34	143	MhZ	-166		RPT. RAPI Wilayah Kab. Blora (Bukit Kembang), JATENG.
16	142,13	143,33	MhZ	-120	OFF	RPT. PANTURA, JATENG.
17	140,84	143,45	MhZ	-261	88,5	RPT. RAPI Wilayah Kab. Klaten, JATENG.(JZ 11 ZXA).
18	142,065	143,45	MhZ	-138,5		RPT. RAPI Wilayah Kab. Batang, JATENG.
19	142,08	143,53	MhZ	-145	OFF	RPT. RAPI di Gn. Telomoyo, JATENG (JZ 11 ZRD3).
20	142,02	143,57	MhZ	-155		RPT. RAPI Candi Cheto, Surakarta, JATENG (JZ 11 ZRD2)
21	14,203	143,58	MhZ	-155		RPT. RAPI Gn. Argo Jembangan, Pati, JATENG (JZ11 ZRD4).
22	142,05	143,6	MhZ	-155		RPT. RAPI Gn. Prau, JATENG (JZ 11 ZRD1).
23	140,82	143,62	MhZ	-280	OFF	RPT. RAPI Wilayah Kab Banjarnegara, JATENG.
24	140,95	143,65	MhZ	-270		RPT. RAPI Gn. Kencur, Purwodadi, JATENG
25	142.070	143.450	Mhz	_1.38		RPT RAPI batang
26	140.950	142.950	Mhz	2.00		PRT RAPI Purwodadi (gunung kencur)
27	143.510	142.100	Mhz	1.41		RPT RAPI Semarang
28	143.320	142.350	Mhz	0.97		RPT RAPI Kendal
29	142.020	143.570	Mhz	-155		RPT RAPI Solo (Candi cetho)
30	142.050	143.600	Mhz	_1.55		RPT RAPI Jateng
31	142,16	143,7	MhZ	-154		RPT. RAPI Wilayah Kab. Banyumas, JATENG.

Jawa Timur :

1	142,045	143,34	MhZ	-129.5		RPT. RAPI Kab. Lumajang, JATIM.
2	140,68	143,61	MhZ	-293	OFF	RPT. Gn. Brengos, JATIM.
3	142,04	143,48	MhZ	-144		RPT. RAPI Kab. Pacitan, JATIM.
4	149,78	143,68	MhZ	610		RPT. Gunung Bromo, JATIM
5	140,36	143,06	MhZ	-270		RPT. RAPI Kab. Nganjuk (G. Wilis), JATIM.
6	140,6	143,63	MhZ	-303		RPT. RAPI Lokal DonoMulyo, Malang Selatan (Puncak Bima), JATIM.
7	140,72	143,25	MhZ	-2.52	88,5	RPT. RAPI Wilayah Malang, JATIM.
8	150,78	141,78	MhZ	900		RPT. RAPI Wilayah Madiun, JATIM.
9	150,12	142,62	MhZ	750		RPT. RAPI Wilayah Madiun, JATIM.
10	144,73	141,68	MhZ	305		RPT. RAPI Wilayah Madiun, JATIM.
11	141,52	143,52	MhZ	-200		RPT. RAPI Wilayah Trenggalek, JATIM.
12	151,43	141,68	MhZ	975		RPT. ….. di JATIM.
13	150,52	141,72	MhZ	880		RPT. ….. di Pacitan, JATIM.
14	142.045	143,33	MhZ	-128.5		RPT. Bromo 1
15	140.760	143.760	MhZ	-298		RPT. Bromo 2
16	143.070	142.690	MhZ	38	88,5	RPT. Gresik
17	149.330	140.330	MhZ	+9.00		RAPI Lokal Pasuruan
18	141.180	143.480	MhZ	-2.30		RAPI Lokal Lowokwaru Malang
19	144.560	142.560	MhZ	+2.00		RAPI Lokal Poncokusumo Malang
20	140.750	142.800	Mhz	-2.05		RAPI Ngawi
21	140.300	142.350	Mhz	-205		RAPI Tulungangung
22	143.180	140.680	MhZ	+2.50	88.5	RAPI Lokal Singosari Malang

DIY :

1	142	143,55	MhZ	-155		RPT. RAPI D.I. Yogyakarta di bukit Pathuk (JZ 12 ZRD).
2	143,17	142,45	MhZ	-72		RPT. RAPI Kulon Progo, DIY.
3	142,11	143,39	MhZ	-128		RPT. Kulon Progo, DIY.
4	142.000	143.550	Mhz	-1.55	88,5	RPT RAPI Yogyakarta
5	140,86	143,53	MhZ	-267		RPT. RAPI Lokal Kecamatan Depok, Kab. Sleman, DIY.
6	140,81	142,7	MhZ	-189		RPT. RAPI Gunung Kidul, DIY.

Share:

Read More