Автор | Сообщение |
|
| |
Пост N: 997
Зарегистрирован: 11.06.10
|
|
Отправлено: 20.11.13 13:21. Заголовок: Хабром навеяно, до 30 строк ...
Вот набросал змейку на harbour, сильно урезано, без хвоста, без проверок всяких, можно еще кое-что втиснуть чтоб было 30 строк, но можно поиграться. Может у кого уже есть подобное, выкладывайте. FUNC Main() LOCAL showD := {|| aField[ 1 ] := hb_RandomInt( 0, MaxRow() ), aField[ 2 ] := hb_RandomInt( 0, MaxCol() ), DevPos( aField[ 1 ], aField[ 2 ] ), DevOut( "*" ) } PRIVATE aField:={0,0,0,{{hb_RandomInt(0,MaxRow()),hb_RandomInt(0,MaxCol())}},1,"█"} cls SET CURSOR OFF Eval( showD ) WHILE ( nKey := LastKey() ) != 27 aEval( aField[4], {|x|DevPos(x[1],x[2]),DevOut(aField[6])} ) Inkey( .2 ) IF nKey == 4 .OR. nKey == 19 /* RIGHT, LEFT */ aadd(aField[4],{aField[4,Len(aField[4]),1],iif( aField[4,Len(aField[4]),2] == iif( nKey == 4, MaxCol(), 0 ), iif( nKey == 4, 0, MaxCol() ), iif( nKey == 4, aField[4,Len(aField[4]),2] + 1, aField[4,Len(aField[4]),2] - 1 ) )}) ELSEIF nKey == 5 .OR. nKey == 24 /* UP, DOWN */ aadd(aField[4],{iif( aField[4,Len(aField[4]),1] == iif( nKey == 5, 0, MaxRow() ), iif( nKey == 5, MaxRow(), 0 ), iif( nKey == 5, aField[4,Len(aField[4]),1] - 1, aField[4,Len(aField[4]),1] + 1 ) ),aField[4,Len(aField[4]),2]}) ENDIF IF aField[4,Len(aField[4]),1] == aField[ 1 ] .AND. aField[4,Len(aField[4]),2] == aField[ 2 ] aField[ 3 ] += 1 Eval( showD ) ENDIF if ascan({4,19,5,24},nKEy)!=0 @aField[4,1,1], aField[4,1,2] SAY " " if aField[3]==0 hb_aDel(aField[4],1,.T.) elseif aField[3]==1 aField[3]:=0 endif endif END RETURN NIL
| |
|
Новых ответов нет
[см. все]
|
|
|
| постоянный участник
|
Пост N: 3104
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.13 14:25. Заголовок: AlexMyr пишет: Вот ..
AlexMyr пишет: цитата: | Вот набросал змейку на harbour, |
| А генерации фамилий, имен и отчеств нет случайно ? Мне тестовую базу загрузить нужно...
| |
|
|
| |
Пост N: 998
Зарегистрирован: 11.06.10
|
|
Отправлено: 20.11.13 15:24. Заголовок: Andrey пишет: А ген..
| |
|
|
| moderator
|
Пост N: 719
Зарегистрирован: 06.07.06
|
|
Отправлено: 20.11.13 15:33. Заголовок: Ждем сокобан, тетрис..
Ждем сокобан, тетрис и электронную таблицу :) Кстати, вместо Int( hb_Random() ) можно hb_RandomInt()
| |
|
|
| |
Пост N: 999
Зарегистрирован: 11.06.10
|
|
Отправлено: 20.11.13 15:35. Заголовок: Andrey пишет: Уж оч..
Andrey пишет: цитата: | Уж очень мало славянских фамилий... |
|
это да, но и разрешения на обработку перс. даных брать не надо
| |
|
|
| Администратор
|
Пост N: 3048
Зарегистрирован: 23.05.05
|
|
Отправлено: 20.11.13 15:46. Заголовок: Andrey пишет: А ген..
Andrey пишет: цитата: | А генерации фамилий, имен и отчеств нет случайно ? Мне тестовую базу загрузить нужно... |
| Вместо фамилий с именами названия улиц подойдут ? Берешь street.dbf из kladr.org, там почти миллион улиц. Из них составляешь псевдоФИО
| |
|
|
| постоянный участник
|
Пост N: 3107
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.13 20:22. Заголовок: Pasha пишет: Из них..
Pasha пишет: цитата: | Из них составляешь псевдоФИО |
|
| |
|
|
| |
Пост N: 17
Зарегистрирован: 14.07.10
|
|
Отправлено: 21.11.13 16:40. Заголовок: Выражение для dbEval
tone(Random(recno())/20,0.5),IIF(Inkey()=27.and.Alert('Надоело слушать МУЗЫКУ?',2)=1,dbGoTo(0),IIF(RecNo()=LastRec(),dbGoTop(),Nil)),.F.
| |
|
|
| |
Пост N: 1003
Зарегистрирован: 11.06.10
|
|
Отправлено: 22.11.13 17:38. Заголовок: SergeJaHome пишет: ..
SergeJaHome пишет: цитата: | tone(Random(recno())/20,0.5),IIF(Inkey()=27.and.Alert('Надоело слушать МУЗЫКУ?',2)=1,dbGoTo(0),IIF(RecNo()=LastRec(),dbGoTop(),Nil)),.F. |
| Не компилится, str1.prg(1) Error E0030 Syntax error "syntax error at ','" hbmk2: Error: Running Harbour compiler (embedded). 1 (c:\dev\harbour\bin\harbour.exe) -n2 str1.prg -p -od:\tmp\hbmk_41hkmq.dir\ -ic:\dev\harbour\include Идея вроде понятна, но код не самодостаточный.
| |
|
|
| |
Пост N: 1004
Зарегистрирован: 11.06.10
|
|
Отправлено: 25.11.13 10:22. Заголовок: alkresin пишет: Кст..
alkresin пишет: цитата: | Кстати, вместо Int( hb_Random() ) можно hb_RandomInt() |
|
Теперь использую. Спасибо. Доделал хвост, код в первом сообщении.
| |
|
|
|