Atmega Mikro Bascom
Transcript of Atmega Mikro Bascom
-
7/23/2019 Atmega Mikro Bascom
1/25
Digital Voltmeter dengan BASCOM mengggunakan mikrokontroler dengan
bascom dan at mega 8535
Digital Voltmeter dengan BASCOM mengggunakan mikrokontrolerdengan bascom dan at mega 8535
Skema rangkaian Digital Voltmeter dengan BASCOM mengggunakanmikrokontroler dengan bascom dan at mega 8535
Source code Digital Voltmeter dengan BASCOM mengggunakanmikrokontroler dengan bascom dan at mega 8535
$regfile = m8535!dat$cr"stal = #%%%%%%Config &cd'in = (in ) *s = (ortc!% ) + = (ortc!, ) Db- = (ortc!-Config &cd'in = (in ) Db5 = (ortc!5 ) Db = (ortc! ) Db. =(ortc!.Config &cd = # / ,Cursor OffConfig Adc = Single ) (rescaler = Auto ) *eference = A0ccDim 1 As 1ord ) Volt As 1ordStart AdcCls&cd V=Do1 = 2etadc%4Volt = 1 / 5&ocate # ) 3&cd Volt mV 6ait #&oo'
http://embeddedsystem.itstoshare.com/2013/04/digital-voltmeter-dengan-bascom.html?m=0http://embeddedsystem.itstoshare.com/2013/04/digital-voltmeter-dengan-bascom.html?m=0http://embeddedsystem.itstoshare.com/2013/04/digital-voltmeter-dengan-bascom.html?m=0http://embeddedsystem.itstoshare.com/2013/04/digital-voltmeter-dengan-bascom.html?m=0 -
7/23/2019 Atmega Mikro Bascom
2/25
Display sensor suhu emperature display !sensor suhu "M 35# 8 channel $ 8
kananl ADC
Dis'la" sensor su7u em'erature dis'la" sensor su7u &M 354 8c7annel 9 8 kananl ADC
Skema rangkaian Dis'la" sensor su7u em'erature dis'la" sensorsu7u &M 354 8 c7annel 9 8 kananl ADC
Source code Dis'la" sensor su7u em'erature dis'la" sensor su7u&M 354 8 c7annel 9 8 kananl ADC
$regfile = m8535!dat$cr"stal = #%%%%%%Dim Data:adc As 1ord ) # As 1ord ) , As 1ord ) 3 As 1ord ) -As1ordDim 5 As 1ord ) As 1ord ) . As 1ord ) 8 As 1ordConfig &cd'in = (in ) *s = (ortc!% ) + = (ortc!, ) Db- = (ortc!-Config &cd'in = (in ) Db5 = (ortc!5 ) Db = (ortc! ) Db. =(ortc!.Config &cd = ,% / -Cursor OffClsConfig Adc = Single ) (rescaler = Auto ) *eference = A0cc&cd #=Start AdcDoData:adc = 2etadc%4# = Data:adc / 5
http://embeddedsystem.itstoshare.com/2013/04/display-sensor-suhu-temperature-display.html?m=0http://embeddedsystem.itstoshare.com/2013/04/display-sensor-suhu-temperature-display.html?m=0http://embeddedsystem.itstoshare.com/2013/04/display-sensor-suhu-temperature-display.html?m=0http://embeddedsystem.itstoshare.com/2013/04/display-sensor-suhu-temperature-display.html?m=0 -
7/23/2019 Atmega Mikro Bascom
3/25
# = # 9 #%Data:adc = 2etadc#4, = Data:adc / 5, = , 9 #%Data:adc = 2etadc,4
3 = Data:adc / 53 = 3 9 #%Data:adc = 2etadc34- = Data:adc / 5- = - 9 #%Data:adc = 2etadc-45 = Data:adc / 55 = 5 9 #%Data:adc = 2etadc54 = Data:adc / 5 = 9 #%Data:adc = 2etadc4. = Data:adc / 5. = . 9 #%Data:adc = 2etadc.48 = Data:adc / 58 = 8 9 #%Cls&cd #= # C7r;
-
7/23/2019 Atmega Mikro Bascom
4/25
Menghitung %rekuensi pulsa mengggunakan mikrokontroler dengan bascom
dan at mega 8535
Meng7itung frekuensi 'ulsa mengggunakan mikrokontroler denganbascom dan at mega 8535
Skema rangkaian meng7itung frekuensi 'ulsa mengggunakanmikrokontroler dengan bascom dan at mega 8535
Source code meng7itung frekuensi 'ulsa mengggunakanmikrokontroler dengan bascom dan at mega 8535$regfile=m8535!dat$cr"stal=#%%%%%%Config &cd'in=(in)*s=(O*C!%)+=(O*C!, ) Db- = (O*C!- ) Db5 =(O*C!5 ) Db = (O*C!) Db.=(O*C!.
Config &cd=#/,Cursor OffClsConfig imer# = Counter ) +dge = falling&cd re> Counter &o6erline&cd re>=DoStart Counter#1ait #Sto' Counter#
&ocate ,)&cd Counter#
-
7/23/2019 Atmega Mikro Bascom
5/25
Pengisian Tangki Air Otomatis mengggunakan mikrokontroler
dengan bascom dan at mega 8535
(engisian angki Air Otomatis mengggunakan mikrokontroler dengan
bascom dan at mega 8535
Skema rangkaian (engisian angki Air Otomatis mengggunakan
mikrokontroler dengan bascom dan at mega 8535
Source code (engisian angki Air Otomatis mengggunakan mikrokontroler
dengan bascom dan at mega 8535
$regfile = 8535def!dat
$cr"stal = #%%%%%%
Dim lag As Bit
Dim @arak As 1ord )
-
7/23/2019 Atmega Mikro Bascom
6/25
Config imer# = imer ) (rescale = #
On imer# @arak:o0er
+nable nterru'ts
Sig Alias (ortc!%
(in:sig Alias Ddrc!%
Sig:in Alias (inc!%
(um' Alias (ortc!#
-
7/23/2019 Atmega Mikro Bascom
7/25
Sig = %
1aitus .%
Start imer#
(in:sig = %
Sig = #
17ile lag = #
f Sig:in = % 7en
Sto' imer#
@arak = imer#
lag = %
+nd f
1end
7itung dlm cm
-
7/23/2019 Atmega Mikro Bascom
8/25
Membuat pengukur &olume air mengggunakan mikrokontroler dengan
bascom dan at mega 8535
Membuat 'engukur 0olume air mengggunakan mikrokontroler denganbascom dan at mega 8535
Skema rangkaian Membuat 'engukur 0olume air mengggunakanmikrokontroler dengan bascom dan at mega 8535
Source code Membuat 'engukur 0olume air mengggunakanmikrokontroler dengan bascom dan at mega 8535
$regfile = 8535def!dat$cr"stal = #%%%%%%Dim lag As BitDim @arak As 1ord )
-
7/23/2019 Atmega Mikro Bascom
9/25
On imer# @arak:o0er+nable nterru'tsSig Alias (ortc!%(in:sig Alias Ddrc!%Sig:in Alias (inc!%
&cd (engukur Volume&o6erline&cd Vol=
-
7/23/2019 Atmega Mikro Bascom
10/25
imer# = %@arak = %*eturn
Membuat imbangan digital !dengan potensio# mengggunakan
mikrokontroler dengan bascom dan at mega 8535
Membuat imbangan digital dengan 'otensio4 mengggunakanmikrokontroler dengan bascom dan at mega 8535
Skema rangkaian imbangan digital dengan 'otensio4 mengggunakanmikrokontroler dengan bascom dan at mega 8535
Source code imbangan digital dengan 'otensio4 mengggunakanmikrokontroler dengan bascom dan at mega 8535$regfile = 8535def!dat$cr"stal = #%%%%%%Config &cd'in = (in ) *s = (ortc!% ) + = (ortc!, ) Db- = (ortc!-Config &cd'in = (in ) Db5 = (ortc!5 ) Db = (ortc! ) Db. =(ortc!.Config &cd = # / ,Cursor OffClsConfig Adc = Single ) (rescaler = Auto ) *eference = A0ccDim Adc% As 1ord ) Berat As Single
http://embeddedsystem.itstoshare.com/2013/04/membuat-timbangan-digital-dengan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/membuat-timbangan-digital-dengan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/membuat-timbangan-digital-dengan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/membuat-timbangan-digital-dengan.html?m=0 -
7/23/2019 Atmega Mikro Bascom
11/25
&cd BeratFStart AdcDoAdc% = 2etadc%4rumus Berat = #!%#HADC %!,83
rumus dida'at dari 'erbandingan adc dgn beratBerat = Adc% I %!,83Berat = Berat 9 #!%#HLocate 1 , 7
Lcd Fusing(berat , "#.##") ; " gram "
Waitms 300
Loop
Membuat pengukur tinggi badan digital dengan BASCOM dan at mega 8535
Membuat 'engukur tinggi badan digital dengan BASCOM dan at mega8535
Skema rangkaian Membuat 'engukur tinggi badan digital denganBASCOM dan at mega 8535
Source code Membuat 'engukur tinggi badan digital dengan BASCOMdan at mega 8535$regfile = 8535def!dat$cr"stal = #%%%%%%
http://embeddedsystem.itstoshare.com/2013/04/membuat-pengukur-tinggi-badan-digital.html?m=0http://embeddedsystem.itstoshare.com/2013/04/membuat-pengukur-tinggi-badan-digital.html?m=0 -
7/23/2019 Atmega Mikro Bascom
12/25
Dim lag As BitDim @arak As 1ord )
-
7/23/2019 Atmega Mikro Bascom
13/25
@arak:o0erFlag = %Sto' imer#imer# = %@arak = %
*eturn
Membuat pengukur 'arak ultrasonic dengan BASCOM dan at mega 8535
Membuat 'engukur Jarak ultrasonic dengan BASCOM dan at mega 8535
Skema rangkaian 'engukur Jarak ultrasonic dengan BASCOM dan atmega 8535
Source code 'engukur Jarak ultrasonic dengan BASCOM dan at mega8535
$regfile = 8535def!dat$cr"stal = #%%%%%%Dim lag As Bit
Dim @arak As 1ordConfig &cd'in = (in ) Db- = (orta!- ) Db5 = (orta!5 ) Db = (orta!Config &cd'in = (in ) Db. = (orta!. ) + = (orta!# ) *s = (orta!%Config &cd = # / ,Cursor OffClsConfig imer# = imer ) (rescale = #On imer# @arak:o0er+nable nterru'ts
http://embeddedsystem.itstoshare.com/2013/04/membuat-pengukur-jarak-ultrasonic.html?m=0http://embeddedsystem.itstoshare.com/2013/04/membuat-pengukur-jarak-ultrasonic.html?m=0 -
7/23/2019 Atmega Mikro Bascom
14/25
Sig Alias (ortc!%(in:sig Alias Ddrc!%Sig:in Alias (inc!%&cd (K2 dg imer&o6erline&cd @arak=Do2osub kur:Jarak&ocate , ) .&cd @arak cm&oo'+ndkur:JarakFlag = #(in:sig = #Sig = %+nable imer#imer# = %Sig = #1aitus 5
Sig = %1aitus .%Start imer#(in:sig = %Sig = #17ile lag = #f Sig:in = % 7enSto' imer#@arak = imer#lag = %+nd f1end @arak = @arak 9 58*eturn@arak:o0erFlag = %Sto' imer#imer# = %@arak = %*eturn
Menghitung lebar pulsa mengggunakan mikrokontroler dengan bascom dan
at mega 8535
http://embeddedsystem.itstoshare.com/2013/04/menghitung-lebar-pulsa-mengggunakan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/menghitung-lebar-pulsa-mengggunakan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/menghitung-lebar-pulsa-mengggunakan.html?m=0http://embeddedsystem.itstoshare.com/2013/04/menghitung-lebar-pulsa-mengggunakan.html?m=0 -
7/23/2019 Atmega Mikro Bascom
15/25
Meng7itung lebar 'ulsa mengggunakan mikrokontroler dengan bascomdan at mega 8535
Skema rangkaian Meng7itung lebar 'ulsa mengggunakanmikrokontroler dengan bascom dan at mega 8535
Source code Meng7itung lebar 'ulsa mengggunakan mikrokontrolerdengan bascom dan at mega 8535
$regfile = m8535!dat$cr"stal = #%%%%%%Dim (ulsa As &ong ) Ara7 As B"teDim (ulsa:7ig7 As &ongDim S As String / #%Const :rising = ##Const :falling = ,,Config &cd'in = (in ) *s = (ortc!% ) + = (ortc!# ) Db- = (ortc!,Config &cd'in = (in ) Db5 = (ortc!3 )Db = (ortc!- ) Db. =(ortc!5Config &cd = # / ,Cursor OffCls&cd &ebar (ulsaConfig imer# = imer ) (rescale = #%,-Config nt% = *isingOn nt% nt:L%+nable nt%+nable nterru'ts
-
7/23/2019 Atmega Mikro Bascom
16/25
Ara7 = :rising(ortd!, = #Ddrd!, = %Do(ulsa:7ig7 = (ulsa / -
&ocate , ) &cd (ulsa:7ig7 us &oo'+ndnt:L%F2icr = %f Ara7 = :rising 7enStart imer#Ara7 = :fallingMcucr = ;
-
7/23/2019 Atmega Mikro Bascom
17/25
Source code Membuat 'eng7itung Jumla7 orang dalam ruanganmengggunakan mikrokontroler dengan bascom dan at mega 8535$regfile = m8535!dat
$cr"stal = #%%%%%%Config &cd'in = (in ) *s = (ortc!% ) + = (ortc!, ) Db- = (ortc!-Config &cd'in = (in ) Db5 = (ortc!5 ) Db = (ortc! ) Db. =(ortc!.Config &cd = # / ,Ddrb!% = %(ortb!% = #Ddrb!# = %(ortb!# = #Config imer# = Counter ) +dge = allingConfig imer% = Counter ) +dge = allingStart imer%Start imer#Dim otal As 1ordCursor OffCls&cd K=% O=&o6erline&cd otal=Do&ocate # ) -&cd Counter%&ocate # ) #3
&cd Counter#otal = Counter% Counter#&ocate , ) .lcd total&oo'
-
7/23/2019 Atmega Mikro Bascom
18/25
Aplikasi (nput output Membaca keypad 3)* menggunakan mikrokontroler
dengan bascom dan at mega 8535 +eralatan dengan +ass,ord
A'likasi n'ut out'ut Membaca ke"'ad 3L- menggunakanmikrokontroler dengan bascom dan at mega 8535 (eralatan dengan(ass6ord
Skema rangkaian A'likasi n'ut out'ut Membaca ke"'ad 3L-menggunakan mikrokontroler dengan bascom dan at mega 8535(eralatan dengan (ass6ord
Source code A'likasi n'ut out'ut Membaca ke"'ad 3L- menggunakanmikrokontroler dengan bascom dan at mega 8535 (eralatan dengan(ass6ord
http://embeddedsystem.itstoshare.com/2013/04/aplikasi-input-output-membaca-keypad_9.html?m=0http://embeddedsystem.itstoshare.com/2013/04/aplikasi-input-output-membaca-keypad_9.html?m=0http://embeddedsystem.itstoshare.com/2013/04/aplikasi-input-output-membaca-keypad_9.html?m=0http://embeddedsystem.itstoshare.com/2013/04/aplikasi-input-output-membaca-keypad_9.html?m=0 -
7/23/2019 Atmega Mikro Bascom
19/25
$regfile = m8535!dat$cr"stal = #%%%%%%Config &cd'in = (in ) *s = (ortc!% ) + = (ortc!, ) Db- = (ortc!-Config &cd'in = (in ) Db5 = (ortc!5 ) Db = (ortc! ) Db. =(ortc!.
Config &cd = # / ,Cursor OffCls&cd Masukan (ass6ord*ela" Alias (ortd!%Ddrd!% = #*ela" = %Config bd = (ortaDim e"'ad As B"te ) C As B"teDim (6 As String / 5 ) e" As String / #Const (ass6ord = #,3%&ocate , ) -Doe"'ad = 2etkbd4f e"'ad NE # 7en2osub get:ke"'adncr Cf C N= - 7en(6 = (6 I e"f C E= - 7enf (6 NE (ass6ord 7enCls&cd (ass6ord Sala7
1ait ,Cls&cd Masukan (as6ord&ocate , ) -(6 = C = %+lseCls&cd (ass6ord Benar&o6erline&cd *ela" OK
*ela" = #+nd f+nd f1aitms 35%+nd f&oo'+nd2et:ke"'adF
-
7/23/2019 Atmega Mikro Bascom
20/25
&cd /Select Case e"'adCase #H F e" = %Case % F e" = #Case - F e" = ,
Case 8 F e" = 3Case # F e" = -Case 5 F e" = 5Case H F e" = Case , F e" = .Case #8 F e" = 8Case #% F e" = HCase 3 F e" = /Case ## F e" = +nd Select*eturn+nd
-onsep (nput dan Output pada
Mikrokontroler dengan Bascom AV.
Mengenal tentang konsep input dan output pada mikrokontroler
) Memprogram input dan output dengan bahasa pemrograman BASIC
c) Menjalankan program secara simulasi dan mendownloadkan program kedalam IC AT Mega 40pin dengan SBasp untuk konsep input dan output!
"! raian Materi "
a! #angkaian $%&
#angkaian ini akan membuat kode sederhana 'aitu memberikan nilai logika ( dan 0 pada port
output AT Mega 40 pin! ort I*+ akan diset menjadi port output! ort 'ang sama dapat dialihkan
,ungsin'a menjadi port input dengan cara mengatur & -&ata &irection #egister)n'a dari tiap.tiap port!
ntuk pen'alaan $%& membutuhkan cara 'aitu akti, /igh dan $ow! emasangan $%&
mempun'ai " cara 'aitu
() Common Catoda
") Common Anoda
http://embeddedsystem.itstoshare.com/2013/11/konsep-input-dan-output-pada.html?m=0http://embeddedsystem.itstoshare.com/2013/11/konsep-input-dan-output-pada.html?m=0http://www.blogger.com/nullhttp://embeddedsystem.itstoshare.com/2013/11/konsep-input-dan-output-pada.html?m=0http://embeddedsystem.itstoshare.com/2013/11/konsep-input-dan-output-pada.html?m=0http://www.blogger.com/null -
7/23/2019 Atmega Mikro Bascom
21/25
ada gambar diatas perlu dipahami jika common merupakan hubungan bersama1 pada
common anoda $%& akan akti, 2men'ala2 jika diberikan logika 2021 sedangkan untuk commoncatoda $%& akan akti, 2men'ala2 jika diberikan logika 2(2!
Tujuan pembelajaran siswa dapat mengerti dan memahami konsep tentanginput dan output.
Sehingga siswa diharapkan dapat memprogram dengan menggunakanBASCOMdanmensimulasikan program tersebut di roteus serta eksekusi keHardware TrainerMikrokontroler
AT Mega 40 pin!
ada gambar rangkaianinput dan outputditunjukkan bahwa delapan $%& terpasang secara
common catoda -CC)1 sehingga untuk mengakti,kan $%& tersebut dibutuhkan logika 2(2! 3anganterbalik dalam pemberian logika untuk led dikarenakan $%& tidak akan dapat men'ala!
ntuk mempelajari tentang rangkaian pada mikrokontroler AT Mega 40 pin tentang konsep
input dan outputmaka pada rangkaianinput dan output di bawah ini telah diperlihatkanrangkaiann'a! ada rangkaian dibawah ini terlihat untuk konsepinput dan outputterdiri dari
beberapa komponen 'aitu Sistem Minimum dan tambahan$%& sebagaioutputdanPush Button
sebagaiinput.
/ambar 01on,igurasi $%&
-
7/23/2019 Atmega Mikro Bascom
22/25
/ambar 21 Sistem Minimun dengan inputdan output
A. Program 1. Menghidupkan LED
O &+D #!BAS$regfile = m#def!dat mendeklarasikan C "ang digunakan$cr"stal = #,%%%%%% menentukan frekuensi kerJa ristal4Config (ortb = Out'ut (ort B digunakan sebagai out'ut(ort:led Alias (ortb nstruksi 'ort B menJadi 'ort led(ort:led = ,55 data ,55 =;B######## atau ;
-
7/23/2019 Atmega Mikro Bascom
23/25
(ort:led = ;B%%%%%%#%1aitms 3%%(ort:led = ;B%%%%%#%%1aitms 3%%(ort:led = ;B%%%%#%%%1aitms 3%%(ort:led = ;B%%%#%%%%
1aitms 3%%(ort:led = ;B%%#%%%%%1aitms 3%%(ort:led = ;B%#%%%%%%1aitms 3%%(ort:led = ;B#%%%%%%%1aitms 3%%&oo'
D. Program %. Menghidupkan LED Ber$a"an dari Tepi &'
O &+D -!BAS$regfile = m#def!dat$cr"stal = #,%%%%%%Config (ortb = Out'ut(ort:led Alias (ortbDim Data:led As B"te Mendeklarasikan 0ariable Data ledData:led = #Do(ort:led = Data:led1aitms 5 %*otate Data:led ) &eft ) #&oo'
E. Program (. Menghidupkan LED Bergeser dari Tepi
O &+D 5!BAS$regfile = m#def!dat$cr"stal = #,%%%%%%Config (ortb = Out'ut(ort:led Alias (ortbDim Data:led As B"te ) P As B"teData:led = ;B%%%%%%##
Door P = # o (ort:led = Data:led1aitms ,%%*otate Data:led ) &eft ) #KeLt P Menggeser 'utaran Data ledor P = # o (ort:led = Data:led1aitms ,%%*otate Data:led ) *ig7t ) #
-
7/23/2019 Atmega Mikro Bascom
24/25
KeLt P&oo'
Program ). Men!a"akan LED dengan Menekan Tom*o"
(rogram (S< Membaca ombol!BAS$regfile = m#def!dat$cr"stal = #,%%%%%%Dim P As B"teConfig (ortb = Out'utConfig (ortd = n'utomboll Alias ;B###%####ombol, Alias ;B##%#####ombol3 Alias ;B#%######ombol- Alias ;B%#######
-
7/23/2019 Atmega Mikro Bascom
25/25
*otate Animasi ) *ig7t +nd f