Tutorial Vissual Basic 6.0: 2014

Rabu, 24 September 2014

Tentang Saya

Name : Nur Arif Sidik

Date of birth : Lampung, 10 september 1994

Address : Nusa Indah 1, JAMBI

Hoby : Program

Study : Sedang mengambil program Studi sistem informasi di STMIK NH

Pin BB : 51D716F1

Telephone : 082327230421

Selasa, 17 Juni 2014

MEMBUAT PEMBELIAN TIKET SEDERHANA

Udah lama ni kagak posting sibuk mulu hehehe
Udah sekitar 1 bulan ni kagak coret coret blog baru sempat hari ni, mumpung lagi kosong jadwal kuliah,,,lagian si kawan udah pada maksa ni buat posting hehe

Yaudah langsung aja gak usah banyak basa basi wkwk

Di sini ane mau posting tu sdikit cara membuat pembelian tiket tapi yg sederhana yaaa kn ane masih newbie
langsung aja cekicrot

-Buka vb
kalo gak tau buka vb silahkan googling mbak bro

-Pilih standar exe lalu open

-Siapkan 6 buah label

-1 combo box

-5 text box

-3 command button

- Isi list combo box dengan kota tujuan

Dan desain lah seperti ini

Kemudian masukan koding :

Private pilihan As String
Private x As Double
Private y As Double

Private Sub CBBANYAKTIKET_Change()
If Val(CBBANYAKTIKET) >= 7 Then
TXTDISKON = "30%"
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)

ElseIf Val(CBBANYAKTIKET) < 3 Then
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)

ElseIf Val(CBBANYAKTIKET) >= 3 Then
TXTDISKON = "20%"
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)

End If

End Sub

Private Sub CBKOTATUJUAN_Click()
If CBKOTATUJUAN = "JAMBI - BATAM" Then

TXTTARIF = "500000"

ElseIf CBKOTATUJUAN = "JAMBI - JAKARTA" Then
TXTTARIF = 700000

ElseIf CBKOTATUJUAN = "JAMBI - MEDAN" Then
TXTTARIF = 750000

End If
End Sub

Private Sub CMDHITUNG_Click()

TXTTOTAL.Text = total

End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
CBKOTATUJUAN = ""
CBBANYAKTIKET = ""
TXTTARIF = ""
TXTDISKON = ""
TXTTOTAL = ""
TXTLABEL = ""
TXTTOTALBAYAR = ""
End Sub

Private Sub CMDTOTALBAYAR_Click()

Dim TARIF As String
Dim total As Long
Dim TOTALAHIR As String

If Val(TXTDISKON) = 20 Then
TXTTOTALBAYAR = Val(TXTTOTAL.Text) - Val(0.2 * TXTTOTAL)
ElseIf TXTDISKON = "" Then
TXTTOTALBAYAR = TXTTARIF

ElseIf Val(TXTDISKON) = 30 Then
TXTTOTALBAYAR = Val(TXTTOTAL.Text) - Val(0.3 * TXTTOTAL)
End If

End Sub

Kalo sudah semua langsung saja jalankan programnya
Selamat mencoba :D
Jika terjadi eror silahkan Coment atau PM ane Disini
Regard : Arif

Jumat, 09 Mei 2014

Membuat Media player Dengan Visual Basic 6.0

Udah beberapa hari ni kagak ada posting hehe soalnya lagi belajar lebih lanjut ni tentang vb. .
Ane udah dapet ni cara membuat tu MEDIA PLAYER dari visual basic

yaudah langsung aja ntar kalo basa basi mulu kagak jadi posting ni wkwkwkw

Langkah Pertama :
- Buka visual basic
- Tekan Ctrl + T
-Lalu beri tanda ceklis pada
. Microsoft Common Dialog 6.0 (sp3)
. Microsoft Multimedia Control 6.0
. Microsoft common Control 6.0 (sp6)
. Windows Media Player
Lalu aply dan close
-PIlih Menu Project add file Masukan File Module dan file control
-Buat Desain seperti Berikut

form 1

form 2

Langkah Berikunya yaitu memberi Code

-Klik kanan pada form lalu paste kan Code berikut..

Option Explicit

Dim File As String

Dim Kode As Boolean

Dim EndTrack As Long

Dim Jam, menit, detik, mldetik As Integer

Sub Play()

'-----Pengaturan Waktu Time Player----------

mldetik = 0

detik = 0

menit = 0

Jam = 0

'-----------------------------------------

File = List2

If Mid(File, 3, 1) = "\" And Mid(File, 4, 1) = "\" Then

'Path = Left(List1, 3)

File = List1

Else

File = List2

End If

MMControl1.FileName = File

MMControl1.Command = "Open"

EndTrack = MMControl1.TrackLength

If EndTrack = 0 Then

'MsgBox "Soory Can't Play in this Application", vbOKOnly + vbCritical, "Player Error"

End If

End Sub

'-----Memerintahkan Window Media Player Next----------

Sub WMplayerNext()

If Label1.Caption = Label2.Caption Then

List1.ListIndex = 0

Timer6.Enabled = True

