Postingan kali ini saya akan membuat sebuah perancangan simulasi Sistem Informasi Data Inventory di suatu perusahaan. Pada kali ini yang saya gunakan adalah Visual Basic 6.0.
Langsung aja kita mulai....
Pertama kita buka dulu laptop ato PC kita (hehehehehe) truz buka aplikasi Visual Basic 6.0, bagi yg lum punya bisa di beli di toko material terdekat (hahahaa). Setelah itu kita design semuanya seperti pada gambar berikut :
 |
| Gambar : frmSplash |
 |
| Gambar : Form1 |
 |
| Gambar : Form2 |
 |
| Gambar : Form3 |
Setelah kita design seperti di atas baru kita buat coding na untuk tiap2 form..
Form Splash
1
2
3
4
5
6
7
8 | Private Sub Timer1_Timer()
Static Timing As Long
Timing = Timing + 1
If Timing = 10 Then
Unload Me
Form1.Show
End If
End Sub
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83 | Option Explicit
Public sementara As String
Private Sub Command2_Click()
Form1.WindowState = 1
For i = 0 To (n - 1)
sementara = InputBox("Input waktu antar kedatangan ke-" & i + 1, "Waktu Kedatangan")
If sementara = "" Then
MsgBox "Isi Data Dengan Lengkap", vbExclamation, "Silahkan Menginput Data Lagi"
sementara = InputBox("Input waktu antar kedatangan ke-" & i + 1, "ArrayInterDemand")
End If
pelanggan(i).w_dtg = sementara
Next i
Command3.Enabled = True
Form1.WindowState = 0
End Sub
Private Sub Command1_Click()
If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") Or (Text5.Text = "") Or (Text6.Text = "")) Then
MsgBox "Isi Data Dengan Lengkap", vbExclamation, "Silahkan Menginput Data Lagi"
Else
Call simpan
Me.Hide
Form3.Show
End If
End Sub
Private Sub Command6_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Command5_Click()
Call bersih
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command3_Click()
Form1.WindowState = 1
For i = 0 To n - 1
sementara = InputBox("Masukkan Kebutuhan ke-" & i + 1, "Kebutuhan Konsumen")
If sementara = "" Then
MsgBox "Isi Data Dengan Benar", vbExclamation, "Silahkan Menginput Data Lagi"
sementara = InputBox("Input kebutuhan ke-" & i + 1, "ArrayDemand")
End If
pelanggan(i).permintaan = sementara
Next i
Form1.WindowState = 0
Command4.Enabled = True
End Sub
Private Sub Command4_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Form_Load()
Me.Caption = "INPUT DATA"
End Sub
Sub simpan()
min = Text1.Text
max = Text2.Text
skrg = Text3.Text
time = Text4.Text
selang = Text5.Text
n = Text6.Text
End Sub
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 | Private Sub Command1_Click()
Form3.Show
Me.Hide
End Sub
Private Sub Command2_Click()
Form3.Show
Me.Hide
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Dim itm As ListItem
Call hitung
For i = 0 To time
Set itm = ListView1.ListItems.Add(i + 1, , i)
itm.SubItems(1) = deniz(i)
itm.SubItems(2) = minT(i)
itm.SubItems(3) = Galih(i)
Next i
End Sub
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72 | Private Sub Command1_Click()
Dim itm As ListItem
Galih.ListItems.Clear
For i = 0 To n
'nama = Left(i, InStr(i, vbNullChar))
Set itm = Galih.ListItems.Add(i + 1, , i + 1)
'itm.Tag = "SISTEM SIMULASI INVENTORY"
itm.SubItems(1) = pelanggan(i).w_dtg
itm.SubItems(2) = pelanggan(i).permintaan
Next i
Command4.Enabled = True
End Sub
Private Sub Command2_Click()
Form3.WindowState = 1
For i = 0 To (n - 1)
sementara = InputBox("Input waktu antar kedatangan ke-" & i + 1, "ArrayInterDemand")
If sementara = "" Then
MsgBox "Isi Data Dengan Lengkap", vbExclamation, "Silahkan Menginput Data Lagi"
sementara = InputBox("Input waktu antar kedatangan ke-" & i + 1, "ArrayInterDemand")
End If
pelanggan(i).w_dtg = sementara
Next i
Command3.Enabled = True
Form3.WindowState = 0
End Sub
Private Sub Command3_Click()
Form3.WindowState = 1
For i = 0 To n - 1
sementara = InputBox("Input kebutuhan ke-" & i + 1, "ArrayDemand")
If sementara = "" Then
MsgBox "Isi Data Dengan Benar", vbExclamation, "Silahkan Menginput Data Lagi"
sementara = InputBox("Input kebutuhan ke-" & i + 1, "ArrayDemand")
End If
pelanggan(i).permintaan = sementara
Next i
Form3.WindowState = 0
'Command4.Enabled = True
Command1.Enabled = True
End Sub
Private Sub Command4_Click()
Form2.Show
Form3.Hide
End Sub
Private Sub Command5_Click()
Me.Hide
Form1.Show
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = min
Text2.Text = max
Text3.Text = skrg
Text4.Text = time
Text5.Text = selang
Text6.Text = n
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = False
End Sub
|
Setelah selesai kita design dan buat codingnya di tiap2 form,,kemudian kita save terus kita
run kan, maka akan tampil seperti ini :
Pertama kita isi Stok Minimal, stok maksimal, dst lalu tekan ok.
 |
| Gambar : Input Data |
Maka akan masuk dia ketampilan seperti di bawah ini lalu kita input waktu antar kedatangan pertama dan keduanya.
 |
| Gambar : Tampilan Waktu Antr Kedatangan 1 yang dimasukkan |
 |
| Gambar : Tampilan Waktu Antr Kedatangan 2 yang dimasukkan |
Setelah itu input lagi kebutuhan pertama dan keduanya.
 |
| Gambar : Tampilan Input Kebutuhan 1 yang dimasukkan |
 |
| Gambar : Tampilan Input Kebutuhan 2 yang dimasukkan |
Maka akan keluar seperti ini :
 |
| Gambar : Hasil Keluaran Dari Simulasi |
Sekian dulu postingan simulasi dari saya..
Jangan lupa liat postingan yang lainnya dan beri komentarnya yahh..
^_^
Untuk lebih lengkapnya silakan download di link di bawah ini......
SIMULASI
thanks broo...
BalasHapussangat membnatu....
ok bro.
BalasHapussama.sama