Makalah Pemrograman Visual ��Aplikasi Travel��

Oct 20, 2013Download as DOCX, PDF2 likes5,190 views

This document contains the source code for an application called "Travel App" created using visual programming. It includes code for various forms like the login form, splash screen, customer form, transaction form, route form, price form and about form. The code handles form loading, navigation between forms, adding/deleting customer records from the database and calculating ticket prices based on routes. The author of the application is Muslih Hidayat with student number 1101169 from Sekolah Tinggi Manajemen Informatika dan Komputer Nurdin Hamzah.

Makalah
Pemrograman Visual
��Aplikasi Travel��

Disusun Oleh :
Nama
: Muslih hidayat
Nim
: 1101169

SEKOLAH TINGGI MANAJEMEN
INFORMATIKA DAN KOMPUTER
NURDIN HAMZAH
muslih hidayat 1101169

? Form Login

Private Sub cmdOK_Click()
If Text1.Text = Text2.Text Then
Call Form8.Show
Form1.Hide
Else
MsgBox "Password Salah!!!, Isi Password = nama user", vbInformation, "Ulangi"
End If
End Sub

? Form Splash

muslih hidayat 1101169

Private Sub about_Click()
Call Form6.Show
End Sub
Private Sub Command1_Click()
Call Form3.Show
End Sub
Private Sub Command2_Click()
Call Form2.Show
End Sub
Private Sub Command3_Click()
Call Form5.Show
End Sub
Private Sub Command4_Click()
MsgBox "Terimakaih", vbYesNo, "Keluar"
End
End Sub
Private Sub Command5_Click()
Call Form6.Show
End Sub
Private Sub Command6_Click()
Call Form7.Show
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End Sub
Private Sub harga_Click()
Call Form2.Show
End Sub
Private Sub keluar_Click()
End
End Sub
Private Sub pelanggan_Click()
Call Form7.Show
End Sub
Private Sub Rute_Click()
Call Form5.Show
End Sub
Private Sub Transaksi_Click(Index As Integer)
Call Form3.Show
End Sub

muslih hidayat 1101169

? Form Pelanggan

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub
Private Sub Command2_Click()
Data1.Recordset.MoveNext
End Sub
Private Sub Command3_Click()
Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")
If Delete = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
Data1.Recordset.FindFirst "nama='" + Text6 + "'"
If Data1.Recordset.NoMatch Then
MsgBox "Nama yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Form_Load()
DTPicker1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub

muslih hidayat 1101169

? Form Transaksi

Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) - Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub taktampil()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
DTPicker1.Enabled = False
End Sub
Private Sub tampil()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Command1.Enabled = True
Command3.Enabled = True
DTPicker1.Enabled = True
End Sub

muslih hidayat 1101169

Private Sub Command3_Click()
Data1.Recordset.Update
Data1.Recordset.MoveNext
Call taktampil
MsgBox "Data sudah tersimpan,Silahkan lihat di Menu DATA", vbOKOnly, "Sukses"
End Sub
Private Sub Command4_Click()
Data1.Recordset.AddNew
Call tampil
Text5.SetFocus
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
End Sub
Private Sub Form_Load()
Call taktampil
DTPicker1.Enabled = False
End Sub
Private Sub Option1_Click()
Text1.Text = "30000"
Text2.Text = "Tanjab Timur"
End Sub
Private Sub Option2_Click()
Text1.Text = "35000"
Text2.Text = "Bulian"
End Sub
Private Sub Option3_Click()
Text1.Text = "70000"
Text2.Text = "Sarolangun"
End Sub
Private Sub Option4_Click()
Text1.Text = "90000"
Text2.Text = "Bangko"
End Sub
Private Sub Option5_Click()
Text1.Text = "200000"
Text2.Text = "Linggau"
End Sub

muslih hidayat 1101169

? Form Rute

Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End Sub

? Form Harga

Private Sub Command1_Click()
If Combo1 = "Sarolangun" Then
Text1.Text = "Rp.80.000"
End If
If Combo1 = "Tanjab Timur" Then
Text1.Text = "Rp.30.000"
End If

muslih hidayat 1101169

If Combo1 = "Bulian" Then
Text1.Text = "Rp.25.000"
End If
If Combo1 = "Bungo" Then
Text1.Text = "Rp.100.000"
End If
If Combo1 = "Bangko" Then
Text1.Text = "Rp.80.000"
End If
If Combo1 = "Linggau" Then
Text1.Text = "Rp.200.000"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Tanjab Timur"
Combo1.AddItem "Bulian"
Combo1.AddItem "Bungo"
Combo1.AddItem "Bangko"
Combo1.AddItem "Linggau"
Text1.Enabled = False
End Sub

