TUGAS PEMROGRAMAN 1

TUGAS 1

1

11.PNG

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 Chkstrikethru_Click()

‘membuat teks garis tengah’

If Chkstrikethru.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

‘membuat teks bergaris bawah’

If Chkunderline.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

 

Private Sub Cmdexit_Click()

End

End Sub

 

Private Sub Optblue_Click()

‘membuat teks berwarna biru’

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

‘membuat teks berwarna hijau’

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Optred_Click()

‘membuat teks berwarna merah’

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

‘membuat teks berwarna kuning’

Lblteks.ForeColor = vbYellow

End Sub

 

TUGAS 2

2.PNG

22.PNG

Private Sub Chkmiring_Click()

If Chkmiring.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

 

Private Sub Chktebal_Click()

If Chktebal.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

 

Private Sub Cmdok_Click()

Label2.Caption = text1.Text

End Sub

 

Private Sub Cmdselesai_Click()

End

End Sub

 

Private Sub Optblue_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Optred_Click()

Label2.ForeColor = vbRed

End Sub

 

TUGAS 3

tiga.PNG

33.PNG

Private Sub CboNpm_Click()

Dim nama, jurusan, HM As String

 

Select Case CboNpm.Text

Case “15100003”

nama = “Renita Fitri Andrianti”

jurusan = “Sistem Informasi”

Case “15100007”

nama = “Evi Setyorini”

jurusan = “Sistem Informasi”

Case “15100031”

nama = “Artika Kustriyani”

jurusan = “Sistem Informasi”

Case “15100034”

nama = “Dimas Bima Ananta”

jurusan = “Sistem Informasi”

End Select

TxtNm.Text = nama

TxtJr.Text = jurusan

TxtQs.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

CboNpm.SetFocus

CboNpm.Text = “”

TxtNm.Text = “”

TxtJr.Text = “”

TxtQs.Text = “”

TxtTgs.Text = “”

TxtUts.Text = “”

TxtUas.Text = “”

TxtNa.Text = “”

LblHM.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(TxtQs.Text)

TUGAS = Val(TxtTgs.Text)

UTS = Val(TxtUts.Text)

UAS = Val(TxtUas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

TxtNa.Text = NA

 

Select Case TxtNa.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = HM

End Sub

 

Private Sub Form_Load()

CboNpm.AddItem “15100003”

CboNpm.AddItem “15100007”

CboNpm.AddItem “15100031”

CboNpm.AddItem “15100034”

 

End Sub

 

Private Sub TxtQs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTgs.SetFocus

End If

End Sub

 

Private Sub TxtTgs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUts.SetFocus

End If

End Sub

 

Private Sub TxtUts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUas.SetFocus

End If

End Sub

 

TUGAS 4

empat.PNG

44.PNG

Private Sub Cbonpm_click()

Dim nama, jurusan, HM As String

 

Select Case Cbonpm.Text

Case “15100003”

nama = “Renita Fitri Andriyanti”

jurusan = “Sistem Informasi”

Case “15100007”

nama = “Evi Setyorini”

jurusan = “Sistem Informasi”

Case “15100031”

nama = “Artika Kustriyani”

jurusan = “Sistem Informasi”

Case “15100034”

nama = “Dimas Bima Ananta”

jurusan = “Sistem Informasi”

End Select

TxtNM.Text = nama

Txtjr.Text = jurusan

Txtnilaiq.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

Txtuts.Text = “”

Txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

End Sub

 

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtnilaiq.Text)

TUGAS = Val(Txtnilait.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtnilaia.Text = NA

 

Select Case Txthm.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = HM

End Sub

 

 

Private Sub Form_Load()

Cbonpm.AddItem “15100003”

Cbonpm.AddItem “15100007”

Cbonpm.AddItem “15100031”

Cbonpm.AddItem “15100034”

 

End Sub

 

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

 

 

Private Sub txtnilaiq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnilait.SetFocus

End If

End Sub

 

Private Sub txtnilait_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

 

Private Sub Txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtnilaiq.Text)

