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

Cara Membuat Artikel Atau isi Dalam Blogger Pemula

Cara Membuat Artikel – apakah anda ingin belajar Nge-blog. Artikel ini mungkin sangatlah tepat dan bermanfaat, Artikel bisa di katakan sebagai unsur terpenting dalam sebuah blog. Karena blog belum bisa di katakan sebagai blog yang sebenarnya jika di dalamnya belum terdapat artikel. perlu anda ketahui setiap blog memiliki artikel yang berbeda dan tipe atau tema yang berbeda dan idenya sangatlah banyak karena tergantung cara dia menyampaikannya kepada orang lain. 
Mari kita simak Cara membuat artikel atau isi dalam blogger pemula

Sebelum anda membuat suatu artikel pasti anda sudah menentukan tema yang akan di publikasikan
sedikit saran jika anda kebingungan untuk membuat ide dalam sebuah artikel maka anda bisa mencobanya dengan sebuah ide pengalaman , tips, berita, video dan tutorial dan tugaspun juga bisa dibuat artikel

Langkah Pertama – Siapkan apa yang ingin anda tulis atau tema pada artikel nanti.

Langkah Kedua – Login ke akun Gmail anda. Karena ini merupakan persaratan anda untuk menjelajah blogger

Langkah Ketiga – Masuk Ke Blogspot.com. jika anda blum memiliki blog anda bisa baca artikel
Cara Membuat Blogger

Langkah Keempat – Lihatlah gambar dibawah ini. Itu merupakan pintasan untuk membuat artikel

Dan itulah cara bagaimana membuat arikel di blogger
namun perlu anda ketahui untuk terlihat cantik dan rapih jangan menggunakan gambar terlalu banyak dan kalimatnya pun harus sebagus mungkin, karena yang membaca tidak anda doang namun publik.
apabila anda menulisnya secara offline di microsoft word contohnya maka anda tinggal copy dan paste namun gambar tidak bisa di copy dari word tsb, anda harus menguploadnya di blogger 

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