? Form About

muslih hidayat 1101169

Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Hari(7) As String
Dim bulan(12) As String
Hari(1) = "Minggu"
Hari(2) = "Senin"
Hari(3) = "Selasa"
Hari(4) = "Rabu"
Hari(5) = "Kamis"
Hari(6) = "Jum'at"
Hari(7) = "Sabtu"
bulan(1) = "Januari"
bulan(2) = "Februari"
bulan(3) = "Maret"
bulan(4) = "April"
bulan(5) = "Mei"
bulan(6) = "Juni"
bulan(7) = "Juli"
bulan(8) = "Agustus"
bulan(9) = "September"
bulan(10) = "Oktober"
bulan(11) = "November"
bulan(12) = "Desember"
har = Weekday(Date)
tgl = Day(Date)
bul = Month(Date)
thn = Str(Year(Date))
Label7.Caption = Hari(har)
Label8.Caption = Str(tgl) & " - " & bulan(bul) & " - " & thn
End Sub

muslih hidayat 1101169

The document discusses different JavaScript events for documents, forms, and mouse interactions: 1) The ondblclick event handler executes JavaScript code when the mouse is double clicked on a document. 2) Keyboard events like onkeydown occur when keys are pressed or released, while onkeypress only triggers for character keys. 3) Mouse events like onmousedown happen when buttons are pressed, and onmouseup when they are released. These can change element styles. 4) Form events include onreset which triggers when the reset button is clicked, and onsubmit on the submit button. These can display alerts.

Example esb flowAntonio Pellegrino

This document provides instructions for creating a basic Mule ESB flow using file and logger components to transfer a file between folders. The flow involves: 1) Creating a Mule project in Anypoint Studio and designing a message flow with a File, Java, and another File component. 2) Configuring the input and output File components to specify the paths for the source, backup, and destination folders. 3) Configuring the Logger component to output messages to the console about the file being transferred. 4) Running the flow by dragging a test file into the source folder, which will trigger the flow to copy the file to the backup and destination folders.

My mule esb flowDavide Rapacciuolo

PhpUthpala Bowalgaha

yaz?l?guest1a815d9

The document contains C# code for handling various user interface elements in ASP.NET such as buttons, text boxes, drop down lists, list boxes, radio buttons, and check boxes. It includes event handler methods for responding to user interactions with these elements by updating other elements or displaying messages. Methods are provided for initializing drop down lists and populating elements with data from arrays or loops.

Java me lab2-slides (gui programming)haiokman

This document discusses Java ME GUI programming and provides examples of creating menus and forms for a mobile restaurant ordering app. It introduces the MIDP user interface components of screens, alerts, forms, lists and text boxes. Sample code is provided to create list menus for main courses and desserts, add command buttons, retrieve selected items, and display an order summary form. The document also briefly demonstrates graphics programming using the Canvas class and painting methods.

MacrosPilar Gurrola

The document contains VBA code for a userform with 6 text boxes and 2 option buttons. The code in SubCommandButton1_Click clears all text boxes when clicked. SubCommandButton2_Click validates that all text boxes contain text, then writes the text box values to a spreadsheet. It also writes a formula to the next column based on the selected option button, clears the text boxes, and displays a confirmation message.

Membuat aplikasi penjualan buku sederhanaYusman Kurniadi

This document provides instructions for creating a simple book sales application in VB.Net. It describes setting up the database tables, designing the user interface forms, and includes example code for form functionality like loading and saving data. Tables are created for book types, books, transactions, and transaction details. Forms are designed for a main menu, managing book types and books, and processing sales transactions. Code examples show connecting to the database and querying/manipulating data. The goal is to demonstrate creating a basic working application with a database backend using VB.Net.

Efmi modul vb net Pembahasan kasus Penjualan dengan VB.NetEfmi Maiyana

Modul ini membahas tentang pembahasan database dan Crystal Report menggunakan VB.NET. Modul ini mengajarkan cara membuat database, form terkoneksi ke database, membuat relasi tabel, dan membuat laporan menggunakan Crystal Report. Beberapa topik yang dibahas antara lain desain database, membuat DSN, membangun form terhubung ke database, desain form entri data, relasi tabel, dan cara menghubungkan form dengan laporan Crystal Report.

