Visual Programming (Visual Basic

' ) * % % + % ( % & % ! "# % " $! % & , , " , ! , ' % ! . ( / - - - ., / - Form adalah lembar desain tampilan dari program yang dibuat. Form ini menjadi pondasi tempat diletakannya kontrol-kontrol yang dimiliki oleh Visual Basic sesuai dengan yang diinginkan 0 % & - - 0' % 1 ! " # $ 3 ( ) Merupakan jendela yang digunakan untuk mengatur properti sebuah objek. Objek yang diatur propertinya adalah objek yang namanya tercantum dalam kotak objek. 4* " - " Code Editor adalah suatu jendela dimana merupakan tempat untuk menulis dan menyunting ruitn yang menentukan mekanisme kerja program. 2 % & ' ! " ! . " - 2& , 2! 9 % 6) 474 , 28 " # ' % & , , & , , & , ,2 8 8 8 6( 0 0 " & , ( & , ( & , ( : % ; < ,= ) ; < ,3 " ; < , = ) 3 " 2 > 5! ) 8 : ?! . txtBayar.Text = Val(txtHargaSatuan.Text) * Val(txtJumlah.Text) 5 $! . > Unload Me ! & & -? % + % ! " ! . " 2& , 2! 9 " 6( 0 % 6) 474 , 28 # ' % & , , & , , & , ,2 8 8 8 - 0 " : % 2 & , ( & , ( & , ( ; ,( ; , ; ,& ( < < < & > ? 5! ) : ?! . MsgBox "Nama anda " & txtNama.Text & " dengan alamat " & _ txtAlamat.Text & " Telp " & txtTelepon.Text $! . > Unload Me ! & ( $ -? % + ) ) : " Nama File → Project : P21.vbp " % #% 2! % " % Nama File → Project : P22.vbp ( !( . ( !& 1 Nama File → Project : P23.vbp $ * & ' ! " " ! . - & , 2! 9 6( 0 , 28 " % 6) 474 , # 0 " ' % - " , & , , & , , 8 8 8 & , ( & , ( & , ( ; < ; ,( ; , " ( < 2 > > 5! ) ?! . < 8 : - 8 cmbBulan.AddItem "Januari" cmbBulan.AddItem "Februari" cmbBulan.AddItem "Maret" cmbBulan.AddItem "April" cmbBulan.AddItem "Mei" cmbBulan.AddItem "Juni" cmbBulan.AddItem "Juli" cmbBulan.AddItem "Agustus" cmbBulan.AddItem "September" cmbBulan.AddItem "Oktober" cmbBulan.AddItem "November" cmbBulan.AddItem "Desember" cmbBulan.ListIndex = 0 : * $! . , " Select Case cmbBulan.ListIndex Case 0 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 1 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 2 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 3 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 4 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 5 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 6 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 7 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 8 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 9 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 10 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 Case 11 txtNamaBulan.Text = cmbBulan.Text txtBulan.Text = cmbBulan.ListIndex + 1 End Select ! . > Unload Me @! & -? % + @ & % ! " ! . 2! 9 " - - 6( 0 ' " " % 6) , 474 2 # 0 " ' % ' ' " " ) ' " : > , B . . ' " 2 5! ) > 8 : ?! . ' Dim pesan As String If Option1.Value = True Then pesan = "Pria adalah makhuk hidup" & vbCrLf & _ A "Pria senang kepada wanita" & vbCrLf & _ "Pria adalah teman wanita" & vbCrLf & _ "Pria Punya Selera" Else pesan = "Wanita adalah makhuk hidup" & vbCrLf & _ "Wanita senang kepada pria" & vbCrLf & _ "Wanita adalah teman pria" & vbCrLf & _ "Wanita JInak-Jinak Merpati" End If MsgBox pesan $! . " Dim pesan As String Dim pesan2 As String If Check1.Value = 1 Then pesan = "Mobil merupakan kendaraan beroda empat" & vbCrLf End If If Check2.Value = 1 Then pesan2 = "Motor merupakan kendaraan beroda dua" & vbCrLf End If MsgBox pesan & pesan2 ! . > Unload Me @! & -? % + Tugas Praktikum ! " " " " " E 0 1 ( . ( & C / D&) D )! E ! : )+ , -'./ 9 " ( ( $0 1 -%./ 2 30 1 -4./ 0 1 -5./ 0 : 67 8 8 '.. 9 : ;. 8 7. 8 8 <. 9 : 7. = 8 67 9 : <. 8 8 ;. 9 9 (Nama File → Project : P31.vbp) ! ) " % % " : 3 % " " 3 * 8D + H ) (Nama File → & ( + + + + + + ) > ! ! ? !? ! ? ! 2? ! ( $ ? 5 2 5 ? $ : : :3 :$ " : $ I 2! 0 9 " ?F 3 > +& G'9G > +& 8H 3 > +& G'9G > +& 8H Project : P32.vbp) " > & % " $ H ) " " % )" 0 . (Nama File → !H # I ! ?I ! 3 0 % "( Project : P33.vbp) 0 1 0 " ! & ' ! " ! . " - & , 2! 9 , 8 " 8 % 6) 474 , # ' % 8 8 8 2 8 5 & , & , 0 " "8 8 3 8 > ; ; ; & , & , & , ( 8 ?! . Dim Count As Integer Dim i As Integer Count = Val(Text1.Text) #8 3 , 8 > 5! ) : 8 , 8 6( 0 : 8 < < < 8 If Count <= 0 Then MsgBox "Nilai harus besar dari 0", vbInformation, "Error" Else List1.Clear i = 0 Select Case cmbJenisLooping.ListIndex Case 0: For i = 0 To Count - 1 List1.AddItem Text2.Text & " data ke - " & i + 1 & " For -- Next", i Next i Case 1: While i < Count List1.AddItem Text2.Text & " data ke - " & i + 1 & " While -- Wend", i i = i + 1 Wend Case Else Do List1.AddItem Text2.Text & " data ke - " & i + 1 & " Do -- Loop Until", i i = i + 1 Loop Until i > Count - 1 End Select End If $! . - 8 cmbJenisLooping.AddItem "For -- next" cmbJenisLooping.AddItem "While -- wend" cmbJenisLooping.AddItem "Do loop until" cmbJenisLooping.ListIndex = 0 ! . > D . @! & -? % + 2 ( $ ) ) ! " , 2. % I " % " J (Nama File, Project : P41.vbp) % (Nama File →Project :P42.vbp) 5 ? & ? ' ! " ! ". . 2! . 5! 9 " 6 & , % , 6 6( 0 % 6) 474 . 8 " # ' % 8 & , 0 " E ) ; & & , . 8 ) 8 $! . & < # & > ?! ) : "( : . Public Sub addName(Team$, ReturnString$) prompt$ = "Enter a " & Team$ & " Employe." Nm$ = InputBox(prompt, "Input box") WrapCharacter$ = Chr(13) + Chr(1) ReturnString$ = Nm$ & WrapCharacter$ End Sub ! . & "( addName "sales", SalesPositions$ Text1.Text = Text1.Text & SalesPositions$ ? @! . > Unload Me A! & & ! ! -? + % " ". " . 2! . 5! 9 % & , " ' % 8 8 & , 6 % , 6 6( 0 % 6) 474 . 8 # 0 " & , ( ( ; : < $ & , & , ; < > ?! ) 8 $! . : . Public Function Perkalian(nilai1 As Integer, nilai2 As Integer) As Integer Dim hasil As Integer hasil = nilai1 * nilai2 Perkalian = hasil End Function ! . Dim a As Integer Dim b As Integer a = Val(Text1.Text) b = Val(Text2.Text) MsgBox Perkalian(a, b) @! . > Unload Me A! & -? % + & 4 ! " " ! . - ?& , 2! 9 , 58 " ' 8 8 8 8 8 & & & & & 6( 0 - % 6) 474 2 # 0 " : % 8 ) - = 8 & = ; ; ; ; ; = > 2 5 ? , , ,2 ,5 ,? & & & & & , , , , , 2 5! ) 8 - " < < < < < 8 ) : ?! . - Private Sub HitungFaktorial(fak As Integer, hasil$) Dim i As Integer hasil = 1 For i = 2 To fak hasil = hasil * i Next i End Sub $! . - 8 ) Private Function LuasSegitiga(a As Double, t As Double) As Double LuasSegitiga = (a * t) / 2 End Function @ ! . - Dim fak As Integer fak = Val(Text1.Text) HitungFaktorial fak, hasil$ Text2.Text = hasil$ @! . = 8 ) Dim a As Double Dim t As Double Dim hasil As Double a = Val(Text3.Text) t = Val(Text4.Text) hasil = LuasSegitiga(a, t) Text5.Text = hasil A! . > Unload Me !& -? % + A ?? @ & ' ! " ! . 2! 9 " - & , , 8 " % 6) 474 , # ' % 8 & , 8 5! ) 8 6( 0 0 " 3 ; ; H > & , 8 8 E "E < < : ) : ?! . H Dim larik(6) As String Dim i As Integer Dim data As Integer data = CInt(Text1.Text) If data > 6 Then MsgBox "Jumlah data tidak boleh lebih dari 6 data", vbInformation Else If data < 0 Then MsgBox "jumlah data tidak boleh kurang dari 0", vbInformation Else List1.Clear For i = 0 To data - 1 prompt$ = "Enter data yang akan dimasukan ke dalam array" nilai$ = InputBox(prompt$, "Array Dimensi Satu") larik(i) = nilai$ List1.AddItem larik(i), i Next i End If End If $! . > Unload Me ! & & ! -? + % " ! . 2! 9 % " - 2& , , 28 " 2' 6( 0 % 6) 474 - 5 # ' % 8 8 8 2 & , 0 " " " & , . 8 ) & , . 8 ) & , . 8 ) & , & ,2 . . = . . ; & " < # ; & < # ; & < # " H H > 2 5 5! ) 8 : : . . , , . ?! . . . . = Private Matrik_1(1, 1) As Double Private Matrik_2(1, 1) As Double Private hasil(1, 1) As Double $! . . Private Sub ClearMatrik() Dim i As Integer Dim j As Integer For i = 0 To 1 For j = 0 To 1 hasil(i, j) = 0 Next j Next i End Sub ! . Private Sub PerkalianMatriks() Dim i As Integer Dim j As Integer Dim k As Integer ClearMatrik 'Hasil diberi nilai 0 For i = 0 To 1 For j = 0 To 1 hasil(i, j) = 0 For k = 0 To 1 hasil(i, j)=hasil(i, j)+(Matrik_1(i, k)*Matrik_2(k, j)) Next k Next j Next i End Sub @! . " Private Sub PenambahanMatriks () Dim i As Integer Dim j As Integer Dim k As Integer ClearMatrik 'Hasil diberi nilai 0 For i = 0 To 1 For j = 0 To 1 hasil(i, j) = 0 For k = 0 To 1 hasil(i, j)=hasil(i, j)+(Matrik_1(i, k)+Matrik_2(k, j)) Next k Next j Next i End Sub A! . Private Sub PenguranganMatriks () Dim i As Integer Dim j As Integer Dim k As Integer ClearMatrik 'Hasil diberi nilai 0 For i = 0 To 1 For j = 0 To 1 hasil(i, j) = 0 For k = 0 To 1 hasil(i, j)=hasil(i, j)+(Matrik_1(i, k)-Matrik_2(k, j)) Next k Next j Next i End Sub !. H . 'Memasukan Matrik ke 1 Dim i As Integer Dim j As Integer For i = 0 To 1 For j = 0 To 1 Prompt$ = "Masukan nilai Matriks ke 1" nilai$ = InputBox(Prompt$, "Proses input matriks ke 1") pindahBaris$ = Chr(13) + Chr(10) Text1.Text = Text1.Text & " " & nilai$ Matrik_1(i, j) = nilai$ Next j Text1.Text = Text1.Text & " " & pindahBaris$ Next i 2 !. H . 'Memasukan Matrik ke 2 Dim i As Integer Dim j As Integer For i = 0 To 1 For j = 0 To 1 Prompt$ = "Masukan nilai Matriks ke 2" nilai$ = InputBox(Prompt$, "Proses input matriks ke 2") pindahBaris$ = Chr(13) + Chr(10) Text2.Text = Text2.Text & " " & nilai$ Matrik_2(i, j) = nilai$ Next j Text2.Text = Text2.Text & " " & pindahBaris Next i !. If Option1.Value = True Then PerkalianMatriks ElseIf Option3.Value = True Then PenambahanMatriks Else PenguranganMatriks End If TampilHasil 2! . > Private Sub TampilHasil() Dim i As Integer Dim j As Integer For i = 0 To 1 For j = 0 To 1 Text3.Text = Text3.Text & " " & hasil(i, j) Next j pindahBaris$ = Chr(13) + Chr(10) Text3.Text = Text3.Text + pindahBaris$ Next i End Sub 5! . Unload Me ?! & -? % + 5 ( $ ) ) ! : * " ( ( & 2 5 ? $ % & ( ? ? 5 ? ? 2?? ? H9 ')) H8'& . & K7 " )&4 E84+ : > , ) " % " ,$ , L , ) " ( " C = 3 1 " ( > C I" > % " " (Nama File → Project : P61.vbp). ! . 1 HHH ! (Nama File → Project : P62.vbp). ? ? & ' ) " $ ! . 1 ! ) - 6- 6( 06 - " " ! 1 0 " : 0 " : A + $ $B C * 0 ?! > $! H $ E 2! > 5! " " $ ) " ! . " " ! - " . 2! . $& , 6 " , @8 6) 474 6. E& 1 B 1 E' E $! '84E M 0 # $! ) 5 - E # E'E 0 " ' % - . " 0 # -, ) ; < I " E # #& 0 + ( . ( ? : E ) 8 ) 8 8 2 8 5 8 ? 8 $ 8 8 @ & , & , & ,2 & ,5 & ,? & ,$ E& E'E & & & & & & - 3 & & & ; ; ; ; ; ; , , , , , , + ) ! ! & ( 9 0D E ) : & ) 0 I 8 " 8 " # . " & 0 & - E & " ( ( . " < < < < < < # )" E " E . " 0 * N. 1 !3 !'84E !5! ME ) NE:OD O& O' " O O. O OE O O. $O8 " O. $! M ) H 1 N- ) E ! % $! '84E M . )" 5! 9 6( 0 % 1 E 1 D " 4 . " 0 2 = ( E 5 ) ( ) * ? > ?! ) 8 $! E : * : Private stateNew As Boolean ! & , ,& : Private Sub lockTextBoxTrue() Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True DTPicker1.Enabled = False End Sub @ @! & , ,- : Private Sub lockTextBoxFalse() Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False DTPicker1.Enabled = True End Sub A! * : Private Sub evenAdd() With Form1 stateNew = True .CmdAdd.Enabled = False .cmdSave.Enabled = True .CmdDelete.Enabled = False .CmdEdit.Enabled = False End With End Sub ! * 4 : Private Sub evenEdit() With Form1 stateNew = False .CmdAdd.Enabled = False .cmdSave.Enabled = True .CmdDelete.Enabled = False .CmdEdit.Enabled = False End With End Sub ! * ) * : Private Sub evenSave() With Form1 .CmdAdd.Enabled = True .cmdSave.Enabled = False .CmdDelete.Enabled = True .CmdEdit.Enabled = True End With End Sub !. - 8 cmdSave.Enabled = False DTPicker1.Value = Now lockTextBoxTrue 2! . & " Text1.Text = "" A Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" DTPicker1.Value = Now lockTextBoxFalse evenAdd 5! . D " If Text1.Text = "" Then MsgBox "Pilih dahulu data yang ingin anda ubah",vbInformation Else evenEdit lockTextBoxFalse End If ?! . ) Adodc1.RecordSource = "select * from mahasiswa where npm='" & Text1.Text & "'" Adodc1.Refresh With Adodc1.Recordset If .EOF Then .AddNew .Fields.Item("NPM") = Text1.Text GoTo edit Else If stateNew = False Then GoTo edit MsgBox "Data udah ada", vbInformation End If edit: .Fields.Item("NAMA") = Text2.Text .Fields.Item("ALAMAT") = Text3.Text .Fields.Item("JURUSAN") = Text4.Text .Fields.Item("TEMPATLAHIR") = Text5.Text .Fields.Item("TELP") = Text6.Text .Fields.Item("TGLLAHIR") = DTPicker1.Value .Update Adodc1.RecordSource = "select * from mahasiswa " Adodc1.Refresh End With Adodc1.RecordSource = "select * from mahasiswa " Adodc1.Refresh evenSave $! . = Adodc1.RecordSource = "select * from mahasiswa where npm='" & Text1.Text & "'" Adodc1.Refresh With Adodc1.Recordset If Not .EOF Then 2 .Delete Adodc1.RecordSource = "select * from mahasiswa " Adodc1.Refresh Else MsgBox "Data tidak ada", vbInformation End If End With Adodc1.RecordSource = "select * from mahasiswa " Adodc1.Refresh evenSave !. > Unload Me @! & -? % + 2