Program 1 : Login Prompt
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
a = "Admin"
b = "reredesu"
c = Text1.Text
d = Text2.Text
If (a = c) And (b = d) Then
i = MsgBox("Login Anda berhasil", vbOKOnly + vbInformation, "Admin")
Form2.Show
Unload Me
Else
i = MsgBox("Maap Login anda blum berhasil", vbOKOnly + vbCritical, "Admin")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Program 2 : Menu Makanan
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
If Text1.Text = "1" Then a = "Ayam Bakar"
If Text1.Text = "2" Then a = "Steak"
If Text2.Text = "1" Then b = "Teh Manis"
If Text2.Text = "2" Then b = "Orange Juice"
c = a + " dan " + b
Text3.Text = c
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Logika Program 1 :
Private Sub Command1_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command1 button yang merupakan button untuk melihat hasil jika program dijalankan.
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Pada bagian ini ingin memasukkan tipe data dari setiap variable a, b dan c dan d yang akan mewakili setiap data yang akan dimasukkan dimana data yang dimasukkan merupakan tipe data string. Dengan menggunakan Dim [variable] As [Tipe Data].
a = "Admin"
b = "reredesu"
Pada bagian ini ingin memasukkan isi dari variable a dan variable b dengan isian yang merupakan kata kunci. Hal ini dilakukan karena program yang kita buat adalah login prompt dimana harus memiliki bagian tertentu sehingga ketika memasukkan data yang cocok maka login akan sukses.
c = Text1.Text
d = Text2.Text
apa yang dimasukkan dalam text1.text akan dilambangkan dengan variable c dan apa yang dimasukkan dalam text2.text akan dilambangkan dengan variable d.
If (a = c) And (b = d) Then
a=c berarti bahwa nilai dari a yang adalah admin harus sama dengan yang dituliskan dalam text1.text yang dilambangkan dengan c begitu pula dengan nilai dari b yang adalah reredesu harus sama dengan yang dituliskan dalam text2.text yang dilambangkan dengan d. Kemudian pada bagian ini berarti jika a=c da b=d maka yang terjadi adalah
i = MsgBox("Login Anda berhasil", vbOKOnly + vbInformation, "Admin")
Form2.Show
Unload Me
Jika benar maka akan muncul kotak dialog Admin yang berupa kotak dialog Information yang berisi Login Anda berhasil dan dilengkapi dengan vbOKOnly yaitu tombol OK. Ketika sudah berhasil login maka secara otomatis ketika mengklik OK akan tampil form2 yang akan kita proses dalam program menu makanan
Else
i = MsgBox("Maap Login anda blum berhasil", vbOKOnly + vbCritical, "Admin")
Jika salah maka akan muncul kotak dialog Admin yang berupa kotak dialog Critical yang berisi Maap login anda blum berhasil dan dilengkapi dengan vbOKOnly yaitu tombol OK
End If
Menjadi bagian akhir dari if
End Sub
Bagian akhir dari penulisan program per bagian yang dipilih
Private Sub Command2_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command2 button yang merupakan button untuk keluar jika program dijalankan.
End
Listing program untuk keluar dari program yang sedang di jalankan
End Sub
Bagian akhir dari penulisan program per bagian yang dipilih
Logika Program 2 :
Private Sub Command1_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command1 button yang merupakan button untuk melihat hasil jika program dijalankan.
Dim a As String
Dim b As String
Dim c As String
Pada bagian ini ingin memasukkan tipe data dari setiap variable a, b dan c yang akan mewakili setiap data yang akan dimasukkan dimana data yang dimasukkan merupakan tipe data string . Dengan menggunakan Dim [variable] As [Tipe Data]
a = Text1.Text
b = Text2.Text
apa yang dimasukkan dalam text1.text akan dilambangkan dengan variable a dan apa yang dimasukkan dalam text2.text akan dilambangkan dengan variable b.
If Text1.Text = "1" Then a = "Ayam Bakar"
Pada bagian ini berarti bahwa jika pada textbox1 diisi dengan 1 maka variable a secara otomatis tersimpan dengan isian Ayam bakar.
If Text1.Text = "2" Then a = "Steak"
Pada bagian ini berarti bahwa jika pada textbox1 diisi dengan 2 maka variable a secara otomatis tersimpan dengan isian Steak.
If Text2.Text = "1" Then b = "Teh Manis"
Pada bagian ini berarti bahwa jika pada textbox2 diisi dengan 1 maka variable a secara otomatis tersimpan dengan isian Teh Manis.
If Text2.Text = "2" Then b = "Orange Juice"
Pada bagian ini berarti bahwa jika pada textbox2 diisi dengan 2 maka variable a secara otomatis tersimpan dengan isian Orange Juice.
c = a + " dan " + b
Pada bagian ini isi dari variable c adalah nilai dari variable a di tambah dengan kata ”dan” kemudian digabung dengan nilai dari variable b
Text3.Text = c
Pada bagian ini berarti apa yang menjadi hasil c akan ditampilkan di dalam Text3.text.
End Sub
Bagian akhir dari penulisan program per bagian yang dipilih
Private Sub Command2_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command2 button yang merupakan button untuk menghapus bagian textbox yang telah terisi jika program dijalankan.
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Untuk membuat textbox ketika di pilih commondbutton hapus, isinya akan terhapus baik textbox1, textbox2, textbox3. Text1.setfocus digunakan agar ketika semua terhapus maka kursor untuk mengisi kembali secara otomatis berada textbox1.
End Sub
Bagian akhir dari penulisan program per bagian yang dipilih
Private Sub Command3_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command3 button yang merupakan button untuk keluar dari program jika program dijalankan.
End
Listing program untuk keluar dari program yang sedang di jalankan
End Sub
Bagian akhir dari penulisan program per bagian yang dipilih.
Output :