TUGAS = Val(Txtnilait.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtnilaia.Text = NA

 

Select Case Txthm.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = HM

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

 

Iklan

TUGAS PEMROGRAMAN 1

PROGRAM 1

TUGAS1

tugas1

Private Sub bilangan1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

bilangan2.SetFocus

End If

End Sub

 

Private Sub cmdbersih_Click()

bilangan1.SetFocus

bilangan1 = “”

bilangan2 = “”

bilanganhasil = “”

End Sub

 

Private Sub cmdhitung_Click()

bilanganhasil = Val(bilangan1) * Val(bilangan2)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

 

TUGAS 2

Capture 2

Private Sub bilangan1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

bilangan2.SetFocus

End If

End Sub

 

 

Private Sub bilangan2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

bilanganhasil.SetFocus

bilanganhasil = Val(bilangan1) * Val(bilangan2)

End If

End Sub

 

Private Sub cmdbersih_Click()

bilangan1.SetFocus

bilangan1 = “”

bilangan2 = “”

bilanganhasil = “”

End Sub

 

Private Sub Cmdhitung_Click()

bilanganhasil = Val(bilangan1) * Val(bilangan2)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

 

 

PROGRAM 2

TUGAS 3

3

Private Sub cmdbatal_Click()

satu.SetFocus

satu = “”

dua = “”

tiga = “”

empat = “”

lima = “”

enam = “”

tujuh = “”

delapan = “”

sembilan = “”

sepuluh = “”

sebelas = “”

duabelas = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

satu.SetFocus

satu = “”

dua = “”

tiga = “”

empat = “”

lima = “”

enam = “”

tujuh = “”

delapan = “”

sembilan = “”

sepuluh = “”

sebelas = “”

duabelas = “”

End Sub

 

Private Sub cmdproses_Click()

If sepuluh = “” Or sebelas = “” Then

tiga = Val(satu) + Val(dua)

enam = Val(empat) * Val(lima)

sembilan = Val(tujuh) – Val(delapan)

duabelas = 0

Else

tiga = Val(satu) + Val(dua)

enam = Val(empat) * Val(lima)

sembilan = Val(tujuh) – Val(delapan)

duabelas = Val(sepuluh) / Val(sebelas)

End If

End Sub

 

Private Sub delapan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

sepuluh.SetFocus

End If

End Sub

 

Private Sub dua_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

empat.SetFocus

End If

End Sub

 

 

Private Sub empat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

lima.SetFocus

End If

End Sub

 

Private Sub lima_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tujuh.SetFocus

End If

End Sub

 

Private Sub satu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

dua.SetFocus

End If

End Sub

 

Private Sub sepuluh_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

sebelas.SetFocus

End If

End Sub

 

Private Sub tujuh_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

delapan.SetFocus

End If

End Sub

 

 

TUGAS 4

Capture 4.PNG

Private Sub cmdbatal_Click()

Penjum1.SetFocus

Penjum1 = “”

penjum2 = “”

penjumhasil = “”

perkal1 = “”

perkal2 = “”

perkalhasil = “”

pengur1 = “”

pengur2 = “”

pengurhasil = “”

pembag1 = “”

pembag2 = “”

pembaghasil = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Penjum1.SetFocus

Penjum1 = “”

penjum2 = “”

penjumhasil = “”

perkal1 = “”

perkal2 = “”

perkalhasil = “”

pengur1 = “”

pengur2 = “”

pengurhasil = “”

pembag1 = “”

pembag2 = “”

pembaghasil = “”

End Sub

 

Private Sub cmdproses_Click()

 

penjumhasil = Val(Penjum1) + Val(penjum2)

perkalhasil = Val(perkal1) * Val(perkal2)

pengurhasil = Val(pengur1) – Val(pengur2)

pembaghasil = Val(pembag1) / Val(pembag2)

 

End Sub

 

Private Sub pembag1_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

pembag2.SetFocus

End If

End Sub

Private Sub pembag2_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

pembaghasil = Val(pembag1) / Val(pembag2)

End If

End Sub

 

Private Sub pengur1_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

pengur2.SetFocus

End If

End Sub

 

Private Sub pengur2_keypress(keyAsCII As Integer)

If keyAsCII = 13 Then

pengurhasil = Val(pengur1) – Val(pengur2)

pembag1.SetFocus

End If

End Sub

 

Private Sub Penjum1_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

penjum2.SetFocus

End If

End Sub

 

 

Private Sub Penjum2_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

penjumhasil = Val(Penjum1) + Val(penjum2)

perkal1.SetFocus

End If

End Sub

 

 

Private Sub perkal1_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

perkal2.SetFocus

End If

End Sub

 

 

Private Sub perkal2_KeyPress(keyAsCII As Integer)

If keyAsCII = 13 Then

perkalhasil = Val(perkal1) * Val(perkal2)

pengur1.SetFocus

End If

End Sub

 

 

 

PROGRAM 3

TUGAS 5

tugas5

Private Sub cmdhitung_Click()

hasildiskon = Val(hasilawal) * 0.1

hasilakhir = Val(hasilawal) – Val(hasildiskon)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulangi_Click()

hasilawal.SetFocus

hasilawal = “”

hasildiskon = “”

hasilakhir = “”

End Sub

 

 

Private Sub hasilawal_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasilakhir.SetFocus

hasildiskon = Val(hasilawal) * 0.1

hasilakhir = Val(hargaawal) – Val(hargadiskon)

 

End If

End Sub

 

 

TUGAS 6

tugas gambar 6.PNG

Private Sub cmdhitung_Click()

hasildiskon = Val(hasilawal) * 0.1

hasilakhir = Val(hasilawal) – Val(hasildiskon)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

hasilawal.SetFocus

hasilawal = “”

hasildiskon = “”

hasilakhir = “”

hasilquit = “”

End Sub

 

Private Sub hasilawal_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasilakhir.SetFocus

hasildiskon = Val(hasilawal) * 0.1

hasilakhir = Val(hasilawal) – Val(hasildiskon)

End If

End Sub


 

PROGRAM 4

TUGAS 7

TUGAS7.PNG

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

hasilkotor = Val(hasilpokok) + Val(hasiltunjangan) – Val(hasilpotongan)

hasilpajak = Val(hasilkotor) * 0.1

hasilditerima = Val(hasilkotor) – Val(hasilpajak)

End Sub

 

Private Sub cmdulang_Click()

hasilpokok.SetFocus

hasilpokok = “”

hasiltunjangan = “”

hasilpotongan = “”

hasilkotor = “”

hasilpajak = “”

hasilditerima = “”

End Sub

 

Private Sub hasilgaji_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasiltunjangan.SetFocus

End If

End Sub

 

Private Sub hasilpotongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

 

Private Sub hasiltunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasilpotongan.SetFocus

End If

End Sub

 

 

TUGAS 8

tugas8

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

hasilkotor = Val(hasilpokok) + Val(hasiltunjangan) – Val(hasilpotongan)

hasilpajak = Val(hasilkotor) * 0.1

hasilditerima = Val(hasilkotor) – Val(hasilpajak)

End Sub

 

Private Sub cmdulang_Click()

hasilpokok.SetFocus

hasilpokok = “”

hasiltunjangan = “”

hasilpotongan = “”

hasilkotor = “”

hasilpajak = “”

hasilditerima = “”

End Sub

 

 

 

Private Sub hasilgaji_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasiltunjangan.SetFocus

End If

End Sub

 

Private Sub hasilpotongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasilkotor = Val(hasilpokok) + Val(hasiltunjangan) – Val(hasilpotongan)

hasilpajak = Val(hasilkotor) * 0.1

hasilditerima = Val(hasilkotor) – Val(hasilpajak)

End If

End Sub

 

Private Sub hasiltunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hasilpotongan.SetFocus

End If

End Sub

 

 

 

Tugas 2 Visual Basic Pemrograman 1

Capture 2

 

Private Sub cmdbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtps = “”

txtjr = “”

txtag = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtps = “”

txtjr = “”

txtag = “”

End Sub

 

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtps.SetFocus

End If

End Sub

 

 

Private Sub txtjr_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtag.SetFocus

End If

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

 

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

 

Private Sub txtps_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjr.SetFocus

End If

End Sub

Android One Pertama Tidak Sukses, Google-Lava Hadirkan Android One Terbaru

Seperti yang kita ketahui, Google memiliki program Android One di mana Google bekerja sama dengan vendor lokal negara berkembang untuk menghadirkan smartphone yang memiliki performa memuaskan dengan harga yang murah. Namun sepertinya, ide kreatif Google tersebut tak berjalan mulus di India.

https://i0.wp.com/www.beritateknologi.com/wp-content/uploads/2015/11/google-and-lava-to-release-new-android-one-smartphone-in-india-wsj-495884-2.jpg
Lava Pixel V1 (Kredit: Softpedia)

Seperti laporan dari Wall Street Journal yang dilansir Softpedia, Senin (09/11/2015), Google memang telah bekerjasama dengan Lava International, vendor smartphone lokal India untuk menghadirkan perangkat Android One dengan harga terjangkau di negeri Taj Mahal itu.

Menurut laporan dari beberapa sumber, Google dikabarkan memiliki rencana akan melakukan beberapa perombakan pada program Android One. Nantinya, Google akan memberikan keleluasaan yang lebih kepada pihak manufaktur untuk merancang software maupun hardware perangkat Android One terbaru.

Pihak OEM lokal India yang berniat meneruskan program Android One dari Google dengan meluncurkan perangkat Android One generasi berikutnya di masa yang akan datang, mereka berhak menentukan berapa harga yang dibanderol untuk perangkat Android One mereka.

Perangkat Android One di India sendiri cukup beragam karena banyak vendor lokal yang turut dalam program ini, namun Android One generasi pertama di India mengalami kegagalan besar. Alasan yang menjadikan program ini gagal karena kebanyakan perangkat Android One hanya tersedia secara online saja. Selain itu, Android One Generasi pertama juga tidak menonjolkan sisi hardware yang mumpuni dengan harga yang pantas. Hal ini lah yang menjadikan Android One gagal bersaing dengan produk lain di rentang harga yang sama.

Google dan Lava Internasional berinisiatif menebus kegagalan Android One generasi pertama dengan cara membiarkan OEM untuk menentukan harga pasaran, komponen, serta software yang akan disematkan pada perangkat Android One terbaru. Namun, hingga saat ini belum ada rincian pasti mengenai spesifikasi dari perangkat terbaru Lava International.

Namun, beredar kabar bahwa perangkat Android One terbaru dari Lava International akan mulai beredar beberapa minggu kedepan. Perlu diketahui, di India Lava bukan satu-satunya OEM yang bekerja pada program Android One, ada pula OEM lain seperti Karbonn, Spice Mobile, dan Micromax juga turut serta dalam program Android One.

(rez)

sumber : Berita Teknologi