kumpulan tugas-tugas kuliah

RUMUS MENCARI LUAS PERSEGI PANJANG

Private Sub cmdhitung_Click()
txtluas.Text = txtpanjang.Text * txtlebar.Text
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulangi_Click()
txtpanjang.Text = ""
txtlebar.Text = ""
txtluas.Text = ""
cmdhitung.SetFocus
End Sub


untuk dapat mengerjakan saol mencari luas suatu bangun dalam pemrograman VB,kita dituntun untuk bisa mengetahui terlebih dahulu rumus luas dari
bangun yang akan kita kerjakan.
untuk itu, saya ambil contoh bangun persegi panjang. seperti kita ketahui
mencari luas persegi panjang adalah:
 luas = panjang * lebar
setelah kita mengetahui rumus luas bangun tersebut, kita juga harus mampu
memasukannya dalam rumus pemrograman VB (VISUAL BASIC).
Mari kita baca bersama-sama rumus diatas. Bila terjemahkan akan berbunyi :
Luas = panjang * lebar
kemudian end berfungsi untuk mengakhiri atau keluar.
Txtpanjang.text= “ “ berarti text panjang nantinya akan dikosongkan dan begitupun lainnya












RUMUS MENGHITUNG LUAS, KELILING, PANJANG, LEBAR DENGAN OPTION BUTTON


Private Sub Command1_Click(Index As Integer)
If optluas.Value = True Then
txthasil.Text = txtpanjang.Text * txtlebar.Text
ElseIf optpanjang.Value = True Then
txthasil.Text = txtpanjang.Text / txtlebar.Text
Else
txthasil.Text = txtpanjang.Text / txtlebar.Text
End If
If optkeliling = True Then
txthasil = 2 * txtpanjang.Text + 2 * txtlebar.Text
End If

End Sub

Private Sub Command2_Click()
lblpanjang.Caption = "LUAS"
lbllebar.Caption = "LEBAR"
optluas.Value = True
txtpanjang.Text = ""
txtlebar.Text = ""
txthasil.Text = ""

End Sub


Private Sub Command3_Click()
End
End Sub

Private Sub Command3_Click()
If optkeliling.Value = True Then
lblpanjang.Caption = "PANJANG"
lbllebar.Caption = "LEBAR"
End If
End Sub

Private Sub optlebar_Click()
If optlebar.Value = True Then
lblpanjang.Caption = "LUAS"
lbllebar.Caption = "PANJANG"
End If
End Sub

Private Sub optluas_Click()
If optluas.Value = True Then
lblpanjang.Caption = "PANJANG"
lbllebar.Caption = "LEBAR"
End If
End Sub


Private Sub optpanjang_Click()
If optpanjang.Value = True Then
lblpanjang.Caption = "LUAS"
lbllebar.Caption = "LEBAR"
End If
End Sub


Seperti halnya yang lain, kita juga dituntut harus mengetahui rumus keseluruhannya. Bila di terjemahkan maka rumus diatas dapat berbunyi :
Command1
Jika option luas benar, maka hasil = panjang * lebar
Kemudian jika option panjang benar, maka hasil= panjang / lebar
Kemudian jika tidak maka komputer akan menempatkan untuk hasil optin lebar. Dan if harus diakhiri dengan end if
Jika option keliling benar maka, Keliling = 2* panjang + 2* lebar dan jang lupa akhiri lagi dengan end if

Command2
Jika tidak digunkan maka option akan aktif pada luas dan label berisi panjang dan lebar. Dan semuanya dalam keadaan kosong

Command3
Untuk mengakhiri atau keluar dari program
Jika option keliling maka, label akan berisi panjang dan lebar

Optlebar
Jika option luas di klik maka, label akan berisi luas dan panjang

Optluas
Jika option luas di klik, maka label akan berisi panjang dan lebar

Optpanjang
Jika option panjang di klik, maka label akan berisi luas dan lebar



