Memasukkan data radiasi menggunakan combobox VBA

Proses selanjutnya adalah setelah pemilihan kota,  user harus memilih bulan untuk menampilkan data radiasi,  sebenarnya data radiasi akan berbeda setiap harinya, beberapa jurnal penelitian untuk mempermudah perhitungan, membaginya dalam bulan, sehingga diambil radiasi rata-rata perhari dalam sebulan tersebut berapa?!. karena posisi matahari setiap hari sebenarnya bergeser naik turun dari selatan ke utara dan balik lagi.
Begitu juga dengan software untuk tugas yang saya bikin ini, saya menyederhanakan untuk tiap bulan.

setelah kota dan bulan dipilih maka data radiasi akan muncul,  untuk mengisikan data tersebut syntax yang saya pakai adalah gabungan antara if then else dengan select case,  alogaritmanya seperti berikut

1. if pilihan 1 = jakarta then
2    select case pilihan 2 sesuai index
3    case 0               ' index 0 = januari
4     tampilkan data radiasi januari
5. dst sampai index = 11

bagaimana pemrogramannya? kurang lebihnya seperti berikut
data yang saya masukkan 11 kota x 12 bulan = 132 list data

Private Sub ComboBox2_Change()
 If ComboBox1.Text = "Jakarta" Then
  Select Case ComboBox2.ListIndex
    Case 0                        ' untuk januari
    lblradiasi.Caption = 4.57
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.65
    Case 2                        ' maret
    lblradiasi.Caption = 4.85
    Case 3                       ' april
    lblradiasi.Caption = 4.95
    Case 4                        ' mei
    lblradiasi.Caption = 4.96
    Case 5                        ' juni
    lblradiasi.Caption = 5
    Case 6                       ' juli
    lblradiasi.Caption = 5.07
    Case 7                       ' agustus
    lblradiasi.Caption = 5.21
    Case 8                       ' september
    lblradiasi.Caption = 5.42
    Case 9                         ' oktober
    lblradiasi.Caption = 5.4
    Case 10                        'nopember
    lblradiasi.Caption = 4.84
     Case 11                        ' desember
    lblradiasi.Caption = 4.74
  End Select
ElseIf ComboBox1.Text = "Aceh" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.76
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.91
    Case 2                        ' maret
    lblradiasi.Caption = 4.94
    Case 3                       ' april
    lblradiasi.Caption = 4.88
    Case 4                        ' mei
    lblradiasi.Caption = 4.84
    Case 5                        ' juni
    lblradiasi.Caption = 4.68
    Case 6                       ' juli
    lblradiasi.Caption = 4.58
    Case 7                       ' agustus
    lblradiasi.Caption = 4.62
    Case 8                       ' september
    lblradiasi.Caption = 4.56
    Case 9                         ' oktober
    lblradiasi.Caption = 4.32
    Case 10                        'nopember
    lblradiasi.Caption = 4.19
     Case 11                        ' desember
    lblradiasi.Caption = 4.74
  End Select
ElseIf ComboBox1.Text = "Surabaya" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.64
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.84
    Case 2                        ' maret
    lblradiasi.Caption = 4.9
    Case 3                       ' april
    lblradiasi.Caption = 4.81
    Case 4                        ' mei
    lblradiasi.Caption = 4.64
    Case 5                        ' juni
    lblradiasi.Caption = 4.71
    Case 6                       ' juli
    lblradiasi.Caption = 5.24
    Case 7                       ' agustus
    lblradiasi.Caption = 5.81
    Case 8                       ' september
    lblradiasi.Caption = 5.83
    Case 9                         ' oktober
    lblradiasi.Caption = 5.03
    Case 10                        'nopember
    lblradiasi.Caption = 4.85
     Case 11                        ' desember
    lblradiasi.Caption = 4.79
  End Select
