Search / Pencarian

Senin, 02 April 2012

Akses port 16 bit di AVR





Sering kita dihadapkan tugas kuliah atau pekerjaan yang mengharuskan kita untuk dapat mengatur keluaran I/O dari 2 Port microcontroller. Kebetulan , ini ada yang menanyakan di forum robot di facebook saya. Kemudian saya coba untuk membuatnya, walaupun saya belom bisa bascom he,..he..he.. Tapi berbekal help di bascom alhamdulillah akhirnya bisa juga.
Berikut codenya:

$regfile = "m16def.dat"
$crystal = 11059200
Config Debounce = 30

Const Ditekan = 0
Const Dilepas = 1
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Porta = Output
Config Portb = Output

Dim A As Long
Dim Temp As Long

Dim Lsb As Byte
Dim Msb As Byte

Declare Sub Kiri()
Declare Sub Kanan()

A = &B0000000000000001
Portc.0 = 1
Portc.1 = 1
Lsb = A
Do
' =============================================================
Debounce Pinc.0 , 0 , Kiri , Sub
Debounce Pinc.1 , 0 , Kanan , Sub
If A = 65536 Then
A = 1
Lsb = A
End If

' If A = 0 Then
' A = &B1000000000000000
' Temp = A
' Shift Temp , Right , 8
' Msb = Temp
' End If

Porta = Lsb
Portb = Msb
' ===============================================================
Loop
End

Sub Kiri()
Shift A , Left , 1
Temp = A
Lsb = A And &H00FF
Shift Temp , Right , 8
Msb = Temp
End Sub

Sub Kanan()
Shift A , Right , 1
Temp = A
Lsb = A And &H00FF
Shift Temp , Right , 8
Msb = Temp
End Sub
By: Kurniawan Nur Widyosusanto SoekamTi

Lirik BAdaJIdiNGAdaN (endank Soekamti)

Lagu gaul bahasa Jawa Ala Endank Soekamti....!

Aku duwe konco siji aa ingan
Isuk isuk tekan awan micekan
Sore sore mangan tempe
(Sore sore mangan tempe)
Ora lali ngunjuk lodse
(Ora lali ngunjuk lodse)

Bengi golek wedokan
Mbribik kimcil gratisan
Gowo bali kos kosan
Langsung sukuran
Subuh menti ndem ndeman
Nganti koyo wong edan
Ngajak curhat curhatan
Bubar tangisan

Kodoncodokudu kodoyodo
Adasudu lodontede
Kodoncodokudu kodoyodo
Adasudu badajidingadan

Aku duwe konco siji aa ingan
Isuk isuk tekan awan micekan
Sore sore mangan tempe
(Sore sore mangan tempe)
Ora lali ngunjuk lodse
(Ora lali ngunjuk lodse)

Bengi golek wedokan
Mbribik kimcil gratisan
Gowo bali kos kosan
Langsung sukuran
Subuh menti ndem ndeman
Nganti koyo wong edan
Ngajak curhat curhatan
Bubar tangisan

Kodoncodokudu kodoyodo
Adasudu lodontede
Kodoncodokudu kodoyodo
Adasudu badajidingadan

(tangi le tangi tangi le !)
Holobis kuntul baris
(tangi le tangi tangi le !)
ora tangi tak sogok linggis
(tangi le tangi tangi le !)

Kodoncodokudu kodoyodo
Adasudu lodontede
Kodoncodokudu kodoyodo
Adasudu lodontede
Kodoncodokudu kodoyodo
Adasudu badajidingadan !


Referensi : http://kamtiszone.blogspot.com/2010/10/badajidingadan.html

Sabtu, 31 Maret 2012

Program Bilangan Prima

Sebetulnya, program ini adalah program wajib setiap kita belajar logika pemrograman. Kebetulan program ini saya buat untuk menjawab pertanyaan dari adik kelas saya. Awalnya saya kesulitan membuat logikanya, trus saya temukan program di internet.

ini listingnya:
#include"STDIO.H"
#include "conio.h"
int i,x,status,batas;
int main()
{
clrscr();
printf("=== Program Mencari Bilangan Prima ====\n");
printf("Menampilkan bilangan prima antara 1 sampai 10\n");
printf("Hasilnya: ");
batas=10;

for (x = 2; x<=batas; x++)
{
status = 0;
for (i = 2; i < x; i++)
{
if (x%i == 0){status=1;}
}
if (status == 0){printf("%i,",x );}
}
getch();
return 1;
}
Hasilnya :



referensi: http://ftikom-unmul.nstars.org/t350-program-c-deret-bilangan-prima