Assalamu'alaikum Wr.Wb
Kali ini saya akan berbagi seputar tugas perkuliahan saya, kali ini berkaitan dengan software Visual Studio 2012. jadi jika kalian ingin mengikuti tutorial aplikasi ini, pastikan kalian sudah meng-instal aplikasi tersebut. langsung saja ini dia penjelasannya ...
Sesuai dengan judul postingan ini, aplikasi ini berguna untuk menunjang kemudahan pedangan dalam permasalahan menu. dengan aplikasi ini pedagang dapat mengefisiensikan waktu dan uang dalam pemanfaatan aplikasi ini. tentu sebuah aplikasi memiliki kelebihan dan kekurangan sendiri, kekurangan dari aplikasi ini ialah pengguna harus menginput seluruh combo box yang tersedia yaitu sebanyak 7 buah karena jika tidak maka aplikasi tidak akan berjalan(catatan: isikan jumlah sesuai dengan pesanan, jika tidak dipesan biarkan jumlah dengan nilai "0" maka hanya terinput jenis makan dan tidak masuk kedalam hitungan total makanan). alasan saya menggunaka 7 combo box adalah untuk memaksimalkan semua menu agar pelanggan dapat memilih semua jenis menu dalam satu kali tahap pemesanan. langsung saja ini dia program aplikasinya dibawah ini, saya sertakan serta screen shoot dan source code nya. untuk yang menginginkan aplikasinya bisa hubungi dikontak yang tersedia.
#Screen Shoot
 |
| Desain Aplikasi |
 |
| Aplikasi di-Input (lihat jumlah nol mereka tidak masuk hitungan) |
 |
| Hasil aplikasi setelah klik tombol "save to word" |
 |
