Cara Notifikasi MsgBox Dan Mancam - Macamnya Full VB6

MsgBox Dalam Visual Basic 6 ialah berfungsi sebagai Pesan, bisa berupa pesan singkat atau apapun guna memebritahu user, MsgBox sangat lah diperlukan dalam membuat program coba kalian lihat di bawah ini itu adalah macam macam Notofikasi Msgbox

Macam - Macam MsgBox

• MsgBox Error dalam Program dituliskan vbCritical
• MsgBox Informasi dalam Program dituliskan vbInformation
• MsgBox Tanda Tannya dalam Program dituliskan vbQuestion
• MsgBox Paragraf baru dalam Program dituliskan vbNewLine
• MsgBox Error + Pertanyaan dalam Program dituliskan vbCritical+ vbYesNo
• MsgBox Informasi + Pertanyaan dalam Program dituliskan vbInformation+ vbYesNo
• MsgBox Tanda Tannya + Pertanyaan dalam Program dituliskan vbQuestion + vbYesNo

Mari Kita Jabarkan Source Codenya

Yang Diperlukan Hanyalah Commong Button dalam Project ini

• MsgBox Error

Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical
End Sub

• MsgBox Informasi

Private Sub Command2_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation
End Sub

• MsgBox Tanda Tannya

Private Sub Command4_Click()

MsgBox ("Tulis Text Di Sini - Contoh Program"), vbQuestion

End Sub

• MsgBox Paragraf baru

Private Sub Command5_Click()

MsgBox "Paragraf Atas" _

& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"

End Sub

• MsgBox Error + Pertanyaan

Private Sub Command3_Click()
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
    Unload Me
End If
End Sub

• MsgBox Informasi + Pertanyaan

Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
    Unload Me
End If
End Sub

• MsgBox Tanda Tannya + Pertanyaan

Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbQuestion + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
    Unload Me
End If
End Sub
Note : Command Bisa Anda Rubah Sesuai Program anda, dan cmn6, cmn7 dan RAW16 itu untuk membatu logika so rubah selera anda  

[info title="Full Source Coe Visual Basic " icon="info-circle"]
' ----------------------------------------------------
' Rizki Aditya Wiratama 6 - 19 - 2016
' www.raw16.blogspot.com
'--------------------------------------------------------
Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical

End Sub

Private Sub Command2_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation

End Sub

Private Sub Command3_Click()
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
    Unload Me
End If
End Sub
Private Sub Command5_Click()
MsgBox "Paragraf Atas" _
& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"
End Sub

Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
    Unload Me
End If
End Sub

Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbInformation + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
    Unload Me
End If
End Sub

Private Sub Form_Load()
MsgBox "Terimakasih Telah Mendownload :)" _
& vbNewLine & "Untuk Program Menarik Lainnya Kunjungi www.raw16.blogspot.com", vbInformation, "RAW16"
End Sub
 [/info]

Download Project

Continue Reading

Cara membuat sevent Segment Di Visual Basic

Dalam membuat 7 segment pasti anda sudah terbayang apa sih itu 7 segment, ya sevent segment merupakan segment yang berjumlah 7 biasanya digunakan untuk membuat jam digital, text dan banyak hasil dari sevent segment namun dalam project kali ini kita mulai dari dasar dulu barulah jika sudah bisa mengerti anda bisa mengembakannya lagi menjadi ide yang sangat baik.
Di dalam project ini terdiri dari :

• 7 Shape 
• 9 Commond Button

Saya menambahkan beberapa tambahan

• 2 Timer untuk kelap kelip
• 1 Frame untuk belakang sevent sigment 

[info title="Coding Visual Basic 6" icon="info-circle"]Private Sub Command1_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = 1
Shape7.FillColor = 1
Shape6.FillColor = 1
Shape5.FillColor = 1
Shape4.FillColor = 1
End Sub

Private Sub Command10_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = 0
Shape6.FillColor = 0
Shape5.FillColor = 0
Shape4.FillColor = 0
End Sub

Private Sub Command11_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = vbRed
Shape4.FillColor = vbRed
End Sub

Private Sub Command12_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Command13_Click()
Form3.Visible = vbNormalFocus
Unload Me
End Sub

Private Sub Command2_Click()
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Shape3.FillColor = 0
Shape4.FillColor = vbRed
Shape5.FillColor = vbRed
Shape6.FillColor = 0
Shape7.FillColor = vbRed

End Sub

Private Sub Command3_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = 0
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Command4_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = 0
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = 0
End Sub

