Gambar

SIK..ASIK..SIK..ASIIKKKK

SIK..ASIK..SIK..ASIIKKKK

Baca lebih lanjut

PENJUALAN KOMPUTER

 

 

Private Sub CmdClose_Click()
End
End Sub

Private Sub cmdLagi_Click()
coKode = “”
txtJk = “”
txtHk = “”
txtJp = “”
txtHp = “”
txtDs = “”
txtHb = “”
coKode.SetFocus
End Sub
Private Sub cmdproses_click()
txtHp.Text = Val(txtJp.Text) * Val(txtHk.Text)
If txtHp.Text > 30000000 Then
txtDs.Text = Val(txtHp.Text) * 0.15
ElseIf txtHp.Text > 25000000 Then
txtDs.Text = Val(txtHp.Text) * 0.1
ElseIf txtHp.Text > 20000000 Then
txtDs.Text = Val(txtHp.Text) * 0.05
ElseIf txtHp.Text > 15000000 Then
txtDs.Text = Val(txtHp.Text) * 0.02
End If
txtHb.Text = Val(txtHp.Text) – Val(txtDs.Text)
End Sub
Private Sub coKode_Click()
Dim Jk, Hk As String
Select Case coKode.Text
Case “P205”
Jk = “Pentium II 500 Mega Hz”
Hk = “1500000”
Case “P308”
Jk = “Pentium III 800 Mega Hz”
Hk = “2100000”
Case “P310”
Jk = “Pentium III 1.0 Giga Hz”
Hk = “3500000”
Case “P415”
Jk = “Pentium IV 1.5 Giga Hz”
Hk = “4000000”
Case “P217”
Jk = “Pentium IV 1.7 Giga Hz”
Hk = “4200000”
Case “P19”
Jk = “Pentium IV 1.9 Mega Hz”
Hk = “5500000”
End Select
txtJk.Text = Jk
txtHk.Text = Hk
txtJp.SetFocus
End Sub

Private Sub Form_Load()
coKode.AddItem “P205”
coKode.AddItem “P308”
coKode.AddItem “P310”
coKode.AddItem “P415”
coKode.AddItem “P417”
coKode.AddItem “P419”
End Sub

 

 

 

 

tugas

Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub ChkStrike_Click()
If ChkStrike.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub Optblue_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
Label1.ForeColor = vbYellow
End Sub

Kreatifnya Muslim Jerman, Bikin Layanan Taxi Antar Jemput Khusus Muslim

Meski tinggal di negara yang mayoritas penduduknya bukan Islam, langkah pemuda Muslim ini patut diacungi jempol dengan membuat layanan taxi khusus Muslim.

Selim Reid (24 tahun) adalah pendiri MuslimTAXI, sebuah layanan taxi antar jemput untuk Muslim. Layanan ini disediakan secara gratis dan untuk mendukung operasionalnya dibantu oleh iklan. Reid sang pendiri muslim taxi ini telah memikirkan ide ini karena banyaknya keluhan yang ia dengar bahwa banyak layanan taxi antar jemput tidak menerapkan pemisahan gender. Baca lebih lanjut