Minta Milenial Ciptakan Teknologi Penggerak Ekonomi

Minta MilenSaat mengunjungi sejumlah booth di pameran ini, Jokowi mengakut kaget melihat banyaknya produk teknologi yang‎ ternyata sudah mampu dihasilkan oleh anak bangsa.

"Saya langsung masuk ke pameran, saya terkaget-kaget banyak lompatan-lompatan, banyak loncatan-loncatan, yang semua dikelola, di-manage anak-anak muda, kaum milenial," ujar.
‎Menurut Jokowi, teknologi yang dihasilkan oleh para anak bangsa ini yang nantinya akan menjadi penggerak ekonomi Indonesia ke depan. Terlebih di tengah era digitalisasi dan revolusi industri ke-4.
"Dan saya meyakini yang menggerakkan Indonesia ke depan adalah saudara-saudara semuanya. Saya selalu ingin belajar, tapi kecepatan perubahan cepat sekali betul menurut McKinsey, kecepatan revolusi industri 4.0 itu lebih cepat 3.000 kali dibandingkan revolusi industri pertama," jelas dia.

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