CARA MEMBUAT PANCAKE SAUS COKLAT

CARA MEMBUAT PANCAKE SAUS COKLAT :9

Bahan-bahan/bumbu-bumbu:
200 gram tepung terigu protein sedang 
1 1/2 sendok makan gula pasir halus 
1/2 sendok makan baking powder 
1/4 sendok teh garam 
2 butir telur, dikocok lepas
250 ml susu cair 
30 gram margarin, dilelehkan

Bahan Saus:
150 ml susu cair 
35 gram gula pasir 
1/8 sendok teh garam 
10 gram cokelat bubuk 
50 gram cokelat masak pekat 
1/2 sendok teh maizena dilarutkan dalam 1/2 sendok teh air 

Cara membuat:

1. Ayak tepung terigu, gula pasir halus, dan baking powder. Tambahkan garam. Aduk rata. Sisihkan.
2. Campur telur dan susu cair. Aduk rata. Tuang ke dalam campuran tepung terigu sedikit demi sedikit sambil diaduk rata.
3. Masukkan margarin leleh sedikit-sedikit sambil diaduk perlahan. 
4. Tuang satu sendok sayur kecil di wajan datar. Biarkan asal berkulit. Balik. Biarkan sampai matang.
5. Saus, rebus susu, gula, garam, dan cokelat bubuk masak sambil diaduk sampai mendidih. Masukkan larutan maizena. Aduk sampai meletup-letup. Matikan api. Tambahkan cokelat masak pekat. Aduk hingga larut.
6. Sajikan pancake bersama sausnya.

                                                 *SELAMAT MENCOBAAAAAAAAA*

Menghitung Luas Segitiga

Private Sub CboAlas_Change()
  LblAlas.Caption = CboAlas
End Sub

Private Sub CboTinggi_Change()
  LblTinggi.Caption = CboTinggi
End Sub

Private Sub CmdHapus_Click()
  CboAlas = ""
  CboTinggi = ""
  TxtHasil = ""
  LblAlas.Caption = "Isi Alas"
  LblTinggi.Caption = "IsiTinggi"
  CboAlas.SetFocus
End Sub

Private Sub CmdHitung_Click()
  If CboAlas = "" Or CboTinggi = "" Then
     MsgBox ("Isi nilai Alas dan Tinggi")
   Else
    Alas = CboAlas
    Tinggi = CboTinggi
    Hasil = (Alas * Tinggi) / 2
    TxtHasil = Hasil
   End If

Form Foto Kiwiiwew

Private Sub CmdBunga_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\1.jpg"
End Sub

Private Sub CmdGunung_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\2.jpg"
End Sub

Private Sub CmdKoala_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\3.jpg"
End Sub

Mencari Luas Persegi Panjang Kiwiwew

Private Sub CmdClose_Click()
DoCmd.Save
 DoCmd.Close

End Sub

Private Sub CmdHapus_Click()
 TxtPanjang = ""
 TxtLebar = ""
 TxtLuas = ""
End Sub
Private Sub CmdHitung_Click()
Dim P, L As Integer
P = TxtPanjang
L = TxtLebar
TxtLuas = P * L
End Sub

Mencari Keliling Lingkaran Kiwiiwew

Private Sub CmdHapus_Click()
TxtPhi = ""
TxtJariJari = ""
TxtKeliling = ""
End Sub

Private Sub CmdHitung_Click()
Dim P, r, K As Integer
P = (22 / 7)
r = TxtJariJari
K = (22 / 7) * 2 * r

TxtPhi = P
TxtJariJari = r
TxtKeliling = K
End Sub

Private Sub CmdKeluar_Click()
 DoCmd.Save
 DoCmd.Close
End Sub

Konversi Suhu Kiwiiwew

Private Sub CmdHapus_Click()
 TxtReamur = ""
 TxtFarenheit = ""
 TxtKelvin = ""

End Sub

Private Sub CmdHitung_Click()
Dim C, R, F, K As Integer
C = TxtCelcius
R = (4 / 5) * C
F = (9 / 5) * C + 32
K = C + 273
TxtReamur = R
TxtFarenheit = F
TxtKelvin = K
End Sub

Private Sub CmdKeluar_Click()
 DoCmd.Save
 DoCmd.Close
End Sub

Pangkat Kuadrat

Private Sub CmdKeluar_Click()
    DoCmd.Close
End Sub

Private Sub CmdPassword_Click()
Dim Password As String
Password = "user" ' isi variable password

If CmdPassword.Caption = "Hasil" Then 'Menguji Caption Tombol
    Me.AllowEdits = False
    CmdPassword.Caption = "Edit Data" 'Mengembalikan Caption Semula
    TxtHasilKuadrat = Val(TxtKuadrat ^ 2)
Else
    If InputBox("Masukkan Password Anda : ", "Password") = "user" Then
        Me.AllowEdits = True 'Form dapat di edit
        TxtKuadrat = ""
        TxtHasilKuadrat = ""
        TxtKuadrat.SetFocus
        CmdPassword.Caption = "Hasil" 'Mengubah Caption Tombol Menjadi Tombol Hasil
    Else
        MsgBox ("Password Anda Salah") 'Menampilkan Message Box
    End If
End If
End Sub

Private Sub Form_Load()
    CmdPassword.Caption = "Edit Data" 'Posisi caption tombol pertama kali
    TxtKuadrat.SetFocus
    Me.AllowEdits = False 'Form tidak dapat di edit
End Sub