twitter

Contoh Program Database Pada Visual Basic

2 komentar
Posted in


Simpan

Private Sub Command1_Click()
If Text1.Text = Empty Then
Text1.SetFocus
Exit Sub
End If
cari = "npm = '" & Text1.Text & "'"
Data1.Recordset.FindFirst cari
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset.nama = Text1.Text
Data1.Recordset.npm = Text2.Text
Data1.Recordset.kelas = Text3.Text
Data1.Recordset.jurusan = Text4.Text
Data1.Recordset.fakultas = Text5.Text
Data1.Recordset.dosen = Text6.Text
Call Command2_Click
Else
MsgBox "NPM SUDAH TERDAFTAR", 0 + 16, "PERINGATAN"
Text1.SetFocus
End If
End Sub

Hapus
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Text1.SetFocus
End Sub

Keluar
Private Sub Command3_Click()
End
End Sub


Simpan
Untuk menyimpan data pada TextBox yang ada di dalam database

Hapus
Untuk menghapus data pada TextBox yang ada di dalam database

Keluar
Untuk keluar dari program 

 

1KA33            : nama file database yang dibuat
Properties        : pilihan untuk membuat table baru pada database
Add                 : untuk menambahkan data pada database
Edit                  : untuk mengubah data pada database
Delete              : untuk menghapus data pada database
Close               : untuk keluar dari database

Contoh-Contoh Looping Pada Visual Basic

17 komentar
Posted in


Tipe 1

Private Sub Command1_Click()
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub


For i untuk menginput angka 1 sampai x
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 2
Private Sub Command2_Click()
x = Val(Text1)
For i = x To 1 Step -1
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub


For i untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 8, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 3
Private Sub Command3_Click()
x = Val(Text1.Text)
For a = 1 To x
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub


For a untuk menginput angka 1 sampai x
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 1, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 4
Private Sub Command4_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub


For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 5
Private Sub Command5_Click()
x = Val(Text1.Text)
For i = 1 To x
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
End Sub



For i untuk menginput angka 1 sampai x
For j untuk menginput angka i sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print i akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 6
Private Sub Command6_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = a To 1 Step -1
Print b;
Next b
Print
Next a
End Sub


For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka a sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print b akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Clear
Private Sub Command7_Click()
Form1.Cls
Text1.Text = ""
End Sub

Form1.Cls untuk menghapus seluruh cetakan yang berada di Form1
Text1.Text = "" untuk menghapus input yang berada di Text1

Contoh Program Pada QBasic

4 komentar
Posted in


Contoh Program Pertama
Ketikan coding pada program qbasic seperti Gambar 1.1.

Gambar 1.1

Setelah selesai, running program dengan menekan F5. Jika Nilai Praktikum lebih atau sama dengan 70, maka akan menampilkan output seperti Gambar 1.2.

Gambar 1.2

Lainnya akan menampilkan output seperti Gambar 1.3.

  Gambar 1.3

Contoh Program Kedua
 Ketikan coding pada program qbasic seperti Gambar 2.1.

 Gambar 2.1

Setelah selesai, running program dengan menekan F5. Maka akan menampilkan output seperti Gambar 2.2.

Gambar 2.2