Contoh Visual Basic

Langkah pertama:

·       Klik label pada toolbox

·       Lalu  kita buat 3 label

Langkah kedua:

·       Klik textbox pada toolbox

·       Kita buat 3 textbox

Langkah ketiga:

·       Klik combobox pada toolbox

·       Kita buat 1 textbox

 

Langkah ke ampat:

·       Klik command pada toolbox

·       Kita buat 2 command button

Pengaturan Objek

objek	properti	nilai
label	caption	Bilangan1
label	caption	Bilangan2
label	caption	Jenis perhitungan
label	caption	Hasil perhirungan
textbox	Text1	Text1
textbox	Text2	Text2
textbox	Text3	Text3
Combo box	text	text
Command button	caption	proses
Command button	caption	hapus

Private Sub Command1_Click()

If Combo1.Text = "+" Then

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

ElseIf Combo1.Text = "-" Then

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

ElseIf Combo1.Text = "*" Then

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

MEMBUAT PERHITUNGAN GAJI

 

Dim nilai(1 To 2) As String

Dim angka(1 To 2) As String

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Combo1.Text = "ya" Or Combo1.Text = "tidak" Then

    Command1.SetFocus

    Else

    Combo1.SetFocus

    End If

End If

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Then

Text1.SetFocus

ElseIf Text2.Text = "" Then

Text2.SetFocus

ElseIf Combo1.Text = "" Then

Combo1.SetFocus

Else

If Text2 > 40 Then

nilai(1) = Val(Text2.Text) - Val(40)

nilai(2) = nilai(1) * Val(25000)

Text4.Text = nilai(2)

Else

Text4.Text = "0"

End If

If Combo1.Text = "tidak" Then

angka(1) = Val(Text1.Text) * Val(10)

angka(2) = angka(1) / Val(100)

Text3.Text = angka(2)

Else

Text3.Text = "0"

End If

End If

Text5.Text = Val(Text1.Text) + Val(Text3.Text) + Val(Text4.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Combo1.Text = ""

End Sub

Private Sub Command3_Click()

MsgBox " anda ingin keluar...?", vbInformation

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "ya"

Combo1.AddItem "tidak"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    Text1.SetFocus

    Else

    Text2.SetFocus

    End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then

KeyAscii = 0

MsgBox "hanya angka saja..!!!", vbCritical, "Ooo tidak bisa..!!!"

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text2.Text = "" Then

    Text2.SetFocus

    Else

    Combo1.SetFocus

    End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then

KeyAscii = 0

MsgBox "hanya angka saja..!!!", vbCritical, "Ooo tidak bisa..!!!"

End If

End Sub

 

Read more »

FISIKA

Gerak Lurus Berubah Beraturan (GLBB)

Suatu benda dikatakan melakukan gerak lurus berubah beraturan (GLBB) jika percepatannya selalu konstan. Percepatan merupakan besaran vektor (besaran yang mempunyai besar dan arah). Percepatan konstan berarti besar dan arah percepatan selalu konstan setiap saat. Walaupun besar percepatan suatu benda selalu konstan tetapi jika arah percepatan selalu berubah maka percepatan benda tidak konstan. Demikian juga sebaliknya jika arah percepatan suatu benda selalu konstan tetapi besar percepatan selalu berubah maka percepatan benda tidak konstan.

Karena arah percepatan benda selalu konstan maka benda pasti bergerak pada lintasan lurus. Arah percepatan konstan = arah kecepatan konstan = arah gerakan benda konstan = arah gerakan benda tidak berubah = benda bergerak lurus.Besar percepatan konstan bisa berarti kelajuan bertambah secara konstan atau kelajuan berkurang secara konstan. Ketika kelajuan benda berkurang secara konstan, kadang kita menyebutnya sebagai perlambatan konstan. Untuk gerakan satu dimensi (gerakan pada lintasan lurus), kata percepatan digunakan ketika arah kecepatan = arah percepatan, sedangkan kata perlambatan digunakan ketika arah kecepatan dan percepatan berlawanan.

Read more »

KIMIA

Pengertian unsur, senyawa, dan campuran dalam kimia

Lambang unsur

Setiap dalam suatu unsur pasti akan diberi lambang sesuai dengan aturan penulisan dalam internasional. Berikut ini adalah aturan penulisan dalam suatu unsur.

a.     Untuk lambang unsur yang hanya terdiri atas satu huruf, penulisannya itu
menggunakan huruf kapital.

Contoh seperti :

• Karbon dinotasikan C.
• Unsur Hidrogen dinotasikan H.
• Unsur Oksigen dinotasikan 0.

b.     Untuk lambang unsur yang terdiri dari dua huruf, penulisan huruf pertama
menggunakan huruf kapital dan huruf kedua dengan mengunakan huruf kecil.
Contohnya seperti :

• Unsur Natrium dinotasikan Na.
• Unsur Kalsium dinotasikan Ca.

Berikut ini lambang unsur logam dan nonlogam

Unsur Logam		Unsur Nonlogam
Nama Unsur       Lambang		i Nama Unsur       Lambang
Aluminium          Al		Argon                Ar
Antimon	Sb	Arsen	As
Barium	Ba	Belerang	S
Besi	Fe	Boron	B
Bismut	Bi	Bromin	Br
Emas	Au	Flourin	F
Kalium	K	Fosforus	P
Kalsium	Ca	Helium	He
Kobalt                Co		Hidrogen	H
Kromium	Cr	lodin	1
Mangan	Mn	Karbon	C
Magnesium	Mg	Klorin	CI
Natrium	Na	Neon	Ne
Nikel	Ni	Nitrogen	N
Perak	Ag	Oksigen	0
Raksa	Hg	Silikon	Si
Seng	Zn	Kripton	Kr
Tembaga	Cu	Xenon	X
Timah	Sn	Selenium	Se
Timbal	Pb	Radon	Rn

Read more »

Bahasa Indonesia

KALIMAT EFEKTIF

Kalimat efektif ialah kalimat yang memiliki kemampuan untuk menimbulkan kembali
gagasan-gagasan pada pikiran pendengar atau pembaca seperti apa yang ada dalam pikiran
pembicara atau penulis. Kalimat sangat mengutamakan keefektifan informasi itu sehingga kejelasan
kalimat itu dapat terjamin.
Sebuah kalimat efektif mempunyai ciri-ciri khas, yaitu kesepadanan struktur, keparalelan
bentuk, ketegasan makna, kehematan kata, kecermatan penalaran, kepaduan gagasan, dan
kelogisan bahasa.
A. Kesepadanan
Yang dimaksud dengan kesepadanan ialah keseimbangan antara pikiran (gagasan) dan

Read more »

Pascal

Pascal (bahasa pemrograman)

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan

Kelebihan dari bahasa pemrograman Pascal adalah:

• Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,

Read more »

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) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.^[1] Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat

Read more »