Learning VB.NET Programming Conceptsguest25d6e3

Learning VB.NET Programming Concepts is a textbook for software developers to familiarize them with the concept of Common Language Runtime (CLR). The textbook enables the reader to understand the basic features of VB.NET. The line-by-line explanation of the source code, a unique feature of the textbook, enables the students to gain a thorough and practical understanding of VB.NET. The chapters in this book are structured in a pedagogical sequence, which makes this textbook very effective in learning the features and capabilities of the software.

E book vb.net+mysql(cara cepat)Zoeliandri Sapoetra

Insert, Edit, Delete pada VB 2010 dengan DB Mysql dan Crystal ReportRahmat Taufiq Sigit

Algorithms and FlowchartsDeva Singh

Vb fileMukund Trivedi

Pooja Sharma , BCA Third YearDezyneecole

Kajal Gaharwal , BCA Third YearDezyneecole

This document is a report submitted by Kajal Gaharwal for their Visual Basic assessment project. It includes an acknowledgements section thanking those who helped. The synopsis explains that the project strengthened their practical Visual Basic concepts. The bulk of the document contains the code for the Notepad application created in Visual Basic, including multiple forms and functions for common text editing tasks.

Rakesh Bijawat , BCA Third YearDezyneecole

Kirti Kumawat, BCA Third Yeardezyneecole

Sudarshan Joshi , BCA Third Yeardezyneecole

Reshma Kodwani , BCA Third Yeardezyneecole

Harendra Singh,BCA Third Yeardezyneecole

Ravi Prakash Yadav , BCA Third YearDezyneecole

Mithlesh Singh Rawat , BCA Third Yeardezyneecole

Bhanu Pratap Singh Shekhawat, BCA Third YearDezyneecole

Gaurav Jatav , BCA Third YearDezyneecole

Akshay Sharma , BCA Third YearDezyneecole

Trabajo de ept lissethe torolissethee

This document contains code for multiple projects. Project 1 contains code to show and hide different forms when buttons are clicked. Project 2 contains code to load different country flag images into an image control based on a list selection. Project 3 contains code to populate and manipulate a combo box form control. Project 4 contains code for a login form, hotel reservation form calculations, and form navigation buttons.

Surat permohonan Rambu Zona Selamat SekolahSMK MUhammadiyah Singkut

LAPORAN PERTANGGUNG JAWABAN posko siaga lebaranSMK MUhammadiyah Singkut

More Related Content

Viewers also liked (6)

Membuat aplikasi penjualan buku sederhanaYusman Kurniadi

Efmi modul vb net Pembahasan kasus Penjualan dengan VB.NetEfmi Maiyana

Learning VB.NET Programming Conceptsguest25d6e3

E book vb.net+mysql(cara cepat)Zoeliandri Sapoetra

Insert, Edit, Delete pada VB 2010 dengan DB Mysql dan Crystal ReportRahmat Taufiq Sigit

Algorithms and FlowchartsDeva Singh

Membuat aplikasi penjualan buku sederhanaYusman Kurniadi

Efmi modul vb net Pembahasan kasus Penjualan dengan VB.NetEfmi Maiyana

Learning VB.NET Programming Conceptsguest25d6e3

E book vb.net+mysql(cara cepat)Zoeliandri Sapoetra

Insert, Edit, Delete pada VB 2010 dengan DB Mysql dan Crystal ReportRahmat Taufiq Sigit

Algorithms and FlowchartsDeva Singh

Similar to Makalah Pemrograman Visual ��Aplikasi Travel�� (14)

Vb fileMukund Trivedi

Pooja Sharma , BCA Third YearDezyneecole

Kajal Gaharwal , BCA Third YearDezyneecole

Rakesh Bijawat , BCA Third YearDezyneecole

Kirti Kumawat, BCA Third Yeardezyneecole

Sudarshan Joshi , BCA Third Yeardezyneecole

Reshma Kodwani , BCA Third Yeardezyneecole

Harendra Singh,BCA Third Yeardezyneecole

Ravi Prakash Yadav , BCA Third YearDezyneecole

Mithlesh Singh Rawat , BCA Third Yeardezyneecole

Bhanu Pratap Singh Shekhawat, BCA Third YearDezyneecole

Gaurav Jatav , BCA Third YearDezyneecole

Akshay Sharma , BCA Third YearDezyneecole