RUMUS MENCARI BIL GANJIL / GENAP


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
If txthasil.Text Mod 2 = 0 Then
lblangka.Caption = "GENAP"
Else
lblangka.Caption = "GANJIL"
End If
cmdulangi.Enabled = True
cmdproses.Enabled = False
End Sub

Private Sub cmdulangi_Click()
txthasil.Text = ""
lblangka.Caption = ""
txthasil.SetFocus
cmdulangi.Enabled = False
cmdproses.Enabled = True
End Sub

Rumus diatas dapat dibaca :

Cmdkeluar
End, untuk mengakhiri atau keluar dari program

Cmdproses
Jika text hasil di bagi 2 = 0, maka label angka berisi “GENAP”
jika tidak maka label angka berisi “GANJIL” jangan lupa akhiri dengan end if.
Cmdulangi.enabled = true berarti command ulangi akan aktif dan command proses akan mati

Cmdulangi
Text hasil akan kosong dan label angka juga.
Kemudian command ulangi mati dan command proses akan aktif







RUMUS MENCARI GENAP, GANJIL VARIASI


Private Sub cmdganjil_Click()
For i = 0 To 4
ganjil = bil(i) / 2 - Int(bil(i) / 2)
If ganjil <> 0 Then
bil(i).BackColor = vbGreen
txtganjil.Text = txtganjil.Text & "" & Str(bil(i))
End If
Next
End Sub

Private Sub cmdgenap_Click()
For i = 0 To 4
genap = bil(i) / 2 - Int(bil(i) / 2)
If genap = 0 Then
bil(i).BackColor = vbBlue
txtgenap.Text = txtgenap.Text & "" & Str(bil(i))
End If
Next
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Rumus diatas dapat diartikan :

cmdganjil
Untuk bilang 0 sampai 4
Jika bilangan di bagi 2 hasilnya tidak sama dengan 0, maka ganjil.
Background bilangan ke (i)= grenn (hijau)


cmdgenap
Untuk bilang 0 sampai 4
Jika bilangan di bagi 2 hasilnya 0, maka genap
Background bilangan ke (i) = blue (biru)







RUMUS MENCARI FACTORIAL (!)


Private Sub cmdfac_Click()
bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)
End Sub

Private Sub cmdfin_Click()
End

End Sub


Sebelum kita membaca rumus diatas, kita harus mengerti terlebih dahulu bilangan factorial.
Ex : 5!  1*2*3*4*5 =120
4!  1*2*3*4 =24 dst......
Maka rumus diatas dapat dibaca :

cmdfac

Bilangan kita simbolkan dengan (i) berarti untuk bilangan kesatu sampai bilangan yang ditulis dalam text angka
Bilangan = 1 * bil (i)

Cmdfin
Untuk keluar atau mengakhiri suatu program.
















RUMUS MENCARI BILANGAN PRIMA


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
If txtangka.Text = 1 Then
txthasil.Text = "BUKA PRIMA"
ElseIf txtangka.Text = 2 Then
txthasil.Text = "PRIMA"
Else
For i = 2 To txtangka.Text - 1
If txtangka.Text Mod i = 0 Then
txthasil.Text = "BUKAN PRIMA"
Exit For
Else
txthasil.Text = "PRIMA"
End If
Next
End If
End Sub

Private Sub cmdulang_Click()
txtangka.Text = ""
txthasil.Text = ""
cmdproses.SetFocus
End Sub

Sebelum kita mempelajari rumus diatas. Kita perlu mengetahui apa yang dimaksud bilangan prima.
Bilangan prima adalah bilangan yang hanya bisa di bagi 1 dan di bagi dengan bilangan itu sendiri.
Ex : 2, 5, 7, 11, 13 dst....
Rumus diatas dapat diartika :

Cmdproses
Jika text angka =1 maka text hasil =”BUKAN PRIMA”
Jika text angka =2 maka text hasil =”PRIMA”
Jika bilangan ke (i) – 1 kemudian dibagi (/) bilangan ke (i)= o maka text hasil = “BUKAN PRIMA”
Jika tidak maka “PRIMA”



@ichiblogger.blogspot