MEMBUAT PIRAMIDA BINTANG DENGAN VISUAL BASIC

Piramida berbintang itu gampang kok buatnya. namun, ada beberapa hal yang perlu diperhatikan
yaitu :

untuk membuat seperti listnya itu, sebenarnya menggunakan textbox tapi dibagian properties pada alignmentnya dirubah menjai center. kemudian pada bagian multiline nya dirubah menjadi True.

berikut kodingnya :

Private Sub Command1_Click()

Dim i As Integer

n = Val(Text2.Text)

For i = 1 To n

Text1.Text = Text1 & String(i, "*") & vbCrLf

Next

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

End Sub

Private Sub Command3_Click()

End

End Sub

semoga bermanfaat ya :)

MEMBUAT KALKULATOR MENGGUNAKAN VISUAL BASIC

hay guys, mau share cara bikin program kalkulator dengan visual basic. Ini sih cuma tutorial sederhana, semoga bermanfaat ya buat kalian yang lagi bingung mau bikinnya.

check it out !!!

awalnya, buat seperti contoh diatas.
buat frame dahulu, kemudian textbox untuk menampilkan hasilnya. Untuk tombol kalkulatornya semuanya menggunakan command button. Tapi, ada yang perlu diperhatikan :
untuk commandbutton 0 - 9 dan . pada name di propertiesnya dirubah menjadi angka.
untuk commandbutton +/- pada name propertiesnya dirubah menjadi plusmin
untuk commandbutton + pada name propertiesnya dirubah menjadi tambah
untuk commandbutton - pada name propertiesnya dirubah menjadi kurang
untuk commandbutton 1/*  pada name propertiesnya dirubah menjadi tanda
untuk commandbutton * pada name propertiesnya dirubah menjadi kali
untuk commandbutton /  pada name propertiesnya dirubah menjadi bagi
untuk commandbutton = pada name propertiesnya dirubah menjadi samadengan
untuk commandbutton lainnya pada properties dibagian name nya tidak perlu diganti.

Berikut kodingannya

Option Explicit

Dim operasi1 As Double, operasi2 As Double

Dim operator As String

Dim hapustampilan As Boolean

Private Sub angka_Click(Index As Integer)

If hapustampilan Then

hasil.Text = " "

hapustampilan = False

End If

hasil.Text = hasil.Text + angka(Index).Caption

End Sub

Private Sub bagi_Click()

operasi1 = Val(hasil.Text)

operator = "/"

hasil.Text = " "

End Sub

Private Sub Command12_Click()

operasi1 = Val(hasil.Text)

operator = "sin"

hasil.Text = " "

End Sub

Private Sub Command15_Click()

End

End Sub

Private Sub Command16_Click()

hasil = " "

End Sub

Private Sub Command22_Click()

operasi1 = Val(hasil.Text)

operator = "^"

hasil.Text = " "

End Sub

Private Sub kali_Click()

operasi1 = Val(hasil.Text)

operator = "*"

hasil.Text = " "

End Sub

Private Sub kurang_Click()

operasi1 = Val(hasil.Text)

operator = "-"

hasil.Text = " "

End Sub

Private Sub plusmin_Click()

hasil.Text = -(Val(hasil.Text))

End Sub

Private Sub samadengan_Click()

Dim hasilakhir As Double

operasi2 = Val(hasil.Text)

If operator = "+" Then hasilakhir = operasi1 + operasi2

If operator = "-" Then hasilakhir = operasi1 - operasi2

If operator = "*" Then hasilakhir = operasi1 * operasi2

If operator = "^" Then hasilakhir = operasi1 ^ operasi2

If operator = "/" And operasi2 <> "0" Then hasilakhir = operasi1 / operasi2

If operator = "1/*" And operasi1 <> "0" Then hasilakhir = 1 / operasi1

hasil.Text = hasilakhir

End Sub

Private Sub tambah_Click()

operasi1 = Val(hasil.Text)

operator = "+"

hasil.Text = " "

End Sub

Private Sub tanda_Click()

operasi1 = Val(hasil.Text)

operator = "1/*"

hasil.Text = " "

End Sub

sekian tutorialnya guys. semoga bermanfaat ya :)

BARIS BILANGAN

Hey guys, ini materi visual basic tentang membuat n baris bilangan.
yang dipakai itu 1 label , 2 textbox dan 1 commandbutton..

gampang kok buatnya. :)

kodingannya

Private Sub Command1_Click()

N = Val(Text1)

For baris = 1 To N

If baris Mod 2 = 0 Then

awal = 5: akhir = 1

langkah = -1

Else

awal = 1: akhir = 5a

langkah = 1

End If

kal = ""

For i = awal To akhir Step langkah

kal = kal & Str(i)

Next i

List1.AddItem kal

Next baris

End Sub

semoga, bermanfaat ya postingannya ini :)

Membuat Angka Genap Ganjil dengan VB

hay guys, mau share nih tentang bikin program pemisahan angka genap ganjil dengan visual basic.
pada jendela awal. bikin seperti contoh di atas.
itu pakai 1 abel, 3 textbox dan 3 comman button.
disusun pokonya mirip aja sama contoh gambar diatas.

kemudian, untuk kodingannya

Private Sub Command1_Click()

N = Val(Text1)

List1.Clear

For i = 2 To N Step 2

List1.AddItem i

Next i

End Sub

Private Sub Command2_Click()

N = Val(Text1)

List2.Clear

For i = 1 To N Step 2

List2.AddItem i

Next i

End Sub

Private Sub Command3_Click()

Text1.Text = " "

End Sub

oke, semoga bermanfaat ya :)