Contoh Kegunaan Benda Elastis dalam Kehidupan Sehari-hari

Pernahkah anda mengukur berat badan ? timbangan yang anda gunakan untuk mengukur berat badan (dalam fisika, berat yang dimaksudkan di sini adalah massa) juga memanfaatkan bantuan pegas. Pegas lagi, pegas lagi… hidup kita selalu ditemani oleh pegas. Neraca pegas yang digunakan untuk mengukur berat badan, terdapat juga neraca pegas yang lain (gambar kanan – neraca pegas buah).

Gambar atas itu 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.

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.

 Nah, contoh yang sangat sederhana dan mungkin sering anda temui adalah ketapel. 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

Pernahkah dirimu melihat dinamometer ? mudah-mudahan di laboratorium fisika sekolah anda ada. Dinamometer, sebagaimana tampak pada gambar di samping adalah alat pengukur gaya. Biasanya digunakan untuk menghitung besar gaya pada percobaan di laboratorium. Di dalam dinamometer terdapat pegas. Pegas tersebut akan meregang ketika dikenai gaya luar. Misalnya anda melakukan percobaan mengukur besar gaya gesekan.

Contoh Soal Hukum Hooke

1.Sebuah pegas yang panjangnya 20 cm
tergantung bebas. Ketika pegas tersebut diberi beban 25 N, ternyata panjangnya
menjadi 30,5 cm. Tentukan tetapan pegas tersebut!
Penyelesaian:
Diketahui : x0 =20 cm = 0,2 m x = 20,5 cm = 0,205 m F =25 N
Ditanya : besarnya k........?
jawab :
F =k.x
25 =k.(0,205 - 0,2)
25 =k.0,005
k.0,005 = 25
k = 25 / 0,005
k = 5000 N/m

2. Sebuah pegas yang panjangnya 10 cm
tergantung bebas. ketetapan pegas tersebut 3000 N/m, ternyata panjangnya menjadi 30,5 cm. Tentukan gaya
pegas tersebut!
Penyelesaian:
Diketahui : x₀ = 10 cm = 0,1 m
x_t = 30,5 cm = 0,305 m
k = 3000 N/m
Ditanya : F........?
jawab :
F =k.x
F =3000.(0,305 - 0,1)
F =3000.0,305
F = 915 N

Contoh Energi Potensial Pegas:
1.Sebuah pegas memiliki konstanta pegas 300Nm. Pegas diregangkan sehingga bertambah panjang 20 cm. Tentukanlah energi potensial elastis pegas.
Pembahasan :
Diketahui :
k = 300Nm
Δx = 10cm=0,2m
Ditanyakan : Ep ?
Jawab :
Ep = 1/2 k. Δx
= 1/2 300. (0,2)
= 30 Joule

Contoh penerapan konsep susunan seri pegas.

1.Dua buah pegas disusun seri seperti pada gambar, jika masing-masing pegas mempunyai konstanta sebesar 300Nm = k2 = 300Nm
W = m.g = 4kg.10m/s2 = 40N
Ditanyakan :Δx?
Jawab :
dan massa beban 5kg. Tentukan besar pertambahan panjangnya.
Diketahui :

k1 = k2 = 300Nm
W = m.g = 4kg.10m/s = 40N
Ditanyakan : x
Jawab :
1/ks = 1/300 + 1/300
ks = 150 Nm
=k.Δx
Δx=F/k =40N/150
=0,26 m

Tugas Membuat Aplikasi Sederhana (Apotek) menggunakan VB

Sebelum anda memasuki apikasi VB apotek anda harus login terlebih dahulu.
Langkah 1 :
Buatlah 4 command button  untuk mengisi daftar  Password,User,Login,Clear dan Exit.
Langkah 2 :
Buatlah 2 text box untuk mengisi tampilan dari Password dan User.
Langkah 3 :
Masukkan Image untuk gambar Login.
Langkah 4 :
Codinglah aplikasi Login tersebut.

 
Penjelasan Coding :

Private Sub Command1_Click()

If Text1.Text = "admin" And Text2.Text = "password" Then

Form2transaksi.Show

