공대생의 야매집합소

한셀2048게임 제작

글쓴이 言 : 즐거운 크리스마스 이브 보내시고 군인 여러분 화이팅

(오타가 있을 수 있습니다. 오타는 디버깅해보시면서 알아서 찾아서 고쳐주시면 감사하겠습니다.)

단계별 구성

1단계 : 설정 및 게임 틀 양식 제작(게임이 작동할 형태)

2단계 : 게임판 스크립트 소스

3단계 : 등급표 스크립트 소스

4단계 : ThisWorkbook 스크립트 소스

5단계 : Module 스크립트 소스

5-1단계 : 방향키(상,하,좌,우)

5-2단계 : 엔진(블럭 생성&실패카운트&점수&초기화&기록저장)

★5-1(상)단계★

1. Module 스크립트 소스 제작

이해시켜드리는 게시글은 아니라 일방적으로 포스팅하겠습니다.

매번 포스팅때마다 나눠서 올리겠습니다.

스크립트 소스 내용

Dim x,y

Dim cx,cy

Dim cnt

'난이도조절 필요

Sub 상

Application.ScreenUpdating=false

cnt=0

x=2

y=2

Do until y>5

If Cells(x,y)<>"" Then

cx=2

Do until cx>5

If Cells(cx,y)="" Then

Exit Do

End If

cx=cx+1

Loop

If cx<x Then

cnt=cnt+1

Cells(cx,y)=Cells(x,y)

Cells(x,y)=""

End If

End If

x=x+1

If x=6 Then

x=2

y=y+1

End If

Loop

x=3

y=2

Do until y>5

If x>2 Then

If Cells(x,y)<>"" Then

If Cells(x,y)=Cells(x-1,y) Then

Cells(x-1,y)=Cells(x-1,y)+Cells(x,y)

Cells(2,11)=Cells(2,11)+(Cells(x-1,y))

cnt=cnt+1

Cells(x,y)=""

elseif Cells(x,y)+Cells(x+1,y) Then

Cells(x,y)=Cells(x,y)+Cells(x+1,y)

Cells(2,11)=Cells(2,11)+(Cells(x+1,y))

cnt=cnt+1

Cells(x+1,y)=""

End If

End If

End If

x=x+1

If x=6 Then

x=2

y=y+1

End If

Loop

x=2

y=2

Do until y>5

If Cells(x,y)<>"" Then

cx=2

Do until cx>5

If Cells(cx,y)="" Then

Exit Do

End If

cx=cx+1

Loop

If cx<x Then

Cells(cx,y)=Cells(x,y)

Cells(x,y)=""

End If

End If

x=x+1

If x=6 Then

x=2

y=y+1

End If

Loop

If cnt=0 Then

Exit Sub

End If

Call Make_Block

Call Check_Dead

Call Coloring

Call Check_Grade

End Sub

★오타 혹은 오류 발생 시 댓글 남겨주세요.★

이전 단계로 & 한셀 다운로드 & 다음 단계로

처음 2048 제작 글로 돌아가기

문의 하기

prophecy212@hanmail.net 메일보내기

&

안부글과 댓글에 글 남기기