Ephyteac

Untuk ping  Private Sub CommandButton1_Click()  ip = Me.TextBox1.Text     Result = GetPingResult(ip)   Label2.Caption = "(" & ip & ") status :" & Result End Sub Function GetPingResult(Host)    Dim objPing As Object    Dim objStatus As Object    Dim strResult As String    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _        ExecQuery("Select * from Win32_PingStatus Where Address = '" & Host & "'")    For Each objStatus In objPing       Select Case objStatus.StatusCode          Case 0: strResult = "Connected"          Case 11001: strResult = "Buffer too small"          Case 11002: strResult = "Destination net unreachable"          Case 11003: strResult = "Destination host unreachab...

<judul baru> Menghitung jumlah baris pada datagridview         Dim jml_data As Integer       jml_data = DataGridView1.RowCount

Hari ini saya mencoba komunikasi menggunakan atmega168 dengan baut rate 2400,7even1 program ini bertujuan mengolah data serial komunikasi dengan memotong dua huruf pertama digantikan dengan "S" kemudian sisanya 12 character diambil untuk dikirim kembali ke serial portnya. ini source yang digunakan untuk arduino /* epi buat pemotong pada baudrate 2400 7 even 1 */ String inputString = ""; String printString = "";         / / untuk menyimpan data yang akan di keluarkan boolean stringComplete = false;  // untuk menunjukan data sudah komplit void setup() {   // inisialisasi  serial port   Serial.begin(2400,SERIAL_7E1);   // banyakanya buffer yang ditampung pada input string   inputString.reserve(200); } void loop() {   // print the string when a newline arrives:   if (stringComplete) {     Serial.println(printString);     // clear the string:     inputString = ""; ...