Unload Me

Else

MsgBox "Maaf Yang anda Masukkan Salah!!"

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then

KeyAscii = 0

End If

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    Text1.SetFocus

    Else

    Text2.SetFocus

    End If

End If

End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then

KeyAscii = 0

End If

If KeyAscii = 13 Then

If Text2.Text = "" Then

Text2.SetFocus

Else

Command1.SetFocus

End If

End If

End Sub

Private Sub cmdproses_Click()

If Combo1.Text = "analsik" Then

text4.Text = 5000 * Val(text1.Text)

ElseIf Combo1.Text = "Antalgin" Then

text4.Text = 2000 * Val(text1.Text)

ElseIf Combo1.Text = "Bodrex" Then

text4.Text = 1000 * Val(text1.Text)

ElseIf Combo1.Text = "entrostop" Then

text4.Text = 1500 * Val(text1.Text)

ElseIf Combo1.Text = "feminax" Then

text4.Text = 2500 * Val(text1.Text)

End If

If Combo2.Text = "albothyl" Then

text6.Text = 20000 * Val(text5.Text)

ElseIf Combo2.Text = "biolysin" Then

text6.Text = 10000 * Val(text5.Text)

ElseIf Combo2.Text = "curcumaplus" Then

text6.Text = 14550 * Val(text5.Text)

ElseIf Combo2.Text = "hufagrip" Then

text6.Text = 15000 * Val(text5.Text)

ElseIf Combo2.Text = "laserin" Then

text6.Text = 12500 * Val(text5.Text)

End If

If Combo3.Text = "diapet" Then

text2.Text = 2000 * Val(text3.Text)

ElseIf Combo3.Text = "captopril" Then

text2.Text = 5000 * Val(text3.Text)

ElseIf Combo3.Text = "sangobion" Then

text2.Text = 5000 * Val(text3.Text)

ElseIf Combo3.Text = "fatigon" Then

text2.Text = 4000 * Val(text3.Text)

ElseIf Combo3.Text = "supravit" Then

text2.Text = 16000 * Val(text3.Text)

End If

txttotal.Text = Val(text2.Text) + Val(text4.Text) + Val(text6.Text)

txtkembalian.Text = Val(txtpembayaran.Text) - Val(txttotal.Text)

End Sub

Private Sub Command3_Click()

If text2.Text & text4.Text & text6.Text Then

txttotal.Text = Val(text2.Text) + Val(text4.Text) + Val(text6.Text)

Else

txttotal.Text = ""

End If

End Sub

Private Sub Command1_Click()

text1.Text = ""

text2.Text = ""

text3.Text = ""

text4.Text = ""

text5.Text = ""

text6.Text = ""

txttotal.Text = ""

txtpembayaran.Text = ""

txtkembalian.Text = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "analsik"

Combo1.AddItem "antalgim"

Combo1.AddItem "bodrex"

Combo1.AddItem "entrostop"

Combo1.AddItem "feminax"

Combo2.AddItem "albothyl"

Combo2.AddItem "biolysin"

Combo2.AddItem "curcumaplus"

Combo2.AddItem "hufagrip"

Combo2.AddItem "kiranti"

Combo2.AddItem "laserin"

Combo3.AddItem "diapet"

Combo3.AddItem "captropil"

Combo3.AddItem "sangobiono"

Combo3.AddItem "fatigon"

Combo3.AddItem "supravit"

Combo4.AddItem "2 * sehari 1 tablet"

Combo4.AddItem "1 * sehari 1 tablet"

Combo4.AddItem "2 * sehari 1 tablet"

Combo4.AddItem "1 * sehari 1 tablet"

Combo4.AddItem "1 * sehari 1 tablet"

Combo5.AddItem "2 * sehari 1 tetes"

Combo5.AddItem "3 * sehari 1 sendok"

Combo5.AddItem "2 * sehari 1 sendok"

Combo5.AddItem "1 * sehari 1 sendok"

Combo5.AddItem "1 * sehari 1 sendok"

Combo6.AddItem "2 * sehari 1 kapsul"

Combo6.AddItem "1 * sehari 2 kapsul"

