Tinggalkan komentar

TUGAS 4 PENJUALAN TIKET KERETA API

IDHFImj

Private Sub CMDKELUAR_Click()

End

End Sub

 

Private Sub CMDLAGI_Click()

TXTKT = “”

TXTHT = “”

TXTJK = “”

TXTJB = “”

TXTJT = “”

TXTTP = “”

End Sub

 

Private Sub CMDPROSES_Click()

kodetiket = Left(TXTKT.Text, 3)

 

If kodetiket = “bim” Then

jeniskereta = “bima”

hargatiket = “50000”

jamberangkat = “16.00”

ElseIf kodetiket = “eko” Then

jeniskereta = “ekonomi”

hargatiket = “35000”

jamberangkat = “19.00”

ElseIf kodetiket = “mut” Then

jeniskereta = “mutiara”

hargatiket = “23000”

jamberangkat = “17.00”

ElseIf kodetiket = “sen” Then

jeniskereta = “senja”

hargatiket = “15000”

jamberangkat = “20000”

End If

TXTKT.Text = kodetiket

TXTJK.Text = jeniskereta

TXTHT.Text = hargatiket

TXTJB.Text = jamberangkat

TXTJT.SetFocus

End Sub

 

Private Sub Form_Activate()

TXTKT.SetFocus

End Sub

 

Private Sub TXTJT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTTP.Text = Val(TXTHT.Text) * Val(TXTJT.Text)

End If

End Sub

 

Tinggalkan komentar

huruf mutu mahasiswa stmik pringsewu

warnaPrivate Sub cbonpm_Click()

Dim mh, jurusan, HM As String

 

Select Case cbonpm.Text

Case “12100027”

mh = “sekti indra mayu”

jurusan = “Sistem Informasi”

Case “12100028”

mh = “ratih”

jurusan = “Manajemen Informatika”

Case “12100029”

mh = “vivi marviatna”

jurusan = “Tehnik Informatika”

End Select

Txtmh.Text = mh

txtjurusan.Text = jurusan

Txtnilaiq.SetFocus

End Sub

 

 

 

Private Sub Form_Load()

cbonpm.AddItem “12100027”

cbonpm.AddItem “12100028”

cbonpm.AddItem “12100029”

End Sub

 

Private Sub txtnilaiq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnilait.SetFocus

End If

End Sub

 

Tinggalkan komentar

Microsoft Visual Basic 6.0

ms vb

Private Sub chkb0ld_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 Chkstrikeout_Click()
If Chkstrikeout.Value = 1 Then
Label1.Fontstrikeout = True
Else
Label1.Fontstrikeout = False
End If
End Sub

Private Sub Chkunder_Click()
If Chkunder.Value = 1 Then
Label1.Fontunder = True
Else
Label1.Fontunder = False
End If
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

Tinggalkan komentar

APLIKASI PERHITUNGAN GAJIH

PERHITUNGAN GAJIH

Private Sub CMDKELUAR_Click()

End

End Sub

 

Private Sub CMDPROSES_Click()

TXTGATOR.Text = Val(TXTGAPOK.Text + TUNJANGAN) – Val(TXTPOT.Text)

TXTPAJAK.Text = Val(TXTGATOR.Text) * 0.1

TXTGATER.Text = Val(TXTGATOR.Text) – Val(TXTPAJAK.Text)

End Sub

 

Private Sub CMDULANG_Click()

TXTGATOR = “”

TXTTUNJANGAN = “”

TXTPOT = “”

TXTGATOR = “”

TXTPAJAK = “”

TXTGATER = “”

End Sub

 

Private Sub TXTGAPOK_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTTUNJANGAN.SetFocus

End If

End Sub

 

Private Sub TXTGATOR_Change()

If KeyAscii = 13 Then

TXTPAJAK.SetFocus

End If

End Sub

 

Private Sub TXTPAJAK_Change()

If KeyAscii = 13 Then

TXTGATER.SetFocus

End If

End Sub

 

Private Sub TXTPOT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTGATOR.SetFocus

End If

End Sub

 

Private Sub TXTTUNJANGAN_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTPOT.SetFocus

End If

End Sub

Tinggalkan komentar

PERHITUNGAN HARGA SETELAH DISKON

DIKONPrivate Sub cmdh_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub cmdq_Click()

End

End Sub

