Pengumpan RSS

KARENA

Posted on

KARENA SESUATU YANG INGIN DIMENGERTI
KARENA SESUATU YANG MEMBUAT SEDIH
KARENA SESUATU YANG MEMBUAT BAHAGIA
KARENA ITU AKU MENGERTI HIDUP,,,,,,,,,,,

Iklan

Tugas 5 VB, 18 Februari 2012

  1. Jawaban selengkapnya >> no 1
  2. Berikut ini adalah jawaban no 2

baca selengkapnya >> mey

Tugas VB 5

selengkapnya >>  vb 5

QUIZ 1

MEI FITRIA NINGSIH

YAHOO3

 

 

 

KODE PROGRAM

 

Private Sub CmdBatal_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdKeluar_Click(Index As Integer)

End

End Sub

 

Private Sub CmdProses_Click(Index As Integer)

Dim A As String

A = Right(txtKB.Text, 1)

If A = “T” Then

txtNB.Text = “TAPE”

txtHT.Text = “275000”

 

elself A = “S” Then

txtNB.Text = “SOUD SYSTEM”

txtHT.Text = “350000”

 

elself A = “C” Then

txtNB.Text = “COMPACT”

txtHT.Text = “480000”

 

txtSISA.Text = Val(txtJS.Text) – Val(txtTerjual.Text)

txtTOTALHARGA.Text = Val(txtTerjual.Text) + Val(txtHT.Text)

 

End If

End Sub

TUGAS ,….Visual Basic

Kelar ney tugasnya….

silahkan klik link nya…!!!

TUGAS

TUGAS VIBI 2

Image

KODE PROGRAM

 

Private Sub cmdexit_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdlagi_Click(Index As Integer)

If keyascii = 13 Then

txtHT.SetFocus

End If

End Sub

 

Private Sub cmdProses_Click()

Dim C As String

C = Left(txtKt, Text, 3)

If C = “BIM” Then

txtHT.Text = “50.000″

txtJK.Text = “BIMA”

txtjb.Text = “16.00″

ElSelf C = “EKO” Then

txtHT.Text = “35.000″

txtJK.Text = “EKONOMI”

txtjb.Text = “19.00″

ElSelf C = “MUT” Then

txtHT.Text = “23.000″

txtJK.Text = “MUTIARA”

txtjb.Text = “17.00″

ElSelf C = “SEN” Then

txtHT.Text = “15.000″

txtJK.Text = “SENJA”

txtjb.Text = “20.00″

End If

End Sub

 

Private Sub txtJT_Click(Index As Integer)

txtJT = jumlah

End Sub

 

Private Sub txttotalp_Click(Index As Integer)

txttotalp = txtHT * txtJT

End Sub

TUGAS VB 1

Posted on

MEY FITRIANINGSIH

11201104

VISUAL BASIC

 

 

PERKALIAN DUA BILANGAN

 

Private Sub cmdBersih_Click()

‘Mengosongkan isi TextBox

txtBil1.Text = “”

txtBil2.Text = “”

txtHasil.Text = “”

End Sub

 

Private Sub cmdHitung_Click()

‘Deklarasi Variabel Lokal

Dim a As Single

Dim b As Single

Dim Hasil As Single

 

Vara = txtBil1.Text

Varb = txtBil2.Text

Hasil = Vara * Varb

txtHasil.Text = Hasil

End Sub

 

Private Sub cmdKeluar_Click()

‘Mengakhiri Program

End

End Sub

 

 

 

 

 

 

 

 

 

PERHITUNGAN HARGSA SETELAH DISKON

 

Private Sub cmdHitung_Click()

Dim A, B, C As Double

txtB.Text = Val(txtA.Text) * 0.1

txtC.Text = Val(txtA.Text) – Val(txtB.Text)

End Sub

Private Sub cmdQuit_Click()

End

End Sub

 

Private Sub cmdUlangi_Click()

txtA = “”

txtB = “”

txtC = “”

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

FONT COLOR & FONT STYLE

 

Private Sub chkBold_Click()

‘Membuat teks Tebal

If chkBold.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

 

Private Sub chkItalic_Click()

‘Membuat teks Miring

If chkItalic.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

 

Private Sub chkUnder_Click()

‘Membuat teks Garis Bawah

If chkUnder.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

 

Private Sub chkStrike_Click()

‘Membuat teks Coret

If chkStrike.Value = 1 Then

lblTeks.FontStrikeout = True

Else

lblTeks.FontStrikeout = False

End If

End Sub

 

 

Private Sub cmdExit_Click()

‘Mengakhiri Program

End

End Sub

Private Sub optRed_Click()

‘Membuat teks berwarna merah

lblTeks.ForeColor = vbRed

End Sub

 

Private Sub optGreen_Click()

‘Membuat teks berwarna hijau

lblTeks.ForeColor = vbGreen

End Sub

 

Private Sub optBlue_Click()

‘Membuat teks berwarna biru

lblTeks.ForeColor = vbBlue

End Sub

 

Private Sub optYellow_Click()

‘Membuat teks berwarna kuning

lblTeks.ForeColor = vbYellow

End Sub