Desain Injeksi Mold untuk Plastik

Pembuatan cetakan plastik selain harus mampu mengintegrasikan mulai dari konsep aliran fluida saat proses injeksi sampai dengan proses manufacture dilaksanakan, CAD berperan besar dalam menuangkan imaginasi menjadi visualisasi yang mudah dipahami dan dilakukan pengecekan sebelum proses CAM dan manufacture dijalankan. melalui satu-teknik.blogspot.com, saya menerima jasa desain, analisa aliran, hingga pembuatan injeksi mold dengan harga jauh lebih murah daripada pabrikan.

CFD Application : Air Flow and Temperature Distribution

Gambar ini memperlihatkan suhu sebuah ruangan data center, atau ruang server komputer pada sebuah perusahaan, perbedaan panas jelas terlihat, melalui CFD desain ruangan dapat menentukan letak exhaust, input fan yang tepat, sekaligus dapat memperkirakan besar aliran udara yang terjadi, sehingga ukuran fan pun bisa sesuai dengan kapasitas yang diperlukan.

CAE on Polymer Technology

Metode numerik khusus untuk aliran polymer telah dikembangkan, meliputi proses solidifikasi, proses perpindahan panas antar material, hingga perpindahan panas antara mesin injeksi dan lingkungan sekitar. metode tersebut sangat membantu desainer mold untuk merancang cetakan, memperkirakan arah aliran, menjaga balancing runner, balancing aliran, hingga meminimalisir defect yang akan terjadi.

Integrated CAD-CFD

Untuk mempermudah proses pre processor, saat ini sudah banyak software yang mengabungkan fitur CAD dan CFD menjadi satu bagian, misalnya Unigraphics dengan Fluent dan Nastran.

CFD Application : wind turbine blade

Aplikasi CFD paling bermanfaat terhadap aliran panas, perpindahan panas dan aliran fluida, seperti udara, turbing angin, desain sayap pesawat, kapal laut sangat banyak menggunakan CFD untuk mempercepat proses analisa.

Showing posts with label tugas besar. Show all posts
Showing posts with label tugas besar. Show all posts

Sunday, 27 May 2012

Video : CFDSOFT untuk Solar Water Heater

Berikut adalah hasil simulasi beserta penjelasan tentang modeling, parameter yang dipakai, data yang saya gunakan adalah - Panjang 1 m - Lebar 1m - Jumlah pipa 10, disusun seri - Lapisan atas adalah kaca tebal 0.3 cm - Pipa tabung diameter 4.6 cm, diameter dalam 4 cm - Lapisan paling bawah adalah isolator selengkapnya mari kita tonton video berikut pada bagian akhir terdapat pula komparasi dengan hasil dari perhitungan komputasi teknik

Video : F chart method untuk solar water heater

Video berikut adalah salah satu contoh program yang sudah dibuat untuk menghitung solar water heater, dengan metode F chart, seluruh program di buat di Excel dengan Visual Basic for Application. untuk lebih jelasnya bagaimana software ini bekerja, mari kita tonton video berikut

apabila anda menyimpan halaman ini sebagai html, video, gambar tidak akan terlihat kecuali anda terkoneksi dengan internet

Saturday, 26 May 2012

Video : F Chart sintax kode untuk VBA dan Excel

Pada posting lainya saya telah upload video tentang cara menggunakan F chart untuk menghitung solar water heater yang telah saya buat, bagaimana dengan codingnya? video berikut akan bercerita sedikit tentang codingnya, jangan khawatir bila anda ingin mencopi codenyam full kode untuk proses perhitungan sudah saya upload di posting sebelumnya semoga bermanfaat

Friday, 25 May 2012

Video : Regresi Polinomial untuk mencari hubungan radiasi dengan suhu

program dalam video dibawah ini sudah pernah saya bahas di posting saya sebelumnya, tentang regresi polinomial maupun regresi linier.


langkah-langkah untuk menghitungnya adalah :
1. masukkan data radiasi (Y) dan data suhu (x)
2. hitung x^2 x^3 x^4 x.y dan x^2.y
3. jumlah masing-masing x^2 x^3 x^4 x.y dan x^2.y
4. masukkan data x^2 x^3 x^4 x.y dan x^2.y ke matrix cell di excel
5. hitung koeffisien A,B,C
6. tulis hasilnya dalam ax2+bx+c

Sintax lengkapnya seperti berikut