Combo6.AddItem "3 * sehari 1 kapsul"

Combo6.AddItem "1 * sehari 1 kapsul"

Combo6.AddItem "2 * sehari 1 kapsul"

Combo7.AddItem "113487"

Combo7.AddItem "114789"

Combo7.AddItem "119871"

Combo7.AddItem "113425"

Combo7.AddItem "115623"

Combo8.AddItem "114789"

Combo8.AddItem "114789"

Combo8.AddItem "114789"

Combo8.AddItem "114789"

Combo8.AddItem "114789"

Combo7.AddItem "114789"

Combo7.AddItem "114789"

Combo7.AddItem "114789"

Combo7.AddItem "114789"

Combo7.AddItem "114789"

End Sub

tugas fisika(usaha,energi dan daya

1.  Bayu mendorong meja yang massanya 4 kg dgn percepatan 2m/s" sejauh 5 m. berapkah usahanya??

jawab:
W = Fs
= mas
= 4 kg 2 m/s" 5 m
= 40 joule

2.  Sebuah benda dengan massa 0,5 kg jatuh dari ketinggian 4m ke tanah, jika g = 10 m/s2, hitunglah :

1. energi potensial ketika melayang jatuh
2. Energi kinetik ketika menyentuh tanah

Jawab:
Diketahui :
m= o,5 kg
h = 4m
g = 10 m/s2

Jawab :

1. energi potensial ketika melayang jatuh

EP = M.G.H
0,5 kg . 4 m. 10 m/s2
= 20 J

2. Energi kinetik ketika menyentuh tanah

Karena energi mekanik = constant

Bahwa : Ketika menyentuh tanah tidak ada tinggi
ketika jatuh tidak ada velocity

Rumus EK : 1/2 . M. V2

Jadi 1/2 . 0,5 . 0

Berapapun dikali nol, pasti nol
EK = 0

3.  Sebuah benda bermassa m bergerak dengan kecepatan 20 m/s

sehingga memiliki energi kinetik sebesar 250 joule. Berapakah

energi benda tersebut jika kecepatannya menjadi 40 m/s?

dik:                         v1 = 20 m/s

Ek1 = 250 joule

v2 = 40 m/s

     Dit: Ek2 = ?

     Jwb :           Ek =1/2 mv2

                        Ek1 =1/2 m v12

250 = m (20)2

500 = m . 400

m = 1,25 kg

Ek2 = 1/2m v22

= . 1,25 . (40)2 = 1000 joule

4.  Sebuah mobil bermassa 1 ton dipacu dari kecepatan 36 km/jam menjadi berkecepatan 144 km/jam dalam 4 sekon. Jika efisiensi mobil 80 %, tentukan daya yang dihasilkan mobil!

Penyelesaian:

Terjadi perubahan kecepatan, maka usaha yang dilakukan adalah:

W = ½ m v₂² – ½ m v₁² (1 ton = 1000 kg, 144 km/jam = 40 m/s, 36 km/jam = 10 m/s)

W = ½ 1.000 .(40)² – ½ 1.000 . (10 )²

W = 750.000 joule

P = W/t

P=187.500 watt

Tugas Fisika

1. Seekor burung yang bermassa 26 gram terbang dengan kecepatan 60m/s. Berapa besar momentum burung tersebut???
Diket  :
massa (m) = 26 gram =0,26kg
kecepatan (v) = 60m/s
Ditanya : momentum burung??
Jawab :
p=m.v
p=0,22.80
  = 15,6m/s

2. Sebuah bola sepak bermassa 140 gram di tendang dengan kecepatan 144km/jam. Hitunglah implus bola sepak tersebut??
Diket :
massa(m) =140gram=0,140kg
kecepatan(v)=144km/jam=40m/s
Ditanya : implus ?
Jawab :
I=m.v
I=0,140.40
  =5Ns

3.Dua orang membawa gerobak dengan arah yang berlawanan.Gerobak pertama bermassa 50kg dengan kecepatan 4m/s dan gerobak kedua bermassa 25kg dengan kecepatan -2m/s. Jika setalah meraka berpapasan V1pangkat1=2m/s berapa V2pangkat2??
Diket :
m1=50kg   m2=25kg
v1=4m/s    v2=-2m/s
Ditanya :V2 pangkat2??
Jawab :
Sebelum                  Sesudah
m1.v1+m2.v2   =   m1.v1pangkat1+m2.v2pangkat1
50.4+25.(-2)    =  50.2+25.v2pangkat1
200+(-50)        =  100+25.v2pangkat1
150                  =  100+25-v2pangkat1
150-100           =  25.v2pangkat1
50                    =  25.v2pangakat1
v2pangkat 1     =  50/25
v2pangkat1      =  2m/s

Membuat Layout Menggunakan Corel Draw

Menentukan Gaji Menggunakan Visual Basic

Langkah 1  :

Buatlah 8 tabel untuk mengisi daftarnya dengan cara mengklik menu table pada tool box. Buat sesuai yang anda inginkan

Langkah 2  :

Buatlah 5 texbox dengan cara mengklik menu texbox pada tool box. Buat sesuai yang di inginkan dan letakkan pada daftar gaji,kelebihan jam,hadiah,bonus dan total gaji.

Langkah 3 :

Buatlah 1 comboBox dengan cara mengklik menu comboBox pada tool box. Buat sesuai yang di inginkan dan letakkan pada daftar terlambat.

Langkah 4 :

Buatlah 2 commandButton dengan cara mengklik menu commandBotton pada tool box. Buat sesuai yang yang di inginkan

Langkah 5:

Codinglah aplikasi sederhana tersebut.

Penjelasan Coding  : 

Dim angka(1 To 2) As String

Dim nilai(1 To 2) As String

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Combo1.SetFocus

        Else

        Command1.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub

Private Sub Command1_Click()

If Text1 = "" Then

Text1.SetFocus

ElseIf Text2 = "" Then

Text2.SetFocus

ElseIf Not (Combo1 = "tidak" Or Combo1 = "ya") Then

Combo1.Text = ""

Combo1.SetFocus

Else

If Text2 > 40 Then

angka(1) = Val(Text2.Text) - (40)

angka(2) = angka(1) * (25000)

Text4.Text = angka(2)

Else

Text4.Text = "0"

End If

If Combo1.Text = "tidak" Then

nilai(1) = Val(Text1.Text) * (10)

nilai(2) = nilai(1) / (100)

Text3.Text = nilai(2)

Else

Text3.Text = "0"

End If

Text5 = Val(Text1) + Val(Text3) + Val(Text4)

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "tidak"

Combo1.AddItem "ya"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Text1.SetFocus

        Else

        Text2.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Text2.SetFocus

        Else

        Combo1.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub

Membuat Biodata dengan VB

Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Contoh membuat biodata menggunakan VB :

Langkah 1 :
Buatlah sebuah label untuk judul utamanya. Dengan cara mengklik label pada menu tollbox. Lalu buat dengan ukuran sesuia yang di inginkan

Langkah 2 :
Buatlah 4 option button untuk memasukkan kategorinya.
Dengan cara mengklik menu option button pada tollbox.
Buat sesuai yang di inginkan.

Langkah 3 :
Membuat 4 text untuk hasil kategori di atas. Dengan cara mengklik menu text pada tollbbox. Buat sesuai yang di inginkan.

Langkah 4 :
Coding lah aplikasi sederhana tersebut.



Penjelasan coding :
Private Sub Option1_Click()
Text1.Text = "Endah Tri Nur amalina"
Text1.Alignment = vbCenter
Text1.FontSize = 10
End Sub

Private Sub Option2_Click()
Text2.Text = "Jl Brigpol Sudarlan"
Text2.Alignment = vbCenter
Text2.FontSize = 10
End Sub

Private Sub Option3_Click()
Text3.Text = "Bondowoso,27 september 1994"
Text3.Alignment = vbCenter
Text3.FontSize = 10
End Sub

Private Sub Option4_Click()
Text4.Text = "SMKN 1 Bondowoso"
Text4.Alignment = vbCenter
Text4.FontSize = 10
End Sub

Download Aplikasinya KlikDisini