Else

With List1

.ListIndex = .ListIndex + 1

End With

Timer6.Enabled = True

End If

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

File1.FileName = "*.MP3;*.Mpg;*.WAV;*.MIDI;*.DAT;*.AVI"

End Sub

Private Sub Drive1_Change()

On Error GoTo Perangkap

Perangkap:

Select Case Err

Case 68

MsgBox "Can't Access Drive " & vbOKOnly + vbCritical, "Scope Error"

Refresh

Case 0

Exit Sub

End Select

End Sub

Private Sub File1_DblClick()

If File1.FileName = "" Then

Exit Sub

Else

List1.AddItem File1.FileName

List2.AddItem File1.Path & "\" & File1.FileName

Label1.Caption = List1.ListIndex + 1

Label2.Caption = List1.ListCount

End If

End Sub

Private Sub Form_Load()

'mengatur posisi awal form

Me.Left = 5000

Me.Top = Screen.Height

Timer5.Interval = 1

End Sub

'mengakhiri semua proses jika form ini Unload

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

'menghapus semua file di list player

Private Sub GradientButton1_Click()

List1.Clear

List2.Clear

End Sub

Private Sub GradientButton2_Click()

Dim i As Integer

If i = 0 Then

MsgBox " tiadak ada selected"

Else

i = List1.ListIndex

List1.RemoveItem (i)

End If

End Sub

'meng add file mengunakan tool CommonDialog

Private Sub GradientButton3_Click()

On Error Resume Next

Dim buka As String

With CommonDialog1

.DialogTitle = "Mp3 Player V 1.0 Open Music files"

.FileName = ""

.ShowOpen

buka = .FileName

If .FileName = "" Then

Exit Sub

Else

List2.AddItem buka

List1.AddItem .FileTitle

End If

End With

End Sub

Private Sub GradientButton4_Click()

If Label1.Caption = Label2.Caption Then

MsgBox "Index Tidak Ada"

Else

With List1

.ListIndex = .ListIndex + 1

End With

End If

End Sub

Private Sub GradientButton5_Click()

If GradientButton5.Caption = "Repeat" Then

GradientButton5.Caption = "OFF"

Else

GradientButton5.Caption = "Repeat"

End If

End Sub

Private Sub GradientButton6_Click()

If GradientButton6.Caption = "<" Then

Timer3.Interval = 1

GradientButton6.Caption = ">"

Else

Timer4.Interval = 1

GradientButton6.Caption = "<"

End If

End Sub

'jika List1 di klik maka siap untuk di PLAY di MMControl

Private Sub List1_Click()

List2.ListIndex = List1.ListIndex

Label1.Caption = List1.ListIndex + 1

Label2.Caption = List1.ListCount

MMControl1.Command = "Close"

MMControl1.Refresh

Play

End Sub

' jika list1 di Double click maka jalankan Windows Media Player

Private Sub List1_DblClick()

Form2.Show

Form2.WindowsMediaPlayer1.URL = List2

Form2.WindowsMediaPlayer1.ShowWhatsThis

End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)

If Kode = True Then Exit Sub

If MMControl1.TrackLength = MMControl1.Position Then

'======Kode Pengaturan Next dan Repeat===========================

If Label1.Caption = Label2.Caption Then

'------jika tombol 4 bertulis repeat maka jalankan-------------

If GradientButton5.Caption = "Repeat" Then

If Label2.Caption = "1" Then

'MsgBox "Soory Can't Repeat", vbOKOnly + vbCritical, "Player Error"

MMControl1.Command = "Close"

Timer2.Enabled = False

Label6.Caption = "STOP"

Label6.BackColor = &HFF&

'__jika list index tidak = 1 maka list index ke posisi paling atas dan PLAY____

Else

If Label1.Caption = Label2.Caption Then

List1.ListIndex = 0

MMControl1.Command = "Play"

End If

'_jika tombol 4 tidak bertulis REPEAT maka Player STOP--

Else

If Label1.Caption = Label2.Caption Then

MMControl1.Command = "Close"

Label6.Caption = "STOP"

Label6.BackColor = &HFF&

End If

'--jika List index tidak sama dangan list Count maka NEXT PLAYER---

Else

With List1

.ListIndex = .ListIndex + 1

End With

MMControl1.Command = "Play"

End If

End Sub

'Tombol PAUSE

Private Sub MMControl1_PauseClick(Cancel As Integer)

If Label6.Caption = "PLAY" Then

Timer2.Enabled = False

Label6.Caption = "PAUSE"

Label6.BackColor = &HFFFF&

Else

Timer2.Enabled = True

Label6.Caption = "PLAY"

Label6.BackColor = &HFF00&

End If

End Sub

'Tombol Play

Private Sub MMControl1_PlayClick(Cancel As Integer)

Play

ProgressOke

Label3.Caption = List1

Timer2.Enabled = True

Label6.Caption = "PLAY"

Label6.BackColor = &HFF00&

End Sub

'tombol STOP

Private Sub MMControl1_StopClick(Cancel As Integer)

MMControl1.Refresh

