본문 바로가기

전체 글165

[vb.net] Ctrl + C, Ctrl + V 사용하기 PreviewKeyDown 이벤트를 활용해서 아주 간단하게 텍스트 박스에서 Ctrl + c, Ctrl + v, Ctrl + a, Ctrl + z ... 등 단축키가 가능하게 설정할 수 있습니다. Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown If e.Control Then e.IsInputKey = True End Sub 내 프로젝트에서 모든 텍스트 박스에 적용하고자 한다면 사용자 정의 컨트롤을 만들어 사용하면 됩니다. Public Class TextBox Inherits Windows.Forms.TextBox Private Overloads S.. 2023. 11. 22.
[vb.net] LINQ(Language-Integrated Query)를 이용한 전자회로 저항갑 병렬, 직렬 계산하는 방법 LINQ란? LINQ(Language-Integrated Query)는 Visual Basic에 쿼리 기능을 추가하고 모든 종류의 데이터를 사용할 때 간단하고 강력한 기능을 제공합니다. LINQ는 처리할 데이터베이스에 쿼리를 보내거나 검색하는 각 데이터 형식에 대해 서로 다른 쿼리 구문을 사용하는 대신 Visual Basic 언어의 일부로 쿼리를 도입합니다. LINQ는 데이터의 형식에 관계없이 통합된 구문을 사용합니다. ​ 이쯤 간단히 MS 자료를 인용해 보고요 본격적으로 설명에 들어갑니다. ​ ​ ​ 1. 직렬연결일 경우 더한 값이 나온다 ​ 2. 병렬연결일 경우 하나라도 입력되지 않으면 계산이 안되므로 0으로 나온다. ​ 이와 같이 폼을 만들고 textBox1 ~ textBox4 는 저항값 입력입니다.. 2023. 11. 20.
PHP4를 지원하는 phpmyadmin 설치하기 PHP 4는 매우 오래전에 더 이상 지원되지 않아 보안 취약점과 호환성 문제로 인해 사용을 권장하지 않습니다만.... 가능하다면 PHP를 최신 버전으로 업그레이드하는 것이 좋습니다. 그러나 기존 시스템에서 PHP 4가 이미 설치되어 있다면 다음과 같이 phpMyAdmin을 설치할 수 있습니다. 이러한 상황에서는 보안 상의 문제에 유의해야 합니다. ​ 1. PHP 4와 웹 서버 설정 확인 먼저 PHP 4가 제대로 설치되어 있는지 확인하고, 웹 서버 (예: Apache)의 설정이 PHP 4를 지원하도록 확인합니다. ​ 2. phpMyAdmin 다운로드 phpMyAdmin의 공식 웹사이트에서 PHP 4와 호환되는 버전을 다운로드합니다. 예를 들어, 이전 버전 중에서 PHP 4를 지원하는 버전을 선택할 수 있습.. 2023. 11. 17.
[vba] Excel에서의 Randomize 함수: 무작위 값 생성의 비밀 해제 엑셀을 사용하면서 랜덤한 값을 생성해야 할 때, 가끔씩 동일한 값만이 반복되는 현상을 경험한 적이 있을 것입니다. 오늘은 그 이유와 해결책에 대해 알아보겠습니다. ​ 무작위(random) 작업을 하는 코드를 보면 Randomize라고 하는 명령어들이 가끔 나옵니다. ​ 많은 사람들은 엑셀이 당연히 계속하여 새로운 무작위 숫자를 만들거라고 생각합니다. ​ 하지만, 엑셀은 계속 같은 무작위(???) 값을 가져온다. 왜? ​ 왜냐하면, 엑셀은 내부의 랜덤한 숫자 발생기가 있고, 여기에 있는 숫자를 이용하여 랜덤한 값을 생성하는데 Randomize를 해주지 않으면 계속하여 동일한 값을 사용하기 때문입니다. ​ Randomize 함수는 랜덤 숫자 발생기의 숫자를 랜덤하게 바꾸어주어 계속하여 새로운 랜덤 값이 생성.. 2023. 11. 15.
[서식] 엑셀 자동화 양식 - 생산작업일지 및 (제품,원료)수불대장 - 떡 / 재고관리 1. 첨부한 파일은 무료이며 사용과 배포에는 제한이 없습니다. 단 출처는 꼭 남겨주세요. 2. VBA를 포함하고 있으면 매크로 사용을 허용해야 합니다. 3. View, 재료 입고, 재료 사용, 제품 거래 이력, 비율, 매핑 시트로 총 7개의 시트로 구성되어 있습니다. 4. 사용법 1) 재료 입고 - 재료 입고 시 해당하는 날짜와 해당하는 재료에 입고량을 기입합니다. (단위 Kg) 2). 제품 거래 이력 시트에 생산량 또는 출고량을 기입합니다. 3). View 탭에서 해당하는 날짜를 년, 월, 일을 기입하면 자동으로 계산된 값이 출력 됩니다. 이 값을 저장해야만 재고가 반영되므로 매일 저장을 해줍니다. 2023. 11. 8.
[무료] 파일 쉽게 암호걸기 파일에 알집등을 통해 암호를 걸 수 있으나 그와 다른 방법으로 파일 암호화 프로그램을 이용할 수 있습니다. ​ 또한 아래와 같이 윈도우 기능을 이용할 수 있습니다. ​ Windows 10 파일을 암호화하는 방법 ​ 파일 암호화는 데이터를 암호화하여 데이터를 보호할 수 있습니다. 올바른 암호화 키(예: 비밀번호)를 가진 사람만 암호 해독이 가능합니다. 파일 암호화는 Windows 10 Home에서 사용할 수 없습니다. ​ 파일 또는 폴더를 길게 누르거나 마우스 오른쪽 단추로 클릭한 다음 속성을 선택합니다. ​ 고급 버튼을 선택한 다음 데이터 보호를 위해 내용을 암호화 확인란을 선택합니다. ​ 확인을 선택하여 고급 특성 창을 닫고 적용을 선택한 다음 확인을 선택합니다. ​ 이와같이 자물쇠 모양이 나오면서 암.. 2023. 11. 4.
[vb6.0/vba] vba를 활용한 결재 도장 삽입 지식인 답변 중 기록에 남겨둘만해서 남겨봅니다. h t t p s : / / k i n . n a v e r . c o m / q n a / d e t a i l . n a v e r ? d 1 i d = 1 & d i r I d = 1 0 2 0 2 0 1 0 1 & d o c I d = 4 5 7 8 4 8 7 7 4 여기서 도형을 순서대로 "수", "우", "미", "양", "가" 로 이름을 지정합니다. 다음으로 B2 셀에 "수", "우", "미", "양", "가"를 입력 후 엔터를 치면 해당하는 칸에 이미지가 삽입됩니다. 기존 삽입된 상태이면 중복 삽입이 되지 않습니다. "수", "우", "미", "양", "가" 외에 다른 글자 즉 해당하는 이름의 도형이 없으면 작업을 자동 종료합니다. 아래는 V.. 2023. 11. 4.
[MySQL] A 테이블에 있고, B 테이블에 없는 데이터 조회 및 삭제 A테이블에 있고, B테이블에 없는 데이터 조회 SELECT * FROM `collection_and_payment` A LEFT OUTER JOIN `balhaengmul` B ON A.uid=B.rUid WHERE B.rUid IS NULL; 삭제하기 위해서는 임시테이블 사용 DELETE FROM `collection_and_payment` WHERE uid IN (SELECT * FROM (SELECT A.uid FROM `collection_and_payment` A LEFT OUTER JOIN `balhaengmul` B ON A.uid=B.rUid WHERE B.rUid IS NULL) AS temp_table); 2023. 7. 27.
[SQL] MySQL 날짜 요일(DAYOFWEEK) 구하기 및 주의사항 특정 일자의 요일을 구하고자 할 때, 사용하는 함수가 존재한다. 모든 언어에 요일을 구하는 함수가 있으며, 표준이 있기 마련이다. 일반적인 프로그래밍 언어는 전통적으로 일요일로 시작하며 0을 리턴한다. 일 월 화 수 목 금 토 0 1 2 3 4 5 6 프로그래밍 언어와 다르게 ODBC에서는 다른 값을 리턴한다. 일 월 화 수 목 금 토 1 2 3 4 5 6 7 여기서 MySQL과 MariaDB에서 제공하는 WEEKDAY()는 리턴 값이 ODBC 표준을 따르지 않는다는 점이다. 일 월 화 수 목 금 토 0 1 2 3 4 5 6 특별히 WEEKDAY()를 써야 되는 경우가 아니라면 ODBC 표준을 따르는 DAYOFWEEK()를 사용해야 실수를 줄일 수 있다. SELECT DATE_FORMAT(NOW(),"%.. 2023. 7. 25.
[MySQL] [MySQL] SELECT 문 특정 컬럼의 MIN값이 0보다 클경우 0을 반환하고 그렇지 않으면 MIN값을 반환 보통 다른 언어에서는 IF문을 사용하지만 MySQL에서는 CASE문을 사용합니다. SELECT CASE WHEN MIN(`발주번호`) - 1 > 0 THEN 0 ELSE MIN(`발주번호`) - 1 END AS V FROM `order_delivery_number` WHERE 1 위 쿼리를 실행시키면 다음과 같은 결과를 볼 수 있습니다. 2023. 7. 12.
[vba] Outlook 현재 활성화된 창의 제목 및 내용을 가져오는 방법 VBASub progrgram1472() Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Set myOlExp = Application.ActiveExplorer Set myOlSel = myOlExp.Selection Dim selectedFolder As Outlook.MAPIFolder Set selectedFolder = myOlExp.CurrentFolder Dim itemMessage As String itemMessage = "Item is unknown." Dim expMessage As String expMessage = "Your current folder is " & selectedFolder.Parent.Name &.. 2023. 7. 10.
[vb.net] 이미지 주변 여백 제거 Public Function CropWhiteSpace(ByVal bmp As Bitmap) As Bitmap Dim w As Integer = bmp.Width Dim h As Integer = bmp.Height Dim white As Integer = &HFFFFFF Dim allWhiteRow As Func(Of Integer, Boolean) = Function(r) For i As Integer = 0 To w - 1 If (bmp.GetPixel(i, r).ToArgb() And white) white Then Return False Next Return True End Function Dim allWhiteColumn As Func(Of Integer, Boolean) = Function(.. 2023. 6. 28.
[vb.net] 네이버 스마트 스토어 커머스 API 활용하기 - 주문 조회 URL : https://api.commerce.naver.com/external/v1/pay-order/seller/product-orders/last-changed-statuses​lastChangedFromrequired string Example: 아래 "한국 표준시(KST)" 참고조회 시작 일시(inclusive)lastChangedTostring 조회 종료 일시(inclusive). 생략 시 lastChangedFrom으로부터 24시간 후로 자동 지정됩니다.lastChangedTypestring최종 변경 구분moreSequencestringmoreSequence 사용법은 API 설명을 참고합니다. 임의의 값 입력 시 예기치 않은 결과가 제공될 수 있습니다.limitCountinteger조회 .. 2023. 6. 26.
[vb.net] 이미지 주변 여백 제거 Imports System.Drawing.Imaging Imports System.Runtime.CompilerServices Public Module BitmapExtensions Public Function TrimImage(ByRef img As Bitmap) As Bitmap Dim threshhold = 250 Dim topOffset = 0 Dim bottomOffset = 0 Dim leftOffset = 0 Dim rightOffset = 0 Dim x As Long, y As Long, GetColor As Color Dim foundColor = False ' Get left bounds to crop x = 1 While x = 1 AndAlso foundColor = False y .. 2023. 6. 26.
[vb.net] OpenFileDialog Example Dim ofd As New OpenFileDialog() '// ofd.FileName = "default.매뉴" '// 최초지정 파일 '// ofd.InitialDirectory = "C:\" '// 처음에 표시되는 폴더(미지정시 현재폴더) ofd.Filter = "All file(*.*)|*.*" '// 파일종류(미지정시 모든파일) ofd.FilterIndex = 1 '// 처음에는 모든 파일이 선택되도록 지정 ofd.Title = "file Select" '// 타이틀 ofd.RestoreDirectory = True '// 다이얼로그박스 닫기젖 현재의 디렉토리를 복원 ofd.CheckFileExists = True '// 존재하지 않는 파일 지정시 경고(자동지정) ofd.CheckPathExist.. 2023. 6. 21.
[vb.net] WebClient 파일 업로드 프로세스 바 / BackgroundWorker Progress Display Private WithEvents uploader As New WebClient Private Sub UploadFile(sourcePath As String, destinationAddress As String) uploader.UploadFileAsync(New Uri(destinationAddress), sourcePath)End Sub Private Sub uploader_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles uploader.UploadProgressChanged SetProgress(Convert.ToInt32(100 * e.BytesSent / e.TotalBytesToSend)).. 2023. 6. 14.
[MySql] DB 백업 //https://atg-cas.iptime.org/db_backup.php?db_nm=alltogreen//https://atg-cas.iptime.org/db_backup.php?db_nm=aserpacific//https://atg-cas.iptime.org/db_backup.php?db_nm=jeju//https://atg-cas.iptime.org/db_backup.php?db_nm=mysql//https://atg-cas.iptime.org/db_backup.php?db_nm=information_schema /*** Updated: Mohammad M. AlBanna* Website: MBanna.info*/  //MySQL server and database$dbhost = 'localho.. 2023. 6. 7.
[vb.net] Round Button Private Sub RoundButton(btn As Button) btn.FlatStyle = FlatStyle.Flat btn.FlatAppearance.BorderSize = 0 btn.BackColor = Color.Red btn.ForeColor = Color.White btn.Cursor = Cursors.Hand btn.Font = New Font("Century Gothic", 14) Dim Raduis As New Drawing2D.GraphicsPath Raduis.StartFigure() 'appends an elliptical arc to the current figure 'left corner top Raduis.AddArc(New Rectangle(0, 0, 20, 20), 1.. 2023. 6. 7.
[vb.net] DateTimePicker 전월, 전주, 어제, 오늘, 금주 설정하기 Private Sub cmd_d_x_Click(sender As Object, e As EventArgs) Handles cmd_d_5.Click, cmd_d_4.Click, cmd_d_3.Click, cmd_d_2.Click, cmd_d_1.Click Dim nm As String = sender.Name Dim idx As Integer = nm.Split("_").Last Select Case idx Case 1 '// 전월 DTP_0_1.Value = DateSerial(Year(Now), Month(Now) - 1, 1) DTP_0_2.Value = DateSerial(Year(Now), Month(Now), 0) Case 2 '// 전주 DTP_0_2.Value = Now.Date.AddDay.. 2023. 5. 22.
[vb.net] JSON Example Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim jo As Object = New With {Key .list = {"foo", "bar"}, Key .data = "string"} RichTextBox1.Text = JsonConvert.SerializeObject(jo) End Sub 2023. 4. 9.
네이버 블로그 주소로 아이디 알아내기 https://blog.naver.com/NBlogWlwLayout.naver?blogId=sequoia-jeju 응답결과: http://blog.naver.com/favicon.ico 네이버 블로그 바로가기 WebLayout 왜 블로그 아이디를 따로 만든걸까? 2023. 3. 28.

티스토리툴바