PROJECT 1 Tugas Bu Ito Riris (Algoritma Pemrograman 2B)

Tampilan Sebelum di Run

Keterangan        :

Nama Pelanggan	Text 4
Nama Operator	Combo 1
Nominal Pulsa	Combo 2
Nomor Telepon	Text 5
Harga Jual	Text 1
Jumlah Bayar	Text 2
Uang Kembali	Text 3
Hitung	Command 1
Keluar	Command 3
Waktu	Label 10
Tanggal	Label 9
Tulisan Berjalan	Label 8
Gambar	Image 1
Untuk koding waktu dan tanggal	Timer 2
Untuk Koding Tulisan berjalan	Timer 1
Berikut Kodingannya Private Sub Text1_Change() If Combo2.Text = "5000" Then Text1.Text = 7000  ElseIf Combo2.Text = "10000" Then Text1.Text = 12000  ElseIf  Combo2.Text = "20000" Then Text1.Text = 22000  ElseIf  Combo2.Text = "50000" Then Text1.Text = 52000  End If End Sub

Private Sub Command1_Click()

hargajual = Val(Text1.Text)

jumlahbayar = Val(Text2.Text)

kembali = jumlahbayar - hargajual

Text3.Text = kembali

End Sub

Private Sub Timer2_Timer()

Label9.Caption = Format(Date, "dd mm yyyy")

Label10.Caption = Format(Time, "hh:mm:ss")

End Sub

Private Sub Label8_Click()

Private Sub Form_Load()

Label8.FontSize = 10

Label8 = "SELAMAT DATANG DI LSH CELL TEMPAT BELI PULSA AMAN DAN TERPERCAYA"

End Sub

Private Sub Timer1_Timer()

Label8.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

If (Label8.Left + Label8.Width) <= 0 Then

Label8.Left = Me.Width

End If

Label8.Left = Label8.Left - 100

End Sub

Private Sub Command1_Click()

hargajual = Val(Text1.Text)

jumlahbayar = Val(Text2.Text)

kembali = jumlahbayar - hargajual

Text3.Text = kembali

End Sub

Private Sub Command3_Click()

pesan = MsgBox("Yakin akan keluar dari aplikasi ini ?", vbYesNo + vbQuestion, "Keluar")

If pesan = vbYes Then

Unload Me

End If

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "SIMPATI" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\TELKOMSEL.jpg")

ElseIf Combo1.Text = "MENTARI" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\MENTARI.jpg")

ElseIf Combo1.Text = "IM3" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\IM3.jpg")

ElseIf Combo1.Text = "3" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\3.jpg")

Else

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\AXIS.jpg")

End If

End Sub

Tampilan sesudah di Run