Trabajo de ept lissethe torolissethee

Vb fileMukund Trivedi

Pooja Sharma , BCA Third YearDezyneecole

Kajal Gaharwal , BCA Third YearDezyneecole

Rakesh Bijawat , BCA Third YearDezyneecole

Kirti Kumawat, BCA Third Yeardezyneecole

Sudarshan Joshi , BCA Third Yeardezyneecole

Reshma Kodwani , BCA Third Yeardezyneecole

Harendra Singh,BCA Third Yeardezyneecole

Ravi Prakash Yadav , BCA Third YearDezyneecole

Mithlesh Singh Rawat , BCA Third Yeardezyneecole

Bhanu Pratap Singh Shekhawat, BCA Third YearDezyneecole

Gaurav Jatav , BCA Third YearDezyneecole

Akshay Sharma , BCA Third YearDezyneecole

Trabajo de ept lissethe torolissethee

More from SMK MUhammadiyah Singkut (20)

Surat permohonan Rambu Zona Selamat SekolahSMK MUhammadiyah Singkut

LAPORAN PERTANGGUNG JAWABAN posko siaga lebaranSMK MUhammadiyah Singkut

Undangan Undangan intruksi dari Majelis Pembina Kesehatan UmumSMK MUhammadiyah Singkut

undangan buka bersama komunitas driver ambulanceSMK MUhammadiyah Singkut

Proposal Posko Siaga Khusus lebaran 2024SMK MUhammadiyah Singkut

Soal Administrasi Sistem Jaringan pilihan gandaSMK MUhammadiyah Singkut

SOAL UAS TKJ PEMROGRAMAN DASAR pilihan gandaSMK MUhammadiyah Singkut

Soal TKJ UAS Komputer dan jaringan dasarSMK MUhammadiyah Singkut

Surat undangan untuk camat, kades, polsekSMK MUhammadiyah Singkut

SURAT PERMOHONAN DONASI SANTUNAN RAMADHAN LAZISMUSMK MUhammadiyah Singkut

VERIFIKASI UJI KOMPETENSI KEAHLIAN.docSMK MUhammadiyah Singkut

REKOMENDASI PDM SAROLANGUN_CALON KEPSEK SMK MUHAMMADIYAHSMK MUhammadiyah Singkut

Surat Undangan Narasumber Pelatihan atau DiklatSMK MUhammadiyah Singkut

PROPOSAL WORKSHOP PENGEMBANGAN PEMBELAJARAN HOTSSMK MUhammadiyah Singkut

KKO KeterampilanSMK MUhammadiyah Singkut

KKO PengetahuanSMK MUhammadiyah Singkut

KKO SikapSMK MUhammadiyah Singkut

Soal Animasi 2D 3D semester 2 2022/2023 .docxSMK MUhammadiyah Singkut

Soal Desain Grafis dan Percetakan 2022/2023SMK MUhammadiyah Singkut

buku panduan MUSYDA KE-6 Muhammadiyah SarolangunSMK MUhammadiyah Singkut

Surat permohonan Rambu Zona Selamat SekolahSMK MUhammadiyah Singkut

LAPORAN PERTANGGUNG JAWABAN posko siaga lebaranSMK MUhammadiyah Singkut

Undangan Undangan intruksi dari Majelis Pembina Kesehatan UmumSMK MUhammadiyah Singkut

undangan buka bersama komunitas driver ambulanceSMK MUhammadiyah Singkut

Proposal Posko Siaga Khusus lebaran 2024SMK MUhammadiyah Singkut

Soal Administrasi Sistem Jaringan pilihan gandaSMK MUhammadiyah Singkut

SOAL UAS TKJ PEMROGRAMAN DASAR pilihan gandaSMK MUhammadiyah Singkut

Soal TKJ UAS Komputer dan jaringan dasarSMK MUhammadiyah Singkut

Surat undangan untuk camat, kades, polsekSMK MUhammadiyah Singkut

SURAT PERMOHONAN DONASI SANTUNAN RAMADHAN LAZISMUSMK MUhammadiyah Singkut

VERIFIKASI UJI KOMPETENSI KEAHLIAN.docSMK MUhammadiyah Singkut

REKOMENDASI PDM SAROLANGUN_CALON KEPSEK SMK MUHAMMADIYAHSMK MUhammadiyah Singkut

Surat Undangan Narasumber Pelatihan atau DiklatSMK MUhammadiyah Singkut

