Biodata

Nama:Ainul Yaqin
alamat:Perumahan Asabri Bataan Permai
hobi:

Penerapan Elastisitas dalam kehidupan sehari-hari

Pada awal penjelasan mengenai hukum Hooke, gurumuda telah berjanji akan membahas mengenai aplikasi elastisitas dalam kehidupan sehari-hari. Nah, berikut ini beberapa penerapan elastisitas dalam kehidupan kita.

Kita mulai dari teknologi yang sering kita gunakan, yaitu sepeda motor atau mobil.

Gambar disamping ini adalah pegas yang digunakan sebagai peredam kejutan pada kendaraan sepeda motor. Istilah kerennya pegas digunakan pada sistem suspensi kendaraan bermotor. Tujuan adanya pegas ini adalah untuk meredam kejutan ketika sepeda motor yang dikendarai melewati permukaan jalan yang tidak rata. Ketika sepeda motor melewati jalan berlubang, gaya berat yang bekerja pada pengendara (dan gaya berat motor) akan menekan pegas sehingga pegas mengalami mampatan. Akibat sifat elastisitas yang dimilikinya, pegas meregang kembali setelah termapatkan. Perubahan panjang pegas ini menyebabkan pengendara merasakan ayunan. Dalam kondisi ini, pengendara merasa sangat nyaman ketika sedang mengendarai sepeda motor. Pegas yang digunakan pada sepeda motor atau kendaraan lainnya telah dirancang untuk mampu menahan gaya berat sampai batas tertentu. Jika gaya berat yang menekan pegas melewati batas elastisitasnya, maka lama kelamaan sifat elastisitas pegas akan hilang. Oleh karena itu saran dari gurumuda, agar pegas sepeda motor-mu awet muda, maka sebaiknya jangan ditumpangi lebih dari tiga 

orang. Perancang sepeda motor telah memperhitungkan beban maksimum yang dapat diatasi oleh pegas (biasanya dua orang).

Pegas bukan hanya digunakan pada sistem suspensi sepeda motor tetapi juga pada kendaraan lainnya, seperti mobil, kereta api, dkk. (gambar kiri – per mobil)

Pada mobil, terdapat juga pegas pada setir kemudi . Untuk menghindari benturan antara pengemudi dengan gagang setir, maka pada kolom setir diberi pegas. Berdasarkan hukum I Newton (Hukum Inersia), ketika tabrakan terjadi, pengemudi (dan penumpang) cenderung untuk terus bergerak lurus. Nah, ketika pengemudi bergerak maju, kolom setir tertekan sehingga pegas memendek dan bergeser miring. Dengan demikian, benturan antara dada pengemudi dan setir dapat dihindari.

Karet Ketapel

Nah, contoh yang sangat sederhana dan mungkin sering anda temui adalah ketapel. Gurumuda dari ndeso dan ketika masih sangat nakal seperti dirimu, ketapel adalah alat yang paling mujarab untuk membidik buah2an milik tetangga yang ranum dan mengundang selera. Sttt… jangan ditiru kalau dirimu tinggal di kota, kayanya tiap hari berurusan dengan game, ngenet, gamenet….gitu deh. ayo ngaku... paling ketapel juga ga tahu… hehe… piss.. lanjut. Ketika hendak menembak burung dengan ketapel misalnya, karet ketapel terlebih dahulu diregangkan (diberi gaya tarik). Akibat sifat elastisitasnya, panjang karet ketapelakan kembali seperti semula setelah gaya tarik dihilangkan. 

Kasur Pegas

Contoh lain adalah kasur pegas. Ketika dirimu duduk atau tidur di atas kasur pegas, gaya beratmu menekan kasur. Karena mendapat tekanan maka pegas kasur termampatkan. Akibat sifat elastisitasnya, kasur pegas meregang kembali. Pegas akan meregang dan termampat, demikian seterusnya. Akibat adanya gaya gesekan maka suatu saat pegas berhenti bergerak. Dirimu yang berada di atas kasur merasa sangat empuk akibat regangan dan mampatan yang dialami oleh pegas kasur.

membuat kalender hijriah pada vb

1.Pertama kita buat 2 labelbox 

2.kemudian kita tambahkan combo box

3. kita tambahkan textbox

my karya

Pertama kita buat 9 label,2 textbox,dan 4 commandbuttom dan kemudian kita ubah nama-nama pada toolbox tersebut seperti dibawah ini:

· Label1ganti denganGaji tukang

· Label2ganti dengangaji

· Label3ganti dengankelebihan jam

· Label4ganti denganbonus gaji

· Label5ganti denganhadiah

· Label6ganti dengantotal gaji

· Label7,8,9 kita hapus namanya di caption

· Command1ganti denganproses

· Command2ganti denganclear

· Command3vaktif

· Command4ganti dengankeluar


Kemudian kita mulai pengkodean seperti dibawah ini:

Private Sub Command1_Click()

Label7.Caption = Val(Text2.Text) * 30000

Label8.Caption = Val(Text1.Text) * 10 / 100

Label9.Caption = Val(Label7.Caption) + Val(Label8.Caption) + Val(Text1.Text)

End Sub


Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Label7.Caption = ""

Label8.Caption = ""

Label9.Caption = ""

End Sub


Private Sub Command3_Click()

Text1.Enabled = 1

Text2.Enabled = 1

Label7.Enabled = 1

Label8.Enabled = 1

Label9.Enabled = 1

Command1.Enabled = 1

Command2.Enabled = 1

Command4.Enabled = 1

MsgBox "Aplikasi Aktif..Selamat Menghitung"

End Sub


Private Sub Command4_Click()

MsgBox "Exit"

End

End Sub


Private Sub Form_Load()

Text1.Enabled = 0

Text2.Enabled = 0

Label7.Enabled = 0

Label8.Enabled = 0

Label9.Enabled = 0

Command1.Enabled = 0

Command2.Enabled = 0

Command4.Enabled = 0

End Sub

Selamat bekerja

membuat kalkulator pada vb

1

• Pertama kita buat 4 label seperti gambar di atas.

2

• kemudian tambahkan 3 textbox seperti gambar di atas.

3

• Langkah ke 3 kita tambahkan combobox.

4

• Dan tambahkan command button setelah itu menuju kelengkah selanjutnya

Yellowcard - Ocean Avenue