Seputar Teknologi dan Sains

sumber gambar        Biner merupakan bilangan basis dua yang hanya terdiri dari angka 1 dan 0 saja. Seperti halnya bilangan desimal, biner juga dapat melakukan operasi penjumlahan, pengurangan, dan perkalian. Namun yang akan saya bahas saat ini hanya Penjumlahan dan pengurangan bilangan biner. Penjumlahan Biner Penjumlahan bilangan biner hampir sama dengan penjumlahan bilangan desimal biasa, namun didalam penjumlahan bilangan biner memiliki beberapa aturan seperti berikut : Maksud dari carry out adalah, karena bilangan biner tidak lebih dari 1 bilangan. Misal : 3 +  4 = 7 à carry out 0 12 + 9= 21 à carry out 1 Karena yang dimaksud Carry Out adalah penyimpanan angka, lihat contoh diatas. 3+4=7 CarryOut = 0 karena tidak ada bilangan yang disimpan. 12+9=21 sisa 1, angka 1 tersebut digantung diatas , lalu 1+1=2, jadi hasilnya 21. 1 yang digantung diatas itulah yang disebut CarryOut. CONTOH : LATIHAN : 1010                001011             

1. Buatlah komponen program seperti pada gambar berikut              Komponen terdiri dari :          12.        Masukan kode program kedalam komponen button 1, 2, 3, 4, 5. Yang terdiri dari (+) tambah, (-) kurang, (*) kali, (/) bagi, dan CLOSE. Berikut kode programnya Button1 (+) : procedure TForm1.Button1Click(Sender: TObject); var a,b,hasil:real; begin a:=StrToFloat(edit1.text); b:=StrTofloat(edit2.text); hasil:=a+b; edit3.Text:=FloatToStr(hasil); end; Button2 (-) : procedure TForm1.Button2Click(Sender: TObject); var a,b,hasil:real; begin a:=StrToFloat(edit1.text); b:=StrTofloat(edit2.text); hasil:=a-b; edit3.Text:=FloatToStr(hasil); end; Button3 (*): procedure TForm1.Button3Click(Sender: TObject); var a,b,hasil:real; begin a:=StrToFloat(edit1.text); b:=StrTofloat(edit2.text); hasil:=a*b; edit3.Text:=FloatToStr(hasil); end; Button4 (/) : procedure TForm1.Button4Click(Sender: TObject)

1.      Desain Form Label1 untuk (Periksa Hasil ujian) Label2 untuk(masukkan nilai) Label3 untuk (Hasil) Edit1 untuk(menginput nilai yang dimiliki) Edit2 untuk(Hasil dari Nilai yang diinput Lulus/Tidak lulus) Button1 untuk (periksa) 2.      Masukan kode programnya kedalam Button1 “Periksa”, caranya klik dua kali pada button1 maka akan muncul form untuk kode program. Berikut Algortimanya : procedure TForm1.Button1Click(Sender: TObject); Var nilai:integer;     hasil:string; begin   nilai:=strtoint(edit1.Text);   if nilai<60 then     hasil:='Tidak lulus'   else     Hasil:='Lulus';   edit2.Text:=hasil; end; 3.      Lalu Compile program atau dengan menggunakan tombo F9, maka program akan tampil seperti ini

SOLUSI MENGHILANGKAN KECANDUAN GADGET DAN MEDSOS Assalamu'alaikum warahmatullahi wabarakatuh.       Sumber gambar :  https://i.l.inmobicdn.net/website/website/6.0.1/uploads/blog/mediation_website.jpg            Hai sahabat, udah lama nih saya gak nulis blog lagi,. Pada kesempatan kali ini saya akan berbagi pengalaman pribadi saya tentang bagaimana caranya mengurangi kecanduan mainin hp dan media sosial pada diri sendiri. Baru-baru ini banyak sekali masalah yang timbul akibat pesatnya perkembangan teknologi, dan mirisnya yang menjadi korban tidak hanya orang dewasa yang sudah cukup matang pemikirannya, namun anak-anak yang sebenarnya belum cukup umur untuk menggunakan gadget dan media sosial sehingga mereka menganggap menggunakan media sosial itu tidak perlu memiliki tanggung jawab yang besar. Sebenarnya ketika kamu sudah berani menggunaan Teknologi maka kamu seperti memiliki perusahaan nuklir, kamu akan menggunakannya demi kebaikan "pembangkit listrik"