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 Kunci Pas di AutoCAD Gambar Tehnik

Gambar 3D Modeling Kunci Pas – kunci inggris yang tak asing lagi bagi kita nah untuk itu kita coba membuatnya dengan autocad siapa tau sampai ke proses manufaktur, membuat objek gambar yang nantinya akan dibuat dan dicetak, object yang menurut saya lumayan mudah karena disaat proses bagian Subcract (SU) dan Rotasi, namun jangan kawatir karena saya akan memberikan semudah mungkin dan simple. Saya akan memberikan ukuran detail bagi yang sudah bisa membaca gambar dan tahu cara membuatnya dari peritahnya maupun objectnya, dan saya juga tak memihak maka saya juga akan memberikan tutorial bagi yang belum paham atau yang ingin membuat ini tapi tidak tahu caranya

Perlu anda ketahui untuk membuat object tersebut : setiap sudut dalam harus di beri fillet atau Radius untuk mencegah titik patah karena jika tidak, akan membuat titik patah pada benda tersebut nah itu sedikit masukan dari ayah saya yang berkerja di bidang tehnik

Cara Membuatnya 3D Modeling Kunci
Perisapan – Saya harap anda memahami gambar dibawah tersebut barulah anda memulai untuk membuatnya

Langkah pertama – anda buat object 2D seperti gambar dibawah ini dan setelah itu barulah anda beri ketebalan (ext), untuk ketebalan pada object A adalah 5mm sedangkan untuk object yang B adalah 4 mm

Langkah kedua – kita rotate object sebesar 17°, bisa anda perhatikan pada gambar anak panah di bawah ini, Cara merotatenya ialah dengan perintah
RO [Enter] | klik titik A yaitu disudut gambar lalu ketikan <17 [Enter]

Langkah ketiga – kita buat Su pada ujung object, nah saya sarankan anda untuk lebih teliti di tahap ini, anda bisa mengikuti gambar di bawah ini dan sudah saya siapkan ukurannya jadi anda tidak usah bingung. Cara membuat objectnya kepotong seperti gambar dibawah ini ialah dengan menggunakan perintah su.
SU [Enter] | Pilih object a [Enter] | pilih object b [Enter]. Begitu juga dengan yang kanan langkahnya sama seperti langkah 2 dan 3

Langkah keempat – mari kita lihat hasilnya dengan menggunakan perintah VS [Enter] | R [Enter]
Maka hasilnya akan seperti gambar di bawah ini

Continue Reading

Cara Membuat Animasi Bergerak Di Autocad

Cara membuat film dan animasi dengan autocad – film di autocad apakah bisa ?, pasti itulah yang timbul di pikiran anda dikarenakan autocad dibuat untuk membuat gambar berformat dwg dxf dan lain – lain, namun anda sekarang tidak perlu pusing atau pun heran karena sekarang saya bisa membuktikan bahwa autocad bisa menghasilkan format selain dwg dan dxf namun menghasilkan format video yaitu .avi .mov mpg dan . wmv

Pernakah anda melihat iklan di tv seperti iklan hotel yang menampilkan design bangunan interior dan exterior nah itupun sama prinsipnya dengan ini , anda juga bisa memamerkan design anda seperti iklan iklan tersebut namun dalam autocad tidak di fokuskan untuk ini jika anda ingin membuatnya lebih detail seperti ada manusia yang berjalan, mobil berjalan dll anda harus menggunakan 3DMax

Dalam membuat film dan animasi di autocad anda memerlukan fasilitas yang disedikan oleh software autocad atau sebuah perintah command line yaitu AniPath, anipath ini sangat diperlukan dalam membuat project ini dari kalimatnya saja kita bisa mengenal, cara membuatnya ikuti langkah di bawah ini

Langkah Pertama – Siapkan Object yang akan di videokan, contoh dalam gambar untuk objectnya saya meggunakan Object simple yaitu persegi panjang Bola kerucut dan masukan perintah ANIPATH enter

Langkah kedua – siapkan line seperti gambar diatas, garis tersebut berguna untuk jalur kameranya nanti, coba anda tenggok gambar di bawah ini, lihat nomor 1 dan 2 jika anda ingin kameranya bergerak maka anda perlu jalur guna membuatnya bergerak, sepertihalnya kereta api yang membutuhkan jalur untuk berggerak namun jika anda tidak menginginkan kamera bergerak barulah anda bisa menggunakan point pada link kamera dan (2) tentukan dimana kamera diletakan

Langkah ketiga – dimana target untuk kamera sama seperti langkah kedua jika ingin berjalan anda gunakan path jika anda gunakan point maka target tidak bergerak anda bisa mencobanya

Langkah keempat – Merubah duransi. Semakin besar duransi yang anda masukan maka semakin panjang duransi video nanti

Langkah kelima – sebelum menyimpan saya sarankan untuk review terlebih dahulu untuk memeriksa apakah sudah bagus apa tidak barulah anda tekan ok dan menyimpanya

Terbukti bukan bahwa tidak hanya dwg dan dxf saja yang ada pada autocad format videopun bisa , semoga bisa menambah wawasan bagi anda sekalian

Continue Reading