Menentukan nilai koordinat,lintang, bujur dan tampilan VBA menggunakan combobox

Nilai dari posisi lintang dan bujur dapat diketahui dari sebaran peta GIS, sedangkangkan nilalai radiasi dapat diambil dari beberapa perkiraan baik jurnal numerik maupaun pengukuran langsung, lalu diambil nilai rata-ratanya. tentang nilai radiasi sudah saya bahas di posting-posting sebelumnya.
Berikut adalah tampilan yang saya buat untuk menentukan posisi daerah dan radiasi di beberapa kota, disini saya hanya ambil 11 kota, sebagai contoh dengan posisi beragam, dari sumatra hingga ternate.

 

Memasukkan data ke combo box

 setelah data didapatkan langkah selanjutnya adalah memasukkan data tersebut ke dalam combo box, langkah paling mudah adalah memasukkan data tersebut secara otomatis saat from yang digunakan active. dalam VBA perintahnya adalah

Private Sub UserForm_Activate()
ComboBox1.AddItem ("Aceh")
ComboBox1.AddItem ("Jakarta")
ComboBox1.AddItem ("Surabaya")
ComboBox1.AddItem ("Bandung")
ComboBox1.AddItem ("Kupang")
ComboBox1.AddItem ("Palembang")
ComboBox1.AddItem ("Padang")
ComboBox1.AddItem ("Manado")
ComboBox1.AddItem ("Palangkaraya")
ComboBox1.AddItem ("Banjarmasin")
ComboBox1.AddItem ("Samarinda")
ComboBox1.AddItem ("Ternate")

' memasukkan data ke combobox2
ComboBox2.AddItem ("Januari")
ComboBox2.AddItem ("Februari")
ComboBox2.AddItem ("Maret")
ComboBox2.AddItem ("April")
ComboBox2.AddItem ("Mei")
ComboBox2.AddItem ("Juni")
ComboBox2.AddItem ("Juli")
ComboBox2.AddItem ("Agustus")
ComboBox2.AddItem ("September")
ComboBox2.AddItem ("Oktober")
ComboBox2.AddItem ("Nopember")
ComboBox2.AddItem ("Desember")

Ketika combobox1 dipilih maka posisi lintang dan bujur akan langsung ditampilan, untuk memasukkan data bujur dan lintang,ada dua cara untuk memasukkan data bujur dan lintang sesuai dengan kota yang dipilih, pertama adalah menggunakan if then else dan yang kedua dengan select case.

bila pada posting-posting sebelumnya saya menggunakan if then else, kali ini saya menggunakan select case

kemudahananya adalah syntaxnya sudah disesuaikan dengan index, hal ini mempercepat penulisan syntak

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0 ' data untuk aceh
    lbllat.Caption = "3.40 N"
    lbllong.Caption = "98.38 E"
Case 1 ' data untuk jakarta dan sekitarnya
    lbllat.Caption = "0.35 N"
    lbllong.Caption = "123.05 E"
Case 2 ' data untuk surabaya
    lbllat.Caption = "0.48 S"
    lbllong.Caption = "127.230 E"
Case 3 ' data untuk Bandung
    lbllat.Caption = "0.30 S"
    lbllong.Caption = "110.30 E"
Case 4 ' data untuk kupang
    lbllat.Caption = "5.30 S"
    lbllong.Caption = "104.30 E"
Case 5 ' data untuk palembang
    lbllat.Caption = "7.17 S"
    lbllong.Caption = "112.45 E"
Case 6 ' data untuk padang
    lbllat.Caption = "01.0 S"
    lbllong.Caption = "100.20 E"
Case 7 ' data untuk manado
    lbllat.Caption = "08.45 S"
    lbllong.Caption = "116.30 E"
Case 8 ' data untuk palangkaraya
    lbllat.Caption = "107.52 S"
    lbllong.Caption = "2.52 E"
Case 9 ' data untuk banjarmasin
    lbllat.Caption = "7.49 S"
    lbllong.Caption = "110.22 E"
Case 10 ' data untuk samarinda
    lbllat.Caption = "06.54 S"
    lbllong.Caption = "107.36 E"
Case 11 ' data untuk ternate
    lbllat.Caption = "03.43 S"
    lbllong.Caption = "128.12 E"
End Select

End Sub

Selamat Mencoba

 

Posted in: tugas besar, VBA