A
AFTERDATE
Guest
halo semua
bisa setiap satu membantu saya.i have rangkaian ini
dan saya ingin melakukan PIC membaca bentuk sinyal sensor dan melakukan membandingkan seperti jika sinyal adalah 20 mengaktifkan Fan, dan jika sinyal naik 20 giliran OFF Fan dan semua ini saya ingin ditampilkan pada LCD.i memiliki kode tapi kerja does't saya tahu tahu mengapa?jika ada orang yang tahu apa yang salah plz ceritakan padaku.terima kasih banyak
semua terbaik
dan i memiliki kode atau program kerja does't i do't tahu.terima kasih banyak
(1)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Deklarasi ADIN_RES 10
Deklarasi ADIN_TAD FRC
Deklarasi ADIN_STIME 50
Input PORTA.0
ADCON1 =% 10.000.000
Volt Sebagai Dim Float
utama:
volt = Adin 0
Cetak Pada 1,1, @ volt
Jika volt = 127 Lalu
PORTC.0 = 1
Lain
Endif
GoTo utama
(2)
Perangkat 16F877
XTAL 4
Output PORTB
Olahraga dipimpin = PORTB
Dim I As Byte
Main:
dipimpin = 255
DelayMS 500
Untuk I = 0 To 7
PORTB = PORTB <<1
PORTB = memimpin
DelayMS 500
Berikutnya aku
GoTo Utama
(3)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Deklarasi ADIN_RES 10
Deklarasi ADIN_TAD FRC
Deklarasi ADIN_STIME 50
Input PORTA.0
Output PORTB
Output PORTC
Dim var1 As Byte
Dim volt As Byte
utama:
var1 = Adin 1
volt = var1
GoSub compar
GoTo utama
compar:
Jika var1 <150 Lalu
PORTB.2 = 1
Lain
PORTB.2 = 0
Endif
Kembali
(4)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Dim x As Float
Dim y As Float
y = 58,5
x = 665,25
label:
Cetak Pada 1,1, "hai manusia"
DelayMS 1000
Cetak Pada 2,1 Des y
GoTo label
Maaf, tapi Anda harus login untuk melihat lampiran
bisa setiap satu membantu saya.i have rangkaian ini
dan saya ingin melakukan PIC membaca bentuk sinyal sensor dan melakukan membandingkan seperti jika sinyal adalah 20 mengaktifkan Fan, dan jika sinyal naik 20 giliran OFF Fan dan semua ini saya ingin ditampilkan pada LCD.i memiliki kode tapi kerja does't saya tahu tahu mengapa?jika ada orang yang tahu apa yang salah plz ceritakan padaku.terima kasih banyak
semua terbaik
dan i memiliki kode atau program kerja does't i do't tahu.terima kasih banyak
(1)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Deklarasi ADIN_RES 10
Deklarasi ADIN_TAD FRC
Deklarasi ADIN_STIME 50
Input PORTA.0
ADCON1 =% 10.000.000
Volt Sebagai Dim Float
utama:
volt = Adin 0
Cetak Pada 1,1, @ volt
Jika volt = 127 Lalu
PORTC.0 = 1
Lain
Endif
GoTo utama
(2)
Perangkat 16F877
XTAL 4
Output PORTB
Olahraga dipimpin = PORTB
Dim I As Byte
Main:
dipimpin = 255
DelayMS 500
Untuk I = 0 To 7
PORTB = PORTB <<1
PORTB = memimpin
DelayMS 500
Berikutnya aku
GoTo Utama
(3)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Deklarasi ADIN_RES 10
Deklarasi ADIN_TAD FRC
Deklarasi ADIN_STIME 50
Input PORTA.0
Output PORTB
Output PORTC
Dim var1 As Byte
Dim volt As Byte
utama:
var1 = Adin 1
volt = var1
GoSub compar
GoTo utama
compar:
Jika var1 <150 Lalu
PORTB.2 = 1
Lain
PORTB.2 = 0
Endif
Kembali
(4)
Device = 16F877
XTAL 4
Deklarasi LCD_DTPIN PORTB.4
Deklarasi LCD_ENPIN PORTB.3
Deklarasi LCD_INTERFACE 4
Deklarasi LCD_RSPIN PORTB.2
Dim x As Float
Dim y As Float
y = 58,5
x = 665,25
label:
Cetak Pada 1,1, "hai manusia"
DelayMS 1000
Cetak Pada 2,1 Des y
GoTo label
Maaf, tapi Anda harus login untuk melihat lampiran