Private Sub Command5_Click()
Shape2.FillColor = 0
Shape5.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape4.FillColor = vbRed
End Sub

Private Sub Command6_Click()
Shape2.FillColor = 0
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Timer1_Timer()
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
Shape4.Visible = False
Shape5.Visible = False
Shape6.Visible = False
Shape7.Visible = False
End Sub

Private Sub Timer2_Timer()
Shape1.Visible = True
Shape7.Visible = True
Shape2.Visible = True
Shape3.Visible = True
Shape4.Visible = True
Shape5.Visible = True
Shape6.Visible = True
End Sub[/info]

Download Project

Continue Reading

Cara Membuat Calculator Di Visual Basic 6

Nah banyaknya permintaan program vb6 yang sangat unik dan sering dipakai banyak orang nah berhuhung dari itu saya memutuskan membuat calculator dalam pembuatan project ini kita harus memasukan logika untuk hitung hitungan dan namanya logika pasiti tidak susah, karena tidak jauh dari akal pikiran kita

Logika Yang Digunakan :

Program Untuk Pembagian = “/” ( tanpa tanda kurung )
Program Untuk Tambah = “+” ( tanpa tanda kurung )
Program Untuk Perkalian = “x” ( tanpa tanda kurung )
Program Untuk Pengurangan = “-” ( tanpa tanda kurung )

Codingan untuk membuat calculator di vb6

Private y As Double
Private x As Double

Private Sub AC_Click()
text.text = ""
Text1.text = ""
End Sub

Private Sub Bagi_Click()
Text1.text = ""
text.text = "/"
Text2.text = "bagi"
y = x
x = 0
End Sub

Private Sub Hasil_Click()
If Text1 = "" Then
MsgBox ("Eror Code @@## || Harap Masukan Angka")
End If
text.text = " = "
Select Case Text2.text
Case "bagi"
x = y / x
Text1.text = x
Case "tambah"
x = y + x
Text1.text = x
Case "kurang"
x = y - x
Text1.text = x
Case "kali"
x = y * x
Text1.text = x
End Select
End Sub

Private Sub kali_Click()
Text1.text = ""
text.text = "x"
Text2.text = "kali"
y = x
x = 0
End Sub

Private Sub koma_Click()
If Text1.text = "" Then
Text1.text = "0,"
Else
Text1.text = Text1.text & ","
End If
End Sub

Private Sub kurang_Click()
Text1.text = ""
text.text = " - "
Text2.text = "kurang"
y = x
x = 0
End Sub

Private Sub Tambah_Click()
Text1.text = ""
text.text = " + "
Text2.text = "tambah"
y = x
x = 0
End Sub

Private Sub Command1_Click(Index As Integer)
Text1.text = Text1.text & Command1(Index).Caption
x = Text1.text
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Right(Label3.Caption, Len(Label3.Caption) - 1) & Left(Label3.Caption, 1)
Label4.Caption = Time
End Sub

Download file

Continue Reading

Cara Membuat Lampu Selang - Seling Manual vb6

Manual lampu selang seling – Dalam membuat project ini pastilah harus menggunakan lampu, namun yang dikatakan lampu sangatlah berfariasi mulai dari bentuknya warnanya ukurannya, namun dalam project ini saya menggunakan bentuk lingkaran dan warna kuning ketika on, untuk bab ini kalian bisa mengedit sesuka kalian karena dasaranya sama menggunakan shape,dalam shape bisa terbagi berbagai macam jenis dari kotak lingkaran dan lain lain

Project ini menggunakan metode manual, jadi untuk menjankan program anda masih menekan atau mengaktifkanya secara satu persatu guna memudahkan bagi anda untuk mempelajari project tersebut barulah nantinya saya berika project dengan metode automatis
Berikut adalah kodinganya

Private Sub Command1_Click()
If Command1.Caption = "ON" Then
    Command1.Caption = "OFF"
    Shape1.FillColor = vbYellow ' lampu 1
    Shape4.FillColor = vbYellow ' lampu 3
    Shape2.FillColor = vbYellow ' lampu 5
    Else
    Command1.Caption = "ON"
    Shape1.FillColor = vbWhite 'merah
    Shape4.FillColor = vbWhite
    Shape2.FillColor = vbWhite
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "ON" Then
    Command2.Caption = "OFF"
    Shape5.FillColor = vbYellow ' lampu 2
    Shape3.FillColor = vbYellow ' lampu 4
    Shape6.FillColor = vbYellow ' lampu 6