MMControl1.Command = "Close"

Kode = True

Timer2.Enabled = False

Label6.Caption = "STOP"

Label6.BackColor = &HFF&

End Sub

'Mengatur Posis Slider

Sub ProgressOke()

Slider1.Min = 0

Slider1.Max = Val(MMControl1.TrackLength)

End Sub

'menjalankan Slide saat Play

Private Sub Timer1_Timer()

On Error Resume Next

Slider1.Value = MMControl1.Position

End Sub

Private Sub Timer2_Timer()

'penghitung waktu

If mldetik = 10 Then

detik = detik + 1

mldetik = 0

End If

If detik = 60 Then

menit = menit + 1

detik = 0

End If

If menit = 60 Then

Jam = Jam + 1

menit = 0

End If

'----Menampilkan Ke Label------------------------------

Label5.Caption = Jam & ":" & menit & ":" & detik

mldetik = mldetik + 1

End Sub

'Menutup File Box

Private Sub Timer3_Timer()

Form1.Width = Val(Form1.Width) - 100

If Form1.Width <= 3375 Then

Timer3.Interval = 0

End If

End Sub

'membuka File Box

Private Sub Timer4_Timer()

Form1.Width = Form1.Width + 100

If Form1.Width >= 5985 Then

Timer4.Interval = 0

End If

End Sub

'mengatur form muncul DARI BAWAH KE ATSAS

Private Sub Timer5_Timer()

If Me.Top <= 1000 Then

Timer1.Interval = 0

Else

Me.Top = Me.Top - 100

End If

End Sub

Code form 2

Option Explicit

Private Sub Form_Load()

Me.Top = 1000

Me.Left = Screen.Width

Timer1.Interval = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Form1.WMplayerNext

End Sub

Private Sub Timer1_Timer()

If Me.Left <= (5000 - Me.Width) Then

Timer1.Interval = 0

Else

Me.Left = Me.Left - 100

End If

End Sub

Private Sub Timer2_Timer()

If Me.Top >= Screen.Height Then

Unload Me

Else

Me.Top = Me.Top + 100

End If

End Sub

Lalu tekan F5 jika terjadi eror silahkan komen.

Segini dulu ya postingan hari ni mau makan dulu ni udahh laper hehehe

Jika agan berminat download yang sudah jadi Di sini

TRIMAKASIH

Senin, 05 Mei 2014

Cara Membuat Browser Sederhana Dengan Visual Basic

Siang sobat blogger

Postingan kali ini yaitu Cara membuat browser sederhana. .
Udah bosen banget dengan mata kuliah hari ini jadi ane gunain aja waktunya buat posting hehehe . .

Yaudah langsung saja..
1.Buka vb nya trus pilih standar EXE

2.Klik Cttrl+t

3.Kemudian ceklis pada Microsoft html object library, Mirosoft internet controls, Microsoft Windows common control 6.0

4.Buat 5 comman buton, 1 text box, 1 label, 1WEbbrowser, 1proggress bar,

Setelah semua selesai di desain masukan kode di bawah ini dengan cara klik kanan pada form lalu view code

Private Sub Command1_Click()

On Error Resume Next

WebBrowser1.GoBack

End Sub

Private Sub Command2_Click()

On Error Resume Next

WebBrowser1.GoForward

End Sub

Private Sub Command3_Click()

On Error Resume Next

WebBrowser1.Refresh

End Sub

Private Sub Command4_Click()

On Error Resume Next

WebBrowser1.Stop

End Sub

Private Sub Command5_Click()

On Error Resume Next

WebBrowser1.navigate Text1.Text

End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

If Progress = -1 Then ProgressBar1.Value = 100

Label1.Caption = "Done"

ProgressBar1.Visible = False

If Progress > 0 And ProgressMax > 0 Then

ProgressBar1.Visible = True

Image1.Visible = False

ProgressBar1.Value = Progress * 100 / ProgressMax

Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"

End If

Exit Sub

End Sub

Private Sub Form_Resize()

On Error Resume Next

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - 1680

End Sub

Jika sudah lalu runing atau tekan F5

Ini yang sudah di gunakan

Download Browser yg sudah jadi DI MARI

Selamat menncoba sob . .

JIka tidak berjalan silahkan coment.

oke sekian dulu p0stingan dari ane mau makan siang dulu niihh . . .

TRimakasih

Sabtu, 03 Mei 2014

Selamat siang sobat sobat blogger, udah lama ni mau posting tapi baru ni kesampean karna mata kuliah yang begitu padat. heheh. .

Postingan perdana ane mau bahas tentang paket instal dari vb atau visual basic di sini mungkin masih banyak tu yang bingung gimana cara agar project yang kita buat bisa di instal di laptop atu pc yang laen oke langsung saja. .

-pertama sobat harus udah nyimpan tu project yang udah selesai di buat di satu folder

-klik star all program visual basic

-microsoft visual studio 6.0 tolls

-package & deployment wizard

-lalu sobat pilih tu project yang mau di buat instalan dengan pilih browse

-jika sudah klik package

-lalu pilih standar setup package lalu next