Dim A As Double
    Dim b, c, d, e, f, a0, b0, c3, c4, c5, j3, j4, j5 As Double
    For i = 1 To 30
        A = A + Cells(1 + i, 10) ' jumlah total x
        b = b + Cells(1 + i, 11) ' jumlah total y
        c = Cells(1 + i, 10) ^ 2 ' menulis pangkat
        Cells(1 + i, 12) = c
        d = d + Cells(1 + i, 12) ' jumlah x2
       
        c3 = Cells(1 + i, 10) ^ 3 ' menulis pangkat 3
        Cells(1 + i, 13) = c3
        j3 = j3 + Cells(1 + i, 13) ' jumlah pangkat 3
       
        c4 = Cells(1 + i, 10) ^ 4 ' menulis pangkat 4
        Cells(1 + i, 14) = c4
        j4 = j4 + Cells(1 + i, 14)
               
        e = Cells(1 + i, 10) * Cells(1 + i, 11) ' x kali y
        Cells(1 + i, 15) = e    ' menuliskan nilai x*y
        f = f + Cells(1 + i, 15) ' jumlah xy
       
        c5 = (Cells(1 + i, 10) ^ 2) * Cells(1 + i, 11) ' x*y
        Cells(1 + i, 16) = c5
        j5 = j5 + Cells(1 + i, 16) ' jumlah x2y
       
    Next
        Cells(33, 10) = A ' menuliskan jumlah
        Cells(33, 11) = b
        Cells(33, 12) = d
        Cells(33, 13) = j3
        Cells(33, 14) = j4
        Cells(33, 15) = f
        Cells(33, 16) = j5

Menghitung Factor untuk radiasi pada solar water heater

 ada banyak metode untuk menghitung solar water heater, salah satunya yang paling terkenal adalah dengan metode F-Chart. metode ini caranya adalah menghitung nilai x dan y
 nilai x dan F dihitung dengan





sedangkan nilai F nya adalah

 Syntax

sintak pemogramanya adalah sebagai berikut


Private Sub CommandButton1_Click()
    Dim f, y, x, a, fx, fin, U, Tamb, L, eff, K, H, tday As Double
If txth.Text = "" Or txtk.Text = "" Then
MsgBox "Terdapat data yang belum diisi, Mohon Check Ulang !!"

Else
 a = txtluas.Text
 fin = txtfin.Text
 fx = txtfx.Text
 U = txtu.Text
 Tamb = txttamb.Text
 'tday = Val(24 * 3600)
 L = txtl.Text  ' baiknya dihitung sendiri
 eff = txteff.Text
 K = txtk.Text
 H = txth.Text

x = (a * fx * fin * U * (100 - Tamb) * 86400) / L
y = (a * fx * fin * eff * K * H) / L

' a = collector area m2
' fin = heat transfer factor
' fx = heat exchanger factor
' U = collector heat loss coeffisen (W/m2 K)
' tamb = temperatur lingkungan (C)
' tday = 24 x 3600 sec
' L = total daily heat load J, rata2 per bulan
' eff = optical efficiency
' k = all day avarage of incidence angle modifier
' H = daili solar irradiation incident on collector (J/m2)

f = (1.029 * y) - (0.065 * x) - (0.245 * y ^ 2) + (0.0018 * x ^ 2) + (0.0215 * y ^ 3)
Label34.Caption = f
    If f > 1 Then
    lblhasil.ForeColor = &H8000&
    lblhasil.Caption = "Untuk wilayah " & ComboBox1.Text & " pada bulan " & ComboBox2.Text & " luas collector " & txtluas.Text & " m2, sudah cukup untuk memanaskan " & txtvl.Text & " liter air. "
    Else
    lblhasil.ForeColor = &HFF&
    lblhasil.Caption = "Untuk wilayah " & ComboBox1.Text & " pada bulan " & ComboBox2.Text & " Radiasi tidak mencukupi, Saran : 1. Perbesar luas collector, 2.Turunkan target suhu air, 3.Turunkan jumlah air."
    End If
End If

End Sub

Menghitung Beban pemanasan untuk water solar heater menggunakan VBA

untuk menghitung beban pemanasan, ada beberapa asumsi yang digunaka, kalau dalam proposal saya kemarin suhu dari air adalah tergantung dengan suhu tanah plus kedalaman tanah, maka dalam software tugas yang saya bikin berikut, suhu tanah dimasukkan oleh user, sehingga user dapat mengganti langsung sesuai dengan data pengukuran ditempatnya berapa suhu air yang masuk kedalam water heater, nilai awal yang saya masukkan adalah 25 C, karena saya asumsikan air yang masuk adalah pagi hari, tentunya bila sudah siang hari air yang masuk ke water heater bisa mencapai 28-30 C.
tampilanya seperti berikut

