Visual Basic - Program Aplikasi Penghitung Nilai Ujian Akhir Semester

Salam hangat pengunjung terhormat,
    Pembahasan kali ini kita akan membahas mengenai Visual Basic dan disini adalah syntak pembuatan program aplikasi PENGHITUNG NILAI UJIAN AKHIR SEMESTER

'syintax dibawah merupakan syintak untuk membersihkan text
Private Sub cmdbersih_Click()
'ket: dari txtnm s/d txtakhir berilah tanda 0 jika berupa angka atau tanda kutip saja "" sbg ket kosong
txtnm.Text = ""
txtabsen = 0
txttugas = 0
txtuts = 0
txtuas = 0
txtakhir = 0
'ket: untuk membuat kursor mouse terfokus di textbox tertentu ketika menekan tombol bersih, ketiklah namatext.setfocus contoh: txtnama.setfocus
txtnm.SetFocus
'ket: syntak dibawah dari cmdporses s/d txtakhir merupakan syntak untuk menonaktifkan tombol ketika menekan tombol bersih
'contoh : namatombol.enabled=false (untuk menonaktifkan gunakan "False" dan enabled)
cmdproses.Enabled = False
cmdkeluar.Enabled = False
cmdbersih.Enabled = False
txtakhir.Enabled = False
End Sub
'ket : syntak dibawah untuk keluar dari program, caranya dengan menggunakan logika IF
Private Sub cmdkeluar_Click()
'ket: "c" disana sebagai variable (bebas menggunakan abjad apapun)
'Msgbox = merupakan format untuk membuat jendela dialog ketika kita menekan tombol keluar,
'contoh untuk membuat rumus msgbox : c=MsgBox("Gunakan kalimat yang ingin anda tampilkan disini", vbOKCANCEL + vbQuestion, "keterangan")
'ket: vbOKCANCEL sebagai opsi pilihan tombol OK dan CANCEL di Massage Box, jika OK maka Keluar, jika CANCEL maka tetap
'ket: vbQuestion sebagai opsi pertanyaan (simbol tandatanya di Massage Box atau bisa menggunakan vbINFORMATION sebagai opsi Perhatian di MsgBox
c = MsgBox("Apakah Anda yakin ingin keluar?", vbOKCancel + vbQuestion, "Perhatian!")
'gunakanlah rumus if setelah mengetikan MsgBox
If c = vbOK Then 'jika c memilih OK maka program akan berakhir (end) lalu (end if)
End
End If
End Sub

Private Sub cmdproses_Click()
txtakhir = Val((txtabsen.Text) * 0.1) + Val((txtuts.Text) * 0.3) + Val((txttugas.Text) * 0.2) + Val((txtuas.Text) * 0.4)
txtakhir.Enabled = True 'syntax untuk mengaktifkan textbox nilai akhir ketika klik tombol proses
End Sub

Private Sub Form_Load() 'ket : form load yaitu saat form dijalankan maka tombol cmdproses s/d txtakhir dalam keadaan tidak aktif dengan menggunakan "false"
cmdproses.Enabled = False
cmdkeluar.Enabled = False
cmdbersih.Enabled = False
txtakhir.Enabled = False
End Sub


Private Sub txtnm_Change()
txtnm.SetFocus
End Sub

Private Sub txtuas_Change() 'ket : ketika mengetik di text box uas maka tombol cmdproses s/d cmdbersih dalam keadaan aktf "True"
cmdproses.Enabled = True
cmdkeluar.Enabled = True
cmdbersih.Enabled = True
End Sub

Tampilan dibawah setelah dirun


Terima kasih semoga berhasil

Cara Menjadi Street Photographer Professional

Salam hangat pengunjung yang terhormat,

    Posting kali ini saya akan sedikit memberi tips, Cara Menjadi Street Photographer Professional. Apakah anda berminat untuk menjadi seorang photographer jalanan? bukan hanya sekedar photographer tapi juga ingin professional? 

   Berikut adalah tips dari seorang photographer andal yang juga penggemar street mobile Photography, Misa Baranovic.

Ambil saat cahaya sedang bagus

Tidak ada proses yang lebih bagus selain menangkap cahaya itu sendiri. Waktu yang paling baik adalah saat waktu emas (Golden Hour), yaitu pagi hari dan sore hari. Ini merupakan waktu saat cahaya masih belum terlalu terik dan masih lembut.

Pilih exposure di titik yang terang 

Tidak seperti film, pada digital kita akan kesulitan atau bahkan tidak bisa kita selamatkan dengan edit pots proses. Hasilnya mungkin akan putih diseluruh gambar tersebut. Dengan menggunakan aplikasi pro camera, kita bisa mengontrol highlight dengan memilih exprosur ke arah yang lebih terang, misalnya langit. Hal ini bisa dipakai di Indonesia yang memang selalu ada matahari.

Selalu perhatikan horizon

Beberapa ponsel tidak memiliki garis pembagi atau garis horizon didalamnya. Namun, Anda bisa mengira-ngira. Tempatkan obyek sesuai keinginan, baik di sisi pinggir layar atau di tengah layar.

Usahakan untuk selalu stabil memotret pada kondisi gelap atau malam

Beberapa ponsel kamera ada yang memiliki fitur stabilizer, tetapi beberapa ada yang tidak. Anda bisa mengunduh beberapa aplikasi yang menyediakan fitur tersebut. Fitur ini sangat diperlukan saat memotret di malam hari. Untuk mengontrol highlight, Mishi biasanya mengatur exposur pada tempat yang terang lebih dahulu.

Referensi :
Harian Klasika