Posts

Showing posts from April, 2020

Simple Website Login PHP

Image
Simple Website Login PHP HTML CODE BELOW <!DOCTYPE html> <html lang =" en " > <!-- End code --> <head> <meta charset =" UTF-8 "> <title> Joshua's Localhosted Site </title> <link rel =' stylesheet prefetch ' href =' https://fonts.googleapis.com/css?family=Open+Sans:600 '> <link rel =" stylesheet " href =" ./assets/css/style1.css "> <meta name =" viewport " content =" width=device-width, initial-scale=1 "> <body> <div class =" header "> <a href =" /app/index.html " class =" logo "> Hash Programing Login  </a> <div class =" header-right "> <a class =" active " href =" /app/index.html "> Home </a> <a href =" /phpmyadmin "> phpMyAdmin </a> <a href =" ./Servers/ "...

Modern Payroll & Attendance Monitoring System All in One (Preview) VB.NET

Image
Modern Payroll & Attendance Monitoring System All in One (Preview)

Simple Login | Electronic Billing System VB.NET

Image
Simple Login |  Electronic Billing System VB.NET FORM 1 Imports System.Data.OleDb Imports System.Media Public Class Register     Dim path = System.Windows.Forms.Application.StartupPath     Dim LogOnsound As String     Dim MyPlayer As New SoundPlayer()     Private Sub Cancel_Click(sender As Object, e As EventArgs) Handles Cancel.Click         Me.Hide()         Loginfrm.Show()     End Sub     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged         If CheckBox1.CheckState = CheckState.Checked Then             PasswordTextBox.UseSystemPasswordChar = False         End If         If CheckBox1.CheckState = CheckState.Unchecked Then             PasswordTextBox.UseSyste...

TUTORIALS SIMPLE LOGIN CODE WITH MS ACCESS DATABASE VB.NET

VB.NET TUTORIALS SIMPLE LOGIN CODE WITH MS ACCESS DATABASE Create MS Database 2x Textbox 1 Button Imports System.Data.OleDb Imports System.Media  Dim path = System.Windows.Forms.Application.StartupPath  Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb;")         Dim command As New OleDbCommand("SELECT [ID] FROM [Users] WHERE[passwordField] = Password", connection)         Dim PasswordParam As New OleDbParameter("Password", Me.Textbox2.Text)         command.Parameters.Add(PasswordParam)         command.Connection.Open()         Dim reader As OleDbDataReader = command.ExecuteReader         If reader.HasRows Then             MessageBox.Show("Access Granted !")             Me.Textbox2.Text = ""        ...

Simple Text To Speech VB.NET

Image
Simple Text To Speech VB.NET FORM 1 Imports System.Speech.Synthesis Public Class Form1     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim synth As New SpeechSynthesizer         synth.Rate = TrackBar2.Value         synth.Volume = TrackBar1.Value         If ComboBox1.SelectedIndex = 0 Then             synth.SelectVoiceByHints(VoiceGender.Male)         ElseIf ComboBox1.SelectedIndex = 1 Then             synth.SelectVoiceByHints(VoiceGender.Female)         End If         synth.Speak(RichTextBox1.Text)     End Sub     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged     End Sub End ...

Simple Modern Login (Guna UI, Mysql) VB.NET

Image
Simple Modern Login (Guna UI, Mysql) VB.NET FORM 1 Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         connection()     End Sub     Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click         SignIn()     End Sub     Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click     End Sub     Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged         Try             If GunaGoogleSwitch1.Checked = True Then                 GunaTextBox2.UseSystemPasswordChar = False                 ...

QR CODE SCANNER (Emgu CV ) VB.NET

Image
QR CODE SCANNER VB.NET Emgu CV Download :  http://www.emgu.com/wiki/index.php/Download_And_Installation Imports Emgu.CV Imports Emgu.CV.UI Imports Emgu.CV.Structure Imports MessagingToolkit.QRCode.Codec Public Class Form1     Dim Reader As QRCodeDecoder     Dim Cap As New Capture     Dim hash As String     Dim access As Boolean = False     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         Reader = New QRCodeDecoder         PictureBox1.Image = Cap.QueryFrame.ToBitmap()         Try             If access = True Then                 hash = Reader.decode(New Data.QRCodeBitmapImage(PictureBox1.Image))                 access = False                 If ...

Simple Lottery Game (Guna UI) VB.NET

Image
Simple Lottery Game (Guna UI) VB.NET Guna UI Download :  https://gunaframework.com/ FORM 1 Public Class Form2     Dim R1, R2, R3 As New Random     Dim PHP As Double = R1.Next(1, 999)     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim formattedValue As String = String.Format("{0:C}", PHP)         Label5.Text = formattedValue     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         'Random Generator         Label1.Text = R1.Next(1, 3)     End Sub     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick         'Random Generator         Label2.Text = R2.Next(1, 5)     End Sub     Private Sub Timer3_Tick(sende...