Wednesday, 4 December 2013

Program Penjualan Barang Sederhana Visual Basic



data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAVoAAAFbCAIAAAAbb9GEAAAaXUlEQVR4nO2d+29U14HH7x9hVZGWnywtpEqoVCBSf2lWwpAU0pCk3po8GpynW6oulCaQFwE3VUvCmzZsMIQwKSkhj3abNmxrTHgsTgskAWzzDg4PG2zMIxObKNIqq9kf5sydM/eec+bOzPXMvfd8PvoK3TlzHnce5zNnhuMZJ5NjEgDYxJgxY2644YaMhJMVweTJk9vb2/v6+jIAYAdff/31p5eu/EvD9LpvfCNb4kyaNGnVqlX9/f3r3j9MCLEt3emv3jp2NmsEZ/Lkyf39/W3vdxFC7Myea1+O+fcHMpmM097e3ratixBic/506foNN9zg9PX1rf/vbkKIzXn70pdjxoxxvvrqqw1/6yGE2JwtA9cnTZrkZDKZjX8/QgixOa9fzOngtfYjhBCb8+qFnA42bT9GCLE5r/R/KXTwesdxQhKQNW93/qy17cG5L4abn7W2rXm7s2pDpLbsePC7dzbU1YebB797Z2rLDt1d99vz19EBSVQeX7C6fe/hM4PD4aZ97+HHF6yu2hB3jb1l+/oN13s+Djfb12+4a+wtursur4Pf7zhBSALS/POXzgwO7z0yEG7ODA43//ylqg3RUFc/0nXg0luvhpuRrgMNdfW6u27FuZwO3th50hAnh7kaITXPQ/OWfjYwvKdnINx8NjD80LylVRuioa5++OC+gS1tg2+2Db7ZNrhFJFsykD3IHQ8WZL1otWV9vmHuYPjgvoa6et1dt+RsTgd/2HXKEMdxnEzGyWQcCXMTkRdnOs63H3zDLel48CbRfPKLRUtmLth16g+7Xp0sj+p8+8E3/CUBzkR0FbjyizMdx3Fuem5loJ7D7uSN5/5Vfar+m1DKjbIgD4u5ejHcfDYw/PC8pUGG+M3q1xubWnT5zerXgwzRUFef/qjz4u/X5rN57cXN4viVZxe6Hb7y7EJliT8Xfr82/VFnQ1297q771Wc5Hby5+7Qh+amXlUKhGnStZt3kON+/t8GZMOsPucKXForjl+51nHufUpWs+tkE5/sb35QO8nnpXuemhavMJaZsLDiZIjWdhpcCdjuqnRS9CcFvlBV5+BfLegeGd/UMhJvegeGHf7EsyBCNTS1f62lsagkyRENd/ef79vS/trp/4+r+jav7cgfZNDa1uH+S2NjU8p9PPeMp6du4uk+q3//a6mxXn+/b01BXr7vrnu/N6WDrnl5DHMfJZDK7d+8ueFXOScHYduMUZ0LzliDl2ZKdzTc7U5b2bt3Tu3XL82Od+56WWj19pzP2P3ZuNZaUdTKV1BztTgLeb+GOEuM88sTy3oHhnT0D4eb0wMgjTywPMkRRHega9g4Mu0M01NVf7fzg/Lpl59qWnWtbdm7d8tzBsnNty9bOf6qxqeX/cniO185/6nzbsnNty7L/nmtbdq5tefb4aucHDXX1urvumdM5Hby1t9eQrA5kZDUY226c4kxo3uor3/r82JufX6Moket72vq70nTudug4juOMnfN8rtrGKc6E5mVu+U5PTcdxpizLVhNk6zwzI3d5xkZ33CkzJjjOfc9IIxZW83RS2MQ7Yu+aORPynhXNlTetxDvBvjzyxPLegZGdPYPhJqsDd4jTA8O7egaVcXXgeZsgrQ7UDeUhsjo4s3bJmZeXnFm75OzaJWfW5g/Ovrzk5SfnNza1/G8hjU0tLz85X1R7Od/qTK5VVge6u+6JT0eEDt7pPGOIXwcujuMY226a6kx4aKuncPdDNztTlytLNk117ntW2Xb5fc7Ni34n9+MvKRhXDPG7ORMc0c+mqY4jmiy/zxED5Wu+s3XR2HxN/2m7hZumOs7YObuL3WS5E7mJckS3mntW/hPI3QQvypqW5tEnV+w72r/uvY+VeeKXaw1v7J/45Vpdw31H+x99ckWQIRqbWi5dunTp0qXGphZzoWGIhrr6k+tX/r3hZkNeuPMOt9tszy/ceYe5ycn1Kxvq6nV33ZxTOR28++FZQ8w6MLbdNNWZ8PBbBYXPzXCcGZs0JXL9grbPzXDGzd3jaeUpyeetReNuXvQ77zmoOn9r0Tjn/uekPqeu8J32ivvdiefrR4qpmnSsHtFzrBlCUa6raWkefXLF/mP96//yiTLye2w/jU0tuob7j/U/+uSKgiH++okyjU0t58+fP3/+vMc1bqGu4f5jF9whsjromDZx+/SJHdPFvx3TJ3ZMn9QxbVLH9Im/umeG26dLY1PLr+6Z0TFtUse0idunTdw+bWLH9Ekd0yd1TJuYTVYHurtu9smcDv70z3OGmHXQ2tqqb5u6zZn4yNv5krU/n+jcnZLrFJbseWR8rv7bi8c59y/U9KMqkfL24nHjF6/11pSb5I4LRjm38G7ntpWFNfMV3HNTDV2kmrJDecRzf1p5v3Q/6G5difeDfXls/ooDxy+8uu2QMo1NLaf1NDa16BoeOH7hsfkr5CE2bjukTNEhdA0PHL/oDtFQV39q45pdjbf68t1djbf++oeN8iie41//sFHV8NZdjbee2rimoa5ee9cdz+ngz/vOG+KuSnfv3q3UQRZV29dvcyY++m7u4qoHnPGtr8gVfCWvzJvo3PO6fCCO/dU8XXnHdW5blaspzkE+Gfc4X/PP77aOcx5Y5Dlt9wzfbR2n6Md3Q9TVPMfKEbMHqvvNVK6raWkeX7Dy4OmhN3aeUKaxqeW4nsamFl3Dg6eHHl+wsmpDNNTV925e1zlr+t5Zd+yddUdn8/TOWfnIQzQ2tSy5/z5PSafbpHl6Z/P0zll3ZBv2bl7XUFevu+uaj+Z08N7+/iCR37Bm1eDqwF/5sfFS7fGt6/Z3FpQ4zu2r/SX977nVxreuE111PjbeuXFep9S5v8SX1Q9k+7xxXuvtzsTH/tj/3v7NuYPC4z+23ijGV12bP58Hbh/v76fglPTVCpv4Rlx8j+e+Ug6hHFpX09K0LFjVffbaux+eUWbh0tcMnx0sXPqarmH32WstC1ZVbYiGuvqz76T2/3Tm/p/em8vM3MWZS5ub3Q6XNjfv/+m9vpKZUpOZ+2eLfs6+k2qoq9fddQ+4OvjLRxdKjfvsLaNtVfNfrTc6P2qt+WmQquTHT68+1vdF6N0e6/vix0+vrtoQDXX1/e+/c3D+YyHl8exB//vvNNTV606g6ciw0MFfP74Y57zxvYJFxo9apWtbf+A43/rl+tqfZMi3iyjzk2fWnLg48rfDl8LNiYsjP3lmTdWGaKirH/xgW/fiud2L5vYsntuzaG63m8VzuhfP7V48t3vRnB5xPKd78ZzuRbnjRSJuK/dg8INtDXX1urvuBz05Hbz/ycVk5cPHvyXNotqfD6lS5r2wYeeBEycHroebnQdOzHthQ9WGuPub39mxfsOVf+wONzvWb7j7m9/R3XUzunM62HZwgJAEZPP2nnkvrJ/97G/DzbwX1m/e3lO1ITZs2nbX2FtC/76Du8besmHTNt1dN70r99nB3w4NEkJszu2Hc6uDvx++RAixOVMO5XTQ3jVECLE5kw06cBwnrYJyyilPQLl/yv/bwWHHcdQ6UPYFAMkAHQCAAB0AgAAdAIAAHQCAAB0AgAAdAICgNB3o/t8SAOIL+w4AwEs1dOAUUlLD0Gsqz6rUtgCJpEo6MFwMhfJ0UElzgOSBDspsDpA8aqkDz1o9e6AsCdg2SJ/Ks/Ice3ooqXPeg0B8CUcHKRXutcrPDvyzUScC88u4v465T+VZKW+UrueiJ+wZTnnnAFSfTCajfKq7hKYD/4+v+CeGbjbq5pJhjunaFu1TedHw8h78Kl2fhl/4Aaga4etA90JqHsnwAqsrMeugkpqG4cw9BD8Nw60GqBWGSeo+V8NcHeiuLaqDgJO8jHUEOgDIUu03C7prdRNDXnini03FgG8KSnqz4DmBID0U7VzXLUBtiYoOyibWMyrWJw/JAx1UG5YGEFlirwMACAt0AACCSnWwvWtIDjoAiC8BdeCZ9SYd6N4So4PqUOVNbBARQplchn7ceW3UQfeQHFYHNSeVSs0Gy+jr6xttHbi0dw15Zn3IOjBs/imKU0iQ/pNNVgejvJkVokXSdGDYC2QmSGV/nQQLAh1YCDoooTI6gGQTFR10dA/JqeTNgryHV77KvGNHeZWnlfJAt4k47huE0IGFVFkHnlkv6+CynHB1EGTJYP7gQO5Z2ZtSB7qbEAvQgYXUQgf5WT8qOkgXWyaY23oKZUf4ZYEOIElUXQeXNTrouSynvH0H/ncHyvKibXWtWB1AsqmCDtx50d415Jn1eR3s6LnsJquDSkZKj6YOih6gA4gpVV4dyLN+h04HO8LQQVplB6UgdCVyqyDrAk81dACxI1E6gBBBBxYSFR180HNZDjqoOejAQqqsA8+sl3Rw5LIcdFBz0IGFVFsHhbMeHUQXdGAhUdHBziOX5aCDmoMOLKTKOvDMelkHV+TwfQc1Bx1YSJX3HXhmfV4Hu45e2XX0ys5cWB3UnFQq1Qf2Mdo6cGnvGspO+V25eHXgBh3UnNq9REGNqfzJE1wHu5Q62H30ihx0ABBfAurAM+slHRy7IgcdAMSXoDoonPUFOtgjBR0AxJeAOthTOOvzOtiDDgCSQqU6+J/jV+WgA4D4ElAHnllv0gH7DgBiSsB9B1od7D1+VQ6rA4D4EnB14Jn1kg5OXJWDDgDiS1AdFM76vA46T1yVgw4A4ktAHXhmfV4HH568KgcdAMSXgDrwzHpZB9fkoAOA+BJYBwWzPq+Df5y8JgcdAMSXgDrwzPq8Dv556pocdAAQXwLqwDPrTTpg30FtSYGVjPZfNMr7DrQ62Pfp53JYHdScVCo1Gyyjyt934Jn1eR3s//RzOaH/zkLleH5zIfGk+DakmFPqF59UXweeWZ/XwYHTn8up/g+6F2X0eo4m6CDuZOd2QLIPd5V14Jn1eR181Pu5HHRQc9BB3ClpbtdEB55ZL+sgLSfcH3RPq36UTf4NNUNNT+cBe9ZdZRguaopR6sApxC30HMj1lVf5a0LoxEEHBbM+r4OPP0vLCV0HReuY5386wLz19Ky8yq8G3XA1R6cD/0V0EE2irwPPrM/r4JPP0nIq/ChROdk8KwJlE39Nf+cBey56laHPKIAO4k70deCZ9XkdHDyTllPevgP/VFSWp/U6MMxP5VVBejZ0jg5g9IimDtzneXvXkGfW53Vw6MwXcir/j0Z0UCGhf3agbAujh2du+x8C+SlXk9WBZ9bndXD47BdyQt934LkLdDrw19T1ULTnoleZu605sg7cCaycxgF1oCtHDaOEf27rXJCukQ48sz5kHcSaKOvAJXQdwOihnNu6155o6aDr3BdyLNFBZJcGaXQQf3RzW/lkq4kOPLM+r4Puc1/IsUQHUaY8Hchk0EFNieZHiS7tXUOeWZ/XQc/5YTnooOawKzHuRF8Hnlmf18GR88Ny0EHNQQdxJ/o68Mx6SQd9w3L4voOagw7iTjR14M7r9q4hz6zP6+Bo/7AcVgc1Bx3Enb6+vpK++KT6q4PsZD/WP5I9yOvgWP+IHHRQc9BB3In+1594Zn1eB8f7R473jxy/MJI9QAc1J5VKlfr9GZAAqqkDMetzkXRwYUQOOqg5tXtVgxpT+ZMnqA4KZ31eBycujMhBBwDxJaAOPLM+r4OTF0dOXhw5kQs6AIgvAXXgzvrsgayD63LQAUB8CayDglmf18GpgeunLubDvgOA+BJw38Gpi9fliV+oAymsDgDiS8DVgWfW53Xw6cB1OegAIL4E1IFn1qMDgARSqQ5OD16Xgw4A4ktAHXhmPToASCDoAAAElevgy9ODX54evJ49QAcA8SWwDr6UY/ookX0HtaWkv42FxDDaf7Mg7zvQfpTIHzhHjVQqVcZfyEKsqfJfNGr/wPkfp665+eepa6H/zkJYRPaLj0Mnxfcd2EeVdeCZ9XkdbO8a2t6dTzR14Kh+N6XoacQUdGAhVdaBZ9bHWAeVV4s46MBCbNGBZ5HvP1aWmPsv2rlyNeGv7DmfiIAOLCRpOvCgrJMunJyeq/yVlUPoTqDUzv1qiAjowEKSpgPdRY8jzDPWLJRwOzcro4agAwuJrg50c6MMHfinXJCr/B2ORufoAKJDFXTgPslrtjoISwe6V/uinRvWAugAokN0VwdljFTGmwX/VcoSf2VlYRAR8GYBIkuidFAhkZqNNQcdWIjtOjAsBCwHHViI7ToAHejAQtABqEEHFoIOQA06sJDo6kD3Zh4dVAd0YCGJ2ncAIZLiF5ytZLR14IIO4kTtXqKgxlT+5EEHACBABwAgQAcAIEAHACBABwAgYN8BAAjYdwAAAt4sAIAAHQCAAB0AgAAdAIAAHQCAAB0AgIB9B0kjBVYy2n/RyL6DWJJKpWaDZSTt+w74WuSwSPFtSPaRKB0E/AkTZBEEdGAhidWBAXQQBHRgIVbowP+LaYYfRFP+vJqFb0DQgYUkSgfpYp8dOL6fS/RcpaysrJ940IGFJE0HLp6pLmvCrANd5TQ6gKQTXR1UuO/AMOeDXGUosQR0YCFV0EH19h3oXu09hf6rDGsBdAD2EN3VQXkjKT878Kz/00YR8GYhCzqwkKTpAMICHVgIOgA16MBC0AGoQQcWgg5ADTqwEHQAatCBhURXBxXuO4AKQQcWkqh9BxAiqVSqD+xjtHXggg7iRO1eoqDGVP7kQQcAIEAHACBABwAgQAcAIEAHACBg3wEACNh3AAAC3iwAgAAdAIAAHQCAAB0AgAAdAIAAHQCAgH0HSSMFVjLaf9HIvoNYkkqlZoNlJOr7Dvy/p+CWl3GTLCfFtyHZR9J0oDweVZLqGnRgIYnVgf/iKIEOIDFYoQP/T7DJFw0l/uWG+6+uz8SADizEIh3oLpZaYugnSaADC7FIB2nV9NY1L08ZSQIdWEh0dVDGvoOiOtAV6qqhg9o+O6HKVEEH1dt3oHvxr/zNgvseAR1Agonu6qCMkYruOyj1o8S0TwQBFxoJAB1YSKJ0ACGCDiwEHYAadGAh6ADUoAMLQQegBh1YCDoANejAQqKrgzL2HUCIoAMLSdS+AwiRVCrVB/Yx2jpwQQdxonYvUVBjKn/yoAMAEKADABCgAwAQoAMAEKADABCw7wAABOw7AAABbxYAQIAOAECADgBAgA4AQIAOAECADgBAwL6DpJECKxntv2hk30EsSaVSs8EyEvV9B04hZdwM/w80VNJbrEnxbUj2kSgdZCk6dQ0VdL/XEqTbhIEOLAQdmK5CB7V9dkKVsUIHngW//1j382o6HehaGbqNnU3QgYUkXwf+Ka2cmcqrin524GmlNJFuxIiDDizEdh14JnypqwOdDszdxgJ0YCHR1YFuCoWog6ILB6UOinYYcD0ScdCBhVRBB+5ciNzqICwdpH2fR5i7jQXowEKiuzooeyTlG3jP+/+Aq3rdZwf+cnMFdACxIIE6qAlxnPBm0IGFoINK8a8dkgE6sBB0AGrQgYWgA1CDDiwEHYAadGAh0dVB2fsOIBTQgYUkcN8BhEIqleoD+xhtHbiggzhRu5coqDGVP3nQAQAI0AEACNABAAjQAQAI0AEACNh3AAAC9h0AgIA3CwAgQAcAIEAHACBABwAgQAcAIKiqDgAg4lRp38Ho/SEXAISIcv6GvO8AABIAOgAAAToAAAE6AAABOgAAAToAAAE6AAAB+w4gz+zZs3l8E4zu8Q1530Emk6n1V9FDpaRSKYMOan12UCmGx9clTB2YR4KIU1QHVT4fCBd0ACWADpINOoASQAfJBh1ACaCDZIMOoATQQbJBB1AC6CDZhK8Dw74Dni5xBx0kG8PjOyr7DkblRkC1QAfJhjcLUALoINmggwKcQgyF/quU5eaelTWjTNx1YH4oDRflEl0PRTuJ/qOMDgpQPn66BzVIua6yoWaUibsOshR9LJR1zI9vGRcjCDooIHQd6Ho2FEaZpOrA/0ArF3H+5v7j4LKIIOigAHRgBh34q5k7MY8bNdBBAcr3lro3nIYHW1lZ+YZTWRhZEqkDw5s7/79pzUOp60T35Ikm7DsoIMhreNHVQZDKAYeOGujAXN9Q6L8YQdh3UAA6MJNUHSiXhEUPPIWGTpQXIwhvFgoIRQdBXigMNaNM8nTgv9t1awHD41u0E91YUQMdFFCSDtKlfCKgew+pbB5ZLNSBv2bRVYCuk+g/yugASiAZOgAd6ABKAB0kG3QAJYAOkg06gBJAB8mGfQdQAugg2bDvAEoAHSQb3ixACaCDZIMOoATQQbJBB1AC6CDZoAMoAXSQbNABlAA6SDZV1UEK4o9BB7U+NQiBKu07mA1Jgcc32Sgf35D3HQBAAkAHACBABwAgQAcAIEAHACBABwAgQAcAIAhn34Ft5RlIBEX/H962clYH5ZDJZPog5gTZpWcb6KAcMuzhjz/owA86KAd0kADQgR90UA7oIAGgAz/ooBzQQQJAB37QQTmggwSADvygg3JABwkAHfhh30E55eggARh0ELXnG/sOIg06SACsDvygg3JABwkAHfhBB+UQLx04OeQSz4HyKhllnSAXIws68IMOyiFGOjBbwKyDov24Fw3XRhZ04AcdlENMdeAv9M/kojrIHuha6UaMIOjADzooB3Tgn/+GFUc0QQd+0EE5xEgH6QCfHfj/lVvpHKETBDqIL+w7KKc8Xjpw0X12oNOBoYeivUUf9h34y1kdlEPCdGA+8PRQdMmQAB1YCzoohxjpIMjruflA2ZVcgg4SAzoohxjpIF3BvgPdVZ4STzk6iC/ooBzipQNQgg78oINyQAcJAB34QQflgA4SADrwgw7KAR0kAHTgh30H5ZSjgwTAvgN/OauDckAHCYDVgR90UA7oIAGgAz/ooBzQQQJAB37QQTmggwSADvygg3JABwkAHfhBB+WADhIAOvCDDsohk8mkIP6gAw/sOyinfDYkhUg9r2pezuoAAAToAAAE6AAABOgAAAToAAAE6AAABOgAAATsO6CccsrZdwAAhaADABCgAwAQmHTQ3jVECLE5Nx7qRweEkKF2dEAIcYMOCCEi6IAQIoIOCCEiQgc3HuonhBAHACBPBgAgk8lkMv8Pg1SRToLJkhUAAAAASUVORK5CYII=


Alat Tempur :

- Frame = 1 buah (Data Mahasiswa)
- Label = 6 buah (Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- TextBox = 4 buah (Nama, NIM, TTL, Alamat)
- ComboBox = 2 buah (Jenis Kelamin, Jurusan)
- CommandButton = 3 buah (Cetak, Bersih, Exit)
- ListBox (Outputnya)
KETERANGAN:
Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

No comments:

Post a Comment