Pertemuan 12, 11 Mei 2015 : File Dialog

FILE DIALOG

Open File Dialog merupakan jendela atau form dialog yang digunakan untuk mendapatkan suatu lokasi sebuah atau lebih file, pada form tersebut file file yang terlihat dapat di filter agar file dengan ekstensi tertentu yang terlihat saja.

Save File Dialog merupakan jendela atau form dialog yang digunakan untuk mengeset lokasi suatu file yang telah kita buat untuk disimpan ke dalam suatu disk.

Tutorial :  Menyimpan Inputan ke dalam file .TXT

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain MDI form Main Menu, form Meter To English, dan form Inches To Metrics seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Form1	Contoh	FileDialog
Picture Box		picFoto
Button1	Buka File	btnBuka
Button2	Report	btnReport
Button3	Simpan	btnSimpan
ComboBox		cmbFormat
OpenFileDialog1
SaveFileDialog1

Form 1

Objek	Text	Name
Form2	Report	frmReport
PrintPreviewControl1
PrintDocument1

Form Report

• Langkah kelima masukkan koding berikut:

    1.Form Contoh  
    Public Class FileDialog  
      
        Private Sub btnBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuka.Click  
            OpenFileDialog1.Filter = "JPEG|*.JPG|BITMAP|*.BMP|GIF|*.GIF|ICON|*.ICO"  
            OpenFileDialog1.RestoreDirectory = True  
            OpenFileDialog1.ShowDialog()  
            picFoto.SizeMode = PictureBoxSizeMode.StretchImage  
            picFoto.ImageLocation = OpenFileDialog1.FileName  
        End Sub  
      
        Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click  
            frmReport.Show()  
        End Sub  
      
        Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click  
            Dim Gambar As New System.Drawing.Bitmap(picFoto.Image)  
            SaveFileDialog1.ShowDialog()  
            Dim Lokasi As String = SaveFileDialog1.FileName() + Microsoft.VisualBasic.Right(OpenFileDialog1.FileName, 4)  
            Lokasi = Microsoft.VisualBasic.Replace(UCase(Lokasi), _  
                                            Microsoft.VisualBasic.Right( _  
                                            UCase(OpenFileDialog1.FileName), 4), _  
                                            "." & cmbFormat.Text & "")  
            Gambar.Save(Lokasi, System.Drawing.Imaging.ImageFormat.Bmp)  
            MsgBox("Penyimpanan Sukses!")  
        End Sub  
      
        Private Sub FileDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
            cmbFormat.Items.Add("JPEG")  
            cmbFormat.Items.Add("BMP")  
            cmbFormat.Items.Add("GIF")  
        End Sub  
    End Class  


view plainprint?

    2.Form Report  
    Public Class frmReport  
      
        Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage  
            Dim ReportFont As Font = New Drawing.Font("Times New Roman", 48)  
            Dim ReportBodyFont As Font = New Drawing.Font("Times New Roman", 48)  
            e.Graphics.DrawString("my example report title", ReportFont, Brushes.Chocolate, 100, 100)  
            e.Graphics.DrawString("the body of my report", ReportBodyFont, Brushes.CornflowerBlue, 100, 125)  
        End Sub  
      
        Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
            PrintPreviewControl1.Document = PrintDocument1  
        End Sub  
    End Class  

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.  

 

• Langkah ketujuh,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Tutorial :  Menyimpan Inputan ke dalam file .TXT

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

 

Objek	Text	Name
GroupBox1	Enter Data Karyawan
Label1	First Name
Label2	Middle Name
Label3	Last Name
Label4	Employee Number
Label5	Department
Label6	Telephone
Label7	Email Address
TextBox1		txtFirstName
TextBox2		txtMiddleName
TextBox3		txtLastName
TextBox4		txtEmployeeNumber
ComboBox		cmbDepartment
TextBox5		txtTelephone
TextBox6		txtEmail
SaveFileDialog1
Button1	Save	btnSave
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukkan koding berikut 

    Public Class SimpanData  
      
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
            InputBox("Enter File Name:")  
            cmbDepartment.Items.Add("Accounting")  
            cmbDepartment.Items.Add("Administration")  
            cmbDepartment.Items.Add("Receptionist")  
        End Sub  
      
        Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click  
            Dim i As Integer = FreeFile()  
            FileOpen(i, "F:\Data.txt", OpenMode.Output)  
            PrintLine(i, txtFirstName.Text, txtMiddleName.Text, txtLastName.Text, txtEmployeeNumber.Text, _  
                      cmbDepartment.SelectedItem, txtTelephone.Text, txtEmail.Text)  
            FileClose(i)  
        End Sub  
      
        Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
            txtFirstName.Clear()  
            txtMiddleName.Clear()  
            txtLastName.Clear()  
            txtEmployeeNumber.Clear()  
            cmbDepartment.ResetText()  
            txtTelephone.Clear()  
            txtEmail.Clear()  
        End Sub  
      
        Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
            Dim t = MsgBox("Simpan Data?", MsgBoxStyle.YesNo)  
            If t = MsgBoxResult.Yes Then  
                Me.Close()  
            Else  
                Me.Close()  
            End If  
        End Sub  
    End Class  

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

 

 