PROPOSAL WORKSHOP PENGEMBANGAN PEMBELAJARAN HOTSSMK MUhammadiyah Singkut

KKO KeterampilanSMK MUhammadiyah Singkut

KKO PengetahuanSMK MUhammadiyah Singkut

KKO SikapSMK MUhammadiyah Singkut

Soal Animasi 2D 3D semester 2 2022/2023 .docxSMK MUhammadiyah Singkut

Soal Desain Grafis dan Percetakan 2022/2023SMK MUhammadiyah Singkut

buku panduan MUSYDA KE-6 Muhammadiyah SarolangunSMK MUhammadiyah Singkut

Recently uploaded (20)

Q4_TLE-7-Lesson-6-Week-6.pptx 4th quarterMariaBarbaraPaglinaw

DevNexus - Building 10x Development Organizations.pdfJustin Reock

Developer Experience is Dead! Long Live Developer Experience! In this keynote-style session, we��ll take a detailed, granular look at the barriers to productivity developers face today and modern approaches for removing them. 10x developers may be a myth, but 10x organizations are very real, as proven by the influential study performed in the 1980s, ��The Coding War Games.�� Right now, here in early 2025, we seem to be experiencing YAPP (Yet Another Productivity Philosophy), and that philosophy is converging on developer experience. It seems that with every new method, we invent to deliver products, whether physical or virtual, we reinvent productivity philosophies to go alongside them. But which of these approaches works? DORA? SPACE? DevEx? What should we invest in and create urgency behind today so we don��t have the same discussion again in a decade?

Transform Your Future with Front-End Development TrainingVtechlabs

Kickstart your career in web development with our front-end web development course in Vadodara. Learn HTML, CSS, JavaScript, React, and more through hands-on projects and expert mentorship. Our front-end development course with placement includes real-world training, mock interviews, and job assistance to help you secure top roles like Front-End Developer, UI/UX Developer, and Web Designer. Join VtechLabs today and build a successful career in the booming IT industry!

Formal Methods: Whence and Whither? [Martin Fr?nzle Festkolloquium, 2025]Jonathan Bowen

Alan Turing arguably wrote the first paper on formal methods 75 years ago. Since then, there have been claims and counterclaims about formal methods. Tool development has been slow but aided by Moore��s Law with the increasing power of computers. Although formal methods are not widespread in practical usage at a heavyweight level, their influence as crept into software engineering practice to the extent that they are no longer necessarily called formal methods in their use. In addition, in areas where safety and security are important, with the increasing use of computers in such applications, formal methods are a viable way to improve the reliability of such software-based systems. Their use in hardware where a mistake can be very costly is also important. This talk explores the journey of formal methods to the present day and speculates on future directions.

Cloud of everything Tech of the 21 century in AviationAssem mousa

Deno ...................................Robert MacLean

Unlocking DevOps Secuirty :Vault & KeylockHusseinMalikMammadli

DevOps i? t?hl��k?sizliyi sizi maraqland?r?r? ?st?r developer, ist?r t?hl��k?sizlik m��h?ndisi, ist?rs? d? DevOps h?v?skar? olun, bu t?dbir ??b?k?l??m?k, bilikl?rinizi b?l��?m?k v? DevSecOps sah?sind? ?n son t?cr��b?l?ri ?yr?nm?k ��?��n m��k?mm?l f��rs?tdir! Bu workshopda DevOps infrastrukturlar?n?n t?hl��k?sizliyini nec? art?rmaq bar?d? dan??acay?q. DevOps sisteml?ri qurulark?n avtomatla?d?r?lm??, y��ks?k ?l?atan v? etibarl? olmas? il? yana??, h?m d? t?hl��k?sizlik m?s?l?l?ri n?z?r? al?nmal?d?r. Bu s?b?bd?n, DevOps komandolar?n?n t?hl��k?sizliy? y?n?lmi? praktikalara riay?t etm?si vacibdir.

Field Device Management Market Report 2030 - TechSci ResearchVipin Mishra

