Berikut ini adalah pertanyaan dari aminsiddik28 pada mata pelajaran TI untuk jenjang Sekolah Menengah Atas
a. Program dapat membaca file
b. Terdapat percabangan di dalam program
c. Terdapat perulangan di dalam program
d. Terdapat procedure di dalam program
Buatlah projek program dengan kode program yang telah diuji dan sudah tidak ada masalah ke dalam repositori yang dapat diakses (open access).
Jawaban dan Penjelasan
Berikut ini adalah pilihan jawaban terbaik dari pertanyaan diatas.
Berikut adalah kode program dalam Visual Basic .Net yang memenuhi kriteria yang diberikan:
Imports System.IO
Module Program
Sub Main()
Console.WriteLine("Program Membaca File")
Console.WriteLine("====================")
'Membaca file dengan nama "data.txt"
Dim fileName As String = "data.txt"
If File.Exists(fileName) Then
Dim data As String = File.ReadAllText(fileName)
Console.WriteLine("Data yang diambil dari file:")
Console.WriteLine(data)
Console.WriteLine()
'Percabangan
If data.Contains("positif") Then
Console.WriteLine("Data positif")
ElseIf data.Contains("negatif") Then
Console.WriteLine("Data negatif")
Else
Console.WriteLine("Data tidak diketahui")
End If
Console.WriteLine()
'Perulangan
Console.WriteLine("Data setelah dilakukan perulangan:")
For i As Integer = 1 To 3
Console.WriteLine(data)
Next
Console.WriteLine()
'Procedure
Console.WriteLine("Data setelah dilakukan procedure:")
TampilData(data)
Else
Console.WriteLine("File tidak ditemukan")
End If
Console.ReadLine()
End Sub
'Procedure untuk menampilkan data
Sub TampilData(ByVal data As String)
Console.WriteLine(data)
End Sub
End Module
Anda dapat menguji program ini dengan membuat file dengan nama "data.txt" dan mengisi isinya dengan string apapun.
Semoga dengan pertanyaan yang sudah terjawab oleh blogzalfarizi dapat membantu memudahkan mengerjakan soal, tugas dan PR sekolah kalian.
Apabila terdapat kesalahan dalam mengerjakan soal, silahkan koreksi jawaban dengan mengirimkan email ke yomemimo.com melalui halaman Contact
Last Update: Sun, 14 May 23