SMK Khaidir Nur

SMK Khaidir Nur

          SMK Khaidir Nur merupakan sekolah yang tepatnya berada di jl.samanhuddin
tanah merah pasar 2,5. ini merupakan sekolah yang beneran bergerak di bidang IT/komputer.
Keistimewaan SMK Khaidr Nur adalah:
Banyak pelajaran pelajaran jurusan SMK Khaidr Nur yang menyamai pelajaran-pelajaran di universitas,
Dan SMK Khaidir Nur  harus sudah siap diterjunkan didunia kerja.
SMK Khaidir Nur mempunyai pasilitas-pasilitas yang lengkap, dari pasilitas olah raga sampai pasilitas untuk komputer.
Disini saya hanya mengutamakan membahas tentang komputer .

1. Rekayasa Perangkat Lunak atau RPL

Untuk pelajaran :

      SMK Khaidir Nur merupakan sekolah pertama kali di binjai yang mempunyai jurusan Rekayasa Perangkat Lunak atau RPL.
jurusan ini sangat menyenangkan bagi kami karna sering membuat kepala kami pusing. jurusan yang satu ini
banyak membahas tentang software software komputer. pelajaran ini sebenarnya mudah, kalau kita menganggap mudah
dan sulit jika kita menganggap sulit. intinya adalah suatu keyakinan, kalau kita yakin, apapun yang kita impikan pasti akan tercapai. pepatah mengatakan (dimana ada usaha pasti ada jalan). itu lah sebenarnya yang harus dipikirkan
seorang programer.

Daftar Pelajaran

1. quick basic
2. visual basic
3. html

1. quick basic  








quick basic merupakan pelajaran software berbasis dekstop yang dapat mencari logikal-logikal komputer atau bahasa komputer

---

• Mengenal Bahasa Basic
• Menggunakan Basic
• Arithmetic Operator
• Operator Pembanding
• Logical Operator

• Mengenal Bahasa Basic 

    Bahasa basic diciptakan dengan tujuan utama sebagai bahasa awam media perantara antar pemakai berinteraksi langsung dengan komputer. Basic merupakan singkatan dari "beginner all purpose symbolic instruction code". bahasa basic awam disebut juga dengan nama bahwa tingkat tinggi atau orientasi ke pemecahan masalah 

• Menggunakan Basic

contoh perkalian:

cls 

input a 

input b

hsl=a*b 

print"a"a 

print"b"b

print"hasil"hsl 

end 

• Operator Arithmetic  

operator	maksud
( )	kurung pemisah
^	pangkat
*	kali
/	pembagian desimal
\	pembagian bulat
MOD	sisa pembagian
+	tambah
-	kurang

 

sistem operator akan dieksekusi dari atas kebawah

contoh :

8 mod 3 + 2 - 6 * 6 

maka 8 mod 3 + 2 - 36 2 + 2 - 36 =-32

keterangan :

1. komputer membaca perkalian dulu

2. trs membaca mod

3. trs ditambah dan dikurangkan 

• Operator Pembanding

tanda	berarti
<	lebih kecil dari
>	lebih besar dari
<=	lebih kecil sama dengan
>=	lebih besar sama dengan
=	sama dengan
<>	tidak sama dengan

 

Operator pembanding ini lebih banyak digunakan di kondisi if contoh :

cls

input usia";usia print"usia";usia

if usia = < 5 then elseif usia = < 12 then

print"anak-anak" elseif usia = < 18 then

print"remaja" elseif usia = < 30 then 

print"dewasa" else print"manula" endif end 

 

• Logical Operator

operator logika digunakan untuk menunjukan hubungan logika antara dua belah elemen 

 

operator		keterangan
NOT		tidak/kebalikan
OR		atau/ salah satu ada yang benar maka true
AND		dan/ salah satu ada yang salah maka false
contoh :
A	B	OR	AND	NOT
T	T	T	T	F
T	F	T	F	F
F	T	T	F	F
F	F	F	F	T

 

gmudah bukan quick basic nya

                         smk khaidir nur                                           

   2.visual basic 

---

     1. pengertian visual basic 6

      2. contoh program visual basic 6

  1. Pengertian Visual Basic
 

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman
yang menawarkan  Integrated Development Environment (IDE) visual untuk membuat program
perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti  Visual Basic for Applications (VBA)


  2. Contoh program

Membuat Kalkulator

langkah-langkah membuat kalkulator dengan visual basic 6 adalah

    1. mengatur properties:


 

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.

Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =


  2. memasukan source code

    Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Elsev Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
 

                 smk khaidir nur                                                 



menyenangkan bukan, pelajaran SMK Khaidir Nur

 Itu merupakan sebagian dari pelajaran SMK Khaidir Nur yang dapat saya berikan pada anda semua.
mungkin banyak kekurangan yang ada pada blog saya, tentang pelajaran Rekayasa Perangkat Lunak.
saya mohon maaf jika ada kesalahan pada blog saya

banyak hal yang harus kita dipelajari di SMK Khaidir Nur dari tata makan sampai tata belajar

                                                                                       SMK Khaidir Nur   Tampil beda