Modul Fisika XII

Modul Gejala Gelombang (1) dapat anda download di sini

Modul Gelombang bunyi (2) dapat anda download di sini

Modul Listrik Statis (4) dapat anda download  disini

Soal Latihan UTS Fisika Kelas XII IPA Semester Ganjil

1.      Persamaan gelombang transversal yang merambat pada suatu dawai  y = 2 sin π (200t – 20 x). Jika x dan y dalam cm dan t dalam detik, maka besar cepat rambat gelombang tersebut adalah ....

2.      Suatu gelombang tranversal yang merambat di permukaan laut mempunyai panjang gelombang 4 meter, ampitudo 3 meter dan frekuensi 20 Hz, maka persamaan gelombang tersebut adalah ….

3.   Perpaduan antara dua gelombang harmonik yang frekuensi dan amplitudonya sama tetapi arah berlawanan akan menghasilkan gelombang …

APLIKASI KWITANSI

Anda yang berkecimpung di bidang keuangan tidak lepas dari pembuatan Kwitansi, hal yang kadang terlihat sepele tetapi kadang berakibat fatal adalah ketika penulisan jumlah uang dalam angka dan huruf tidak sama atau kadang merasa jengke karena penulisan angka dan huruf secara manual menjadikan pekerjaan menjadi lama, jangan risau!
MACRONYA SBG BERIKUT:
 Public Function ProperCase(Teks As String)
    Dim i As Integer
    Dim temp As String
    Dim posisi As Integer
    Dim huruf As String * 1
      temp = ""
      For i = 1 To Len(Teks)
        huruf = Chr(Asc(Mid(Teks, i, 1)))
        If Len(Trim(huruf)) < 1 Then posisi = i + 1
        If i = posisi Or i = 1 Then
           temp = temp + UCase(Chr(Asc(Mid(Teks, i, 1))))
        Else
           temp = temp + LCase(Chr(Asc(Mid(Teks, i, 1))))
        End If
      Next i
      ProperCase = temp
End Function

Public Function Angkata(Nilai As Double) As String
    Dim Angka As Variant
 
    Angka = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", _
    "tujuh", "delapan", "sembilan", "sepuluh", "sebelas")
 
    On Error GoTo Angkata_Error
 
        Select Case Nilai
            Case 0 To 11
                Angkata = " " & Angka(Nilai)
            Case 12 To 19
                Angkata = Angkata(Nilai - 10) & " belas"
            Case 20 To 99
                Angkata = Angkata(Nilai \ 10) & " puluh" & Angkata(Nilai Mod 10)
            Case 100 To 199
                Angkata = " seratus" & Angkata(Nilai Mod 100)
            Case 200 To 999
                Angkata = Angkata(Nilai \ 100) & " ratus" & Angkata(Nilai Mod 100)
            Case 1000 To 1999
                Angkata = " seribu" & Angkata(Nilai Mod 1000)
            Case 2000 To 999999
                Angkata = Angkata(Nilai \ 1000) & " ribu" & Angkata(Nilai Mod 1000)
            Case 1000000 To 999999999
                Angkata = Angkata(Nilai \ 1000000) & " juta" & Angkata(Nilai Mod 1000000)
            Case 1000000000 To 999999999999#
                Angkata = Angkata(Nilai \ 1000000000) & " milyar" & Angkata(Nilai Mod 1000000000)
            Case Else
                Angkata = Angkata(Nilai \ 1000000000000#) & " trilyun" & _
                Angkata(Nilai - (Nilai \ 1000000000000#) * 1000000000000#)

        End Select
        Exit Function
Angkata_Error:
    MsgBox Err.Description, vbCritical, "Error! Input tidak dapat diproses."
 
End Function

Public Function ArifBilangExcel(Bilangan As Double, Optional BentukPenulisan As Integer, _
Optional UnitMataUang As Boolean = True, Optional StylePecahan As Integer = 0) As String
    Dim temp As String
    Dim BilBulat As Double
    Dim Pecahan As String
    Dim SatBilBulat As String
    Dim SatPecahan As String
     
    BilBulat = Abs(Int(Bilangan))
    Pecahan = CStr(Right(FormatNumber(Bilangan, 2, , , vbFalse), 2))
    SatBilBulat = IIf(UnitMataUang = True, " rupiah", "")
    SatPecahan = IIf(UnitMataUang = True, " sen", "")
 
    temp = IIf(Bilangan < 0, "minus ", "") & Trim(Angkata(BilBulat)) & SatBilBulat
    temp = temp & IIf(Val(Pecahan) > 0, IIf(UnitMataUang = True, " dan ", " koma "), "")
    If UnitMataUang = True Then
        If StylePecahan = 1 Then
            temp = temp & IIf(Val(Pecahan) > 0, CStr(Val(Pecahan)) & "/100", "")
        Else
            temp = temp & IIf(Val(Pecahan) > 0, Trim(Angkata(Val(Pecahan))), "")
        End If
    Else
        If Val(Pecahan) > 0 Then
            temp = temp & IIf(Left(Pecahan, 1) = "0", "nol", Trim(Angkata(Val(Left(Pecahan, 1)))))
            temp = temp & IIf(Right(Pecahan, 1) = "0", "", " ")
            temp = temp & IIf(Right(Pecahan, 1) = "0", "", Trim(Angkata(Val(Right(Pecahan, 1)))))
        End If
    End If
    temp = temp & IIf(Val(Pecahan) > 0, SatPecahan, "")
 
    If BentukPenulisan = 1 Then
        ArifBilangExcel = UCase(temp)
    ElseIf BentukPenulisan = 2 Then
        ArifBilangExcel = LCase(temp)
    ElseIf BentukPenulisan = 3 Then
        ArifBilangExcel = ProperCase(temp)
    Else
        ArifBilangExcel = UCase(Mid(temp, 1, 1)) & Mid(temp, 2)
    End If

End Function

untuk keperluan anda membuat kuitansi.
petunjuk penggunaan

KALENDER PENDIDIKAN PROPINSI JAWA TIMUR 2014/2015

LATIHAN SOAL ULANGAN KENAIKAN KELAS FISIKA X

1.  Kacamata seorang anak memilki kekuatan -1 dioptri. Anak tersebut memiliki kemampuan melihat paling jauh pada jarak... .

2.  Sebuah lensa berjarak fokus 5 cm digunakan sebagai lup. Saat mata normal melihat tanpa berakomodasi, perbesaran angular yang dihasilkan lup adalah ... .

3.  Sifat bayangan yang dihasilkan oleh lensa obyektif sebuah mikroskop adalah ... .

4.  Teropong bintang memiliki jarak fokus lensa objektif  70 cm dan fokus okulernya 7 cm digunakan oleh mata normal tak berakomodasi. Panjang teropong adalah... .