The Global Field Device Management (FDM) Market is expected to experience significant growth in the forecast period from 2026 to 2030, driven by the integration of advanced technologies aimed at improving industrial operations. ? According to TechSci Research, the Global Field Device Management Market was valued at USD 1,506.34 million in 2023 and is anticipated to grow at a CAGR of 6.72% through 2030. FDM plays a vital role in the centralized oversight and optimization of industrial field devices, including sensors, actuators, and controllers. Key tasks managed under FDM include: Configuration Monitoring Diagnostics Maintenance Performance optimization FDM solutions offer a comprehensive platform for real-time data collection, analysis, and decision-making, enabling: Proactive maintenance Predictive analytics Remote monitoring By streamlining operations and ensuring compliance, FDM enhances operational efficiency, reduces downtime, and improves asset reliability, ultimately leading to greater performance in industrial processes. FDM��s emphasis on predictive maintenance is particularly important in ensuring the long-term sustainability and success of industrial operations. For more information, explore the full report: https://shorturl.at/EJnzR Major companies operating in Global?Field Device Management Market are: General Electric Co Siemens AG ABB Ltd Emerson Electric Co Aveva Group Ltd Schneider Electric SE STMicroelectronics Inc Techno Systems Inc Semiconductor Components Industries LLC International Business Machines Corporation (IBM) #FieldDeviceManagement #IndustrialAutomation #PredictiveMaintenance #TechInnovation #IndustrialEfficiency #RemoteMonitoring #TechAdvancements #MarketGrowth #OperationalExcellence #SensorsAndActuators

Future-Proof Your Career with AI OptionsDianaGray10

Learn about the difference between automation, AI and agentic and ways you can harness these to further your career. In this session you will learn: Introduction to automation, AI, agentic Trends in the marketplace Take advantage of UiPath training and certification In demand skills needed to strategically position yourself to stay ahead ? If you have any questions or feedback, please refer to the "Women in Automation 2025" dedicated Forum thread. You can find there extra details and updates.

UiPath Document Understanding - Generative AI and Active learning capabilitiesDianaGray10

This session focus on Generative AI features and Active learning modern experience with Document understanding. Topics Covered: Overview of Document Understanding How Generative Annotation works? What is Generative Classification? How to use Generative Extraction activities? What is Generative Validation? How Active learning modern experience accelerate model training? Q/A ? If you have any questions or feedback, please refer to the "Women in Automation 2025" dedicated Forum thread. You can find there extra details and updates.

Fl studio crack version 12.9 Free Downloadkherorpacca127

Google the copied link ???? https://activationskey.com/download-latest-setup/ ???? The ultimate guide to FL Studio 12.9 Crack, the revolutionary digital audio workstation that empowers musicians and producers of all levels. This software has become a cornerstone in the music industry, offering unparalleled creative capabilities, cutting-edge features, and an intuitive workflow. With FL Studio 12.9 Crack, you gain access to a vast arsenal of instruments, effects, and plugins, seamlessly integrated into a user-friendly interface. Its signature Piano Roll Editor provides an exceptional level of musical expression, while the advanced automation features empower you to create complex and dynamic compositions.

Build with AI on Google Cloud Session #4Margaret Maynard-Reid

What Makes "Deep Research"? A Dive into AI AgentsZilliz

About this webinar: Unless you live under a rock, you will have heard about OpenAI��s release of Deep Research on Feb 2, 2025. This new product promises to revolutionize how we answer questions requiring the synthesis of large amounts of diverse information. But how does this technology work, and why is Deep Research a noticeable improvement over previous attempts? In this webinar, we will examine the concepts underpinning modern agents using our basic clone, Deep Searcher, as an example. Topics covered: Tool use Structured output Reflection Reasoning models Planning Types of agentic memory

Q4 2024 Earnings and Investor PresentationDropbox

How Discord Indexes Trillions of Messages: Scaling Search Infrastructure by V...ScyllaDB

[Webinar] Scaling Made Simple: Getting Started with No-Code Web AppsSafe Software

Ready to simplify workflow sharing across your organization without diving into complex coding? With FME Flow Apps, you can build no-code web apps that make your data work harder for you �� fast. In this webinar, we��ll show you how to: Build and deploy Workspace Apps to create an intuitive user interface for self-serve data processing and validation. Automate processes using Automation Apps. Learn to create a no-code web app to kick off workflows tailored to your needs, trigger multiple workspaces and external actions, and use conditional filtering within automations to control your workflows. Create a centralized portal with Gallery Apps to share a collection of no-code web apps across your organization. Through real-world examples and practical demos, you��ll learn how to transform your workflows into intuitive, self-serve solutions that empower your team and save you time. We can��t wait to show you what��s possible!

DAO UTokyo 2025 DLT mass adoption case studies IBM Tsuyoshi Hirayama (ƽɽ��)Tsuyoshi Hirayama

