Tampilan :
Splash Screen
Halaman Menu
Tampilan halaman Konversi Desimal ke Biner
Tampilan halaman Konversi Biner ke Desimal
Tampilan halaman konversi rupiah
Program My Converter ini intinya sama seperti tugas yang saya berikan sebelumnya (versi 1.2.1), namun pada versi ini (ver 1.2.2) saya melakukan perubahan-perubahan guna menyesuaikan dengan komponen penilaian, perubahan- perubahannya antara lain :
- menggunakan class, object, property dll dalam melakukan operasi konversi biner > desimal atau sebaliknya
- menambahkan splash screen
- menambahkan about box
- mengganti desain
Source Code :
Public NotInheritable Class SplashScreen1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (Me.ProgressBar1.Value < 200) Then
Me.ProgressBar1.Value += 1
Else
Me.Timer1.Enabled = False
Me.Visible = False
MainScreen.Show()
End If
End Sub
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title
Else
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
Me.ProgressBar1.Value = 1
Me.Timer1.Interval = 1
Me.Timer1.Enabled = True
End Sub
End Class
------------------------------------------------------------
Public Class MainScreen
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DesKeBin.Show()
End Sub
Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
BinKeDes.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Rupiah.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AboutBox1.Show()
End Sub
End Class
------------------------------------------------------------------------
public Class ClsConvert
Private nbilangan1_priv
Public Function Bin2Dec(ByVal bil1 As String)
Bin2Dec = Convert.ToByte(bil1, 2)
End Function
Function Dec2Bin(ByVal bil1 As Long) As String
Do Until bil1 = 0
If (bil1 Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
bil1 = bil1 \ 2
Loop
End Function
Public Property nbilangan1() As Integer
Get
nbilangan1 = nbilangan1_priv
End Get
Set(ByVal value As Integer)
nbilangan1_priv = value
End Set
End Property
End Class
--------------------------------------------------
Public Class DesKeBin
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim x As Integer
Dim objCls As ClsConvert
objCls = New ClsConvert
x = objCls.Dec2Bin(tb1.Text)
tb2.Text = x
objCls.nbilangan1 = tb2.Text
MsgBox(objCls.nbilangan1)
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
tb1.Enabled = True
tb2.Enabled = True
tb1.Text = ""
tb2.Text = ""
tb1.Focus()
btn2.Text = "Ulangi"
btn1.Enabled = True
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
Dim o As Integer
o = MsgBox("Yakin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Keluar")
If o = vbOK Then
MsgBox("Terima kasih telah menggunakan program saya!", MsgBoxStyle.OkOnly, "Bye!")
End
End If
End
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
MainScreen.Show()
Me.Close()
End Sub
End Class
--------------------------------------------------------------
Public Class BinKeDes
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim x As Byte
Dim objCls As ClsConvert
objCls = New ClsConvert
x = objCls.Bin2Dec(Val(tb1.Text))
tb2.Text = x
objCls.nbilangan1 = tb2.Text
MsgBox(objCls.nbilangan1)
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
tb1.Enabled = True
tb2.Enabled = True
tb1.Text = ""
tb2.Text = ""
tb1.Focus()
btn2.Text = "Ulangi"
btn1.Enabled = True
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
Dim o As Integer
o = MsgBox("Yakin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Keluar")
If o = vbOK Then
MsgBox("Terima kasih telah menggunakan program saya!", MsgBoxStyle.OkOnly, "Bye!")
End
End If
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
MainScreen.Show()
Me.Close()
End Sub
End Class
RSS Feed (xml)
