LISTING PROGRAM. #ApplicationLabel: Matematika dasar anak SD. 'SupportedOrientations possible values: unspecified, landscape or portrait

LISTING PROGRAM

#Region Project Attributes #ApplicationLabel: Matematika dasar anak SD #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region

#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region

Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules.

End Sub

Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim latar As BitmapDrawable,latar2 As BitmapDrawable, latar3 As BitmapDrawable

Universitas Sumatera Utara

Dim hal1 As Panel Dim hal2 As Panel Dim hal3 As Panel Dim hal4 As Panel Dim hal5 As Panel Dim hal6 As Panel

Dim halpen As Panel Dim halket As Panel Dim halpec As Panel Dim halhim As Panel Dim halpeng As Panel Dim halbul As Panel Dim halkeluar As Panel

Dim lblpen As Label

Dim lblket As Label Dim lblpec As Label Dim lblhim As Label Dim lblpeng As Label Dim lblbul As Label


Dim pen As String Dim cmdfoto(40) As ImageView Dim cmd2 As ImageView, cmd3 As ImageView,cmd4 As ImageView, cmd5 As ImageView Dim cmd6 As ImageView Dim cmdkeluar As ImageView

Dim cmdback As Button

End Sub

Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1")

'HAlAMAN Pertama <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

hal1.Initialize("") Activity.AddView(hal1,0,0,100%x,100%y)


If File.Exists(File.DirAssets,"1.jpg")=True Then latar2.Initialize(LoadBitmap(File.DirAssets,"1.jpg")) Activity.Background = latar2

Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"info.jpg")=True Then cmd2.initialize("cmd2") cmd2.Bitmap=LoadBitmap(File.DirAssets,"info.jpg") cmd2.Gravity=Gravity.FILL hal1.addview(cmd2,55%x,50%y,17%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"keluar.jpg")=True Then cmdkeluar.initialize("cmdkeluar") cmdkeluar.Bitmap=LoadBitmap(File.DirAssets,"keluar.jpg") cmdkeluar.Gravity=Gravity.FILL hal1.addview(cmdkeluar,55%x,70%y,17%x,10%x) Else Msgbox("file tidak ada","peringatan") End If


'Halaman Kedua <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< hal2.Initialize("") Activity.AddView(hal2,0,0,100%x,100%y) hal2.Visible=False

cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)

If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal2.Background = latar Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bangundatarr.jpg")=True Then cmd3.Initialize("cmd3") cmd3.Bitmap=LoadBitmap(File.DirAssets,"bangundatarr.jpg") cmd3.Gravity=Gravity.FILL hal2.AddView(cmd3,10%x,10%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bangunruangg.jpg")=True Then