Else
    Command2.Caption = "ON"
    Shape5.FillColor = vbWhite
    Shape3.FillColor = vbWhite
    Shape6.FillColor = vbWhite
End If
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ON" Then
    Command3.Caption = "OFF"
    Command2.Caption = "on"
    Command1.Caption = "on"
    Shape1.FillColor = &HFF&
    Shape2.FillColor = &HFF&
    Shape3.FillColor = &HFF&
    Shape4.FillColor = &HFF&
    Shape5.FillColor = &HFF&
    Shape6.FillColor = &HFF&

Else
    Unload Me
   
End If
End Sub

Keterangan singkat : untuk program vbwhite atau vbyellow atau vbred itu adalah program memudahkan anda untuk mengisi fillcolor backcolor dan fontcolor jika anda perhatikan vbred dengan &HFF& mudahan mana ? namun vbred dan &HFF& adalah program untuk warna merah ( satu kesatuan )
Dan untuk Caption itu merupakan program untuk memberi nama pada sebuah label command ataupun image dan from saya ambil contoh Command1.Caption = "OFF", jadi command1 tulisanya adalah off saat di run program
untuk projectnya sudah saya sediakan

Download Project

Continue Reading

Tutorial Cara Membuat Software Pengingat Adzan Visual Basic 6

Contoh program berikut adalah program untuk mengingatkan waktu adzan yang telah kita tentukan
Software ini juga dapat di jadikan software di leptop pribadi untuk mengingatkan secara pribadi tidak hanya di hp android leptop pun ada dan caranya sangatlah mudah dengan modal visual basic yang sudah di install di leptop anda dan anda bisa berkreasi dengan program yang asaya berikan

Berikut codinganya
 

Private Sub Form_Load()
player.URL = App.Path & "\Song\adzan.mp3" ' nama file adzan tsb
Form1.Width = 11880
End Sub

Private Sub Label10_Click() ' tombol setting
Form1.Width = 13500
Label20.Visible = True
End Sub

Private Sub Label20_Click() ' tombol close
Label20.Visible = False
Form1.Width = 11880
End Sub

Private Sub Metode1_Timer() ' sistem utama dalam pembuatan waktu adzan
If HasilM1.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM2.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM3.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM4.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM5.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
HasilM1.Caption = (Text1.Text) + ":" + (Text2.Text) + ":00" ' ini settingan untuk menu setting
HasilM2.Caption = (Text4.Text) + ":" + (Text3.Text) + ":00"
HasilM3.Caption = (Text6.Text) + ":" + (Text5.Text) + ":00"
HasilM4.Caption = (Text8.Text) + ":" + (Text7.Text) + ":00"
HasilM5.Caption = (Text10.Text) + ":" + (Text9.Text) + ":00"

End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Now, "HH:mm:ss") ' jam memnggunakan format
End Sub

Private Sub Timertxt_Timer()
Label15.Caption = Right(Label15.Caption, Len(Label15.Caption) - 1) & Left(Label15.Caption, 1) ' text berjalan
turnofftxt.Caption = turnofftxt.Caption + 1
Select Case turnofftxt.Caption
Case "300"
Label15.Visible = False
MsgBox " Saatnya Sholat ", vbInformation
turnofftxt.Caption = "1"
Timertxt.Enabled = False
End Select
End Sub

jika anda kebingungan untuk penempatanya bisa download projectnya di sini 
atau jika ada pertanyaan bisa komentar dibawah ini , kami akan menanggapi sebaik mungki

Download Project

Continue Reading

Tutorial Cara Membuat Lampu Lalulintas Di Visual Basic 6

Lampu lalulintas memang sudah tidak asing lagi bagi kita namun apakah kalian tau bagaimana cara membuat simulasinya atau program pada lampu lalulintas ?

Kali ini saya akan memberikan contoh coding yang sederhana yaitu cara membuat membuat lampu lalulintas di visual basic 6, cara membuatnya sangat mudah dan saya buat sesingkaat mungkin codingannya .

Hal yang kalian siapkan untuk membuat project ini adalah

• 4 buah command
• 3 buah shape untuk lampunya ( Lampu merah , Lampu kuning , Lamou hijau )

Untuk lebih memperjelas penempatanya anda bias melihat gambar dibawah ini

Noted : untuk tata letak anda bisa membuatnya sesuai selera anda sendiri dan pastikan anda tidak keliru

Jika sudah sesuai maka anda bias memasukan kodingan di bawah ini:

Private Sub Command1_Click() ' merah

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape1.BackColor = vbRed

End Sub

Private Sub Command2_Click() ' kuning

Shape1.BackColor = vbWhite