Private Sub cmdu_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Tinggalkan komentar

PERKALIAN DUA BILANGAN

PERKALIANDUABILANGAN

Private Sub cmdb_Click(Index As Integer)

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub cmdh_Click(Index As Integer)

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub cmdk_Click(Index As Integer)

End

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Tinggalkan komentar

CARA MENGHILANGKAN RASA MALAS

Cara Mengatasi dan Menghilangkan Rasa Malas – Rajin pangkal kaya, malas pangkal bodoh, mungkin itulah salah satu pribahasa yang paling cocok untuk seorang pemalas.  Karena memang rata-rata orang pemalas itu identik dengan orang bodoh lalu identik juga dengan orang yang miskin.

Dari sejerah juga telah membuktikan, bahwa bangsa yang memiliki etos kerja tinggi dan tidak bermalas-malasan bisa menjadi kekuatan dunia. Contoh saja jepang yang  sangat terkenal dengan etos kerjanya yang sangat “WOW”, bahkan orang Jepang merasa malu jika harus pulang kerja terlalu cepat. Salah satu contoh lagi adalah Korea yang  terkenal dengan budaya kerja mereka yang cepat.

Nah, kadangkala rasa malas pasti mengghingapi anda walaupun anda sedang menyadarinya. Bagaimana cara menghilangkannya? Kali ini kita akan membahas hal tersebut, jadi  simak baik-baik tips berikut ini:

Lakukan Yang Anda Senangi

Rasa bosan atau malas bisa datang karena anda tak menyukai kegiatan anda sendiri. Sebelum anda memutuskan bekerja pada suatu tempat, pikirkan bahwa anda menyukai  pekerjaan tersebut. Jikapun anda sudah berkerja, buatlah diri anda menyenangi pekerjaan tersebut. Bagi pelajar, buatlah pembelajaran kamu menjadi menyenangkan seperti  bermain sambil belajar.

Buatlah Anda Nyaman
Salah satu yang membuat rasa malas adalah karena kurangnya kenyamanan dan membuat anda cepat bosan. Caranya, jika anda malas untuk bekerja maka buatlah tempat kerja /  kantor anda seperti yang anda inginkan seprti menghiasnya. Jika anda malas belajar, buatlah ruang belajar / kelas anda senyaman mungkin sesuai dengan selera anda.

Jangan Tunda Aktivitas
Jika anda sering menunda-nunda pekerjaan anda, ini akan membuat anda semakin bosan karena terlalu banyak yang harus anda kerjakan. Yang paling sering dan biasa anda  lakukan adalah menunda-nunda untuk bangun tidur padahal anda sudah terjaga. Hal lain yang sering dialami oleh pelajar adalah menunda-nunda membuat PR. Coba biasakan  diri anda untuk tak melakukan hal tersebut dengan memberi sugesti positif bahwa jika anda lebih cepat melakukannya maka anda akan lebih cepat mendapatkannya.

Ganti Posisi Duduk
Ketika rasa malas sedang kumat, cobalah mengganti / mengubah posisi duduk anda. Ini dapat membuat anda merasa baru karena didepan anda sudah berbeda dari sebelumnya.

Hirup  Udara Segar
Cobalah menghirup udara segar, caranya berdirilah terlebih dahulu lalu lakukan kegiatan senam kecil seperti menggerakkan tangan. Kemudian, tarik nafas anda selama 5  detik, tahan 5 detik dan lepaskan selama 5 detik. Ulangi hal tersebut beberapa kali.

Yakinkan Diri Anda
Ini sangat anda butuhkan dari dalam diri anda, buatlah sugesti-sugesti positif dalam pikiran anda. Seperti, “Pekerjaan ini pasti akan membuat saya sukses,, saya harus  melakukannya” atau “Saya harus belajar, dan saya yakin akan menjadi orang sukses nantinya”.

Diskusikanlah
Jika anda masih belum bisa lepas dari rasa malas anda, cobalah berdiskusi dengan orang yang anda anggap lebih professional atau orang yang lebih sukses dari anda. Tanyakan bagaimana mereka dulunya, mereka pasti akan menjawab dari usaha dan kerja keras mereka selama ini. Dan  dan anda harus yakin bahwa anda dapat mencapai  kesuksesan seperti mereka dengan cara menghilangkan sifat malas anda tersebut.