Konsep Dasar Program File Yang Berisi File
Perintah
Kelompok 3
Sara Roshdy M
Ryan Madovani
Owen Benedic
A. Visual Basic
Module TaskModule
Class Task
Public Property Id As Integer
Public Property Title As String
Public Property Completed As Boolean
Public Sub New(id As Integer, title As String, completed As Boolean)
[Link] = id
[Link] = title
[Link] = completed
End Sub
Public Overrides Function ToString() As String
Return $"Task {{ Id: {Id}, Title: {Title}, Completed: {Completed} }}"
End Function
End Class
B. Dart
class Task {
int id;
String title;
bool completed;
Task([Link], [Link], [Link]);
@override
String toString() {
return 'Task{id: $id, title: $title, completed: $completed}';
class TaskManager {
List<Task> tasks = [];
// Create
void addTask(Task task) {
[Link](task);
// Read
void displayTasks() {
print("Tasks:");
[Link]((task) => print(task));
// Update
void updateTask(int id, {String title, bool completed}) {
Task task = [Link]((task) => [Link] == id, orElse: () => null);
if (task != null) {
if (title != null) {
[Link] = title;
}
if (completed != null) {
[Link] = completed;
print("Task updated: $task");
} else {
print("Task not found with ID: $id");
// Delete
void deleteTask(int id) {
[Link]((task) => [Link] == id);
print("Task deleted with ID: $id");
void main() {
TaskManager taskManager = TaskManager();
// Create
[Link](Task(1, "Complete assignment", false));
[Link](Task(2, "Read a book", true));
// Read
[Link]();
// Update
[Link](1, title: "Complete final assignment");
// Read after update
[Link]();
// Delete
[Link](2);
// Read after delete
[Link]();
C. Python
# Membuat kelas untuk representasi data konsumen
class Konsumen:
def __init__(self, nama, umur, alamat, email, telepon):
[Link] = nama
[Link] = umur
[Link] = alamat
[Link] = email
[Link] = telepon
# Fungsi untuk menginput data konsumen
def input_data_konsumen():
nama = input("Masukkan nama konsumen: ")
umur = int(input("Masukkan umur konsumen: "))
alamat = input("Masukkan alamat konsumen: ")
email = input("Masukkan email konsumen: ")
telepon = input("Masukkan nomor telepon konsumen: ")
# Membuat objek konsumen baru
konsumen_baru = Konsumen(nama, umur, alamat, email, telepon)
return konsumen_baru
# Contoh penggunaan
konsumen1 = input_data_konsumen()
# Menampilkan data konsumen yang telah diinput
print("\nData Konsumen:")
print(f"Nama: {[Link]}")
print(f"Umur: {[Link]}")
print(f"Alamat: {[Link]}")
print(f"Email: {[Link]}")
print(f"Telepon: {[Link]}")
class Konsumen:
def __init__(self, nama, umur, alamat, email, telepon):
[Link] = nama
[Link] = umur
[Link] = alamat
[Link] = email
[Link] = telepon
# Fungsi untuk mengedit data konsumen
def edit_data_konsumen(data_konsumen, nama_target):
for konsumen in data_konsumen:
if [Link] == nama_target:
# Meminta input untuk informasi yang akan diubah
[Link] = int(input(f"Masukkan umur baru untuk {[Link]}: "))
[Link] = input(f"Masukkan alamat baru untuk {[Link]}: ")
[Link] = input(f"Masukkan email baru untuk {[Link]}: ")
[Link] = input(f"Masukkan nomor telepon baru untuk {[Link]}: ")
print(f"Data konsumen {[Link]} berhasil diupdate.")
return
print(f"Konsumen dengan nama {nama_target} tidak ditemukan.")
# Contoh penggunaan
konsumen1 = Konsumen("John Doe", 25, "Jl. Contoh 123", "[Link]@[Link]",
"081234567890")
konsumen2 = Konsumen("Jane Smith", 30, "Jl. Contoh 456", "[Link]@[Link]",
"087654321098")
data_konsumen = [konsumen1, konsumen2]
# Menampilkan data konsumen sebelum diubah
print("Data Konsumen Sebelum Diubah:")
for konsumen in data_konsumen:
print(f"Nama: {[Link]}, Umur: {[Link]}, Alamat: {[Link]},
Email: {[Link]}, Telepon: {[Link]}")
# Meminta input nama konsumen yang ingin diubah
nama_target = input("Masukkan nama konsumen yang ingin diubah: ")
# Memanggil fungsi untuk mengedit data konsumen
edit_data_konsumen(data_konsumen, nama_target)
# Menampilkan data konsumen setelah diubah
print("\nData Konsumen Setelah Diubah:")
for konsumen in data_konsumen:
print(f"Nama: {[Link]}, Umur: {[Link]}, Alamat: {[Link]},
Email: {[Link]}, Telepon: {[Link]}")
class Konsumen:
def __init__(self, nama, umur, alamat, email, telepon):
[Link] = nama
[Link] = umur
[Link] = alamat
[Link] = email
[Link] = telepon
# Fungsi untuk menampilkan laporan data konsumen
def report_data_konsumen(data_konsumen):
print("Laporan Data Konsumen:")
for konsumen in data_konsumen:
print(f"===================================")
print(f"Nama: {[Link]}")
print(f"Umur: {[Link]}")
print(f"Alamat: {[Link]}")
print(f"Email: {[Link]}")
print(f"Telepon: {[Link]}")
print(f"===================================")
# Contoh penggunaan
konsumen1 = Konsumen("John Doe", 25, "Jl. Contoh 123", "[Link]@[Link]",
"081234567890")
konsumen2 = Konsumen("Jane Smith", 30, "Jl. Contoh 456", "[Link]@[Link]",
"087654321098")
data_konsumen = [konsumen1, konsumen2]
# Menampilkan laporan data konsumen
report_data_konsumen(data_konsumen)
D. PHP
<?php
class Konsumen {
public $nama;
public $umur;
public $alamat;
public $email;
public $telepon;
public function __construct($nama, $umur, $alamat, $email, $telepon) {
$this->nama = $nama;
$this->umur = $umur;
$this->alamat = $alamat;
$this->email = $email;
$this->telepon = $telepon;
}
}
// Inisialisasi data konsumen
$konsumen1 = new Konsumen("John Doe", 25, "Jl. Contoh 123", "[Link]@[Link]",
"081234567890");
$konsumen2 = new Konsumen("Jane Smith", 30, "Jl. Contoh 456",
"[Link]@[Link]", "087654321098");
// Simpan data konsumen dalam array
$data_konsumen = array($konsumen1, $konsumen2);
// Fungsi untuk menambahkan data konsumen baru
function tambahKonsumen($data_konsumen, $nama, $umur, $alamat, $email, $telepon) {
$konsumen_baru = new Konsumen($nama, $umur, $alamat, $email, $telepon);
$data_konsumen[] = $konsumen_baru;
return $data_konsumen;
}
// Fungsi untuk mengedit data konsumen
function editKonsumen($data_konsumen, $nama_target, $umur_baru, $alamat_baru,
$email_baru, $telepon_baru) {
foreach ($data_konsumen as $konsumen) {
if ($konsumen->nama == $nama_target) {
$konsumen->umur = $umur_baru;
$konsumen->alamat = $alamat_baru;
$konsumen->email = $email_baru;
$konsumen->telepon = $telepon_baru;
return $data_konsumen;
}
}
echo "Konsumen dengan nama $nama_target tidak ditemukan.";
return $data_konsumen;
}
// Fungsi untuk menampilkan laporan data konsumen
function reportDataKonsumen($data_konsumen) {
echo "Laporan Data Konsumen:\n";
foreach ($data_konsumen as $konsumen) {
echo "===================================\n";
echo "Nama: $konsumen->nama\n";
echo "Umur: $konsumen->umur\n";
echo "Alamat: $konsumen->alamat\n";
echo "Email: $konsumen->email\n";
echo "Telepon: $konsumen->telepon\n";
echo "===================================\n";
}
}
// Contoh penggunaan
$data_konsumen = tambahKonsumen($data_konsumen, "Alice Johnson", 28, "Jl. Contoh
789", "[Link]@[Link]", "089876543210");
$data_konsumen = editKonsumen($data_konsumen, "John Doe", 26, "Jl. Baru456",
"[Link]@[Link]", "081234567890");
reportDataKonsumen($data_konsumen);
?>
E. COBOL
Input – Edit - Report
PROGRAM-ID. MYPROGRAM.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILE-1
ASSIGN TO "/uploads/[Link]".
SELECT FILE-2
ASSIGN TO "/uploads/[Link]".
DATA DIVISION.
FILE SECTION.
FD FILE-1.
01 FILE-1-RECORD.
05 FILE-1-FIELD1 PIC X(9).
05 FILE-1-FIELD2 PIC A(10).
FD FILE-2.
01 FILE-2-RECORD.
05 FILE-2-FIELD1 PIC X(10).
05 FILE-2-FIELD2 PIC A(10).
WORKING-STORAGE SECTION.
01 WS-FILE-1 PIC X(9).
01 WS-EOF-1 PIC A(1).
01 WS-FILE-2 PIC X(10).
01 WS-EOF-2 PIC A(1).
PROCEDURE DIVISION.
OPEN INPUT FILE-1.
PERFORM UNTIL WS-EOF-1='Y'
READ FILE-1 INTO WS-FILE-1
AT END MOVE 'Y' TO WS-EOF-1
DISPLAY FILE-1-FIELD1 FILE-1-FIELD2
END-READ
END-PERFORM.
CLOSE FILE-1.
OPEN INPUT FILE-2.
PERFORM UNTIL WS-EOF-2='Y'
READ FILE-2 INTO WS-FILE-2
AT END MOVE 'Y' TO WS-EOF-2
DISPLAY FILE-2-FIELD1 FILE-2-FIELD2
END-READ
END-PERFORM.
CLOSE FILE-2.
STOP RUN.
-------------------------------- EDIT FILE LIST 1 -------------- Row 1 Of 12
COMMAND ===> SCROLL ===> CSR
Line Commands: Primary Commands: ...MORE ===>
D (Delete) S (Select detail) CANcel (Quit without saving)
I (Insert) BR (Browse dataset) COPY (Copy JCL or File List)
R (Repeat) ED (Edit dataset) ALLOCate (Allocate and continue)
FB (File-AID Browse) END (Save and End)
FE (File-AID Edit)
File Allocation List: '[Link](FLIST)'
----------------------- DSNAME ----------------------- DISP
DDNAME DUMMY, HFS, TEMP, TERM, SYSOUT, *, OR A DATASET NAME STAT
-------------------------------------------------------------------------------
''''' INFILE [Link](INPUT) SHR
''''' OUTFILE [Link] NEW
''''' REPORT01 SYSOUT=A
''''' REPORT02 SYSOUT=*
''''' MASTERIN '[Link](+0) ' SHR
''''' MASTEROU '[Link](+1) ' NEW
''''' SORTWK01 TEMP
''''' SORTWK02 TEMP
''''' SORTWK03 TEMP
''''' ALTERNAT DUMMY
''''' SYSOUT TERM
Batch Registration and Verification. Version 2.1.02.2860 (build 2.1.02.2860)
Date: 8/8/2008 Computer: D620-JEREMYW
Cmd: "[COBOL Analyzer_Installation_Directory]\Scripts\BRP\[Link]"
"C:\[Link]" "Workspace=C:\Workspaces\[Link]"
"Type=Unresolved" "File=C:\Workspaces\sdkworkspace\Output\[Link]"
Job: [COBOL Analyzer_Installation_Directory]\Scripts\BRP\[Link]
[Link] >Open C:\Workspaces\[Link]
[Link] >Report Unresolved
C:\Workspaces\sdkworkspace\Output\[Link]
[Link] C:\Workspaces\sdkworkspace\Output\[Link] has been
prepared
[Link] >Close
[Link] ---Finished—
