HomeTeknoTech News Intertraffic Indonesia 2018 Bakal Pamer Teknologi Lalu Lintas Masa Depan Oleh Jeko I. R. pada 10 Okt 2018, 10:00 WIB

Liputan6.com, Jakarta - Indonesia, negara dengan penduduk ke-4 terbanyak di Indonesia, memiliki permasalahan yang tak kunjung tuntas untuk diselesaikan. Masalah tersebut tak lain adalah lalu lintas. Terlebih di Ibu Kota Jakarta, kota ini bahkan menempati posisi ke-12 dalam kategori kota terpadat di dunia versi INRIX.
Melihat fakta yang cukup meresahkan di atas, pemerintah tentu tak ingin tinggal diam. Hal tersebut dibuktikan dengan implementasi sistem Electronic Traffic Law Enforcment (ETLE) yang baru saja memasuki tahap percobaan pada awal Oktober 2018 lalu

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.2

Gambar
Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub Txtn1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn2.SetFocus End If End Sub Private Sub Txtn2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn3.SetFocus End If End Sub
Baca selengkapnya

Tugas 1.5

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...
Baca selengkapnya

Tugas 1.1

Gambar
Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End If End Sub Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub
Baca selengkapnya