Gunakan MimeTex/LaTex untuk menulis simbol dan persamaan matematika.

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

November 30, 2021, 04:36:15 PM

Masuk dengan nama pengguna, kata sandi dan lama sesi

Topik Baru

Artikel Sains

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

Ikuti ForSa

ForSa on FB ForSa on Twitter

Penulis Topik: program switching power  (Dibaca 1393 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline caturpermadi

  • Siswa Baru
  • *
  • Tulisan: 4
  • IQ: 0
  • ForSa!
program switching power
« pada: Juni 29, 2013, 04:24:59 PM »
bro and sist, mau tanya dong.
ane punya rangkaian nih gan. gambarnya dilampiran

trus listing programnya gini gan

'-------------------------------------
'Rancang Bangun Tablet Hardness Tester
'-------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
'==========================
Config Lcdpin = Pin , E = Portd.1 , Rs = Portd.0 ,
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 16 * 2

Config Pinb.1 = Input
Config Pinb.2 = Input
Saklar Alias Portb.0
Power_on Alias Pinb.1
Tombol_start Alias Pinb.2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Dataadc1 As Word , Intensitas1 As Single
Const Vreff = 5.00
Start Adc
'--------------------------
Cls
Cursor Off
Dim Switch_power As Byte
Switch_power = 0
'--------------------------
If Power_on = 0 Then
Saklar = 1
End If

Awal:
Locate 1 , 1
Lcd "Tablet Hardness "
Waitms 150
Locate 2 , 1
Lcd "    Tester      "
Waitms 300
Cls

Locate 1 , 1
Lcd "  Ahmad Kamal   "
Locate 2 , 1
Lcd "P2.31.38.010.004"
Waitms 300

Locate 1 , 1
Lcd "Pembimbing Modul"
Locate 2 , 1
Lcd "Drs. Tapsir, BE "
Waitms 300

Cls
Gosub Permulaan

Permulaan:
Ddrb.1 = 0
Do

Locate 1 , 1
Lcd " Put the tablet "
Locate 2 , 1
Lcd "in the test zone"
Waitms 300

Saklar = 1

If Power_on = 1 Then
Gosub Permulaan
End If

If Power_on = 0 Then
Gosub Shutdown
End If

Loop Until Tombol_start = 0
Bitwait Tombol_start , Set
Waitms 10

Gosub Ukur

Return

Ukur:
Dataadc1 = 0
Intensitas1 = 0

Dataadc1 = Getadc(0)
Intensitas1 = Dataadc1
Wait 1

Locate 1 , 1
Lcd "Checking up till"
Waitms 30
Locate 2 , 1
Lcd "the result come "
Wait 1

Do
Cls
Locate 1 , 1
Lcd "     Result1    "
Locate 2 , 1
Lcd Intensitas1
Locate 2 , 6
Lcd "Kgn"
Waitms 150
Loop Until Tombol_start = 0
Bitwait Tombol_start , Set

Gosub Permulaan
Return

Shutdown:
   Cls

   Locate 1 , 1
   Lcd " Please wait  "
   Locate 2 , 1
   Lcd " Shuting down "
   Wait 1

Portb.0 = 0

Return

pertanyaannya gini gan kenapa pas ane ngejajal tuh rangkaian, pas ane tekan push button dapet logika high. program jalan tuh gan, tapi kenapa pas program running saat gosub permulaan, malah ke detect logika low. trus malah langsung gosub shutdown. kira2 kenapa ya gan? mohon penjelasannya.. :)

 

Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
4 Jawaban
2918 Dilihat
Tulisan terakhir Juli 17, 2010, 01:12:09 AM
oleh Ceevuik
Wave Power

Dimulai oleh Bernando Fisika

0 Jawaban
2729 Dilihat
Tulisan terakhir Juli 24, 2010, 09:43:01 AM
oleh Bernando
2 Jawaban
4929 Dilihat
Tulisan terakhir Januari 28, 2011, 02:17:22 AM
oleh bambus
0 Jawaban
3161 Dilihat
Tulisan terakhir Januari 20, 2011, 06:05:51 AM
oleh cimotmiu
0 Jawaban
1848 Dilihat
Tulisan terakhir Agustus 10, 2017, 02:17:44 AM
oleh anakRantau