Rumus

beban pemanasan dapat dihitung dengan rumus sederhana
Q=  Cp * Rho * Vol * Delta T
Cp=  4200
Rho = 1
Vol = ditentukan oleh user
Delta T = air hangat yang diinginkan - air dingin yang masuk ke water heater


Nilai awal

agar software berjalan dengan baik, ada dua langkah tips yang perlu diperhatikan
1. saya masukkan nilai awal saat form tersebut di load/active, hal ini untuk mencegah user memasukkan nilai awal sembarang, teruta untuk nilai cp, rho, suhu masuk dan suhu keluar, sedangkan volume bisa dimasukkan sendiri sesuai kebutuhan. kebutuhan saya sendiri sekitar 20 liter per hari
2. untuk mencegah agar user salah klik, maka saya beri text box beli jumlah air belum dimasukkan

saya masukkan nilai awal pada saat form1 di aktifkan


txtcp.Text = 4200
txtto.Text = 25
txtth.Text = 60
txtrho.Text = 1

CommandButton6.Enabled = False
CommandButton1.Enabled = False

Syntax

program lengkapnya saat tombol di klik adalah seperti berikut

Private Sub CommandButton3_Click()

Dim q, cp, rho, vol, t1, th As Single
   If txtvl.Text = "" Then
       MsgBox "Masukkan berapa liter air yang dibutuhkan?!!"
   Else
   cp = txtcp.Text
   rho = txtrho.Text
   vol = txtvl.Text
   t1 = txtto.Text
   th = txtth.Text
   q = cp * rho * vol * (th - t1)
    lblqhot.Caption = q
   txtl.Text = q
   1End If
CommandButton6.Enabled = True ' hitung radiasi

txtluas.Text = 1
txtfin.Text = 0.7
txtfx.Text = 0.6
txtu.Text = 3
txttamb.Text = 28
txteff.Text = 0.4
End

disini saya juga langsung memberikan nilai awal untuk menghitung radiasi dan faktor, hal ini untuk mengurangi error dan memudahkan user

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

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
 

Mencari nilai radiasi matahari wilayah Indonesia

ada banyak sekali metode untuk menentukan berapa besarnya nilai radiasi dari matahari di wilayah indonesia, mulai dari pengukuran langsung, numerik, neural network sampai metode experiment. berikut adalah beberapa jurnal referensi yang dapat digunakan untuk menentukan radiasi di Indonesia

1. Halawa dan Sugiyatno dengan jurnal berjudul " Estimation of global solar iradiation in Indonesia climatic region",  humidity, kondisi wilayah seperti ketinggian, posisi linta, bujur, dan hari mempengaruhi nilai radiasi yang dihasilkan. dalm jurnal tersebut menggunakan regresi polinomial untuk mendekati nilai radiasi, yaitu dengan rumus :
Icf c3∗j 3 c2∗j 2 c1∗j c0 , sedankgan masing-masing nilai c3-c0 dihitung dari stasiun pengamatan.
hasilnya adalah

2. Ramli hakim dkk, memberikan model pengaruh dari radiasi matahari, lama waktu sinar matahari dan kondisi cuaca, tingkat awan untuk radiasi dan pengaruhnya terhadap nilai radiasi yang dihasilkan, disini saya ambil data nilai tingkat awan, yaitu berkisar 0.3 sampai dengan 0.8.
data ini penting untuk memperkirakan berapa nilai yang akan digunakan pada solar heater

3. Meita rumbuyan dan teman-temannya di jepang, melakukan penelitan memakai Artifical Neural Network untuk memperkirakan berapa tingkat radiasi matahari di wilayah Indonesia.  dengan memperhitungkan beberapa pengaruh seperti suhu udara, kelembapan, durasi penyinaran matahari, kecepatan angin, ketinggian posisi lintang, bujur hingga bulan

hasilya berupa data tingkat radiasi matahari, walau bila dibandingkan dengan pengukuran langsung tidak 100 %, 90 % valid untuk memperkirakan nilai radiasi yang terjadi di sekitar wilayah kita.

Tuesday, 22 May 2012

Pengaruh Radiasi Matahari Terhadap Suhu yang dihasilkan

Masih membahas tentang radiasi, karena sebelum melangkah jauh ke konsep perhitungan, faktor apa yang berpengaruh terhadap radiasi dan apa yang dihasilkan radiasi harus jelas dipelajari terlebih dahulu. radiasi jelas berpengaruh terhadap perubahan suhu, bagaimana aplikasinya?
saya akan mencoba untuk menuliskan faktor-faktor apa saja yang berpengaruh, dan yang saya gunakan dalam perhitungan, sehingga proses perhitungan yang dilakukan walau sangat susah untuk membuat model sesuai aslinya, cukup mendekati. lebih lanjut kita dapat mengetahui kegunaanya, misalnya untuk pemanas air.

