- 1
- 2
- 3
- 4
- 5
- 6
import Data.Array.IO
main = do arr <- newArray (1,10) 37 :: IO (IOArray Int Int)
a <- readArray arr 1
writeArray arr 1 64
b <- readArray arr 1
print (a, b)
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+123
import Data.Array.IO
main = do arr <- newArray (1,10) 37 :: IO (IOArray Int Int)
a <- readArray arr 1
writeArray arr 1 64
b <- readArray arr 1
print (a, b)
Вот такое вот говно приходится терпеть, если хочешь работать в хаскеле с массивами. Дальше будет только нос закрывай. To be continued...
+123
<table border="0" id="table" width="800" align="center">
<tr><td colspan="5" align="center">Ваш заказ:</td></tr>
<? $query=mysql_query("Select * from `$name`");
for ($c=0; $c<mysql_num_rows($query);$c++){
?><?
$result=mysql_fetch_array($query);
$a=$result['menu_id'];
$query1=mysql_query("SELECT * FROM menu WHERE id=$a");
$result1=mysql_fetch_array($query1);
?>
<tr><td width="50"><? echo $c+'1'; ?></td><td width="50" align="center"><img src="img/tira.png" style="height:20px; width:20px;"/></td><td><? echo $result1['name'];?></td><td><a href="#">-</a><input type="text" min="1" value="<? echo $result['count'];?>" max="40" size="2" /><a href="#" onclick="up()">+</a></td><td>удалить</td></tr>
<script language="javascript" type="application/javascript">
var a=parseInt("<? echo $result['count'];?>");
function up(){
var b = a + 1;
document.write(b);
}
</script>
<?
}
?>
"Создаю корзину покупателя! Формирую таблицу выбранных пользователем товаров и его кол-во в цикле! добавил функцию на OnClick с выводом значение в ячейке! при нажатии выводит только значение последнего товара из цикла." Слов нет.
+123
static bool HasSp1()
{
try
{
WaitHandle h = new ManualResetEvent(true);
h.WaitOne(0);
return true;
}
catch
{
return false;
}
}
Проверка наличия Service Pack 1 к .NET Framework 3.5 (в продолжение предыдущего ГК). Да, есть другие варианты, но этот не выглядит хуже.
+123
http://funkyimg.com/u2/1556/586/2825302008_10_13_08_56_pit_dirty_ru_lepro_2_2008_10_09_18140_132300_8a155bd531ebf86457f70e98dff1756d.gif
+123
public static void DecToHex(int din) //Перевод из десятичной системы в шестнадцатеричную
{
string hout="", buk="";
int q,r;
while (din>0)
{
q = din % 16;
din = din / 16;
if (q >= 0 && q < 10)
buk = q.ToString();
else
if (q == 10)
buk = "A";
else if (q == 11)
buk = "B";
else if (q == 12)
buk = "C";
else if (q == 13)
buk = "D";
else if (q == 14)
buk = "E";
else if (q == 15)
buk = "F";
hout =hout + buk;
}
Console.WriteLine(MyReverseString(hout));
}
Метод переводит из десятичной системы в шестнадцатеричную. Метод MyReverseString собственный метод переворота строки.
+123
pOutGrid = pTab != null ?
pTab.SelectedTab != null ?
pTab.SelectedTab.Tag is GridEX ?
(GridEX)pTab.SelectedTab.Tag :
pTab.SelectedTab.Tag is TObject ?
((TObject)pTab.SelectedTab.Tag).ViewForm != null ?
((TObject)pTab.SelectedTab.Tag).ViewForm.GridEX != null ?
((TObject)pTab.SelectedTab.Tag).ViewForm.GridEX : pGrid : pGrid : pGrid
: pGrid : pGrid;
+123
internal static string TryingDownloadAgainDotDotDot
Индусы суровы.
+123
Попался на одном сайте опрос:
Approximately how speedy is your Internet connection?
Pony express
512kb/s
1Mb/s
2Mb/s
4Mb/s
10Mb/s
100Mb/s
Greased lightning
Увидев первый пункт в опросе, и учитывая местный культ, решил поделиться :)
+123
Рабочий стол > Контент > Структура сайта > Файлы и папки > bitrix > templates > .default > components > bitrix > sale.personal.order > main > bitrix > bitrix > sale.personal.order.detail > .default > lang > ru > template.php
Это чтобы в Битриксе поменять одну фитюльку.
+123
static public int MeasureDisplayStringWidth(Graphics graphics, string text,
Font font)
{
const int width = 32;
System.Drawing.Bitmap bitmap = new System.Drawing.Bitmap (width, 1,
graphics);
System.Drawing.SizeF size = graphics.MeasureString (text, font);
System.Drawing.Graphics anagra = System.Drawing.Graphics.FromImage(bitmap);
int measured_width = (int) size.Width;
if (anagra != null)
{
anagra.Clear (Color.White);
anagra.DrawString (text+"|", font, Brushes.Black,
width - measured_width, -font.Height / 2);
for (int i = width-1; i >= 0; i--)
{
measured_width--;
if (bitmap.GetPixel (i, 0).R != 255) // found a non-white pixel ?
break;
}
}
return measured_width;
}
Ищем размер нарисованной строки. Не моё. Нашел на codeproject.
(Вместо MeasureCharacterRanges)