Program perhitungan impuls

Assalamualaikum Wr. Wb.

Ini adalah tugas pertama di matapelajaran produktif kelas 3 smk.

di tugas kali ini saya membuat sebuah program sederhana tentang perhitungan impuls . Dimana materi ini adalah materi waktu saya di kelas 2.

oke gan langsung disain aja program nya seperti gambar di bawah.

Setelah disan selesai langasung aja gan kita masukan script nya 

biar program nya bisa jaln sesuai yang kita inginkan.

untuk script nya tinggal copas aja di bawah ini tp jangan lupa di perhatikan tata letak scrip nya jangan asal asaln naro

Public Class Form1 Sub implus() TextBox1.Text = TextBox2.Text * TextBox3.Text TextBox1.BackColor = Color.Red TextBox2.BackColor = Color.White TextBox3.BackColor = Color.White End Sub Sub gaya() TextBox2.Text = TextBox1.Text / TextBox3.Text TextBox1.BackColor = Color.White TextBox2.BackColor = Color.Red TextBox3.BackColor = Color.White End Sub Sub selang_waktu() TextBox3.Text = TextBox1.Text / TextBox2.Text TextBox1.BackColor = Color.White TextBox2.BackColor = Color.White TextBox3.BackColor = Color.Red End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label6.Text = "N.s" Label7.Text = "Newton" Label8.Text = "secon" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked Then implus() ElseIf RadioButton2.Checked Then gaya() ElseIf RadioButton3.Checked Then selang_waktu() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" RadioButton1.Checked = False RadioButton2.Checked = False RadioButton3.Checked = False End Sub End Class

ok gan kalo masih kurang jelas juga saya kasih vidio nya lah. heheheh

kalo mau coba perhatikan baik baik gan hheehe

simpel banget kok

Tweet

Postingan terkait:

Ditulis Unknown — Tuesday, 26 July 2016 — Add Comment