Hub antara radiasi dengan suhu dapat didekati dengan persamaan
Keterangan :
Hg  = rata-rata bulanan radiasi pada permukaan (KJ/m2-day)
Hc = rata-rata radiasi bulanan untuk permukaan saat kondisi cuaca benar-benar bersih (KJ/m2-day)
S = jumlah jam matahari terbit pada lokasi tersebut per hari
Smax = jumlah maksimal jam matahari bersinar pada lokasi tersebut
a, b = konstanta pada saat proses fitting data

hubungan yang dapat kita rasakan saat radiasi semakin banyak, maka jumlah radiasi akan semakin tinggi, paling gampang adalah dengan menggunakan curve fitting sehingga hubungan antara suhu dan radiasi pada wilayah tertentu dapat kita cari dengan mudah

ok, berikut adalah data contoh yang didapat dari jurnal, untuk suhu dan radiasi yang diterima

ok, dari data diatas, hasilnya grafiknya adalah, dapat dilihat dengan curve fit polynomial persamaan antara suhu dan radiasi dapat kita dapatkan.

untuk mempermudah, dapat kita bagi menjadi beberapa bagian, yaitu untuk pagi, siang dan sore

variasi suhu untuk 7.30 AM to 11.00 AM.

hasilnya dari excel adalah R=3E-26e0.2117T
bila secara analitis kita bisa dapatkan melalui
 y=AB^x
ubah menjadi log
log y = log A + x log B
log y = Y, log A = a, log B = b
sehingga dapat ditulis dengan
Y = a + xb

dengan memasukkan persamaan awal yang saya tulis ke persamaan pada gambar diatas, dan menyelesaikan nilai log nya, maka akan didapatkan


rumus diatas adalah rumus empiris dari data yang didapaatkan, namun sudah cukup untuk digunakan mencari nilai radiasi wilayah yang mempunyai data suhu mirip dengan diatas. untuk proses kalkulasi selanjutnya rumus tersebut dapat kita gunakan sehingga proses perhitungan lebih cepat.


Monday, 30 April 2012

Data Radiasi Wilayah Jakarta tahun 2011

data radiasi terbaru berikut sangat cocok untuk proses perhitungan berikutnya, ada tiga data radiasi yang akan saya bandingkan, yaitu
1. hasil pengukuran langsung oleh Ir. Sudjito Ph.D (guru baik saya waktu kuliah S1, salam hormat untuk beliau) namun data yang dapat dikumpulkan adalah dari tahun 1970 sampai dengan 1992, data terbaru saya belum menemukan
2. data hasil simulasi dari Dr. Susandi (ahli meteorology dari ITB), datanya untuk tahun 2010
3. Data paling akhir adalah dari Institute Agricultural technology Tokyo, data untuk tahun 2011, datanya tersedia untuk 12 bulan, seperti pada tampilan gambar dibawah ini

untuk data radiasi lainya, saya masih mentabulasi, berikut hubungan data tersebut dengan keperluan penelitian yang akan dikerjakan.
menanggapi pertanyaan Dr. Indra kemarin, bagaimana membuat model untuk radiasi dan pengaruhnya terhadap dinding kamar yang terpapar langsung dengan sinar matahari, saya baru mendapat beberapa jurnal saja, sehingga rasanya belum pantas untuk ditulis. pada posting selanjutnya saya akan mencoba untuk menulis hubungan dan bentuk modelnya


Friday, 27 April 2012

Flow chart untuk menghitung solar water heater


langkah-langkah secara detail untuk melalakukan perhitungan water heater adalah sebagai berikut :
1. pemasukan data radiasi, perhitungan hari, nilai indeks awan (KT) suhu air masuk, posisi lintang dan bujur.
2. setelah data lengkap dilakukan perhitungan declination yaitu posisi matahari terhadap daerah tertentu, solar hour angle, yaitu posisi setiap jam matahari dan suhu udara di langit
3. selanjutnya dengan memasukkan tambahan suhu air panas yang diingikan dan jumlah air yang dibutuhkan dihitung beban pemanasan
4. memilih jenis collector
5. menghitung nilai Q berdasarkan jenis collector
6. menambahkan nilai effisiensi dan heat lose akibat sakuran pipa, kita akan mendapatkan luas collector yang dibutuhkan
selengkapnya seperti dibawah berikut