Selasa, 28 April 2015

cara menghitung perubahan suhu celcius,fahreanheit,dan kelvin




Assalamu’alaikum wr.wb

Pada edisi kali ini, saya akan mencoba untuk melampirkan cara-cara bagaimana  Menghitung PERUBAHAN SUHU CELCIUS,FAHREANHEIT,dan KELVIN, dan begitu pula dng seterus nya dari C->R,C->F,C->K, dari F->C,F->R,F->K dan juga K->C,K->R,K->F dengan menggunakan aplikasi VBS 2010.
adapun langkah-langkah pembuatan nya adalah sebagai berikut:
Terlebih dahulu anda buka aplikasi VBS 2010



Setelah itu klik New Project, lalu Windows Forms Application lalu Ok.
Setelah semuanya diklik maka akan tampil gambar kerja seperti gambar bawah ini tapi mohon di maklumi karna warnanya hitam:




1.    Untuk langkah berikutnya kita mulai mendisain. Bahan bahan nya adalah

1 GroupBox,
4 label,
 3 buah TextBox,
1 Button dan
1 ComboBox. 





 

Setelah itu kita masukan semua coding nya untuk menganti semuanya  dng klik di form nya, setelah di klik lalu masukan rumus nya seperti di bawah ini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Text = "C-> R,F,K"
        Label1.Text = "Celcius"
        Label2.Text = "fahreanheit"
        Button1.Text = "Proses"
        Label3.Text = "kelvin"

        Label4.Text = ""

    End Sub


Setelah itu kemudian kita RUN/F5, maka akan tampil seperti di bawah ini:




Kemudian click pada ComboBox nya lalu cari di properties lalu cari Items(collection) di samping collection itu ada kotak titik kecil pilih, untuk memasukan semua rumus sudah kami cantumkan seperti di gambar ini setelah itu langsung oke



 setelah klik ok maka tampilan nya seperti di bawah ini




2.    Langkah selanjutnya klik button1, untuk memasukan codingnya semua rumus yang akan kita jalankan,

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
   If (ComboBox1.SelectedItem = "C->R") Then
            Label4.Text = (4 / 5) * Val(TextBox1.Text)
        ElseIf (ComboBox1.SelectedItem = "C->F") Then
            Label4.Text = (9 / 5) * Val(TextBox1.Text) + 32
        ElseIf (ComboBox1.SelectedItem = "C->K") Then
            Label4.Text = 273 + Val(TextBox1.Text)
        ElseIf (ComboBox1.SelectedItem = "F->C") Then
            Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32)
        ElseIf (ComboBox1.SelectedItem = "F->R") Then
            Label4.Text = (4 / 9) * (Val(TextBox2.Text) - 32)
        ElseIf (ComboBox1.SelectedItem = "F->K") Then
            Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32) + 273
        ElseIf (ComboBox1.SelectedItem = "K->C") Then
            Label4.Text = Val(TextBox3.Text) - 273
        ElseIf (ComboBox1.SelectedItem = "K->R") Then
            Label4.Text = (9 / 5) * (Val(TextBox3.Text) - 273) + 32
        ElseIf (ComboBox1.SelectedItem = "K->F") Then
            Label4.Text = (4 / 5) * (Val(TextBox3.Text) - 273)
        End If
    End Sub

3.     Kemudian tingal kita jalankan rumusnya satu persatu, terserah mau masukin nilai nya berapa, tergantung kebutuhan masing-masing, contoh nya seperti di bawah ini





Banyak yg bertanya kenapa hasilnya 48, karna yg kita pilih adalah C->R Begitu juga seterusnya, anda tinggal pilih rumus mana yang anda inginkan kemudian masukan nilai nya di Celcius,Fahreanheit,dan Kelvin nya, kemudian pilih di ComboBox nya click mana yang anda inginkan.



Demikian keterangan dari saya, moga bisa bermanfaat.


Wassalamualaikum war, wab.
“SELAMAT MENCOBA”





Rabu, 22 April 2015

Cara mengupdate mozila firefox




ass..wr..wb


Pertama klik mozila firefox , tentunya anda terlebih dahulu tersambungkan oleh internet agar bisa mengupdate mozila.  Ok setelah anda buka firefox




Lalu anda klik open menu atau lebih jelas nya lingkaran yg berwarna merah di pojok atas gambar tersebut ,



 setelah anda mengklik nya pilih open help menu, 

lalu klik about firefox, lalu tampilan nya akan seperti ini



Lalu anda klik chech for update. Apabila anda sudah mengkilk nya maka proses mengupdate nya akan berjalan seperti di bawah ini. 



Dan apabila sudah selsai anda klik restart pada kolom yg akan muncul setelah  proses mengupdate nya selesai


Dan firefox anda akan di update sekian postingan dari saya terima kasih.
Mohon maaf apabila ada salah kata, dan apabila ada salah ketikan mohon tinggalkan pesan


Wss….wr….wb

Selamat mencoba