cmd4.Initialize("cmd4") cmd4.Bitmap=LoadBitmap(File.DirAssets,"bangunruangg.jpg") cmd4.Gravity=Gravity.FILL hal2.AddView(cmd4,10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bilanganpecahan.jpg")=True Then cmd5.Initialize("cmd5") cmd5.Bitmap=LoadBitmap(File.DirAssets,"bilanganpecahan.jpg") cmd5.Gravity=Gravity.FILL hal2.AddView(cmd5,10%x,30%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"pengukuran.jpg")=True Then cmd6.Initialize("cmd6") cmd6.Bitmap=LoadBitmap(File.DirAssets,"pengukuran.jpg") cmd6.Gravity=Gravity.FILL hal2.AddView(cmd6,10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"himpunan.jpg")=True Then cmdfoto(22).Initialize("cmdfoto22") cmdfoto(22).Bitmap=LoadBitmap(File.DirAssets,"himpunan.jpg")


cmdfoto(22).Gravity=Gravity.FILL hal2.AddView(cmdfoto(22),10%x,50%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bilanganbulat.jpg")=True Then cmdfoto(23).Initialize("cmdfoto23") cmdfoto(23).Bitmap=LoadBitmap(File.DirAssets,"bilanganbulat.jpg") cmdfoto(23).Gravity=Gravity.FILL hal2.AddView(cmdfoto(23),10%x,60%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

'Halaman Ketiga <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

hal3.Initialize("") Activity.AddView(hal3,0,0,100%x,100%y) hal3.Visible=False


If File.Exists(File.DirAssets,"0.jpg")= True Then


latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal3.Background = latar Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"persegi.jpg")=True Then cmdfoto(1).Initialize("cmdfoto1") cmdfoto(1).Bitmap=LoadBitmap(File.DirAssets,"persegi.jpg") cmdfoto(1).Gravity=Gravity.FILL hal3.AddView(cmdfoto(1),10%x,10%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"persegipanjang.jpg")=True Then cmdfoto(2).Initialize("cmdfoto2") cmdfoto(2).Bitmap=LoadBitmap(File.DirAssets,"persegipanjang.jpg") cmdfoto(2).Gravity=Gravity.FILL hal3.AddView(cmdfoto(2),10%x,20%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"jajargenjang.jpg")=True Then cmdfoto(3).Initialize("cmdfoto3")


cmdfoto(3).Bitmap=LoadBitmap(File.DirAssets,"jajargenjang.jpg") cmdfoto(3).Gravity=Gravity.FILL hal3.AddView(cmdfoto(3),10%x,30%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"layanglayang.jpg")=True Then cmdfoto(4).Initialize("cmdfoto4") cmdfoto(4).Bitmap=LoadBitmap(File.DirAssets,"layanglayang.jpg") cmdfoto(4).Gravity=Gravity.FILL hal3.AddView(cmdfoto(4),10%x,40%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"lingkaran.jpg")=True Then cmdfoto(5).Initialize("cmdfoto5") cmdfoto(5).Bitmap=LoadBitmap(File.DirAssets,"lingkaran.jpg") cmdfoto(5).Gravity=Gravity.FILL hal3.AddView(cmdfoto(5),10%x,50%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"segitiga.jpg")=True Then cmdfoto(6).Initialize("cmdfoto6") cmdfoto(6).Bitmap=LoadBitmap(File.DirAssets,"segitiga.jpg") cmdfoto(6).Gravity=Gravity.FILL


hal3.AddView(cmdfoto(6),10%x,60%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"trapesium.jpg")=True Then cmdfoto(7).Initialize("cmdfoto7") cmdfoto(7).Bitmap=LoadBitmap(File.DirAssets,"trapesium.jpg") cmdfoto(7).Gravity=Gravity.FILL hal3.AddView(cmdfoto(7),10%x,70%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

'Halaman Keempat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal4.Background = latar


Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bangunruang.jpg")=True Then cmdfoto(8).Initialize("cmdfoto8") cmdfoto(8).Bitmap=LoadBitmap(File.DirAssets,"bangunruang.jpg") cmdfoto(8).Gravity=Gravity.FILL hal4.AddView(cmdfoto(8),10%x,3%y,80%x,35%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"kubus.jpg")=True Then cmdfoto(9).Initialize("cmdfoto9") cmdfoto(9).Bitmap=LoadBitmap(File.DirAssets,"kubus.jpg") cmdfoto(9).Gravity=Gravity.FILL hal4.AddView(cmdfoto(9),10%x,30%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"limas.jpg")=True Then cmdfoto(10).Initialize("cmdfoto10") cmdfoto(10).Bitmap=LoadBitmap(File.DirAssets,"limas.jpg") cmdfoto(10).Gravity=Gravity.FILL hal4.AddView(cmdfoto(10),10%x,40%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan")


End If

If File.Exists(File.DirAssets,"tabung.jpg")=True Then cmdfoto(11).Initialize("cmdfoto11") cmdfoto(11).Bitmap=LoadBitmap(File.DirAssets,"tabung.jpg") cmdfoto(11).Gravity=Gravity.FILL hal4.AddView(cmdfoto(11),10%x,50%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"bola.jpg")=True Then cmdfoto(12).Initialize("cmdfoto12") cmdfoto(12).Bitmap=LoadBitmap(File.DirAssets,"bola.jpg") cmdfoto(12).Gravity=Gravity.FILL hal4.AddView(cmdfoto(12),10%x,60%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"kerucut.jpg")=True Then cmdfoto(13).Initialize("cmdfoto13") cmdfoto(13).Bitmap=LoadBitmap(File.DirAssets,"kerucut.jpg") cmdfoto(13).Gravity=Gravity.FILL hal4.AddView(cmdfoto(13),10%x,70%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If


'Halaman Kelima <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




If File.Exists(File.DirAssets,"pecahanbiasa.jpg")=True Then cmdfoto(14).Initialize("cmdfoto14") cmdfoto(14).Bitmap=LoadBitmap(File.DirAssets,"pecahanbiasa.jpg") cmdfoto(14).Gravity=Gravity.FILL hal5.AddView(cmdfoto(14),10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"pecahanmurni.jpg")=True Then


cmdfoto(15).Initialize("cmdfoto15") cmdfoto(15).Bitmap=LoadBitmap(File.DirAssets,"pecahanmurni.jpg") cmdfoto(15).Gravity=Gravity.FILL hal5.AddView(cmdfoto(15),10%x,30%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"pecahancampuran.jpg")=True Then cmdfoto(16).Initialize("cmdfoto16") cmdfoto(16).Bitmap=LoadBitmap(File.DirAssets,"pecahancampuran.jpg") cmdfoto(16).Gravity=Gravity.FILL hal5.AddView(cmdfoto(16),10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"pecahandesimal.jpg")=True Then cmdfoto(17).Initialize("cmdfoto17") cmdfoto(17).Bitmap=LoadBitmap(File.DirAssets,"pecahandesimal.jpg") cmdfoto(17).Gravity=Gravity.FILL hal5.AddView(cmdfoto(17),10%x,50%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"persenperseratus.jpg")=True Then cmdfoto(18).Initialize("cmdfoto18") cmdfoto(18).Bitmap=LoadBitmap(File.DirAssets,"persenperseratus.jpg")


cmdfoto(18).Gravity=Gravity.FILL hal5.AddView(cmdfoto(18),10%x,60%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"permilperseribu.jpg")=True Then cmdfoto(19).Initialize("cmdfoto19") cmdfoto(19).Bitmap=LoadBitmap(File.DirAssets,"permilperseribu.jpg") cmdfoto(19).Gravity=Gravity.FILL hal5.AddView(cmdfoto(19),10%x,70%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

'Halaman Keenam <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<< hal6.Initialize("") Activity.AddView(hal6,0,0,100%x,100%y) hal6.Visible=False




If File.Exists(File.DirAssets,"pengertianpengukuran.jpg")=True Then cmdfoto(20).Initialize("cmdfoto20") cmdfoto(20).Bitmap=LoadBitmap(File.DirAssets,"pengertianpengukuran.jpg") cmdfoto(20).Gravity=Gravity.FILL hal6.AddView(cmdfoto(20),10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If

If File.Exists(File.DirAssets,"waktukecepatanjarak.jpg")=True Then cmdfoto(21).Initialize("cmdfoto21") cmdfoto(21).Bitmap=LoadBitmap(File.DirAssets,"waktukecepatanjarak.jpg") cmdfoto(21).Gravity=Gravity.FILL hal6.AddView(cmdfoto(21),10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If


'Halaman Bangun Ruang <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

halpen.Initialize("") Activity.AddView(halpen,0,0,100%x,100%y) halpen.Visible=False cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)

If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpen.Background = latar Else Msgbox("file tidak ada","peringatan") End If

lblpen.Initialize("") lblpen.Text="" halpen.addview(lblpen,10%x,25%y,80%x,80%y)

'Halaman Bangun Datar <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<< halket.Initialize("") Activity.AddView(halket,0,0,100%x,100%y)


halket.Visible=False


If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halket.Background = latar Else Msgbox("file tidak ada","peringatan") End If

lblket.Initialize("") lblket.Text="" halket.addview(lblket,10%x,25%y,80%x,80%y)

'Halaman Pecahan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

halpec.Initialize("") Activity.AddView(halpec,0,0,100%x,100%y) halpec.Visible=False



If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpec.Background = latar Else Msgbox("file tidak ada","peringatan") End If

lblpec.Initialize("") lblpec.Text="" halpec.addview(lblpec,10%x,7%y,80%x,80%y)

'Halaman Pengukuran <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

halpeng.Initialize("") Activity.AddView(halpeng,0,0,100%x,100%y) halpeng.Visible=False


If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpeng.Background = latar Else Msgbox("file tidak ada","peringatan") End If


lblpeng.Initialize("") lblpeng.Text="" halpeng.addview(lblpeng,10%x,7%y,80%x,80%y)

'Halaman Himpunan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

halhim.Initialize("") Activity.AddView(halhim,0,0,100%x,100%y) halhim.Visible=False


If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halhim.Background = latar Else Msgbox("file tidak ada","peringatan") End If

lblhim.Initialize("") lblhim.Text="" halhim.addview(lblhim,10%x,7%y,80%x,80%y)


'Halaman Bilangan Bulat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

halbul.Initialize("") Activity.AddView(halbul,0,0,100%x,100%y) halbul.Visible=False


If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halbul.Background = latar Else Msgbox("file tidak ada","peringatan") End If

lblbul.Initialize("") lblbul.Text="" halbul.addview(lblbul,10%x,7%y,80%x,80%y)

End Sub Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub Sub cmd2_click hal1.Visible=False hal2.Visible=True cmdback.Visible=False End Sub Sub cmd3_click hal2.Visible=False hal3.Visible=True End Sub Sub cmd4_click hal2.Visible=False hal4.Visible=True End Sub Sub cmd5_click hal2.Visible=False hal5.Visible=True End Sub Sub cmd6_click hal2.Visible=False hal6.Visible=True End Sub

Sub cmdkeluar_click Activity.Finish End Sub

'PROSES BACK <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Sub cmdback_click

If

hal2.Visible=True Then hal2.Visible=False hal1.Visible=True cmdback.Visible=False

Else If hal3.visible=True Then hal3.Visible=False hal2.Visible=True

Else If halpen.Visible=True Then halpen.Visible=False hal3.Visible=True

Else If hal4.Visible=True Then hal4.Visible=False hal3.Visible=False hal2.Visible=True

Else If halket.Visible=True Then halket.Visible=False hal4.Visible=True

Else If hal5.Visible=True Then hal5.Visible=False hal4.Visible=False


hal3.Visible=False hal2.Visible=True

Else If halpec.Visible=True Then halpec.Visible=False hal5.Visible=True

Else If hal6.Visible=True Then hal6.Visible=False hal5.Visible=False hal4.Visible=False hal3.Visible=False hal2.Visible=True

Else If halpeng.Visible=True Then halpeng.Visible=False hal6.Visible=True

Else If halhim.Visible=True Then halhim.Visible=False hal2.Visible=True

Else If halbul.Visible=True Then halbul.Visible=False hal2.Visible=True

End If


End Sub 'PENGISIAN INFO INFO 'BANGUN DATAR <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Sub cmdfoto1_click pen="Bangun datar adalah bagian dari bidang datar yang dibatasi oleh garis-garis lurus atau lengkung (Imam Roji, 1997)." & CRLF &""& CRLF & " Bangun datar dapat didefinisikan sebagai bangun yang rata yang mempunyai dua demensi yaitu panjang dan lebar, tetapi tidak mempunyai tinggi atau tebal. "&CRLF&" "&CRLF&" Persegi adalah persegi panjang yang semua sisinya sama panjang " &CRLF&" • Rumus Persegi :" & CRLF &" Luas = s x s = s2 ( Luas = ½ x diagonal (d) 1 x diagonal (d) 2,)" & CRLF &" Keliling = 4 x s" & CRLF &" dengan s = panjang sisi persegi."

hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen

End Sub Sub cmdfoto2_click pen="Persegi Panjang adalah bangun datar yang mempunyai sisi berhadapan yang sama panjang, dan memiliki empat buah titik sudut siku-siku." & CRLF &"" & CRLF &" • Rumus Persegi Panjang : Luas = p x l "&CRLF&" p = Luas : lebar " & CRLF &" l = Luas : panjang" & CRLF &" Keliling = 2p + 2l = 2 x (p + l) "&CRLF&" dengan p = panjang persegi panjang, dan l = lebar persegi panjang."


End Sub Sub cmdfoto3_click


pen="Jajar Genjang adalah segi empat yang sisinya sepasang-sepasang sama panjang dan sejajar." &CRLF& "" &CRLF& " Rumus Jajar Genjang" &CRLF& " Luas = a x t " &CRLF& " dengan a = panjang alas jajargenjang, dan t = tinggi jajargenjang."


End Sub Sub cmdfoto4_click pen="Layang-layang adalah segi empat yang salah satu diagonalnya memotong tegak lurus sumbu diagonal lainnya." &CRLF& " " &CRLF& "Rumus Layang-layang " &CRLF& " Luas = ½ x diagonal (d) 1 x diagonal (d) 2 ."


End Sub Sub cmdfoto5_click pen="Lingkaran adalah bangun datar yang terbentuk dari himpunan semua titik persekitaran yang mengelilingi suatu titik asal dengan jarak yang sama. jarak tersebut biasanya dinamakan r, atau radius, atau jari-jari." &CRLF& "" &CRLF& " Rumus Lingkaran " &CRLF& " Luas = π (pi) x jari-jari (r) 2 " &CRLF& " = πr2."



End Sub Sub cmdfoto6_click pen="Segitiga adalah bangun datar yang terbentuk oleh tiga buah titik yang tidak segaris." &CRLF&" macam macamnya: segitiga sama sisi, segitiga sama kaki, segitiga siku-siku, segitiga sembarang. " &CRLF&"" &CRLF& " • Rumus Segitiga: " &CRLF&"Luas = ½ x a x t "&CRLF& " dengan a = panjang alas segitiga, dan t = tinggi segitiga"&CRLF& "Panjang sisi miring segitiga siku-siku dicari dengan rumus Phytagoras (A2 + B2 = C2)."


End Sub Sub cmdfoto7_click pen="trapesium adalah segi empat yang memiliki tepat sepasang sisi yang sejajar." &CRLF&"" &CRLF& " Rumus Trapesium :" &CRLF&" Luas = ½ x (s1 + s2) x t " &CRLF&" dengan s1 dan s2 = sisi-sisi sejajar pada trapesium, dan t = tinggi trapesium."


End Sub 'BANGUN RUANG <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sub cmdfoto8_click


pen="Bangun ruang adalah bagian ruang yang dibatasi oleh himpunan titik-titik yang terdapat pada seluruh permukaan bangun tersebut."&CRLF&" Ada beberapa macam bangun ruang diantaranya yaitu : Balok, Kubus, Tabung, Limas, Kerucut, Bola." &CRLF& " " &CRLF& " Balok adalah bangun ruang tiga dimensi yang dibentuk oleh tiga pasang persegi atau persegi panjang, dengan paling tidak satu pasang diantaranya berukuran berbeda. Balok memiliki 6 sisi, 12 rusuk dan 8 titik sudut." &CRLF&" RUMUS :" &CRLF& " Luas permukaan" &CRLF& " L = 2.(p.l+p.t+l.t)" &CRLF& " Volume " &CRLF& " V = p.l.t."

hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen

End Sub Sub cmdfoto9_click pen="Kubus adalah bangun ruang tiga dimensi yang dibatasi oleh enam bidang sisi yang berbentuk bujur sangkar."&CRLF&" Kubus memiliki 6 sisi, 12 rusuk dan 8 titik sudut. "&CRLF&"Kubus juga disebut bidang enam beraturan, selain itu juga merupakan bentuk khusus dalam prisma segiempat."&CRLF&"" &CRLF& " RUMUS : "&CRLF&" Luas"&CRLF&" K = 6.r * r "&CRLF&" Volume"&CRLF&" L = r3."


End Sub Sub cmdfoto10_click pen="limas adalah bangun ruang tiga dimensi yang dibatasi oleh alas berbentuk segi-n dan sisi-sisi tegak berbentuk segitiga."&CRLF&"Kerucut dapat disebut sebagai limas dengan alas berbentuk lingkaran."&CRLF&" Limas dengan alas berupa persegi disebut juga piramida."&CRLF&"" &CRLF& " RUMUS :"&CRLF&" Luas permukaan "&CRLF&" Luas permukaan limas dengan alas segi-n dapat dihitung dengan rumus berikut: "&CRLF&" L = luas alas + n.luas sisi tegak "&CRLF&" Volume"&CRLF&" V = 1/3.luas alas.t "



End Sub Sub cmdfoto11_click pen="Dalam geometri, tabung atau silinder adalah bangun ruang tiga dimensi yang dibentuk oleh dua buah lingkaran identik yang sejajar dan sebuah persegi panjang yang mengelilingi kedua lingkaran tersebut. Kubus memiliki 3 sisi dan 2 rusuk."&CRLF&" Kedua lingkaran disebut sebagai alas dan tutup tabung serta persegi panjang yang menyelimutinya disebut sebagai selimut tabung."&CRLF&"" &CRLF& " RUMUS :"&CRLF&" Volume Tabung = Luas Alas x Tinggi "&CRLF&" V = Π r2 "&CRLF&" *alas tabung berbentuk lingkaran."


End Sub Sub cmdfoto12_click pen="Dalam geometri, bola adalah bangun ruang tiga dimensi yang dibentuk oleh tak hingga lingkaran berjari-jari sama panjang dan berpusat pada satu titik yang sama. Bola hanya memiliki 1 sisi."&CRLF&"" &CRLF& "rumus: " &CRLF& " luas : L = 4Πr2 "&CRLF&" " &CRLF& "volume Bola = 4/3 Π r3r = jari-jari."


End Sub


Sub cmdfoto13_click pen="Dalam geometri, kerucut adalah sebuah limas istimewa yang beralas lingkaran. Kerucut memiliki 2 sisi dan 1 rusuk.Dalam geometri, kerucut adalah sebuah limas istimewa yang beralas lingkaran. Kerucut memiliki 2 sisi dan 1 rusuk.Sisi tegak kerucut tidak berupa segitiga tapi berupa bidang lengkung yang disebut selimut kerucut."&CRLF&"" &CRLF& "rumus :Volume Kerucut = 1/3 x Luas Alas x TinggiV = 1/3 Πr2 t."&CRLF&"*alas tabung berbentuk lingkaran"

hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen End Sub ' PECAHAN<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Sub cmdfoto14_click pen=" Pecahan Biasa Yaitu pecahan dengan pembilang dan penyebutnya merupakan bilangan bulat "&CRLF&"" &CRLF& " Contoh: 1/4 , 2/5 , 9/10"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto15_click pen="Pecahan Murni Yaitu pecahan yang pembilang dan penyebutnya merupakan bilangan bulat dan berlaku pembilang kurang atau lebih kecil dari penyebut." &CRLF& " Pecahan murnai dapat dikatakan sebagai pecahan biasa tetapi pecahan biasa belum tentu dapat dikatakan sebagai pecahan murni"&CRLF&"" &CRLF& "Contoh:"&CRLF&"1/6 , 3/5, 7/15"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue


lblpec.Text=pen End Sub Sub cmdfoto16_click pen="Pecahan campuran yaitu Pecahan yang terdiri atas bagian bilangan bulat dan bagian pecahan murni"&CRLF&"" &CRLF& "Contoh:"&CRLF&"3 ½, 4 ½, 5 ¾,"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto17_click pen="Pecahan desimal Yaitu pecahan dengan penyebut 10, 100, 1000, dan seterusnya, dan ditulis dengan tanda koma,"&CRLF&"" &CRLF& "Contoh:"&CRLF&"0,4; 4,6; 9,2"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto18_click pen="Persen atau perseratus yaitu pecahan dengan penyebut 100 dan dilambangkan dengan %"&CRLF&"Contoh:" &CRLF& ""&CRLF&"4% artinya 4/100"&CRLF&"35% artinya 35/100"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen


End Sub Sub cmdfoto19_click pen="Permil atau perseribu Yaitu pecahan dengan penyebut 1.000 dan dilambangkan dengan%0% "&CRLF&"" &CRLF& " Contoh:%"&CRLF&"8%0 artinya 8/1000%"&CRLF&"125%0 artinya 125/1000"

hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub ' Pengukuran <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Sub cmdfoto20_click pen="A. PENGERTIAN PENGUKURAN"&CRLF&"pengukuran adalah suatu proses memberikan bilangan kepada kualitas fisik panjang, kapasitas volume, luas, sudut, berat ( massa ) dan suhu. setiap unit yang di ukur memiliki sifat yang sama sebagaimana benda yang akan di ukur."&CRLF&"B.DUA JENIS PROSES PENGUKURAN"&CRLF&"Pengukuran dapat dilakukan secara langsung atau tidak langsung. proses menentukan ukuran panjang dan kapasitas adalah langsung, yaitu dengan cara menerapkan unit ( satuan) secara langsung pada benda yang sedang di ukur. dan pengukuran secara langsung ialah terdapat benda langsung yang dapat di ukur secara langsung."&CRLF&"C. SISTEM PENGUKURAN"&CRLF&"terdapat dua jenis pengukuran yaitu sistem inggris dan sistem matrik. sistem inggris di embangkan di eropa. dan satuan - satun pengukuran di kembangkan dari benda - benda di sekitar kita."&CRLF&"Ukuran pajang sistem inggris"&CRLF&""&CRLF&"12 inchi = 1 kaki"&CRLF&"3 kaki = 1 yard"&CRLF&"36 inchi = 1 yard"&CRLF&"5.280 kaki = 1 mil"&CRLF&"1.760 yard 1 mil "

hal6.Visible=False halpeng.Visible=True lblpeng.TextColor=Colors.Blue lblpeng.Text=pen End Sub Sub cmdfoto21_click


pen="1. Pengukuran Waktu Tempuh"&CRLF&"Pengukuran waktu tempuh sangat erat kaitannya dengan satuan waktu dan satuan panjang."&CRLF&"Perhatikan contoh soal di bawah ini !"&CRLF&"Jarak Jakarta - Bogor 60 km. Ayah berangkat ke Bogor dengan sepeda motor pukul 07.30."&CRLF&"Kecepatan rata-rata 40 km/jam."&CRLF&"a. Berapa lama waktu tempuh yang dibutuhkan oleh ayah untuk sampai ke Bogor ?"&CRLF&"b. Pukul Berapakah ayah tiba di Bogor?"&CRLF&" Jawaban :"&CRLF&"a. Rumus menghitung waktu tempuh = Jarak:kecepatan"&CRLF&" = 60 km : 40 km/jam"&CRLF&" = 1, 5 jam"&CRLF&" Jadi ayah memerlukan waktu untuk menempuh jarak Jakarta - Bogor adalah"&CRLF&" 1,5jam = 1 jam 30 menit."&CRLF&" b. Ayah tiba di Bogor = Waktu keberangkatan + waktu tempuh"&CRLF&" = pukul07.00 + pukul01.30"&CRLF&" = 08.30"&CRLF&"Jadi ayah tiba di Bogor pukul 08.30."

hal6.Visible=False halpeng.Visible=True lblpeng.TextColor=Colors.Blue lblpeng.Text=pen End Sub ' HImpunan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Sub cmdfoto22_click pen="1. HIMPUNAN "&CRLF&"Himpunan adalah kumpulan benda atau objek yang dapat didefinisikan dengan jelas, sehingga dengan tepat dapat diketahui objek yang termasuk himpunan dan yang tidak termasuk dalam himpunan tersebut."&CRLF&""&CRLF&"2. NOTASI HIMPUNAN "&CRLF&" Suatu himpunan biasanya diberi nama atau dilambangkan dengan huruf besar (kapital) A, B, C, ..., Z. Adapun benda atau objek yang termasuk dalam himpunan tersebut ditulis dengan menggunakan pasangan kurung kurawal {...}."&CRLF&" Contoh Soal : "&CRLF&"Nyatakan himpunan berikut dengan memberikan tanda kurung kurawal :"&CRLF&""&CRLF&"1. A adalah himpunan bilangan cacah kurang dari 6 "&CRLF&"2. P adalah himpunan huruf-huruf vokal "&CRLF&"3. Q adalah himpunan tiga binatang buas"&CRLF&"Jawab :"&CRLF&"A adalah himpunan bilangan cacah kurang dari 6."&CRLF&"Anggota himpunan bilangan cacah kurang dari 6 adalah 0, 1, 2, 3, 4, 5.vJadi, A = {0, 1, 2, 3, 4, 5}."&CRLF&"P adalah himpunan huruf-huruf vokal."&CRLF&"Anggota himpunan huruf-huruf vokal adalah a, e, i, o, dan u, sehingga ditulis"&CRLF&" P = {a, e, i, o, u}."&CRLF&""&CRLF&"Q adalah himpunan tiga binatang buas."&CRLF&"Anggota himpunan binatang buas antara lain harimau, singa, dan serigala. "&CRLF&"Jadi, Q = {harimau, singa, serigala}."

hal2.Visible=False halhim.Visible=True lblhim.TextColor=Colors.Blue


lblhim.Text=pen End Sub ' Bilangan Bulat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Sub cmdfoto23_click pen= "PEMBAHASAN :"&CRLF&" Perlu kita ingat ada beberapa bilangan yang kita tahu :"&CRLF&"- Bilangan Asli : 1 2 3 4 5 . . ."&CRLF&"- Bilangan Cacah : 0 1 2 3 4 . . ."&CRLF&"Bilangan Bulat : . . . - 4 – 3 -2 – 1 0 1 2 3 4 . . . ."&CRLF&"Untuk menjelaskan ke peserta didik tentang macam bilangan di atas adalah kita mulai dengan bilangan Asli mengapa demikian ? Karena dari sejak kecil secara tidak langsung kita sudah di ajarkan oleh orang tua kita tentang bilangan asli yaitu pada saat belajar mengenal bilangan . kita dikenalkan dengan bilangan 1 , 2 , 3 , 4 ,… menggunakan jari kita bilangan – bilangan yang dikenalkan tersebut adalah merupakan anggota bilangan asli."&CRLF&" "&CRLF&"Kemudian setelah kita mengenal bilangan asli dikembangkan dengan bilangan bulat yang didapat dari perluasan bilangan asli ."&CRLF&"coba perhatikan soal dibawah ini !"&CRLF&"Soal 1"&CRLF&"1 + 2 = 3 "&CRLF&""&CRLF&"Kita tahu bilangan 1 , 2 , dan 3 adalah bilangan asli"&CRLF&""&CRLF&"Kesimpulannya :"&CRLF&""&CRLF&"hasil dari penjumlahan 2 bilangan asli akan menghasilkan bilangan asli."

hal2.Visible=False halbul.Visible=True lblbul.TextColor=Colors.Blue lblbul.Text=pen End Sub


KEMENTERIAN PENDIDIKAN NASIONAL

UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM(FMIPA)

Jl. Bioteknologi No.1 Kampus USU Telp. (061) 8211050 Fax (061) 8214290 MEDAN – 20155, Email : [email protected]

KARTU BIMBINGAN TUGAS AKHIR MAHASISWA Nama Mahasiswa

: VINNY PRANATA S

Nomor Induk Mahasiswa

: 112406080

Judul Tugas Akhir

: Aplikasi Belajar Matematika Anak SD Berbasis Android

No

*

Dosen Pembimbing

: Prof.Dr.Opim Salim Sitompul,M.sc

Tanggal Mulai Bimbingan

:

Tanggal Selesai Bimbingan

:

TANGGAL ASISTEN BIMBINGAN

PEMBAHASAN PADA ASISTENSI MENGENAI, PADA BAB

PARAF DOSEN PEMBIMBING

KETERANGAN

Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan telah selesai.

Diketahui: Prodi D3 Tehnik Informatika, Ketua

Dr. Elly Rosmaini, M.Si NIP. 1960052011985032002

Disetujui: Pembimbing Utama/ Penanggung Jawab

Prof.Dr.Opim Salim Sitompul,M.Sc NIP. 19610817 198701 1 001


SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan dibawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma III Teknik Informatika/Statistika :

Nama

: VINNY PRANATA S

NIM

: 112406080

Prog. Studi

: D3 TEKNIK INFORMATIKA

Judul TA

: Aplikasi Belajar Matematika Anak SD Berbasis Android

Telah melaksanakan test program Tugas Akhir Mahasiswa tersebut di atas pada tanggal Juni 2014

Dengan Hasil : SUKSES / GAGAL

Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.

Medan, Juni 2014 Dosen Pembimbing

Prof.Dr.Opim Salim Sitompul,M.Sc NIP. 19610817 198701 1 001


LISTING PROGRAM. #ApplicationLabel: Matematika dasar anak SD. 'SupportedOrientations possible values: unspecified, landscape or portrait

Recommend Documents