| Hasil aplikasi setelah klik tombol "save to excell" |
#Source Code
- Source Code Untuk mengiai Combo Box
Private Sub UTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
nomej.Items.Add("Meja 1")
nomej.Items.Add("Meja 2")
nomej.Items.Add("Meja 3")
nomej.Items.Add("Meja 4")
nomej.Items.Add("Meja 5")
mak1.Items.Add("Nasi Goreng Biasa")
mak1.Items.Add("Nasi Goreng Baso")
mak1.Items.Add("Nasi Goreng Sosis")
mak1.Items.Add("Nasi Goreng SeaFood")
mak1.Items.Add("Nasi Goreng Jumbo")
mak1.Items.Add("Nasi Goreng Spesial")
mak1.Items.Add("Nasi Goreng Ati")
mak2.Items.Add("Nasi Goreng Biasa")
mak2.Items.Add("Nasi Goreng Baso")
mak2.Items.Add("Nasi Goreng Sosis")
mak2.Items.Add("Nasi Goreng SeaFood")
mak2.Items.Add("Nasi Goreng Jumbo")
mak2.Items.Add("Nasi Goreng Spesial")
mak2.Items.Add("Nasi Goreng Ati")
mak3.Items.Add("Nasi Goreng Biasa")
mak3.Items.Add("Nasi Goreng Baso")
mak3.Items.Add("Nasi Goreng Sosis")
mak3.Items.Add("Nasi Goreng SeaFood")
mak3.Items.Add("Nasi Goreng Jumbo")
mak3.Items.Add("Nasi Goreng Spesial")
mak3.Items.Add("Nasi Goreng Ati")
mak4.Items.Add("Nasi Goreng Biasa")
mak4.Items.Add("Nasi Goreng Baso")
mak4.Items.Add("Nasi Goreng Sosis")
mak4.Items.Add("Nasi Goreng SeaFood")
mak4.Items.Add("Nasi Goreng Jumbo")
mak4.Items.Add("Nasi Goreng Spesial")
mak4.Items.Add("Nasi Goreng Ati")
mak5.Items.Add("Nasi Goreng Biasa")
mak5.Items.Add("Nasi Goreng Baso")
mak5.Items.Add("Nasi Goreng Sosis")
mak5.Items.Add("Nasi Goreng SeaFood")
mak5.Items.Add("Nasi Goreng Jumbo")
mak5.Items.Add("Nasi Goreng Spesial")
mak5.Items.Add("Nasi Goreng Ati")
mak6.Items.Add("Nasi Goreng Biasa")
mak6.Items.Add("Nasi Goreng Baso")
mak6.Items.Add("Nasi Goreng Sosis")
mak6.Items.Add("Nasi Goreng SeaFood")
mak6.Items.Add("Nasi Goreng Jumbo")
mak6.Items.Add("Nasi Goreng Spesial")
mak6.Items.Add("Nasi Goreng Ati")
mak7.Items.Add("Nasi Goreng Biasa")
mak7.Items.Add("Nasi Goreng Baso")
mak7.Items.Add("Nasi Goreng Sosis")
mak7.Items.Add("Nasi Goreng SeaFood")
mak7.Items.Add("Nasi Goreng Jumbo")
mak7.Items.Add("Nasi Goreng Spesial")
mak7.Items.Add("Nasi Goreng Ati")
min1.Items.Add("Es Teh Manis")
min1.Items.Add("Teh Manis Hangat")
min1.Items.Add("Es Jeruk")
min1.Items.Add("Es Campur")
min1.Items.Add("Teh Botol")
min1.Items.Add("Sprite")
min1.Items.Add("Fanta")
min2.Items.Add("Es Teh Manis")
min2.Items.Add("Teh Manis Hangat")
min2.Items.Add("Es Jeruk")
min2.Items.Add("Es Campur")
min2.Items.Add("Teh Botol")
min2.Items.Add("Sprite")
min2.Items.Add("Fanta")
min3.Items.Add("Es Teh Manis")
min3.Items.Add("Teh Manis Hangat")
min3.Items.Add("Es Jeruk")
min3.Items.Add("Es Campur")
min3.Items.Add("Teh Botol")
min3.Items.Add("Sprite")
min3.Items.Add("Fanta")
min4.Items.Add("Es Teh Manis")
min4.Items.Add("Teh Manis Hangat")
min4.Items.Add("Es Jeruk")
min4.Items.Add("Es Campur")
min4.Items.Add("Teh Botol")
min4.Items.Add("Sprite")
min4.Items.Add("Fanta")
min5.Items.Add("Es Teh Manis")
min5.Items.Add("Teh Manis Hangat")
min5.Items.Add("Es Jeruk")
min5.Items.Add("Es Campur")
min5.Items.Add("Teh Botol")
min5.Items.Add("Sprite")
min5.Items.Add("Fanta")
min6.Items.Add("Es Teh Manis")
min6.Items.Add("Teh Manis Hangat")
min6.Items.Add("Es Jeruk")
min6.Items.Add("Es Campur")
min6.Items.Add("Teh Botol")
min6.Items.Add("Sprite")
min6.Items.Add("Fanta")
min7.Items.Add("Es Teh Manis")
min7.Items.Add("Teh Manis Hangat")
min7.Items.Add("Es Jeruk")
min7.Items.Add("Es Campur")
min7.Items.Add("Teh Botol")
min7.Items.Add("Sprite")
min7.Items.Add("Fanta")
End Sub
- Combo Box Makanan 1-7
Private Sub mak1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak1.SelectedIndexChanged
If mak1.Text = "Nasi Goreng Biasa" Then
hrgmak1.Text = Val(hrgmak1.Text) * 15000
ElseIf mak1.Text = "Nasi Goreng Baso" Then
hrgmak1.Text = Val(hrgmak1.Text) * 18000
ElseIf mak1.Text = "Nasi Goreng Sosis" Then
hrgmak1.Text = Val(hrgmak1.Text) * 18000
ElseIf mak1.Text = "Nasi Goreng SeaFood" Then
hrgmak1.Text = Val(hrgmak1.Text) * 25000
ElseIf mak1.Text = "Nasi Goreng Jumbo" Then
hrgmak1.Text = Val(hrgmak1.Text) * 30000
ElseIf mak1.Text = "Nasi Goreng Spesial" Then
hrgmak1.Text = Val(hrgmak1.Text) * 23000
ElseIf mak1.Text = "Nasi Goreng Ati" Then
hrgmak1.Text = Val(hrgmak1.Text) * 20000
End If
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak2.SelectedIndexChanged
If mak2.Text = "Nasi Goreng Biasa" Then
hrgmak2.Text = Val(hrgmak2.Text) * 15000
ElseIf mak2.Text = "Nasi Goreng Baso" Then
hrgmak2.Text = Val(hrgmak2.Text) * 18000
ElseIf mak2.Text = "Nasi Goreng Sosis" Then
hrgmak2.Text = Val(hrgmak2.Text) * 18000
ElseIf mak2.Text = "Nasi Goreng SeaFood" Then
hrgmak2.Text = Val(hrgmak2.Text) * 25000
ElseIf mak2.Text = "Nasi Goreng Jumbo" Then
hrgmak2.Text = Val(hrgmak2.Text) * 30000
ElseIf mak2.Text = "Nasi Goreng Spesial" Then
hrgmak2.Text = Val(hrgmak2.Text) * 23000
ElseIf mak2.Text = "Nasi Goreng Ati" Then
hrgmak2.Text = Val(hrgmak2.Text) * 20000
End If
End Sub
Private Sub mak3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak3.SelectedIndexChanged
If mak3.Text = "Nasi Goreng Biasa" Then
hrgmak3.Text = Val(hrgmak3.Text) * 15000
ElseIf mak3.Text = "Nasi Goreng Baso" Then
hrgmak3.Text = Val(hrgmak3.Text) * 18000
ElseIf mak3.Text = "Nasi Goreng Sosis" Then
hrgmak3.Text = Val(hrgmak3.Text) * 18000
ElseIf mak3.Text = "Nasi Goreng SeaFood" Then
hrgmak3.Text = Val(hrgmak3.Text) * 25000
ElseIf mak3.Text = "Nasi Goreng Jumbo" Then
hrgmak3.Text = Val(hrgmak3.Text) * 30000
ElseIf mak3.Text = "Nasi Goreng Spesial" Then
hrgmak3.Text = Val(hrgmak3.Text) * 23000
ElseIf mak3.Text = "Nasi Goreng Ati" Then
hrgmak3.Text = Val(hrgmak3.Text) * 20000
End If
End Sub
Private Sub mak4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak4.SelectedIndexChanged
If mak4.Text = "Nasi Goreng Biasa" Then
hrgmak4.Text = Val(hrgmak4.Text) * 15000
ElseIf mak4.Text = "Nasi Goreng Baso" Then
hrgmak4.Text = Val(hrgmak4.Text) * 18000
ElseIf mak4.Text = "Nasi Goreng Sosis" Then
hrgmak4.Text = Val(hrgmak4.Text) * 18000
ElseIf mak4.Text = "Nasi Goreng SeaFood" Then
hrgmak4.Text = Val(hrgmak4.Text) * 25000
ElseIf mak4.Text = "Nasi Goreng Jumbo" Then
hrgmak4.Text = Val(hrgmak4.Text) * 30000
ElseIf mak4.Text = "Nasi Goreng Spesial" Then
hrgmak4.Text = Val(hrgmak4.Text) * 23000
ElseIf mak4.Text = "Nasi Goreng Ati" Then
hrgmak4.Text = Val(hrgmak4.Text) * 20000
End If
End Sub
Private Sub mak5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak5.SelectedIndexChanged
If mak5.Text = "Nasi Goreng Biasa" Then
hrgmak5.Text = Val(hrgmak5.Text) * 15000
ElseIf mak5.Text = "Nasi Goreng Baso" Then
hrgmak5.Text = Val(hrgmak5.Text) * 18000
ElseIf mak5.Text = "Nasi Goreng Sosis" Then
hrgmak5.Text = Val(hrgmak5.Text) * 18000
ElseIf mak5.Text = "Nasi Goreng SeaFood" Then
hrgmak5.Text = Val(hrgmak5.Text) * 25000
ElseIf mak5.Text = "Nasi Goreng Jumbo" Then
hrgmak5.Text = Val(hrgmak5.Text) * 30000
ElseIf mak5.Text = "Nasi Goreng Spesial" Then
hrgmak5.Text = Val(hrgmak5.Text) * 23000
ElseIf mak5.Text = "Nasi Goreng Ati" Then
hrgmak5.Text = Val(hrgmak5.Text) * 20000
End If
End Sub
Private Sub mak6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak6.SelectedIndexChanged
If mak6.Text = "Nasi Goreng Biasa" Then
hrgmak6.Text = Val(hrgmak6.Text) * 15000
ElseIf mak6.Text = "Nasi Goreng Baso" Then
hrgmak6.Text = Val(hrgmak6.Text) * 18000
ElseIf mak6.Text = "Nasi Goreng Sosis" Then
hrgmak6.Text = Val(hrgmak6.Text) * 18000
ElseIf mak6.Text = "Nasi Goreng SeaFood" Then
hrgmak6.Text = Val(hrgmak6.Text) * 25000
ElseIf mak6.Text = "Nasi Goreng Jumbo" Then
hrgmak6.Text = Val(hrgmak6.Text) * 30000
ElseIf mak6.Text = "Nasi Goreng Spesial" Then
hrgmak6.Text = Val(hrgmak6.Text) * 23000
ElseIf mak6.Text = "Nasi Goreng Ati" Then
hrgmak6.Text = Val(hrgmak6.Text) * 20000
End If
End Sub
Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mak7.SelectedIndexChanged
If mak7.Text = "Nasi Goreng Biasa" Then
hrgmak7.Text = Val(hrgmak7.Text) * 15000
ElseIf mak7.Text = "Nasi Goreng Baso" Then
hrgmak7.Text = Val(hrgmak7.Text) * 18000
ElseIf mak7.Text = "Nasi Goreng Sosis" Then
hrgmak7.Text = Val(hrgmak7.Text) * 18000
ElseIf mak7.Text = "Nasi Goreng SeaFood" Then
hrgmak7.Text = Val(hrgmak7.Text) * 25000
ElseIf mak7.Text = "Nasi Goreng Jumbo" Then
hrgmak7.Text = Val(hrgmak7.Text) * 30000
ElseIf mak7.Text = "Nasi Goreng Spesial" Then
hrgmak7.Text = Val(hrgmak7.Text) * 23000
ElseIf mak7.Text = "Nasi Goreng Ati" Then
hrgmak7.Text = Val(hrgmak7.Text) * 20000
End If
End Sub
- Text Box Harga Makanan 1-7
Private Sub hrgmak1_TextChanged(sender As Object, e As EventArgs) Handles hrgmak1.TextChanged
If mak1.Text = "Nasi Goreng Biasa" Then
hrgmak1.Text = "15000"
ElseIf mak1.Text = "Nasi Goreng Baso" Then
hrgmak1.Text = "18000"
ElseIf mak1.Text = "Nasi Goreng Sosis" Then
hrgmak1.Text = "18000"
ElseIf mak1.Text = "Nasi Goreng SeaFood" Then
hrgmak1.Text = "25000"
ElseIf mak1.Text = "Nasi Goreng Jumbo" Then
hrgmak1.Text = "30000"
ElseIf mak1.Text = "Nasi Goreng Spesial" Then
hrgmak1.Text = "23000"
ElseIf mak1.Text = "Nasi Goreng Ati" Then
hrgmak1.Text = "20000"
End If
End Sub
Private Sub hrgmak2_TextChanged(sender As Object, e As EventArgs) Handles hrgmak2.TextChanged
If mak2.Text = "Nasi Goreng Biasa" Then
hrgmak2.Text = "15000"
ElseIf mak2.Text = "Nasi Goreng Baso" Then
hrgmak2.Text = "18000"
ElseIf mak2.Text = "Nasi Goreng Sosis" Then
hrgmak2.Text = "18000"
ElseIf mak2.Text = "Nasi Goreng SeaFood" Then
hrgmak2.Text = "25000"
ElseIf mak2.Text = "Nasi Goreng Jumbo" Then
hrgmak2.Text = "30000"
ElseIf mak2.Text = "Nasi Goreng Spesial" Then
hrgmak2.Text = "23000"
ElseIf mak2.Text = "Nasi Goreng Ati" Then
hrgmak2.Text = "20000"
End If
End Sub
Private Sub hrgmak3_TextChanged(sender As Object, e As EventArgs) Handles hrgmak3.TextChanged
If mak3.Text = "Nasi Goreng Biasa" Then
hrgmak3.Text = "15000"
ElseIf mak3.Text = "Nasi Goreng Baso" Then
hrgmak3.Text = "18000"
ElseIf mak3.Text = "Nasi Goreng Sosis" Then
hrgmak3.Text = "18000"
ElseIf mak3.Text = "Nasi Goreng SeaFood" Then
hrgmak3.Text = "25000"
ElseIf mak3.Text = "Nasi Goreng Jumbo" Then
hrgmak3.Text = "30000"
ElseIf mak3.Text = "Nasi Goreng Spesial" Then
hrgmak3.Text = "23000"
ElseIf mak3.Text = "Nasi Goreng Ati" Then
hrgmak3.Text = "20000"
End If
End Sub
Private Sub hrgmak4_TextChanged(sender As Object, e As EventArgs) Handles hrgmak4.TextChanged
If mak4.Text = "Nasi Goreng Biasa" Then
hrgmak4.Text = "15000"
ElseIf mak4.Text = "Nasi Goreng Baso" Then
hrgmak4.Text = "18000"
ElseIf mak4.Text = "Nasi Goreng Sosis" Then
hrgmak4.Text = "18000"
ElseIf mak4.Text = "Nasi Goreng SeaFood" Then
hrgmak4.Text = "25000"
ElseIf mak4.Text = "Nasi Goreng Jumbo" Then
hrgmak4.Text = "30000"
ElseIf mak4.Text = "Nasi Goreng Spesial" Then
hrgmak4.Text = "23000"
ElseIf mak4.Text = "Nasi Goreng Ati" Then
hrgmak4.Text = "20000"
End If
End Sub
Private Sub hrgmak5_TextChanged(sender As Object, e As EventArgs) Handles hrgmak5.TextChanged
If mak5.Text = "Nasi Goreng Biasa" Then
hrgmak5.Text = "15000"
ElseIf mak5.Text = "Nasi Goreng Baso" Then
hrgmak5.Text = "18000"
ElseIf mak5.Text = "Nasi Goreng Sosis" Then
hrgmak5.Text = "18000"
ElseIf mak5.Text = "Nasi Goreng SeaFood" Then
hrgmak5.Text = "25000"
ElseIf mak5.Text = "Nasi Goreng Jumbo" Then
hrgmak5.Text = "30000"
ElseIf mak5.Text = "Nasi Goreng Spesial" Then
hrgmak5.Text = "23000"
ElseIf mak5.Text = "Nasi Goreng Ati" Then
hrgmak5.Text = "20000"
End If
End Sub
Private Sub hrgmak6_TextChanged(sender As Object, e As EventArgs) Handles hrgmak6.TextChanged
If mak6.Text = "Nasi Goreng Biasa" Then
hrgmak6.Text = "15000"
ElseIf mak6.Text = "Nasi Goreng Baso" Then
hrgmak6.Text = "18000"
ElseIf mak6.Text = "Nasi Goreng Sosis" Then
hrgmak6.Text = "18000"
ElseIf mak6.Text = "Nasi Goreng SeaFood" Then
hrgmak6.Text = "25000"
ElseIf mak6.Text = "Nasi Goreng Jumbo" Then
hrgmak6.Text = "30000"
ElseIf mak6.Text = "Nasi Goreng Spesial" Then
hrgmak6.Text = "23000"
ElseIf mak6.Text = "Nasi Goreng Ati" Then
hrgmak6.Text = "20000"
End If
End Sub
Private Sub hrgmak7_TextChanged(sender As Object, e As EventArgs) Handles hrgmak7.TextChanged
If mak7.Text = "Nasi Goreng Biasa" Then
hrgmak7.Text = "15000"
ElseIf mak7.Text = "Nasi Goreng Baso" Then
hrgmak7.Text = "18000"
ElseIf mak7.Text = "Nasi Goreng Sosis" Then
hrgmak7.Text = "18000"
ElseIf mak7.Text = "Nasi Goreng SeaFood" Then
hrgmak7.Text = "25000"
ElseIf mak7.Text = "Nasi Goreng Jumbo" Then
hrgmak7.Text = "30000"
ElseIf mak7.Text = "Nasi Goreng Spesial" Then
hrgmak7.Text = "23000"
ElseIf mak7.Text = "Nasi Goreng Ati" Then
hrgmak7.Text = "20000"
End If
End Sub
- Text Box Jumlah Makanan 1-7
If (jmak1.Text) <> 0 Then
totmak1.Text = Val(hrgmak1.Text * jmak1.Text) + Val(hrgmak2.Text * jmak2.Text) + Val(hrgmak3.Text * jmak3.Text) + Val(hrgmak4.Text * jmak4.Text) + Val(hrgmak5.Text * jmak5.Text) + Val(hrgmak6.Text * jmak6.Text) + Val(hrgmak7.Text * jmak7.Text)
End If
Private Sub jmak2_TextChanged(sender As Object, e As EventArgs) Handles jmak2.TextChanged
If (jmak2.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
Private Sub jmak3_TextChanged(sender As Object, e As EventArgs) Handles jmak3.TextChanged
If (jmak3.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
Private Sub jmak4_TextChanged(sender As Object, e As EventArgs) Handles jmak4.TextChanged
If (jmak4.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
Private Sub jmak5_TextChanged(sender As Object, e As EventArgs) Handles jmak5.TextChanged
If (jmak5.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
Private Sub jmak6_TextChanged(sender As Object, e As EventArgs) Handles jmak6.TextChanged
If (jmak6.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
Private Sub jmak7_TextChanged(sender As Object, e As EventArgs) Handles jmak7.TextChanged
If (jmak7.Text) <> 0 Then
totmak1.Text = (hrgmak1.Text * jmak1.Text) + (hrgmak2.Text * jmak2.Text) + (hrgmak3.Text * jmak3.Text) + (hrgmak4.Text * jmak4.Text) + (hrgmak5.Text * jmak5.Text) + (hrgmak6.Text * jmak6.Text) + (hrgmak7.Text * jmak7.Text)
End If
End Sub
- Combo Box Jenis Minuman 1-7
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min1.SelectedIndexChanged
If min1.Text = "Es Teh Manis" Then
hrgmin1.Text = Val(hrgmin1.Text) * 5000
ElseIf min1.Text = "Teh Manis Hangat" Then
hrgmin1.Text = Val(hrgmin1.Text) * 4000
ElseIf min1.Text = "Es Jeruk" Then
hrgmin1.Text = Val(hrgmin1.Text) * 12000
ElseIf min1.Text = "Es Campur" Then
hrgmin1.Text = Val(hrgmin1.Text) * 15000
ElseIf min1.Text = "Teh Botol" Then
hrgmin1.Text = Val(hrgmin1.Text) * 9000
ElseIf min1.Text = "Sprite" Then
hrgmin1.Text = Val(hrgmin1.Text) * 9000
ElseIf min1.Text = "Fanta" Then
hrgmin1.Text = Val(hrgmin1.Text) * 9000
End If
End Sub
Private Sub min2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min2.SelectedIndexChanged
If min2.Text = "Es Teh Manis" Then
hrgmin2.Text = Val(hrgmin2.Text) * 5000
ElseIf min2.Text = "Teh Manis Hangat" Then
hrgmin2.Text = Val(hrgmin2.Text) * 4000
ElseIf min2.Text = "Es Jeruk" Then
hrgmin2.Text = Val(hrgmin2.Text) * 12000
ElseIf min2.Text = "Es Campur" Then
hrgmin2.Text = Val(hrgmin2.Text) * 15000
ElseIf min2.Text = "Teh Botol" Then
hrgmin2.Text = Val(hrgmin2.Text) * 9000
ElseIf min2.Text = "Sprite" Then
hrgmin2.Text = Val(hrgmin2.Text) * 9000
ElseIf min2.Text = "Fanta" Then
hrgmin2.Text = Val(hrgmin2.Text) * 9000
End If
End Sub
Private Sub min3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min3.SelectedIndexChanged
If min3.Text = "Es Teh Manis" Then
hrgmin3.Text = Val(hrgmin3.Text) * 5000
ElseIf min3.Text = "Teh Manis Hangat" Then
hrgmin3.Text = Val(hrgmin3.Text) * 4000
ElseIf min3.Text = "Es Jeruk" Then
hrgmin3.Text = Val(hrgmin3.Text) * 12000
ElseIf min3.Text = "Es Campur" Then
hrgmin3.Text = Val(hrgmin3.Text) * 15000
ElseIf min3.Text = "Teh Botol" Then
hrgmin3.Text = Val(hrgmin3.Text) * 9000
ElseIf min3.Text = "Sprite" Then
hrgmin3.Text = Val(hrgmin3.Text) * 9000
ElseIf min3.Text = "Fanta" Then
hrgmin3.Text = Val(hrgmin3.Text) * 9000
End If
End Sub
Private Sub min4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min4.SelectedIndexChanged
If min4.Text = "Es Teh Manis" Then
hrgmin4.Text = Val(hrgmin4.Text) * 5000
ElseIf min4.Text = "Teh Manis Hangat" Then
hrgmin4.Text = Val(hrgmin4.Text) * 4000
ElseIf min4.Text = "Es Jeruk" Then
hrgmin4.Text = Val(hrgmin4.Text) * 12000
ElseIf min4.Text = "Es Campur" Then
hrgmin4.Text = Val(hrgmin4.Text) * 15000
ElseIf min4.Text = "Teh Botol" Then
hrgmin4.Text = Val(hrgmin4.Text) * 9000
ElseIf min4.Text = "Sprite" Then
hrgmin4.Text = Val(hrgmin2.Text) * 9000
ElseIf min4.Text = "Fanta" Then
hrgmin4.Text = Val(hrgmin4.Text) * 9000
End If
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min5.SelectedIndexChanged
If min5.Text = "Es Teh Manis" Then
hrgmin5.Text = Val(hrgmin5.Text) * 5000
ElseIf min5.Text = "Teh Manis Hangat" Then
hrgmin5.Text = Val(hrgmin5.Text) * 4000
ElseIf min5.Text = "Es Jeruk" Then
hrgmin5.Text = Val(hrgmin5.Text) * 12000
ElseIf min5.Text = "Es Campur" Then
hrgmin5.Text = Val(hrgmin5.Text) * 15000
ElseIf min5.Text = "Teh Botol" Then
hrgmin5.Text = Val(hrgmin5.Text) * 9000
ElseIf min5.Text = "Sprite" Then
hrgmin5.Text = Val(hrgmin5.Text) * 9000
ElseIf min5.Text = "Fanta" Then
hrgmin5.Text = Val(hrgmin5.Text) * 9000
End If
End Sub
Private Sub min6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min6.SelectedIndexChanged
If min6.Text = "Es Teh Manis" Then
hrgmin6.Text = Val(hrgmin6.Text) * 5000
ElseIf min6.Text = "Teh Manis Hangat" Then
hrgmin6.Text = Val(hrgmin6.Text) * 4000
ElseIf min6.Text = "Es Jeruk" Then
hrgmin6.Text = Val(hrgmin6.Text) * 12000
ElseIf min6.Text = "Es Campur" Then
hrgmin6.Text = Val(hrgmin6.Text) * 15000
ElseIf min6.Text = "Teh Botol" Then
hrgmin6.Text = Val(hrgmin6.Text) * 9000
ElseIf min6.Text = "Sprite" Then
hrgmin6.Text = Val(hrgmin6.Text) * 9000
ElseIf min6.Text = "Fanta" Then
hrgmin6.Text = Val(hrgmin6.Text) * 9000
End If
End Sub
Private Sub min7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles min7.SelectedIndexChanged
If min7.Text = "Es Teh Manis" Then
hrgmin7.Text = Val(hrgmin7.Text) * 5000
ElseIf min7.Text = "Teh Manis Hangat" Then
hrgmin7.Text = Val(hrgmin7.Text) * 4000
ElseIf min7.Text = "Es Jeruk" Then
hrgmin7.Text = Val(hrgmin7.Text) * 12000
ElseIf min7.Text = "Es Campur" Then
hrgmin7.Text = Val(hrgmin7.Text) * 15000
ElseIf min7.Text = "Teh Botol" Then
hrgmin7.Text = Val(hrgmin7.Text) * 9000
ElseIf min7.Text = "Sprite" Then
hrgmin7.Text = Val(hrgmin7.Text) * 9000
ElseIf min7.Text = "Fanta" Then
hrgmin7.Text = Val(hrgmin7.Text) * 9000
End If
End Sub
- Text Box Harga Minuman 1-7
Private Sub hrgmin1_TextChanged(sender As Object, e As EventArgs) Handles hrgmin1.TextChanged
If min1.Text = "Es Teh Manis" Then
hrgmin1.Text = "5000"
ElseIf min1.Text = "Teh Manis Hangat" Then
hrgmin1.Text = "4000"
ElseIf min1.Text = "Es Jeruk" Then
hrgmin1.Text = "12000"
ElseIf min1.Text = "Es Campur" Then
hrgmin1.Text = "15000"
ElseIf min1.Text = "Teh Botol" Then
hrgmin1.Text = "9000"
ElseIf min1.Text = "Sprite" Then
hrgmin1.Text = "9000"
ElseIf min1.Text = "Fanta" Then
hrgmin1.Text = "9000"
End If
End Sub
Private Sub hrgmin2_TextChanged(sender As Object, e As EventArgs) Handles hrgmin2.TextChanged
If min2.Text = "Es Teh Manis" Then
hrgmin2.Text = "5000"
ElseIf min2.Text = "Teh Manis Hangat" Then
hrgmin2.Text = "4000"
ElseIf min2.Text = "Es Jeruk" Then
hrgmin2.Text = "12000"
ElseIf min2.Text = "Es Campur" Then
hrgmin2.Text = "15000"
ElseIf min2.Text = "Teh Botol" Then
hrgmin2.Text = "9000"
ElseIf min2.Text = "Sprite" Then
hrgmin2.Text = "9000"
ElseIf min2.Text = "Fanta" Then
hrgmin2.Text = "9000"
End If
End Sub
Private Sub hrgmin3_TextChanged(sender As Object, e As EventArgs) Handles hrgmin3.TextChanged
If min3.Text = "Es Teh Manis" Then
hrgmin3.Text = "5000"
ElseIf min3.Text = "Teh Manis Hangat" Then
hrgmin3.Text = "4000"
ElseIf min3.Text = "Es Jeruk" Then
hrgmin3.Text = "12000"
ElseIf min3.Text = "Es Campur" Then
hrgmin3.Text = "15000"
ElseIf min3.Text = "Teh Botol" Then
hrgmin3.Text = "9000"
ElseIf min3.Text = "Sprite" Then
hrgmin3.Text = "9000"
ElseIf min3.Text = "Fanta" Then
hrgmin3.Text = "9000"
End If
End Sub
Private Sub hrgmin4_TextChanged(sender As Object, e As EventArgs) Handles hrgmin4.TextChanged
If min4.Text = "Es Teh Manis" Then
hrgmin4.Text = "5000"
ElseIf min4.Text = "Teh Manis Hangat" Then
hrgmin4.Text = "4000"
ElseIf min4.Text = "Es Jeruk" Then
hrgmin4.Text = "12000"
ElseIf min4.Text = "Es Campur" Then
hrgmin4.Text = "15000"
ElseIf min4.Text = "Teh Botol" Then
hrgmin4.Text = "9000"
ElseIf min4.Text = "Sprite" Then
hrgmin4.Text = "9000"
ElseIf min4.Text = "Fanta" Then
hrgmin4.Text = "9000"
End If
End Sub
Private Sub hrgmin5_TextChanged(sender As Object, e As EventArgs) Handles hrgmin5.TextChanged
If min5.Text = "Es Teh Manis" Then
hrgmin5.Text = "5000"
ElseIf min5.Text = "Teh Manis Hangat" Then
hrgmin5.Text = "4000"
ElseIf min5.Text = "Es Jeruk" Then
hrgmin5.Text = "12000"
ElseIf min5.Text = "Es Campur" Then
hrgmin5.Text = "15000"
ElseIf min5.Text = "Teh Botol" Then
hrgmin5.Text = "9000"
ElseIf min5.Text = "Sprite" Then
hrgmin5.Text = "9000"
ElseIf min5.Text = "Fanta" Then
hrgmin5.Text = "9000"
End If
End Sub
Private Sub hrgmin6_TextChanged(sender As Object, e As EventArgs) Handles hrgmin6.TextChanged
If min6.Text = "Es Teh Manis" Then
hrgmin6.Text = "5000"
ElseIf min6.Text = "Teh Manis Hangat" Then
hrgmin6.Text = "4000"
ElseIf min6.Text = "Es Jeruk" Then
hrgmin6.Text = "12000"
ElseIf min6.Text = "Es Campur" Then
hrgmin6.Text = "15000"
ElseIf min6.Text = "Teh Botol" Then
hrgmin6.Text = "9000"
ElseIf min6.Text = "Sprite" Then
hrgmin6.Text = "9000"
ElseIf min6.Text = "Fanta" Then
hrgmin6.Text = "9000"
End If
End Sub
Private Sub hrgmin7_TextChanged(sender As Object, e As EventArgs) Handles hrgmin7.TextChanged
If min7.Text = "Es Teh Manis" Then
hrgmin7.Text = "5000"
ElseIf min7.Text = "Teh Manis Hangat" Then
hrgmin7.Text = "4000"
ElseIf min7.Text = "Es Jeruk" Then
hrgmin7.Text = "12000"
ElseIf min7.Text = "Es Campur" Then
hrgmin7.Text = "15000"
ElseIf min7.Text = "Teh Botol" Then
hrgmin7.Text = "9000"
ElseIf min7.Text = "Sprite" Then
hrgmin7.Text = "9000"
ElseIf min7.Text = "Fanta" Then
hrgmin7.Text = "9000"
End If
End Sub
- Text Box Jumlah Minuman
Private Sub jmin1_TextChanged(sender As Object, e As EventArgs) Handles jmin1.TextChanged
If (jmin1.Text) <> 0 Then
totmin1.Text = Val(hrgmin1.Text * jmin1.Text) + Val(hrgmin2.Text * jmin2.Text) + Val(hrgmin3.Text * jmin3.Text) + Val(hrgmin4.Text * jmin4.Text) + Val(hrgmin5.Text * jmin5.Text) + Val(hrgmin6.Text * jmin6.Text) + Val(hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin2_TextChanged(sender As Object, e As EventArgs) Handles jmin2.TextChanged
If (jmin2.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin3_TextChanged(sender As Object, e As EventArgs) Handles jmin3.TextChanged
If (jmin3.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin4_TextChanged(sender As Object, e As EventArgs) Handles jmin4.TextChanged
If (jmin4.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin5_TextChanged(sender As Object, e As EventArgs) Handles jmin5.TextChanged
If (jmin5.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin6_TextChanged(sender As Object, e As EventArgs) Handles jmin6.TextChanged
If (jmin6.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
Private Sub jmin7_TextChanged(sender As Object, e As EventArgs) Handles jmin7.TextChanged
If (jmin7.Text) <> 0 Then
totmin1.Text = (hrgmin1.Text * jmin1.Text) + (hrgmin2.Text * jmin2.Text) + (hrgmin3.Text * jmin3.Text) + (hrgmin4.Text * jmin4.Text) + (hrgmin5.Text * jmin5.Text) + (hrgmin6.Text * jmin6.Text) + (hrgmin7.Text * jmin7.Text)
End If
End Sub
- Source Code Text Box Bayar
Private Sub bayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles bayar.KeyPress
If e.KeyChar = Chr(13) Then
kembali.Text = Val(bayar.Text) - Val(total.Text)
End If
End Sub
- Source Code Tombol Total
Private Sub btntotal_Click(sender As Object, e As EventArgs) Handles btntotal.Click
total.Text = Val(totmak1.Text) + Val(totmin1.Text)
End Sub
- Source Code Tombol Reset
Private Sub Reset_Click(sender As Object, e As EventArgs) Handles Reset.Click
nomej.ResetText()
mak1.ResetText()
mak2.ResetText()
mak3.ResetText()
mak4.ResetText()
mak5.ResetText()
mak6.ResetText()
mak7.ResetText()
min1.ResetText()
min2.ResetText()
min3.ResetText()
min4.ResetText()
min5.ResetText()
min6.ResetText()
min7.ResetText()
hrgmak1.ResetText()
hrgmak2.ResetText()
hrgmak3.ResetText()
hrgmak4.ResetText()
hrgmak5.ResetText()
hrgmak6.ResetText()
hrgmak7.ResetText()
jmak1.Text = "0"
jmak2.Text = "0"
jmak3.Text = "0"
jmak4.Text = "0"
jmak5.Text = "0"
jmak6.Text = "0"
jmak7.Text = "0"
hrgmin1.ResetText()
hrgmin2.ResetText()
hrgmin3.ResetText()
hrgmin4.ResetText()
hrgmin5.ResetText()
hrgmin6.ResetText()
hrgmin7.ResetText()
jmin1.Text = "0"
jmin2.Text = "0"
jmin3.Text = "0"
jmin4.Text = "0"
jmin5.Text = "0"
jmin6.Text = "0"
jmin7.Text = "0"
totmak1.ResetText()
totmin1.ResetText()
total.ResetText()
bayar.ResetText()
kembali.ResetText()
End Sub
- Source Code Tombol "Save To Word"
Private Sub Word_Click(sender As Object, e As EventArgs) Handles Word.Click
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
dokumen = aplikasi.Documents.Open("E:\KAMPUS\SEMESTER 5\PEMROGRAMAN VISUAL\UTS\APLIKASI MENU NASI GORENG SUPER GILAA.docx")
dokumen.Bookmarks("Bnomer").Select()
aplikasi.Selection.TypeText(nomej.Text)
dokumen.Bookmarks("BJmakan1").Select()
aplikasi.Selection.TypeText(mak1.Text)
dokumen.Bookmarks("BJmakan2").Select()
aplikasi.Selection.TypeText(mak2.Text)
dokumen.Bookmarks("BJmakan3").Select()
aplikasi.Selection.TypeText(mak3.Text)
dokumen.Bookmarks("BJmakan4").Select()
aplikasi.Selection.TypeText(mak4.Text)
dokumen.Bookmarks("BJmakan5").Select()
aplikasi.Selection.TypeText(mak5.Text)
dokumen.Bookmarks("BJmakan6").Select()
aplikasi.Selection.TypeText(mak6.Text)
dokumen.Bookmarks("BJmakan7").Select()
aplikasi.Selection.TypeText(mak7.Text)
dokumen.Bookmarks("BHmakan1").Select()
aplikasi.Selection.TypeText(hrgmak1.Text)
dokumen.Bookmarks("BHmakan2").Select()
aplikasi.Selection.TypeText(hrgmak2.Text)
dokumen.Bookmarks("BHmakan3").Select()
aplikasi.Selection.TypeText(hrgmak3.Text)
dokumen.Bookmarks("BHmakan4").Select()
aplikasi.Selection.TypeText(hrgmak4.Text)
dokumen.Bookmarks("BHmakan5").Select()
aplikasi.Selection.TypeText(hrgmak5.Text)
dokumen.Bookmarks("BHmakan6").Select()
aplikasi.Selection.TypeText(hrgmak6.Text)
dokumen.Bookmarks("BHmakan7").Select()
aplikasi.Selection.TypeText(hrgmak7.Text)
dokumen.Bookmarks("BJEmakan1").Select()
aplikasi.Selection.TypeText(jmak1.Text)
dokumen.Bookmarks("BJEmakan2").Select()
aplikasi.Selection.TypeText(jmak2.Text)
dokumen.Bookmarks("BJEmakan3").Select()
aplikasi.Selection.TypeText(jmak3.Text)
dokumen.Bookmarks("BJEmakan4").Select()
aplikasi.Selection.TypeText(jmak4.Text)
dokumen.Bookmarks("BJEmakan5").Select()
aplikasi.Selection.TypeText(jmak5.Text)
dokumen.Bookmarks("BJEmakan6").Select()
aplikasi.Selection.TypeText(jmak6.Text)
dokumen.Bookmarks("BJEmakan7").Select()
aplikasi.Selection.TypeText(jmak7.Text)
dokumen.Bookmarks("BTmakan").Select()
aplikasi.Selection.TypeText(totmak1.Text)
dokumen.Bookmarks("BJminum1").Select()
aplikasi.Selection.TypeText(min1.Text)
dokumen.Bookmarks("BJminum2").Select()
aplikasi.Selection.TypeText(min2.Text)
dokumen.Bookmarks("BJminum3").Select()
aplikasi.Selection.TypeText(min3.Text)
dokumen.Bookmarks("BJminum4").Select()
aplikasi.Selection.TypeText(min4.Text)
dokumen.Bookmarks("BJminum5").Select()
aplikasi.Selection.TypeText(min5.Text)
dokumen.Bookmarks("BJminum6").Select()
aplikasi.Selection.TypeText(min6.Text)
dokumen.Bookmarks("BJminum7").Select()
aplikasi.Selection.TypeText(min7.Text)
dokumen.Bookmarks("BHminum1").Select()
aplikasi.Selection.TypeText(hrgmin1.Text)
dokumen.Bookmarks("BHminum2").Select()
aplikasi.Selection.TypeText(hrgmin2.Text)
dokumen.Bookmarks("BHminum3").Select()
aplikasi.Selection.TypeText(hrgmin3.Text)
dokumen.Bookmarks("BHminum4").Select()
aplikasi.Selection.TypeText(hrgmin4.Text)
dokumen.Bookmarks("BHminum5").Select()
aplikasi.Selection.TypeText(hrgmin5.Text)
dokumen.Bookmarks("BHminum6").Select()
aplikasi.Selection.TypeText(hrgmin6.Text)
dokumen.Bookmarks("BHminum7").Select()
aplikasi.Selection.TypeText(hrgmin7.Text)
dokumen.Bookmarks("BJEminum1").Select()
aplikasi.Selection.TypeText(jmin1.Text)
dokumen.Bookmarks("BJEminum2").Select()
aplikasi.Selection.TypeText(jmin2.Text)
dokumen.Bookmarks("BJEminum3").Select()
aplikasi.Selection.TypeText(jmin3.Text)
dokumen.Bookmarks("BJEminum4").Select()
aplikasi.Selection.TypeText(jmin4.Text)
dokumen.Bookmarks("BJEminum5").Select()
aplikasi.Selection.TypeText(jmin5.Text)
dokumen.Bookmarks("BJEminum6").Select()
aplikasi.Selection.TypeText(jmin6.Text)
dokumen.Bookmarks("BJEminum7").Select()
aplikasi.Selection.TypeText(jmin7.Text)
dokumen.Bookmarks("BTminum").Select()
aplikasi.Selection.TypeText(totmin1.Text)
dokumen.Bookmarks("Btotal").Select()
aplikasi.Selection.TypeText(total.Text)
dokumen.Bookmarks("Bbayar").Select()
aplikasi.Selection.TypeText(bayar.Text)
dokumen.Bookmarks("Bkembali").Select()
aplikasi.Selection.TypeText(kembali.Text)
dokumen.SaveAs2("E:\KAMPUS\SEMESTER 5\PEMROGRAMAN VISUAL\UTS\ " + nomej.Text + ".docx")
MsgBox("SUKSES TERSIMPAN!!!")
aplikasi.Visible = True
End Sub
- Source Code Tombol "Save To Excell"
Private Sub Excell_Click(sender As Object, e As EventArgs) Handles Excell.Click
Dim AplikasiExcel As New excel.Application
Dim FileExcel As excel.Workbook
FileExcel = AplikasiExcel.Workbooks.Open("E:\KAMPUS\SEMESTER 5\PEMROGRAMAN VISUAL\UTS\APLIKASI MENU NASI GORENG SUPER GILAA.xlsx")
AplikasiExcel.Range("B2").Value = nomej.Text
AplikasiExcel.Range("A4").Value = mak1.Text
AplikasiExcel.Range("A5").Value = mak2.Text
AplikasiExcel.Range("A6").Value = mak3.Text
AplikasiExcel.Range("A7").Value = mak4.Text
AplikasiExcel.Range("A8").Value = mak5.Text
AplikasiExcel.Range("A9").Value = mak6.Text
AplikasiExcel.Range("A10").Value = mak7.Text
AplikasiExcel.Range("B4").Value = hrgmak1.Text
AplikasiExcel.Range("B5").Value = hrgmak2.Text
AplikasiExcel.Range("B6").Value = hrgmak3.Text
AplikasiExcel.Range("B7").Value = hrgmak4.Text
AplikasiExcel.Range("B8").Value = hrgmak5.Text
AplikasiExcel.Range("B9").Value = hrgmak6.Text
AplikasiExcel.Range("B10").Value = hrgmak7.Text
AplikasiExcel.Range("B11").Value = totmak1.Text
AplikasiExcel.Range("C4").Value = jmak1.Text
AplikasiExcel.Range("C5").Value = jmak2.Text
AplikasiExcel.Range("C6").Value = jmak3.Text
AplikasiExcel.Range("C7").Value = jmak4.Text
AplikasiExcel.Range("C8").Value = jmak5.Text
AplikasiExcel.Range("C9").Value = jmak6.Text
AplikasiExcel.Range("C10").Value = jmak7.Text
AplikasiExcel.Range("D4").Value = min1.Text
AplikasiExcel.Range("D5").Value = min2.Text
AplikasiExcel.Range("D6").Value = min3.Text
AplikasiExcel.Range("D7").Value = min4.Text
AplikasiExcel.Range("D8").Value = min5.Text
AplikasiExcel.Range("D9").Value = min6.Text
AplikasiExcel.Range("D10").Value = min7.Text
AplikasiExcel.Range("E11").Value = totmin1.Text
AplikasiExcel.Range("E4").Value = hrgmin1.Text
AplikasiExcel.Range("E5").Value = hrgmin2.Text
AplikasiExcel.Range("E6").Value = hrgmin3.Text
AplikasiExcel.Range("E7").Value = hrgmin4.Text
AplikasiExcel.Range("E8").Value = hrgmin5.Text
AplikasiExcel.Range("E9").Value = hrgmin6.Text
AplikasiExcel.Range("E10").Value = hrgmin7.Text
AplikasiExcel.Range("F4").Value = jmin1.Text
AplikasiExcel.Range("F5").Value = jmin2.Text
AplikasiExcel.Range("F6").Value = jmin3.Text
AplikasiExcel.Range("F7").Value = jmin4.Text
AplikasiExcel.Range("F8").Value = jmin5.Text
AplikasiExcel.Range("F9").Value = jmin6.Text
AplikasiExcel.Range("F10").Value = jmin7.Text
AplikasiExcel.Range("B13").Value = total.Text
AplikasiExcel.Range("D13").Value = bayar.Text
AplikasiExcel.Range("F13").Value = kembali.Text
FileExcel.SaveAs("E:\KAMPUS\SEMESTER 5\PEMROGRAMAN VISUAL\UTS\" + nomej.Text + ".xlsx")
MsgBox("SUKSES TERSIMPAN!!!")
AplikasiExcel.Visible = True
End Sub
Sekian tutorial kali ini untukyang kurang mengerti bisa ditanyakan dikolom komentar. terima kasih :D
Tidak ada komentar:
Posting Komentar