Enter your keyword

kagung13.blogspot.com | kagung13@gmail.com

Visual Basic, Deret Bilangan Prima

By On April 27, 2014
Kali ini, program akan dibuat dalam aplikasi visual basic. Sedikit mengulas bahwa aplikasi visual basic adalah aplikasi pemrograman tingkat tinggi berbasis dekstop. Pada kasus ini, akan dibuat program deret bilangan prima dengan variasi batas bawah dan ata, menggunakan listbox dalam penampilan datanya. Langsung saja mari kita tengok programnya ;
Untuk codingnya dapat dilihat coding di bawah ini : (Jangan hanya di copy paste, tapi dipelajari ya!!!)

============================================
Dim x, y As Integer
Private Sub Command1_Click()
   Min = Val(Text1.Text)
   Max = Val(Text2.Text)
If Text1.Text = "" Then
MsgBox ("Batas bawah harus diisi")
End If
If Text2.Text = "" Then
MsgBox ("Batas atas harus diisi!")
End If
If ((Min <> 0) And (Max <> 0)) Then
   If Min <= 1 Then
   Min = 2
   End If
For x = Min To Max
z = 0
For y = 2 To x
   hasil = x Mod y
   If hasil = 0 Then
   z = z + 1
   End If
Next y
   If z <= 1 Then
   List1.AddItem (x)
   a = a + 1
   jml = jml + x
   End If
Label7.Caption = a
Label8.Caption = jml
Label9.Caption = Round(jml / a)
Next x
End If
End Sub
Private Sub Command2_Click()
List1.Clear
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Label7.Caption = "0"
Label8.Caption = "0"
Label9.Caption = "0"
End Sub
Private Sub Command3_Click()
End
End Sub
============================================

Sekian dan terima kasih, semoga bermanfaat. Jangan asal Copy Paste ya, tapi dipelajari dan dipahami, karena ada beberapa program  yang berbeda dan kurang tepat penulusan (spasi,dsb) karena keterbatasan alat dan bahan. Harap maklum. Terima Kasih

Oktober-November 2012
Kurnia Agung Pamungkas

Visual Basic, Konversi Suhu

By On April 27, 2014
Kita tengok lagi salah satu program algoritma yaitu konversi suhu. Nah, kembali lagi jika belajar algoritma, kreatifitas, dan logika harus terus dikembangkan. Untuk itu ini salah satu program algoritma yang saya buat dan desain. Mungkin ada beberapa perbedaan dengan yang lainnya, tapi bisa jadi referensi untuk semua (semoga).

Visualisasi program konversi suhu
Lagsung kita tengok programnya.

=====================================================
Dim a, b, c, d As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If (Text1.Text) <> "" And (Text2.Text) <> "" And (Text3.Text) <> "" And (Text4.Text) <> "" Then
MsgBox "Harap lakukan perintah CLEAR dahulu!", vbExclamation, "PERINGATAN"
End If
If Text1.Text <> "" Then
Text2.Text = Val(4 / 5 * a)
Text3.Text = Val((9 / 5 * a) + 32)
Text4.Text = Val(a + 273)
Else
If Text2.Text <> "" Then
Text1.Text = Val(5 / 4 * b)
Text3.Text = Val((9 / 4 * b) + 32)
Text4.Text = Val((5 / 4 * b) + 273)
Else
If Text3.Text <> "" Then
Text1.Text = Val(5 / 9 * (c - 32))
Text2.Text = Val(4 / 9 * (c - 32))
Text4.Text = Val((5 / 9 * (c - 32)) + 273)
Else
If Text4.Text <> "" Then
Text1.Text = Val(d - 273)
Text2.Text = Val(4 / 5 * (d - 273))
Text3.Text = Val((9 / 5 * (d - 273)) + 32)
Else
If (Text1.Text) = "" And (Text2.Text) = "" And (Text3.Text) = "" And (Text4.Text) = "" Then
MsgBox "Harap Isi Suhu yg akan dikonversi!", vbCritical, "KESALAHAN"
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
If MsgBox("Anda yakin ingin kuluar?", vbOKCancel + vbQuestion, "KONFIRMASI") = vbOK Then
End
End If
End Sub
=====================================================

Terima Kasih dan semoga bermanfaat.

Algoritma dan Pemrograman
November, 2010

Popular

Kurnia Agung Pamungkas a.k.a kagung13, Seorang blogger yang percaya bahwa menulis adalah cara terbaik mengabadikan moment dan pemikiran berharga dalam hidup.

Total Pageviews