ElseIf ComboBox1.Text = "Bandung" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.57
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.75
    Case 2                        ' maret
    lblradiasi.Caption = 4.87
    Case 3                       ' april
    lblradiasi.Caption = 4.95
    Case 4                        ' mei
    lblradiasi.Caption = 5.02
    Case 5                        ' juni
    lblradiasi.Caption = 4.97
    Case 6                       ' juli
    lblradiasi.Caption = 5.17
    Case 7                       ' agustus
    lblradiasi.Caption = 5.35
    Case 8                       ' september
    lblradiasi.Caption = 5.11
    Case 9                         ' oktober
    lblradiasi.Caption = 4.77
    Case 10                        'nopember
    lblradiasi.Caption = 4.7
     Case 11                        ' desember
    lblradiasi.Caption = 4.96
  End Select
ElseIf ComboBox1.Text = "Kupang" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 5.56
    Case 1                        ' pebruari
    lblradiasi.Caption = 5.96
    Case 2                        ' maret
    lblradiasi.Caption = 6.37
    Case 3                       ' april
    lblradiasi.Caption = 5.78
    Case 4                        ' mei
    lblradiasi.Caption = 5.96
    Case 5                        ' juni
    lblradiasi.Caption = 5.88
    Case 6                       ' juli
    lblradiasi.Caption = 6.7
    Case 7                       ' agustus
    lblradiasi.Caption = 7.16
    Case 8                       ' september
    lblradiasi.Caption = 7.54
    Case 9                         ' oktober
    lblradiasi.Caption = 7.41
    Case 10                        'nopember
    lblradiasi.Caption = 6.68
     Case 11                        ' desember
    lblradiasi.Caption = 4.6
  End Select
ElseIf ComboBox1.Text = "Palembang" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.57
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.57
    Case 2                        ' maret
    lblradiasi.Caption = 4.78
    Case 3                       ' april
    lblradiasi.Caption = 4.66
    Case 4                        ' mei
    lblradiasi.Caption = 4.73
    Case 5                        ' juni
    lblradiasi.Caption = 4.49
    Case 6                       ' juli
    lblradiasi.Caption = 4.79
    Case 7                       ' agustus
    lblradiasi.Caption = 4.8
    Case 8                       ' september
    lblradiasi.Caption = 4.6
    Case 9                         ' oktober
    lblradiasi.Caption = 4.46
    Case 10                        'nopember
    lblradiasi.Caption = 4.39
     Case 11                        ' desember
    lblradiasi.Caption = 4.47
  End Select
ElseIf ComboBox1.Text = "Padang" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.89
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.82
    Case 2                        ' maret
    lblradiasi.Caption = 4.82
    Case 3                       ' april
    lblradiasi.Caption = 4.93
    Case 4                        ' mei
    lblradiasi.Caption = 4.94
    Case 5                        ' juni
    lblradiasi.Caption = 4.87
    Case 6                       ' juli
    lblradiasi.Caption = 4.94
    Case 7                       ' agustus
    lblradiasi.Caption = 4.78
    Case 8                       ' september
    lblradiasi.Caption = 4.69
    Case 9                         ' oktober
    lblradiasi.Caption = 4.57
    Case 10                        'nopember
    lblradiasi.Caption = 4.54
     Case 11                        ' desember
    lblradiasi.Caption = 4.34
  End Select
 
