728x90

 

#include <stdio.h>

int main(viod)
{
 int i=1;
 // 변수 i의 값은 1 으로 초기화
 
 do
 {
  printf("%d 번 반복\n",i) ;
  // i의 값만큼 반복 했다는 문구를 출력
  i++;
  // i값 연산후 증가
 
 }while(i<=10);
 // 조건확인 i 값이 10 이하일때만 반복
 return 0;
}

코딩후 Ctrl + F5

2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-1 ː Printf();
2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-2 ː Scanf();
2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-3 ː For()

728x90

#include <stdio.h>

int main(viod)
{
 int i;
i=1';
for(i; i<=5; i++)
 // 변수 i는 초기값 1이고, ; i값이 5이하 일때만 작동 ; i 연산후 증가
 {
  printf("%d 번째 printf문\n",i);
  // for문이 재대로 됬다면 print문은 5번 작동될것임
 }

 return 0;
}

코딩후 Ctrl + F5

2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-1 ː Printf();
2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-2 ː Scanf();


728x90

#include <stdio.h>

int main(viod)
{
 int a,b,c;
 printf("3개의 정수를 입력해주세요. \n");
// 출력
 scanf("%d %d %d", &a, &b, &c);
// 사용자에게 입력받은 3개의 정수를 변수 a b c 에 입력
printf("입력받은 정수는 %d %d %d 입니다. \n",a, b, c);

// 출력 변수 a b c 에 입력된 값을 출력
 return 0;
}

코딩후 Ctrl + F5

2008/05/21 - [C] - C 언어 변환문자 의미 자료형 (%d,%f,%e,%o,%x,%u,%g,%p,%c,%s)

2009/01/17 - [C/Cː강좌] - C언어 기초 강좌 1-1 ː Printf();
 

728x90


#include <stdio.h>

int main(viod)
{
 printf("Hello, World! \n"); // Hello, World! 라는 문장을 출력하고, \n = 줄바꿈
 return 0;
}

위와 같이 코딩을 한후

Ctrl + F7
F7
Ctrl + F5 를 순서대로 눌러주자.

그러면 도스창에 뜨면서 Hello, World! 라는 문구가 나온다.


이건 뭐 그냥 따라하고 이렇게 되는구나 라는 식으로 강좌가 진행될것이다..

나도 초심으로 돌아가 다시 배우는중이다. 물론 나도 초보이다. ㅋㅋㅋ

728x90

명인's 싸이월드 스크랩 올리기 Returns Ver 1.9.5


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.



싸이월드 스크랩 올리기 Returns Ver 1.9.5 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

// 센서티브, 러블리, 스크랩 유료 서비스 추가

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)


728x90

VB 소스/자료 ː 싸이월드 랜덤 고유번호 추출 소스



제작 : 명인s http://clanguage.tistory.com/
제작 : 명인s http://clanguage.tistory.com/
728x90

명인's 싸이월드 스크랩 올리기 Returns Ver 1.9


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.


싸이월드 스크랩 올리기 Returns Ver 1.9 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.


에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)


728x90


Ctrl + T 를 눌러 구성요소를 띄웁니다.

Microsoft Windows Common Controls 6.0 을 체크후 확인을 누릅니다.

추가를 하면 왼쪽 중앙에 ProgressBar 가 추가됩니다.

Option Explicit
Private Sub Form_Load()
PB1.Max = 100 ' PB1의 최대값 지정
PB1.Min = 0 ' PB1의 최소값 지정
PB2.Max = 100 ' PB2의 최대값 지정
PB2.Min = 0 ' PB2의 최소값 지정
PB1.Scrolling = ccScrollingSmooth
PB2.Scrolling = ccScrollingStandard
Timer1.Interval = 1000 ' 타이머 속도 1초
' 위 옵션은 직접 코딩을 안하셔도 속성에서 지정하셔도 되지만, _
  초보자분들을 위해 직접 코딩했습니다.
End Sub
Private Sub Timer1_Timer() ' 1초마다
Static i As Long 'PB 의 Value 값이 될 변수 선언 , i의 초기값은 0
i = i + 1 '1초마다 1씩 값증가
PB1.Value = i 'PB1의 Value(값) 은 i 값
PB2.Value = i
End Sub
728x90


 

이번 강좌는 ListBox 를 배워보는 시간입니다.
첨부 파일 해뒀으니, 사용해보시고, 익혀보세요!
저도 초보니깐 ^^;; 틀린게 있더라도 잘 이해해주시면서 봐주세요.

즐거운 비주얼베이직 되시길 +_+




Option Explicit

Private Sub Command1_Click() '리스트  값 추가
List1.AddItem "+_+ 추가됬다" & List1.ListCount
'List1에 "+_+ 추가됬다" 라는 값을 추가 _
 List1.ListCount 은 list1의 총 값의 갯수를 출력하는 메소드다. _
 여기서 넣어준 이유는 값을 다 다르게 넣어주기 위해서다.

End Sub

Private Sub Command2_Click() '리스트 값 삭제
On Error Resume Next
'에러무시
If List1.ListIndex >= 0 Then
'List1의 listindex값이 0 이상일경우에만 삭제
List1.RemoveItem List1.ListIndex
End If
'List1.RemoveItem List1.ListIndex 만 코딩할경우 _
 아무것도 선택이 되지 않았을때 에러가 난다. _
 그러므로, if문을 사용해서나, on error resume next 를 써서 에러를 무시한다.
End Sub

Private Sub Command3_Click() '리스트 값 출력
MsgBox List1.Text
'List1의 값을 출력하는 내가 알고 있는 방식은 2가지이다. _
 그중 한가지 방법은 List1.text 이고, _
 다른 방식은 List1.list(list1.listindex) 이다. _
 편한걸 쓰기 바란다.

End Sub

Private Sub Command4_Click() '리스트 값 전체삭제
List1.Clear 'list1의 list값을 전부다 삭제
End Sub

Private Sub Command5_Click() '리스트 값 선택
On Error Resume Next
'에러무시
If List1.ListCount > 0 Then
'List1의 총 갯수가 1이상일경우에만 선택
List1.ListIndex = 0
' List1의 인덱스 0 선택 즉 첫번째
End If 'listindex값은 0부터 시작함 // ListCount 는 1부터 시작함
End Sub

 

제작 : 명인's
블로그주소 :
http://clanguage.tistory.com/
728x90

2009/01/05 - [Visual Basic 6.0/VBː강좌] - VB Split 함수 사용방법

이전 글에서 Split함수를 이해하셨다면 Join함수도 쉽게 이해 하실수 있을겁니다.

짧게 쓰겠습니다.

Private Sub Form_Load()
Dim TArr() As String
Dim TestStr As String

TestStr = "명인바보=_=;; 명인은 천재다 명인은 고수다, 명인은 초보다"
TArr() = Split(TestStr, "명인")

Dim i As Long
For i = LBound(TArr) To UBound(TArr)
Debug.Print "|" & TArr(i) & "|"
Next

Dim Sstr As String

Sstr = Join(TArr(), "명인")
Debug.Print Sstr '결과 확인
End Sub

위 예제 를 실행해보면,

TestStr 에 저장된 값이랑
Sstr 에 저장된 값이 같다는걸 알수 있습니다.

Join(배열,기준)

+ Recent posts