Mikrokontroler

TUGAS  Lampu meteor Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:      Led menyala dari arah kanan ke kiri secara bergantiandengan selang waktu 0,1 sekon. Program: Int led[] = {2,3,4,5,6,7}; Void setup() { Int n; For (n=0; n<6; n++){                 digitalWrite (led[n],HIGH);                 delay(tunda);                 digitalWrite (led[n],LOW); } } Proyek: Add caption

Percobaan 19 Motor Servo Nama: Miftachul Bahri // 153600033             Rifqi Nazrudin // 153600034 Tujuan:       Mengerakan motor servo dengan sudut tertentu Program: Servo myservo;  int pos = 0;   void setup() {   myservo.attach(9); } void loop() {   for (pos = 0; pos <= 90; pos += 1) {     myservo.write(pos);                 delay(15);                        }   for (pos = 90; pos >= 0; pos -= 1) {     myservo.write(pos);                   delay(15);                        } } Proyek:

Percobaan 9 NADA Nama: Miftachul Bahri // 153600033             Rifqi Nazrudin // 153600034 Tujuan:  Membuat nada bunyi atau nada satu oktaf Program: Void setup() {  pinMode(8,OUTPUT); } Void loop() { noTone(8); delay(1000); tone(8,264,200); delay(200); noTone(8); tone(8,297,200); delay(200); noTone(8); tone(8,330,200); delay(200); noTone(8); tone(8,352,200); delay(200); noTone(8); tone(8,396,200); delay(200); noTone(8); tone(8,440,200); delay(200); noTone(8); tone(8,495,200); delay(200); noTone(8); tone(8,528,200); delay(200); } Proyek:

TUGAS PASCAL SOAL 4 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:    Cetak kalimat "UNIPA" Program: uses wincrt; var n:integer; begin writeln('Pengulangan for to do naik'); for n:=1 to 5 do     writeln(n,'.Unipa'); end. Proyek:

TUGAS PASCAL SOAL 5 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:   div operator bagi untuk bilangan bulat (integer)                    /  operator bagi untuk bilangan cacah (real) Program: uses wincrt; var C,F:integer; Begin Write(‘Nilai tC=’) C:=0; Repeat Write(c,’,’); C:=C+5; untilC=55; writeln;       write('Nilai tF= ');                                                                   C:=0;       Repeat           F:=(9*C) div 5+ 32;           write(F, ‘ , ‘);           C:=C+5;       until C=55; readln;    donewincrt;      end.                Proyek:

TUGAS PASCAL SOAL 5 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:   div operator bagi untuk bilangan bulat (integer)                    /  operator bagi untuk bilangan cacah (real) Program: uses wincrt; var C,F:integer; begin       write('Nilai tF= ');                                                                    C:=0;       Repeat           F:=(9*C) div 5+ 32;            write(F, ‘ , ‘);            C:=C+5;       until C=55; readln;     donewincrt;       end.                                Proyek:

TUGAS PASCAL SOAL 7 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:   cetak kalimat Maka nilai Fahrenheit= dan cetak variabel F 3 spasi dan 2   angka desimal dibelakang koma Program: uses wincrt; var      C,F: real;           {variable C dan F adalah bilangan cacah} Begin          writeln('F = 9C/5 +32');          writeln;          write('Berapa nilai   Celcius =');          readln(C);                   F:=9*C/5 + 32; {nilai F sekarang=9 kali C bagi 5 +32}          writeln('Maka nilai   Fahrenheit= ', F:3:2);   readln; donewincrt;                         End. Proyek:

TUGAS PASCAL SOAL 9 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan: Memasukkan sejumlah data. Komputer akan menghitung jumlah data, rata-rata data serta total data yang saudara masukan. Jika program dijalankan: Program: uses wincrt; var    n,m: integer;                         rata,jum: real ;                         x : array[1..100] of integer;                    Begin                           write(' Jumlah data anda   =');          readln(m);            n:=1;           jum:=0;      repeat              Write('Data anda ke ',n,' = ');              readln(x[n]);              jum:=jum+x[n];                n:=n+1;      until n=(m+1);      writeln('Jumlah data anda =',m);      rata:=jum / m;      writeln('Total data anda =',jum:3:2);      writeln('Rata-rata data = ',rata:3:2); end. Proyek:

TUGAS PASCAL SOAL 11 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:       Buat program dengan deklarasi constanta dalam aplikasi string , tentang nama-nama hari.  Program: uses wincrt; const hari: array[1..7] of string=('senin','selasa','rabu','kamis','jumat','sabtu','minggu'); var    n:integer; Begin    writeln('Nama-nama hari');    writeln;    n:=1;    repeat           writeln('Hari ke = ',n,' = ',hari[n]);          n:=n+1;    until n=8;   End. Proyek:

TUGAS PASCAL SOAL 10 Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:       Memasukkan data sesorang secara software Program: uses wincrt; var   nama :string[20];   jur   :string[10];   angk :integer;   kls   : char;   alamat:string[40];   status: string[20]; Begin    write('1.Ketik nama mahasiswa=');    readln(nama);   write('2.Ketik jurusannya=');    readln(jur);    write('3.Ketik angkatannya=');    readln(angk);    write('4.Ketik kelasnya=');    readln(kls);    write('5.Ketik alamatnya=');    readln(alamat);    write('Ketik status =');    readln(status);    clrscr;    writeln('Namamahasiswa :',nama);    writeln('Jurusan :',jur);    writeln('Angkatan:',angk);    writeln('Kelas   :',kls);    writeln('Alamat :',alamat);    writeln('Status   :',status);   End. Proyek:

Percobaan 20 Cetak kalimat di LCD Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:       Menampilkan text di LCD uk 2x16 Program: #include<LiquidCrystal.h> LiquidCrystal lcd(12,11,5,4,3,2); void setup() {   // put your setup code here, to run once: lcd.begin(16,2); lcd.setCursor(0,0); lcd.print("HELLO APA KABAR"); lcd.setCursor(0,1); lcd.print("I LOVE YOU FULL"); } void loop(){} Proyek:

Percobaan 7 Blink Eksternal Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin // 153600034 Tujuan:         Membuat lampu LED di pin 3 menyala perlahan-lahan sampai terang maksimum dan meredum sampai padam. Program: Int led = 3; Int V1 = 0; Int V2 = 5 Void setup() { pinMode(led,V1); V1 =V1 + V2; If(V1 == 0|| V1 == 255){ V2 =-V2; } Delay(50); } Proyek: