tugas 2.2- 2.6



Tugas 2.2
Private Sub Cmdhitung1_Click()
Txt2 = Val(Txt1.Text) * 0.1
Txt3 = Val(Txt1.Text) - Val(Txt2.Text)
End Sub
Private sub txt1_KEYPRESS(KEYASSCII As Integer)
IF KEY ASCII = 13 then
Txt2 = Val(Txt1) * 0.1
Txt3 = Val(Txt1) – Val(Txt2)
End If
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulang_Click()
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub













Tugas 2.5


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

Private Sub Command1_Click()
End
End Sub

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

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

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

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

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

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

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






TUGAS 2.6


Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click(Index As Integer)
End
End Sub


Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label2 = Text1.Text
End If
End Sub


Tugas 2.4




Private Sub Command1_Click()

Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End If
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

Gambar
Apa bedanya ilmu komputer, teknik informatika, sistem informasi, teknik komputer, dan teknologi informasi? Terkesan serupa tapi tak sama. Ini penjelasannya. Tulisan ini  gue  buat spesial untuk yang tertarik atau penasaran dengan jurusan Ilmu Komputer, Teknik Informatika, atau sejenisnya. Berhubung gue lulusan Fakultas Ilmu Komputer Universitas Indonesia, jurusan/program studi (prodi) Ilmu Komputer,  gue  sering  banget  ditodong pertanyaan seperti berikut. “Fan, kuliah di Ilmu Komputer itu ngapain sih? Jadi hacker ya?” “Kak, bedanya Ilmu Komputer (UI) dengan Teknik Informatika (ITB) apa ya?” “Ilmu Komputer dengan Sistem Informasi itu sama ngga? Kalo dengan Teknik Komputer, sama juga?” dan sebagainya dan sebagainya… Karena tempo hari Zenius Blog udah sempat cerita tentang  sistem bilangan biner   dan   “kode-kodean” pake teknik kriptografi , rasanya bakal lebih komplit kalo kita sajikan tulisan yang ngebahas lebih dalam ...
Baca selengkapnya
Gambar
STMIK PRINGSEWU PERINGATI ISRA’ MI’RAJ 1439 H STMIK PRINGSEWU  – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu, Ahad malam Senin (22/4) memperingati Isra Mi’raj 1439 H sekaligus silaturahmi yang diselenggarakan di halaman kampus setempat dengan penceramah Ustadz Muhammad Saefuddin mahasiswa Sekolah Tinggi Ilmu Tarbiyah (STIT) Pringsewu. Acara diawali oleh penampilan group hadroh pondok pesantren baitul qur’an dibawah pimpinan H. Abdul Hamid Alhafiz. Peristiwa Isra’ Mi’raj merupakan sebuah peristiwa perjalanan yang dilakukan Nabi Muhammad SAW dari Masjidil Haram ke Masjidil Aqsa menuju Sidratul Muntaha dan sampai di langit ketujuh Surga Baitul Makmur untuk menerima perintah menunaikan shalat lima waktu sehari semalam. Peristiwa mulia tersebut dapat diperingati sebagai wujud rasa syukur para umatnya. Peringatan Isra Mi’raj juga dapat dijadikan momentum bagi para institusi/lembaga untuk meningkatkan keimanan dan ketaqwaan bagi para pegawai di lingkungan STM...
Baca selengkapnya
Gambar
Multimedia  adalah penggunaan  komputer  untuk menyajikan dan menggabungkan teks,  suara , gambar,  animasi ,  audio  dan  video  dengan alat bantu (tool) dan koneksi (link) sehingga pengguna dapat melakukan  navigasi , berinteraksi, berkarya dan ber komunikasi . Multimedia sering digunakan dalam dunia informatika. Selain dari dunia  informatika , multimedia juga diadopsi oleh dunia game, dan juga untuk membuat  website . Multimedia  dimanfaatkan juga dalam dunia  pendidikan  dan  bisnis . Di dunia  pendidikan , multimedia digunakan sebagai media pengajaran, baik dalam kelas maupun secara sendiri-sendiri atau otodidak. Di dunia  bisnis , multimedia digunakan sebagai media profil  perusahaan , profil produk, bahkan sebagai media  kios informasi  dan  pelatihan  dalam sistem  e-learning . Pada awalnya multimedia hanya mencakup media yang menjadi konsumsi indra pen...
Baca selengkapnya