Skip to main content

zoomtronic's

Search This Blog

Marco Tempest: The electric rise and fall of Nikola Tesla

on January 27, 2015

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Comments

Post a Comment

Popular Posts

ESP 8266 NTP LCD clock (internet time via ESP8266 NodeMcu and I2C LCD module)

Here is the simple example how to use NTP to display time on lcd using NodeMcu developement board. Code: // Core code is used from https://lastminuteengineers.com/esp8266-ntp-server-date-time-tutorial/ // and modified to be aplicable with I2C Lcd display // #include <NTPClient.h> // https://github.com/arduino-libraries/NTPClient #include <ESP8266WiFi.h> #include <WiFiUdp.h> #include <LiquidCrystal_I2C.h> #include <Wire.h> // Default I2C pins on NodeMcu is SDA - D2 , SCL - D1 const char *ssid = "YOUR SSID"; const char *password = "YOUR PASSWORD"; /* You need to adjust the UTC offset for your timezone in milliseconds. Refer the list of UTC time offsets. Here are some examples for different timezones: For UTC -5.00 : -5 * 60 * 60 : -18000 For UTC +1.00 : 1 * 60 * 60 : 3600 For UTC +0.00 : 0 * 60 * 60 : 0 const long utcOffsetInSeconds = 3600; */ const long utcOffsetInSeconds = 7200; // s

This is evolution of pingerica which i made couple month ago, simple ping application this time pinging multiple addresses. By entering IP address into text boxes and clicking on "Start ping" button in the labels appears ping return info. SOURCE CODE: Imports System.Net Imports System.Net.NetworkInformation Imports System.Threading Public Class Form1 Dim ping As New Ping Dim rp(5) As PingReply Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Thread.Sleep(TextBox7.Text) 'refresh rate rp(0) = ping.Send(TextBox1.Text) ' vrednost iz textboxa1 rp(1) = ping.Send(TextBox2.Text) rp(2) = ping.Send(TextBox3.Text) rp(3) = ping.Send(TextBox4.Text) rp(4) = ping.Send(Text

For Begining....

I decided to make this blog just to in next couple years i laugh on what i did in the past... Usually on my work i have some demands regarding job i work on, parallel with that i were experimenting and making test to some fields i used to scratch surface few years ago. I were interested in network probing, testing, and interests as such lead me to couple applications i made just to test network quality. On this window I got UI which allows me to enter IP address or web host name. After name entered, all i have to do is press PinGuj button And it comes to this... Simple Ping application Which allowed me to check is the some PC on the network alive, or is there Internet connection by pinging some external IP address. Source CODE: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim command As String command = "ping -t " + TextBox1.Text Shell("c

Powered by Blogger