• Langkah ketujuh,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Read More

Pertemuan 11, 4 Mei 2015 : Menentukan Nilai Max Min, dan Rata-rata Curah Hujan

Tutorial :  Contoh Penggunaan Array untuk menentukan nilai Max, min dan menentukan rata-rata Curah Hujan

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

 

Objek	Text	Name
Form1	Menu	Menu
Button1	Mencar Nilai Max dan Min	btnMaxmin
Button2	Curah Hujan	btnHujan
Button3	Exit	btnExit

Objek	Text	Name
Form1	Max & Min	max_min
ListBox1		lstInput
ListBox2		lstView
Button1	Step 1 : Input Value	btnInput
Button2	Step 2 : View the highest	btnView
Button3	Clear	btnClear
Button4	Exit	btnExit

Objek	Text	Name
Form1	CurahHujan	CurahHujan
ListBox1		lstRainfall
GroupBox1	HASIL PERKIRAAN CUACA
Label1		lblAvgMonthly
Label2		lblTotalAnnual
Label3		lblMax
Label4		lblMin
Button1	Masukan Angka Perkiraan Cuaca	btnInput
Button2	Tampilkan Data Statistik	btnView
Button3	Clear	btnClear
Button4	Exit	btnExit

• Langkah kelima masukkan koding berikut

1.Form Menu

Public Class Menu  
  
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
        Me.Close()  
    End Sub  
  
    Private Sub btnHujan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHujan.Click  
        CurahHujan.Show()  
    End Sub  
  
    Private Sub btnMaxmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaxmin.Click  
        max_min.Show()  
    End Sub  
End Class 

2.Form max_min

    Public Class max_min  
      
        Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click  
            Dim intInput As Integer  
            For i = 0 To 2  
                intInput = Val(InputBox("Masukan angka :"))  
                lstInput.Items.Add(intInput)  
            Next  
        End Sub  
      
        Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click  
            Dim high As Integer = Integer.MinValue  
            Dim min As Integer = Integer.MaxValue  
      
            For Each item As Integer In lstInput.Items  
                high = Math.Max(high, item)  
                min = Math.Min(min, item)  
            Next  
            lstView.Items.Add("Nilai Maximum " + high.ToString)  
            lstView.Items.Add("Nilai Minimum " + min.ToString)  
        End Sub  
      
        Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
            lstInput.Items.Clear()  
            lstView.Items.Clear()  
        End Sub  
      
        Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
            Me.Close()  
        End Sub  
    End Class  

