Postingan

Lampu Meteor

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
Posting Komentar
Baca selengkapnya

Motor servo

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:
Posting Komentar
Baca selengkapnya

NADA

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:
Posting Komentar
Baca selengkapnya

Pengulangan loop

Gambar
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:
Posting Komentar
Baca selengkapnya

Program Konversi tc dan tf

Gambar
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:
Posting Komentar
Baca selengkapnya

Program Konversi tf

Gambar
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:
Posting Komentar
Baca selengkapnya

Input Output konversi suhu F dan C

Gambar
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:
Posting Komentar
Baca selengkapnya