A Framework for Model-Driven Digital Twin EngineeringDaniel Lehner

UiPath Automation Developer Associate Training Series 2025 - Session 1DianaGray10

Welcome to UiPath Automation Developer Associate Training Series 2025 - Session 1. In this session, we will cover the following topics: Introduction to RPA & UiPath Studio Overview of RPA and its applications Introduction to UiPath Studio Variables & Data Types Control Flows You are requested to finish the following self-paced training for this session: Variables, Constants and Arguments in Studio 2 modules - 1h 30m - https://academy.uipath.com/courses/variables-constants-and-arguments-in-studio Control Flow in Studio 2 modules - 2h 15m - https:/academy.uipath.com/courses/control-flow-in-studio ?? For any questions you may have, please use the dedicated Forum thread. You can tag the hosts and mentors directly and they will reply as soon as possible.

The Future of Repair: Transparent and Incremental by Botond De?nesScyllaDB

Regularly run repairs are essential to keep clusters healthy, yet having a good repair schedule is more challenging than it should be. Repairs often take a long time, preventing running them often. This has an impact on data consistency and also limits the usefulness of the new repair based tombstone garbage collection. We want to address these challenges by making repairs incremental and allowing for automatic repair scheduling, without relying on external tools.

Q4_TLE-7-Lesson-6-Week-6.pptx 4th quarterMariaBarbaraPaglinaw

DevNexus - Building 10x Development Organizations.pdfJustin Reock

Transform Your Future with Front-End Development TrainingVtechlabs

Formal Methods: Whence and Whither? [Martin Fr?nzle Festkolloquium, 2025]Jonathan Bowen

Cloud of everything Tech of the 21 century in AviationAssem mousa

Deno ...................................Robert MacLean

Unlocking DevOps Secuirty :Vault & KeylockHusseinMalikMammadli

Field Device Management Market Report 2030 - TechSci ResearchVipin Mishra

Future-Proof Your Career with AI OptionsDianaGray10

UiPath Document Understanding - Generative AI and Active learning capabilitiesDianaGray10

Fl studio crack version 12.9 Free Downloadkherorpacca127

Build with AI on Google Cloud Session #4Margaret Maynard-Reid

What Makes "Deep Research"? A Dive into AI AgentsZilliz

Q4 2024 Earnings and Investor PresentationDropbox

How Discord Indexes Trillions of Messages: Scaling Search Infrastructure by V...ScyllaDB

[Webinar] Scaling Made Simple: Getting Started with No-Code Web AppsSafe Software

DAO UTokyo 2025 DLT mass adoption case studies IBM Tsuyoshi Hirayama (ƽɽ��)Tsuyoshi Hirayama

A Framework for Model-Driven Digital Twin EngineeringDaniel Lehner

UiPath Automation Developer Associate Training Series 2025 - Session 1DianaGray10

The Future of Repair: Transparent and Incremental by Botond De?nesScyllaDB

Makalah Pemrograman Visual ��Aplikasi Travel��

1. Makalah Pemrograman Visual ��Aplikasi Travel�� Disusun Oleh : Nama : Muslih hidayat Nim : 1101169 SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER NURDIN HAMZAH muslih hidayat 1101169

2. ? Form Login Private Sub cmdOK_Click() If Text1.Text = Text2.Text Then Call Form8.Show Form1.Hide Else MsgBox "Password Salah!!!, Isi Password = nama user", vbInformation, "Ulangi" End If End Sub ? Form Splash muslih hidayat 1101169

3. Private Sub about_Click() Call Form6.Show End Sub Private Sub Command1_Click() Call Form3.Show End Sub Private Sub Command2_Click() Call Form2.Show End Sub Private Sub Command3_Click() Call Form5.Show End Sub Private Sub Command4_Click() MsgBox "Terimakaih", vbYesNo, "Keluar" End End Sub Private Sub Command5_Click() Call Form6.Show End Sub Private Sub Command6_Click() Call Form7.Show End Sub Private Sub Form_Load() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False End Sub Private Sub harga_Click() Call Form2.Show End Sub Private Sub keluar_Click() End End Sub Private Sub pelanggan_Click() Call Form7.Show End Sub Private Sub Rute_Click() Call Form5.Show End Sub Private Sub Transaksi_Click(Index As Integer) Call Form3.Show End Sub muslih hidayat 1101169