3.Form CurahHujan

    Public Class CurahHujan  
      
        Dim strMonths() As String = {"January", "February", "March", "April", _  
            "May", "June", "July", "August", "September", "October", "November", _  
            "December"}  
        Dim intMonths(11) As Integer  
        Dim intRain() As Integer  
      
        Private Sub CurahHujan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
            lblAvgMonthly.Visible = False  
            lblTotalAnnual.Visible = False  
            lblMin.Visible = False  
            lblMax.Visible = False  
        End Sub  
      
        Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click  
            Dim intCount As Integer  
            Dim intRain As Integer  
            lstRainfall.Items.Add("Monthly Rainfall Input")  
            lstRainfall.Items.Add("-----------------------------------")  
      
            For intCount = 0 To 11  
                intRain = Val(InputBox("Enter the inches of rainfall for " & strMonths(intCount)))  
                lstRainfall.Items.Add(strMonths(intCount) & " " & (intRain).ToString())  
                intMonths(intCount) = intRain  
            Next intCount  
        End Sub  
      
        Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click  
            Dim intCount As Integer  
            Dim intMaximum As Integer = intMonths(0)  
            Dim intMinimum As Integer = intMonths(0)  
            Dim dblAverage As Double  
            Dim intTotal As Integer = 0  
      
            'calculate maximum  
            For intCount = 1 To (intMonths.Length - 1)  
                If intMonths(intCount) > intMaximum Then  
                    intMaximum = intMonths(intCount)  
                End If  
            Next intCount  
      
            'calculate(minimum)  
            For intCount = 1 To (strMonths.Length - 1)  
                If intMonths(intCount) < intMinimum Then  
                    intMinimum = strMonths(intCount)  
                End If  
            Next intCount  
      
            'calculate average  
            For intCount = 1 To (strMonths.Length - 1)  
                intTotal += intMonths(intCount)  
            Next intCount  
      
            'use floating-point division to compute the average  
            dblAverage = (intTotal / strMonths.Length)  
      
            'calculate total rainfall  
            For intCount = 1 To (strMonths.Length - 1)  
                intTotal += intMonths(intCount)  
            Next intCount  
      
            lblAvgMonthly.Visible = True  
            lblTotalAnnual.Visible = True  
            lblMin.Visible = True  
            lblMax.Visible = True  
            lblAvgMonthly.Text = "The average monthly rainfall was " & dblAverage  
            lblTotalAnnual.Text = "The total annual rainfall was " & intTotal  
            lblMin.Text = "The minimum monthly rainfall was " & intMinimum  
            lblMax.Text = "The maximum monthly rainfall was " & intMaximum  
        End Sub  
      
        Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
            Me.Close()  
        End Sub  
      
        Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
            lstRainfall.Items.Clear()  
        End Sub  
    End Class  

 

    Public Class CurahHujan  
      
        Dim strMonths() As String = {"January", "February", "March", "April", _  
            "May", "June", "July", "August", "September", "October", "November", _  
            "December"}  
        Dim intMonths(11) As Integer  
        Dim intRain() As Integer  
      
        Private Sub CurahHujan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
            lblAvgMonthly.Visible = False  
            lblTotalAnnual.Visible = False  
            lblMin.Visible = False  
            lblMax.Visible = False  
        End Sub  
      
        Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click  
            Dim intCount As Integer  
            Dim intRain As Integer  
            lstRainfall.Items.Add("Monthly Rainfall Input")  
            lstRainfall.Items.Add("-----------------------------------")  
      
            For intCount = 0 To 11  
                intRain = Val(InputBox("Enter the inches of rainfall for " & strMonths(intCount)))  
                lstRainfall.Items.Add(strMonths(intCount) & " " & (intRain).ToString())  
                intMonths(intCount) = intRain  
            Next intCount  
        End Sub  
      
        Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click  
            Dim intCount As Integer  
            Dim intMaximum As Integer = intMonths(0)  
            Dim intMinimum As Integer = intMonths(0)  
            Dim dblAverage As Double  
            Dim intTotal As Integer = 0  
      
            'calculate maximum  
            For intCount = 1 To (intMonths.Length - 1)  
                If intMonths(intCount) > intMaximum Then  
                    intMaximum = intMonths(intCount)  
                End If  
            Next intCount  
      
            'calculate(minimum)  
            For intCount = 1 To (strMonths.Length - 1)  
                If intMonths(intCount) < intMinimum Then  
                    intMinimum = strMonths(intCount)  
                End If  
            Next intCount  
      
            'calculate average  
            For intCount = 1 To (strMonths.Length - 1)  
                intTotal += intMonths(intCount)  
            Next intCount  
      
            'use floating-point division to compute the average  
            dblAverage = (intTotal / strMonths.Length)  
      
            'calculate total rainfall  
            For intCount = 1 To (strMonths.Length - 1)  
                intTotal += intMonths(intCount)  
            Next intCount  
      
            lblAvgMonthly.Visible = True  
            lblTotalAnnual.Visible = True  
            lblMin.Visible = True  
            lblMax.Visible = True  
            lblAvgMonthly.Text = "The average monthly rainfall was " & dblAverage  
            lblTotalAnnual.Text = "The total annual rainfall was " & intTotal  
            lblMin.Text = "The minimum monthly rainfall was " & intMinimum  
            lblMax.Text = "The maximum monthly rainfall was " & intMaximum  
        End Sub  
      
        Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
            Me.Close()  
        End Sub  
      
        Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
            lstRainfall.Items.Clear()  
        End Sub  
    End Class  

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

 

• Langkah ketujuh,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Read More