Form jam digital
private sub form_load()
lblWaktu.caption = format (now(), "DDD, d MMMM yyyy hh:mm:ss")
end sub
private sub timer1_timer()
lblWaktu.caption = format (now(), "DDD, d MMMM yyyy hh:mm:ss")
end sub
private sub timer2_timer()
lblWaktu.forecolor = vbcyan
end sub
private sub timer3_timer()
lblWaktu.forecolor = vbwhite
end sub
Form nilai rata – rata
Dim UTS, UAS, TOTAL As Integer
Private Sub Command1_Click()
Command2.Enabled = True
Label4.visibel = True
UTS = Text1.Text
UAS = Text2.Text
TOTAL = Val((UAS) + Val(UTS)) / 2
Label5.Caption = TOTAL
Command1.Enabled = False
Command2.SetFocus
If TOTAL >= 85 Then
Label4.Caption = "GOOD JOB"
ElseIf TOTAL >= 70 Then
Label4.Caption = "Bagus"
ElseIf TOTAL >= 60 Then
Label4.Caption = "Rata-Rata"
ElseIf TOTAL >= 50 Then
Label4.Caption = "Cukup"
elsen
Label4.Caption = "Blo'on !!!"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Form bilangan prima
Dim angka As Integer
Function prima(angka) As Boolean
Dim i, j, k, p As Integer
p = 0
For i = 1 To angka
k = angka Mod i
If k = 0 Then
p = p + 1
End If
Next i
If p = 2 Then
prima = True
Else
prima = False
End If
End Function
Private Sub Command1_Click()
If (prima(Val(Text1.Text)) = True) Then
Form1.BackColor = vbBlue
MsgBox Text1.Text + " adalah bilangan PRIMA", vbOKOnly, "Bilangan Prima"
Else
Form1.BackColor = vbRed
MsgBox Text1.Text + " bukan bilangan PRIMA", vbCritical, "Bukan Bilangan Prima"
End If
Form1.BackColor = vbBlack
End Sub
MDI form
Private Sub BilanganPrima_Click()
Form1.Show
End Sub
Private Sub Case_Click()
Form2.Show
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub JamDigital_Click()
Form3.Show
End Sub
Logika nya:
A. buat jam digital
private sub form_load()
lblWaktu.caption = format (now(), "DDD, d MMMM yyyy hh:mm:ss")
end sub
dalam listing format yang dipakai dalam jam itu adalah seperti di atas.
private sub timer2_timer()
lblWaktu.forecolor = vbcyan
end sub
private sub timer3_timer()
lblWaktu.forecolor = vbwhite
end sub
dalam listing ini hanya di gunakan untuk memberi warna pada gambar jam yang ada di form.
B. Buat nilai rata – rata
Dim UTS, UAS, TOTAL As Integer
ini di menunjukan kalau di dalam listing ini memiliki tiga buah variabel yaitu uas, uts, total dan semua nya bervariabel integer.
If TOTAL >= 85 Then
Label4.Caption = "GOOD JOB"
ElseIf TOTAL >= 70 Then
Label4.Caption = "Bagus"
ElseIf TOTAL >= 60 Then
Label4.Caption = "Rata-Rata"
ElseIf TOTAL >= 50 Then
Label4.Caption = "Cukup"
elsen
Label4.Caption = "Blo'on !!!"
End If
Nah di listing di gunakan fungsi IF.....ELSE yang digunakan untuk mengelompokan nilai yang keluar dan akan memuncul kan apa dalam textbox yang ada menurut angka yang keluar saat melakukan penghitungan angka total. Statemen ini menggunakan percabangan kondisi yaitu Select Case.
Kondisi 1 apabila nilai total lebih besar atau sama dengan 85 maka di label 4 akan keluar kata GOOD JOB.
Kondisi 2 apabila nilai total lebih besar atau sama dengan 70 maka di label 4 akan keluar kata Bagus.
Kondisi 3 apabila nilai total lebih besar atau sama dengan 60 maka di label 4 akan keluar kata Rata-Rata.
Kondisi 4 apabila nilai total lebih besar atau sama dengan 50 maka di label 4 akan keluar kata Cukup.
Kondisi yanterakhir apabila nilai total lebih kurang dari 50 maka di label 4 akan keluar kata Blo’on!!!
C. Logika bilangan prima
Dim angka As Integer
Function prima(angka) As Boolean
Dim i, j, k, p As Integer
p = 0
For i = 1 To angka
k = angka Mod i
If k = 0 Then
p = p + 1
End If
Next i
If p = 2 Then
prima = True
Else
prima = False
End If
End Function
Private Sub Command1_Click()
If (prima(Val(Text1.Text)) = True) Then
Form1.BackColor = vbBlue
MsgBox Text1.Text + " adalah bilangan PRIMA", vbOKOnly, "Bilangan Prima"
Else
Form1.BackColor = vbRed
MsgBox Text1.Text + " bukan bilangan PRIMA", vbCritical, "Bukan Bilangan Prima"
End If
Form1.BackColor = vbBlack
End Sub
Seperti biasa statement awal nya yaitu dim as integer yang berarti kan semua yang yang di massukan nilai nya adalah bulat. lalu Function as boolean yang berarti nilai dari angka itu benar atau salah saja. Di dalam fungsi ini ditentukan variabel i, j, k, p dengan tipe data Boolean. Variabel p diberi nilai awal 0, lalu dilakukan perulangan dengan pencacah variabel i bernilai awal 1 sampai nilai yang dimasukkan dalam variabel angka. Kemudian nilai pada variabel k diberi nilai dari variabel angka dibagi MOD dengan 1 sehingga menghasilkan nilai bilangan bulat. Kemudian dilakukan percabangan, jika nilai variabel k = 0 maka nilai variabel p ditambahkan 1 dari nilai awalnya, kemudian selesai percabangan, lanjut perulangan sampai selesai. Setelah itu dilakukan percabangan variabel p, jika p = 2 maka nilai variabel prima adalah true, jika tidak maka nilainya false. Selesai percabangan dan fungsi.
setelah di click kolom yang di gunakan untuk menjalan kan perintah atau langkah – langkah di atas apa bila bilangan prima maka akan keluar sebuah message box yang bertuliskan angka yang anda masukan lalu tulisan “ adalah bilangan prima” lalu hanya ada kotak ok saja di bawah nya dan form nya berubah menjadi warna biru. namun apa bila bukan bilangan prima maka akan keluar message box yang bertuliskan angka yang di input dan tulisan “ bukan bilangan prima” dan form berubah menjadi hitam.
D. Logika MDI Form
Private Sub BilanganPrima_Click()
Form1.Show
End Sub
Private Sub Case_Click()
Form2.Show
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub JamDigital_Click()
Form3.Show
End Sub.
Statemen ini digunakan di MDI form nya untuk memanggil semua form nya. apabila bilanganprima yang di panggil maka yang muncul adalah form 1. Lalu apabila case yang di panggil maka yang muncul adalah adalah form 2. Dan apabila yang jamdigital yang di panggil maka yang muncul adalah form 3. Dan apabila yang di panggil adalah exit maka anda akan pengakhiri program tersebut, seperti saya yang mengakhiri logika ini.
Tidak ada komentar:
Posting Komentar