Skip to main content

Posts

Showing posts from April, 2014

Visual Basic, Deret Bilangan Prima

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
   List…

Visual Basic, Konversi Suhu

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 <…