Pagi yang berbahagia kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat peraga untuk guru matematika tentang Relasi dan Fungsi, jadi desain alat seperti gambar diatas yang mana terdapat 4 buah anggota domain dan 16 buah anggota kodomain. ada dua buah led dan dua buah push button. sistem kerjanya seperti berikut.
Konsep Materi Relasi dan Fungsi
• Relasi dari himpunan domain ke himpunan kodomain adalah aturan yang memasangan anggota himpunan domain dan anggota himpunan kodomain dengan aturan tertentu
• Fungsi/pemetaan dari himpunan domain ke himpunan kodomain adalah relasi yang memasangkan setiap anggota himpunan domain dengan tepat satu anggota himpunan kodomain
Keterangan Alat Peraga
• Jika tombol fungsi yang ditekan hanya fungsi yang berlaku
• Jika tombol Relasi yang ditekan hanya relasi yang berlaku
• Untuk fungsi, jika suatu fungsi maka akan ditunjukkan oleh lampu indikator hijau, dan jika bukan fungsi maka lampu indikator tidak menyala
• jika suatu Relasi maka akan ditunjukkan oleh lampu indikator merah, dan jika bukan relasimaka lampu indikator tidak menyala
• Untuk relasi, tidak ada batasan banyaknya kabel dari domain menuju kodomain
• Untuk fungsi, kabel dari domain menuju kodomain satu kabel yang menuju ke tepat satu menuju kodomain (tunggal)
• Jika ada domain yang menggunakan lebih dari satu kabel sebagai penghubung dan satu domain dapat menyalakan dua lampu maka hanya disebut sebagai relasi
• Tanda panah adalah kabel yang menghubungkan sekaligus menunjukkan relasi ataupun fungsi
1. Skema Rangkaian
2. Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cls
Cursor Off
'adc0 = 1023
'adc1 = 686
'adc2 = 343
'adc3 = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'led merah
Ddrb.0 = 1
'led hijau
Ddrb.1 = 1
'button merah relasi
Ddrb.2 = 0
'button merah fungsi
Ddrb.3 = 0
Dim Dataadc0 As Word
Dim Dataadc1 As Word
Dim Dataadc2 As Word
Dim Dataadc3 As Word
Set Portb.2
Set Portb.3
Start Adc
Main:
Do
Cls
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 1
Portb.1 = 0
If Pinb.2 = 0 Then
Cls
Goto Relasi
Elseif Pinb.3 = 0 Then
Cls
Goto Fungsi
End If
Loop
Relasi:
Do
Dataadc0 = Getadc(0)
Dataadc1 = Getadc(1)
Dataadc2 = Getadc(2)
Dataadc3 = Getadc(3)
If Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 680 And Dataadc0 < 690 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 340 And Dataadc0 < 500 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 < 10 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 1000 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 340 And Dataadc1 < 500 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 < 10 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 680 And Dataadc2 < 690 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 < 10 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 > 340 And Dataadc3 < 500 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Kurang Dari"
Elseif Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Setengah Dari"
Elseif Dataadc0 > 1000 And Dataadc1 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Faktor Dari"
Elseif Dataadc3 > 1000 And Dataadc2 > 1000 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "Relasi "
Lowerline
Lcd "Lebih Dari"
Else
Ddrb.0 = 0
Ddrb.1 = 0
Portb.0 = 0
Portb.1 = 0
Upperline
Lcd "SALAH "
Lowerline
Lcd "Bukan Relasi"
End If
If Pinb.3 = 0 Then
Wait 1
Goto Main
End If
Loop
Return
'===============================
Fungsi:
Do
Dataadc0 = Getadc(0)
Dataadc1 = Getadc(1)
Dataadc2 = Getadc(2)
Dataadc3 = Getadc(3)
If Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 1000 And Dataadc1 > 1000 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 > 680 And Dataadc3 < 690 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 1000 And Dataadc1 > 1000 And Dataadc2 > 1000 And Dataadc3 > 1000 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 680 And Dataadc0 < 690 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 680 And Dataadc2 < 690 And Dataadc3 > 680 And Dataadc3 < 690 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 340 And Dataadc0 < 500 And Dataadc1 > 340 And Dataadc1 < 500 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 > 340 And Dataadc3 < 500 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Elseif Dataadc0 < 10 And Dataadc1 < 10 And Dataadc2 < 10 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Elseif Dataadc0 > 680 And Dataadc0 < 690 And Dataadc1 > 1000 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Elseif Dataadc0 < 10 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 > 1000 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 1000 And Dataadc1 > 680 And Dataadc1 < 690 And Dataadc2 > 340 And Dataadc2 < 500 And Dataadc3 > 340 And Dataadc3 < 500 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Elseif Dataadc0 > 1000 And Dataadc1 > 340 And Dataadc1 < 500 And Dataadc2 > 680 And Dataadc2 < 690 And Dataadc3 < 10 Then
Ddrb.0 = 1
Ddrb.1 = 1
Portb.0 = 0
Portb.1 = 1
Upperline
Lcd "FUNGSI "
Lowerline
Lcd ""
Else
Ddrb.0 = 0
Ddrb.1 = 0
Portb.0 = 0
Portb.1 = 0
Upperline
Lcd "BUKAN FUNGSI "
Waitms 200
End If
If Pinb.2 = 0 Then
Wait 1
Goto Main
End If
Loop
Return
3. VIDEO HASILNYA
No comments:
Post a Comment