tugas visual basic

no.1

  • Private Sub Form_Activate()

Dim c As Integer

c = 1

Do While c < 20

c = c + 2 Continue reading

TUGAS VISUAL BASIC

NAMA  : DEVI YUNITA

NPM.    : 11100137

KELAS : YAHOO 3

PROGRAM TIKET PENJUALAN KERETA API

Private Sub cmdproses_Click()

Dim k As String

k = Left(txtkt.Text, 3)

If k = “bim” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

ElseIf k = “eko” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

ElseIf k = “sen” Then

txtht.Text = “15000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

ElseIf k = “mut” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

End If

txtjt.SetFocus

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt = “”

txtht = “”

txtjk = “”

txtjb = “”

txtjb = “”

txttotalp = “”

End Sub

PROGRAM PERKALIAN DUA BILANGAN

1. SEBELUM DIJALANKAN

2. SETELAH DIJALANKAN

LISTING PROGRAM

Private Sub CmdBersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

Txthasil.Text = “”

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub cmdHitung_Click()

Txthasil.Text = Val(txtbil1.Text) * (txtbil2.Text)

End Sub

Private Sub Form_Load()

End Sub

PROGRAM MICROSOFT VISUALL BASIC

1. SEBELUM DIJALANKAN

2. SETELAH DIJALANKAN

LISTING PROGRAM

Private Sub chkbold_Click()

If chkbold.Value = 1 Then

lblvb.FontBold = True

Else

lblvb.FontBold = False

End If

End Sub

Private Sub chkitalic_Click()

If chkitalic.Value = 1 Then

lblvb.FontItalic = True

Else

lblvb.FontItalic = False

End If

End Sub

Private Sub chkstrike_Click()

If chkstrike.Value = 1 Then

lblvb.FontStrikethru = True

Else

lblvb.FontStrikethru = False

End If

End Sub

Private Sub chkUnder_Click()

If chkUnder.Value = 1 Then

lblvb.FontUnderline = True

Else

lblvb.FontUnderline = False

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

End Sub

Private Sub optred_Click()

lblvb.ForeColor = vbRed

End Sub

Private Sub optblue_Click()

lblvb.ForeColor = vbBlue

End Sub

Private Sub optgreen_Click()

lblvb.ForeColor = vbGreen

End Sub

Private Sub optyellow_Click()

lblvb.ForeColor = vbYellow

End Sub

Hello world!

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

  1. You can find new ideas for what to blog about by reading the Daily Post.
  2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
  3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.