Shape3.BackColor = vbYellow

Shape2.BackColor = vbWhite

End Sub

Private Sub Command3_Click() ' hijau

Shape3.BackColor = vbWhite

Shape2.BackColor = vbGreen

Shape1.BackColor = vbWhite

End Sub

Private Sub Command4_Click()

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

End Sub

Keterangan :

Private Sub Command1_Click() ' merah

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape1.BackColor = vbRed

End Sub

Jika ada tanda (‘)  kutip satu itu sebagai komentar

Sekian tutorial Cara membuat lampu lalulintas di visual basic 6 ( Manual ) jika kalian ingin membuatnya secara automatis tidak menggunakan tombol maka saya sarankan membuka

Cara membuat lampu lalulintas Automatis di visual basic6

Continue Reading

Cara Membuat Lampu Lalulintas Automatis Di Visual Basic 6

Sebelumya saya sudah memberikan Cara membuat lampu lalulintas Manual di visual basic 6
Namun barang kali anda ingin mengembangkanya maka saya akan berikan beberapa tips merubah atau merobak yang manual menjadi auto.
Perbedaanya jika kita menggnakan yang manual maka lampu akan hidup jika kita tekan command button namun jika auto lampu akan menyala secara bergantian dengan di tetapkannya waktu atau jeda antara lampu satu dan lampu yang lainnya

Hal yang kalian siapkan untuk membuat project ini adalah 

• Timer1  
• 3 buah Command
• Sistem On = Menjalankan timer 1
• Sistem Off = Mematikan Mematikan timer1
• Sistem Reset = Mengembalikan ke semua 
• 3 buah shape untuk lampunya ( Lampu merah , Lampu kuning , Lamou hijau )
  

Note : Untuk timer1 rubah propertisnya seperti gambar dibawah ini
 

Keterangan :
 
Enable – jika true. Maka timer akan aktif saat run program anda namun saya false kan karena timer itu atau program ini berjalan jika ada yang mengaktifkanya ( enable ) jika anda lihat codingannya yang mengaktifkanya adalah command6 ( sistem ON )

Interval – Merupakan waktu nya . jika 1000 maka sama saja 1 detik, jika 100 maka 0,5 detik
Untuk lebih memperjelas penempatanya anda bias melihat gambar dibawah ini

Jika sudah sesuai maka anda bias memasukan kodingan di bawah ini, namun perlu diperhatikan untuk tata letak anda bisa membuatnya sesuai selera anda sendiri dan pastikan anda tidak keliru

Coding

---

Private Sub Command4_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command5_Click()
Timer1.Enabled = False
End Sub
 
Private Sub Command6_Click()
Timer1.Enabled = False
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Sub
 
Private Sub Timer1_Timer()
Label6.Caption = Label6.Caption + 1
Select Case Label6.Caption
 
Case (Text1.Text)
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbRed
 
Case (Text1.Text) * "2"
Shape9.BackColor = vbWhite
Shape8.BackColor = vbYellow
Shape10.BackColor = vbWhite
 
Case (Text1.Text) * "3"
Shape8.BackColor = vbWhite
Shape9.BackColor = vbGreen
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Select
End Sub

Keterangan :
Disitu saya masukan untuk mensetting waktu jeda anda bisa merubahnya
Namun jika anda ingin setiap lampu berbeda jeda waktunya
Contohnya lampu satu 2 detik dan lampu kedua 4 detik dan lampu ketiga 10 detik, Maka Anda diharuskan merubah di codingan di timer1
 
Saya ambil sampel
Select Case Label6.Caption = target yang dipilih pada progam tersebut adalah label 6
Case (Text1.Text) * "2"
Case = memilih
(Text1.Text) * "2" = text yang ada di text1 dikalikan dengan 2 ( jeda 2 detik ) namun jika ingin memasukan jeda yang berbeda yang anda rubah hanyalah timer1 menjadi :
 

Private Sub Timer1_Timer()
Label6.Caption = Label6.Caption + 1
Select Case Label6.Caption
 
Case “2” ( Jeda 2 Detik )
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbRed
 
Case “10” ( Jeda 10 Detik )
Shape9.BackColor = vbWhite
Shape8.BackColor = vbYellow
Shape10.BackColor = vbWhite

Case “20” ( Jeda 20 Detik )
Shape8.BackColor = vbWhite
Shape9.BackColor = vbGreen
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Select
End Sub

Sekian tutorial kali ini jika ingin meminta projectnya bisa tulis email anda di komentar di bawah ini

Continue Reading