Manfaat Sabun Madu G&H Amway untuk mengatasi masalah jerawat

Buat para kaum wanita yang wajahnya sedang dibanjiri jerawat hehehe , udah berapa produk yang sudah kalian pakai untuk mengatasi si jerawat itu ???? pasti nya sudah banyak kan. Jujur saja saya juga berjewarat neng :D tpi sekrang udah berkurang nih. Mau tau obat nya apaan ??? nah mari baca lebih kebawah lagi ya....

Pasti kalian sudah tau madu bukan ??? dan khasiat dri simadu udah tau dong. Madu bukan saja makanan yang berkhasiat , ia juga menyuburkan kulit karena mampu menjadi antioksidan yang dapat meremajakan kulit, itulah sebabnya madu telah sekian lama menjadi salah satu bahan penting dalam produk perawatan badan amway .

Ini dia si sabun madu yang berkashiat buat jerawat kita ladiess dan sepesifikasinya sebagai berikut :

• diperkaya dengan gliserin dan madu menjadikan kulit lebih berserih dan lembut.
• menjaga kelembapan , membersih dan menutrusi kulit.
• mengandung Vitamin B6, C, Tiamin , Riboflavin dan Niasin.
• mengandung antioksidan dan asid amino.
• meremajakan dan melindungi kulit jerawat, berminyak dan 'sun burn'.
• tidak mengandung bahan pengawet dan diuji secara dermatologi.
• sesuai untuk kulit remaja dan kulit sensitif dan semua jenis kulit. 

Read More

Jawaban Quis Online SPK

Read More

Fungsi String VB.Net

Disini saya akan menjelaskan cara membuat fungsi string. Nah untuk fungsi string yang saya buat ini adalah fungsi string dengan membuat nama anda sendiri , dan akan dipisahkan oleh masing-masing fungsi string nya . oke selanjutkan lakukan cara seperti dibawah ini .

1. Design Form seperti yang dibawah ini :

2. Masukan koding program :

Public Class Form1

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        fungsileft.Text = Microsoft.VisualBasic.Left(nama.Text, 3)

        fungsiright.Text = Microsoft.VisualBasic.Right(nama.Text, 2)

        fungsimid.Text = Microsoft.VisualBasic.Mid(nama.Text, 3, 5)

        FungsiLen.Text = Microsoft.VisualBasic.Len(nama.Text)

       

    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Read More

Cara membuat Kalkulator Sederhana

Langkah-langkah membuat kalkulator sederhana :

1.Design Form seperti yang di bawah ini :

2. Masukan koding program nya :

Public Class Form1

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub


Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Nilaipertama.Text = ""
        nilaikedua.Text = ""
        hasil.Text = ""
    End Sub


Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        hasil.Text = Val(Nilaipertama.Text) + Val(nilaikedua.Text)
    End Sub


Private Sub kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kurang.Click
        hasil.Text = Val(Nilaipertama.Text) - Val(nilaikedua.Text)
    End Sub


Private Sub kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kali.Click
        hasil.Text = Val(Nilaipertama.Text) * Val(nilaikedua.Text)
    End Sub

 
Private Sub bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bagi.Click
        hasil.Text = Val(Nilaipertama.Text) / Val(nilaikedua.Text)
    End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Read More

Fungsi If VB.Net

Diposting sebelumnya telah dibahas perulangan , nah sekarang saya akan membahas fungsi if.
Tapi maaf yee saya gak menjelaskan defenisi fungsi if , disni saya hanya membuat cara membuat nya.
contoh nya dapat dilihat seperti yang di bawah ini :

1. Design Form seperti dibawah ini :

2. Masukan koding program seperti yang di bawah ini :
Catatan : masukan koding sesuai perintah yg dibutuhkan , jangan sampai salah meletakan koding ya guys , ntr eror program nya hehehee


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("B01")
        kode.Items.Add("B02")

        For i = 1 To 10
            jumlahbeli.Items.Add(i)
        Next
    End Sub



Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "B01" Then
            Namabarang.Text = "Laptop"
            harga.Text = 3500000

        ElseIf kode.Text = "B02" Then
            Namabarang.Text = "Mouse"
            harga.Text = 60000

        End If
    End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        totalharga.Text = Val(jumlahbeli.Text * harga.Text)
    End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        kode.Text = ""
        Namabarang.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""

    End Sub
End Class

Read More