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