Selamat datang di ForSa! Forum diskusi seputar sains, teknologi dan pendidikan Indonesia.

Selamat datang, Pengunjung. Silahkan masuk atau mendaftar. Apakah anda lupa aktivasi email?

Februari 26, 2021, 02:50:52 AM

Masuk dengan nama pengguna, kata sandi dan lama sesi

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139620
  • Total Topik: 10383
  • Online Today: 37
  • Online Ever: 441
  • (Desember 18, 2011, 12:48:51 AM)
Pengguna Online
Users: 0
Guests: 33
Total: 33

Ikuti ForSa

ForSa on FB ForSa on Twitter

Penulis Topik: cara bikin program counter dengan bascom-AVR?  (Dibaca 4750 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline caturpermadi

  • Siswa Baru
  • *
  • Tulisan: 4
  • IQ: 0
  • ForSa!
cara bikin program counter dengan bascom-AVR?
« pada: April 07, 2013, 10:35:45 AM »
saya mau tanya kalo bikin program counter dengan supply counter eksternal gimana caranya ya?
saya pakai bahasa bascom-AVR trus menggunakan mikrokontroller atmega8, terakhir coba berhasil tapi pas di download n d coba di alat gagal  ???
trus pas saya simulasiin lg malah jadi gagal.
kira2 ada solusinya ga?

ni listing program saya :

$regfile = "m8def.dat"
$crystal = 4000000

Config Lcdpin = Pin , E = Portc.1 , Rs = Portc.0 ,
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5,
Config Lcd = 16 * 2

Config Timer1 = Counter , Edge = Falling
Enable Interrupts
Enable Ovf1
On Ovf1 Int_counter1

Dim Rpm As Integer
Dim Kontrol As Byte
Dim Nyala As Byte

Config Portb.5 = Output

Ddrd.5 = 0
Portd.5 = 1

Ddrd.6 = 0
Portd.6 = 1

Ddrd.7 = 0
Portd.7 = 1

Cursor Off
Kontrol = 0
Nyala = 0

Cls
Locate 1 , 1
Lcd "Please Wait"
Waitms 100
Locate 1 , 12
Lcd "."
Waitms 30
Locate 1 , 13
Lcd "."
Waitms 30
Locate 1 , 14
Lcd "."
Waitms 30
Locate 1 , 15
Lcd "."
Waitms 30
Locate 1 , 16
Lcd "."
Waitms 30
Cls

Do
'--------------------------pilih
If Pind.7 = 0 Then
Nyala = Nyala + 1
End If

If Nyala = 1 Then
Portb.5 = 1
End If

If Kontrol = 0 Then
Gosub Awal
End If

If Kontrol = 1 Then
Gosub Penghitungan
End If

If Kontrol = 2 Then
Goto Shutdown
End If

If Pind.6 = 0 Then
Kontrol = Kontrol + 1
End If
Waitms 50

Loop

Awal:
Locate 1 , 1
Lcd "Tekan 'START'"
Waitms 150
Locate 2 , 1
Lcd "untuk memulai"
Waitms 150
Return

Penghitungan:
   Counter1 = 0
   Rpm = 0
   Start Timer1
    Wait 5
   Stop Timer1
    Rpm = Rpm + Counter1
    Rpm = Rpm * 3

   Locate 1 , 1
   Lcd "Respiratory Rate"
   Locate 2 , 1
   Lcd "Hasil="
   Locate 2 , 7
   Lcd "    "
   Locate 2 , 7
   Lcd Rpm
   Locate 2 , 10
   Lcd "/menit"
   Wait 2
Return

Shutdown:
   Cls
   Locate 1 , 1
   Lcd "Thank you"
   Waitms 150
   Cls
   Locate 1 , 1
   Lcd "This device is"
   Locate 2 , 1
   Lcd "powering down..."
   Wait 2
   Portb.5 = 0
   Wait 1

Int_counter1:
  Rpm = Rpm + 65535
Return

 

Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
0 Jawaban
5315 Dilihat
Tulisan terakhir Maret 20, 2010, 01:17:32 PM
oleh peb
2 Jawaban
5948 Dilihat
Tulisan terakhir Mei 27, 2012, 03:06:29 PM
oleh fajri
2 Jawaban
6970 Dilihat
Tulisan terakhir November 09, 2011, 07:29:59 AM
oleh Eko Budianto
0 Jawaban
3317 Dilihat
Tulisan terakhir Mei 24, 2013, 04:34:35 AM
oleh Candra
0 Jawaban
2523 Dilihat
Tulisan terakhir Februari 06, 2014, 10:58:17 AM
oleh NUGRAHA1