ElseIf ComboBox1.Text = "Manado" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 5.61
    Case 1                        ' pebruari
    lblradiasi.Caption = 5.77
    Case 2                        ' maret
    lblradiasi.Caption = 6.04
    Case 3                       ' april
    lblradiasi.Caption = 6.24
    Case 4                        ' mei
    lblradiasi.Caption = 6
    Case 5                        ' juni
    lblradiasi.Caption = 5.65
    Case 6                       ' juli
    lblradiasi.Caption = 5.87
    Case 7                       ' agustus
    lblradiasi.Caption = 6.53
    Case 8                       ' september
    lblradiasi.Caption = 6.61
    Case 9                         ' oktober
    lblradiasi.Caption = 6.19
    Case 10                        'nopember
    lblradiasi.Caption = 5.69
     Case 11                        ' desember
    lblradiasi.Caption = 5.59
  End Select
 
 ElseIf ComboBox1.Text = "Palangkaraya" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.97
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.92
    Case 2                        ' maret
    lblradiasi.Caption = 4.86
    Case 3                       ' april
    lblradiasi.Caption = 4.81
    Case 4                        ' mei
    lblradiasi.Caption = 4.8
    Case 5                        ' juni
    lblradiasi.Caption = 4.77
    Case 6                       ' juli
    lblradiasi.Caption = 5.01
    Case 7                       ' agustus
    lblradiasi.Caption = 4.96
    Case 8                       ' september
    lblradiasi.Caption = 4.95
    Case 9                         ' oktober
    lblradiasi.Caption = 4.7
    Case 10                        'nopember
    lblradiasi.Caption = 4.64
     Case 11                        ' desember
    lblradiasi.Caption = 5.01
  End Select
 
 
  ElseIf ComboBox1.Text = "Banjarmasin" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 5.04
    Case 1                        ' pebruari
    lblradiasi.Caption = 5.05
    Case 2                        ' maret
    lblradiasi.Caption = 5.03
    Case 3                       ' april
    lblradiasi.Caption = 4.92
    Case 4                        ' mei
    lblradiasi.Caption = 4.84
    Case 5                        ' juni
    lblradiasi.Caption = 4.88
    Case 6                       ' juli
    lblradiasi.Caption = 5.29
    Case 7                       ' agustus
    lblradiasi.Caption = 5.51
    Case 8                       ' september
    lblradiasi.Caption = 5.27
    Case 9                         ' oktober
    lblradiasi.Caption = 4.66
    Case 10                        'nopember
    lblradiasi.Caption = 4.75
     Case 11                        ' desember
    lblradiasi.Caption = 4.77
  End Select
 
  ElseIf ComboBox1.Text = "Samarinda" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 4.66
    Case 1                        ' pebruari
    lblradiasi.Caption = 4.88
    Case 2                        ' maret
    lblradiasi.Caption = 4.99
    Case 3                       ' april
    lblradiasi.Caption = 4.98
    Case 4                        ' mei
    lblradiasi.Caption = 4.89
    Case 5                        ' juni
    lblradiasi.Caption = 4.76
    Case 6                       ' juli
    lblradiasi.Caption = 4.76
    Case 7                       ' agustus
    lblradiasi.Caption = 4.87
    Case 8                       ' september
    lblradiasi.Caption = 4.92
    Case 9                         ' oktober
    lblradiasi.Caption = 5.04
    Case 10                        'nopember
    lblradiasi.Caption = 4.8
     Case 11                        ' desember
    lblradiasi.Caption = 4.42
  End Select
 
    ElseIf ComboBox1.Text = "Ternate" Then
 Select Case ComboBox2.ListIndex
  Case 0                        ' untuk januari
    lblradiasi.Caption = 5.73
    Case 1                        ' pebruari
    lblradiasi.Caption = 6
    Case 2                        ' maret
    lblradiasi.Caption = 6.08
    Case 3                       ' april
    lblradiasi.Caption = 5.73
    Case 4                        ' mei
    lblradiasi.Caption = 5.36
    Case 5                        ' juni
    lblradiasi.Caption = 5.4
    Case 6                       ' juli
    lblradiasi.Caption = 6.04
    Case 7                       ' agustus
    lblradiasi.Caption = 6.32
    Case 8                       ' september
    lblradiasi.Caption = 6.23
    Case 9                         ' oktober
    lblradiasi.Caption = 6
    Case 10                        'nopember
    lblradiasi.Caption = 5.75
     Case 11                        ' desember
    lblradiasi.Caption = 5.14
  End Select
  End If
 
End Sub

Posted in: tugas besar