4. ? Form Pelanggan Private Sub Command1_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Data1.Recordset.MoveNext End Sub Private Sub Command3_Click() Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus") If Delete = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext Else Data1.Recordset.MoveFirst End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Data1.Recordset.FindFirst "nama='" + Text6 + "'" If Data1.Recordset.NoMatch Then MsgBox "Nama yang Anda cari Tidak Ditemukan", vbOKOnly, "cari" Data1.Recordset.MoveFirst End If End Sub Private Sub Form_Load() DTPicker1.Enabled = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False End Sub muslih hidayat 1101169

5. ? Form Transaksi Private Sub Command1_Click() Text4.Text = Val(Text3.Text) - Val(Text1.Text) End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub taktampil() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Option1.Enabled = False Option2.Enabled = False Option3.Enabled = False Option4.Enabled = False Option5.Enabled = False Command1.Enabled = False Command3.Enabled = False DTPicker1.Enabled = False End Sub Private Sub tampil() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Option1.Enabled = True Option2.Enabled = True Option3.Enabled = True Option4.Enabled = True Option5.Enabled = True Command1.Enabled = True Command3.Enabled = True DTPicker1.Enabled = True End Sub muslih hidayat 1101169

6. Private Sub Command3_Click() Data1.Recordset.Update Data1.Recordset.MoveNext Call taktampil MsgBox "Data sudah tersimpan,Silahkan lihat di Menu DATA", vbOKOnly, "Sukses" End Sub Private Sub Command4_Click() Data1.Recordset.AddNew Call tampil Text5.SetFocus Command4.Enabled = False Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Form_Load() Call taktampil DTPicker1.Enabled = False End Sub Private Sub Option1_Click() Text1.Text = "30000" Text2.Text = "Tanjab Timur" End Sub Private Sub Option2_Click() Text1.Text = "35000" Text2.Text = "Bulian" End Sub Private Sub Option3_Click() Text1.Text = "70000" Text2.Text = "Sarolangun" End Sub Private Sub Option4_Click() Text1.Text = "90000" Text2.Text = "Bangko" End Sub Private Sub Option5_Click() Text1.Text = "200000" Text2.Text = "Linggau" End Sub muslih hidayat 1101169

7. ? Form Rute Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False End Sub ? Form Harga Private Sub Command1_Click() If Combo1 = "Sarolangun" Then Text1.Text = "Rp.80.000" End If If Combo1 = "Tanjab Timur" Then Text1.Text = "Rp.30.000" End If muslih hidayat 1101169

8. If Combo1 = "Bulian" Then Text1.Text = "Rp.25.000" End If If Combo1 = "Bungo" Then Text1.Text = "Rp.100.000" End If If Combo1 = "Bangko" Then Text1.Text = "Rp.80.000" End If If Combo1 = "Linggau" Then Text1.Text = "Rp.200.000" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Combo1.Clear Combo1.AddItem "Tanjab Timur" Combo1.AddItem "Bulian" Combo1.AddItem "Bungo" Combo1.AddItem "Bangko" Combo1.AddItem "Linggau" Text1.Enabled = False End Sub ? Form About muslih hidayat 1101169

9. Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Dim Hari(7) As String Dim bulan(12) As String Hari(1) = "Minggu" Hari(2) = "Senin" Hari(3) = "Selasa" Hari(4) = "Rabu" Hari(5) = "Kamis" Hari(6) = "Jum'at" Hari(7) = "Sabtu" bulan(1) = "Januari" bulan(2) = "Februari" bulan(3) = "Maret" bulan(4) = "April" bulan(5) = "Mei" bulan(6) = "Juni" bulan(7) = "Juli" bulan(8) = "Agustus" bulan(9) = "September" bulan(10) = "Oktober" bulan(11) = "November" bulan(12) = "Desember" har = Weekday(Date) tgl = Day(Date) bul = Month(Date) thn = Str(Year(Date)) Label7.Caption = Hari(har) Label8.Caption = Str(tgl) & " - " & bulan(bul) & " - " & thn End Sub muslih hidayat 1101169

�ݺ�ߣ

Makalah Pemrograman Visual ��Aplikasi Travel��

Recommended

More Related Content

Viewers also liked (6)

Similar to Makalah Pemrograman Visual ��Aplikasi Travel�� (14)

More from SMK MUhammadiyah Singkut (20)

Recently uploaded (20)

Makalah Pemrograman Visual ��Aplikasi Travel��