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

Situs paling seru untuk penghilang rasa kesepian, simsimi.com

Salam hangat pengunjung yang terhormat, 

     Posting kali ini saya akan memberikan sebuah informasi yang menarik dan perlu anda kunjungi. Apakah anda pernah merasa kesepian atau merasa stress? jika anda ingin mendapatkan solusinya tanpa harus keluar rumah dan bertemu dengan teman-teman anda, karena anda harus segera mengunjungi 

www.simsimi.com

    Apa itu simsimi.com?

simsimi.com dengan nama websitenya SIMSIMI merupakan website yang unik dan menarik yang menciptakan robot operator bisa ngobrol dengan pengunjung web tersebut, dimana kita bisa ngobrol atau berinteraksi dengan seekor anak ayam berwarna kuning bernama SIMI, anda bisa banyak bertanya pada si anak ayam ini. 

  Apa manfaat simsimi.com?

dengan SIMI mungkin rasa letih dan kesepian anda akan sedikit terhibur, SIMI juga menguasai berbagai bahasa jadi anda tidak perlu khawatir kesulitan berinteraksi dengan anak ayam ini.

Kunjungi www.simsimi.com

lalu klik LETS TALK!

pilij Talk

dan pilih bahasa yang anda kuasai

dan mulai untuk gila-gilaan bersama SIMI

     SIMI, cerdas dan banyak sekali pengetahuannya jadi tidak akan bosan kita jadikan sebagai teman!

Ciri-ciri bisnis modern

Salam hangat pengunjung yang terhormat, 

    Posting kali ini saya akan memberikan sebuah ulasan Ciri-ciri bisnis modern dalam dunia Ekonomi. Karakteristik dalam bisnis modern adalah adanya spesialisasi, saling ketergantungan (interdependence) dan produk massal.

1. Spesialisasi

2. Interdependence

3. Produk Massal

    Produksi diartikan usaha menciptakan barang dan jasa yang menambaha kegunaan (utiliy). Ada 4 kegunaan (utility) yang timbul dari produksi ini yaitu :

1. Form utility (Kegunaan Bentuk)

Peningkatan kegunaan dari suatu benda antara lain dapat disebabkan oleh perubahan bentuknya. contoh : nilai guna dari sebuah lempengan besi relatif rendah, namun jika lempengan besi tersebut ditempa menjadi sebuah pisau, maka nilai gunanya akan menjadi lebih besar.

2. Place utility (Kegunaan Tempat)

Pertambahan kegunaan dari suatu benda antara lain dapat karena dipindahkan dari suatu tempat ke tempat lain. Contoh : sebuah mantel yang tebal tidak banyak gunanya jika dipakai di daerah tropis, namun jika dipakai di daerah dingin maka akan lebih terasa manfaatnya.

3. Time utility (Kegunaan Waktu)

Kegunaan suatu benda bertambah jika benda itu dipakai pada waktu-waktu yang tepat dan sesuai dengan manfaat benda tersebut. Contoh : payung akan lebih berguna jika dipakai pada waktu hujan atau saat hari terik.

4. Posession utility (Kegunaan Kepemilikan) 

Kegunaan suatu benda baru terasa bila telah ada pemiliknya, atau dimiliki oleh konsumen yang tepat. Contoh : tanah yang kosong dan terbengkalai tidak akan memiliki manfaat, tetapi tanah tersebut baru membawa manfaat bila dimiliki dan diolah oleh manusia yang bisa mengolah tersebut. 

 Semoga bermanfaat telah membaca Ciri-ciri bisnis modern